|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 08 Jul 2002 15:28:00
To : All
Subject : че за нахрен???
--------------------------------------------------------------------------------
Привет всем!!
Сабж! Hадо сделать прогу, чтобы сравнивала что в
дирках в хтмл лежит, в старой и в новой
версии,(т.е. чтобы после изменения в базе было
видно, прально ли все изменилось в 30000 html на
страничке, ну, отслеживать, на всякий пожарный) ну
значца, сижу, пишу, жарко:
#!/usr/bin/perl -w
use File::Find;
$new="/home/www/html/auto";
$old="/var/www/html/auto";
find \&wnew, $new;
find \&wold, $old;
do{
print $old{$_},"\n"
} for sort {$a <=> $b} keys %new;
sub wnew{
$count++ if /s?html?/i;
$new{$count}=$File::Find::name if /s?html?/i;
}
sub wold{
$count++ if /s?html?/i;
$old{$count}=$File::Find::name if /s?html?/i;
}
Вдруг, откуда ни возьмись, появился:
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
Use of uninitialized value in print at ./sravn.pl
line 12.
причем много его появилось...
В чем шняга? Спасибо!
Дима
--
TEAM [Маньяки]
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
