Разное

Здравствуйте,
#!/usr/local/bin/perl -w
print "Content-Type: text/html\n\n";
$p="D:\webservers\home\test1.ru\www\safe\2";
$a=open(FFF,"user.txt") or die("fac");
while(<FFF>)
{
if (/^day.ru: (\S+)/i) {
$n=$1;}
}
if ($n) {
opendir(RRR, 'D:\webservers\home\test1.ru\www\safe\2') or die print "nevozmozhno otkrit' papku";
while ($file = readdir(RRR))
{
if ($n==$file) {
print "$file--$n<br>";}
}
}

else { print "net dannogo domena";}
-----
больше всего интерсует вот этот участок
if ($n==$file) {
print "$file--$n<br>";}
он выводит
.--dayru
..--dayru
fff--dayru
g--dayru
ggg--dayru
---
Как такое может быть что ggg==dayru?

для сравнения строк можно использовать только eq, ne, lt, gt, lte ...
правильно буде поставить условие так if ($n eq $file)
или так if ($n =~ /^$file$/)

со вторым чевойто я переборщил :)