скрипт perlhttp://softtime.ru/forumскрипт perlhttp://softtime.ru/forum/read.php?id_forum=2&id_theme=61715#post360114со вторым чевойто я переборщил :)скрипт perlThu, 15 Jan 2009 00:08:01 +0300xx7скрипт perlhttp://softtime.ru/forum/read.php?id_forum=2&id_theme=61715#post360113для сравнения строк можно использовать только eq, ne, lt, gt, lte ... правильно буде поставить условие так if ($n eq...скрипт perlThu, 15 Jan 2009 00:06:46 +0300xx7скрипт perlhttp://softtime.ru/forum/read.php?id_forum=2&id_theme=61715#post360073Здравствуйте, #!/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)...скрипт perlWed, 14 Jan 2009 19:01:41 +0300vasvas3