Трямки всем,
Помогите с проблемой - не могу отыскать в файле символ #
Пытаюсь сделать следующий поиск
/\\A\\#/
и
/^\\#/
ничего не выходит - по файлу поиск похоже не идет - вместо того, что бы вывести нужную строку он выводит всякий бред, ну не совсем бред, а просто количество сих символов в файле:
skif@FreeBSD :/home/skif/1.pl
1
1
1
skif@FreeBSD :
полный код
#!/usr/bin/perl
use DBI;
open (passw, "/usr/local/etc/squid/passwd");
while (
){
if ($_ =/^\\#/) {
print "$_ \\n";
}
}
close(passw);