Здравейте,

Опитвам се да напиша скрипт, който да замества низ във файловете на дадена директория. Досега съм стигнал дотук:

#!/usr/bin/perl -w

opendir TEST, "/home/nmk/test" or die "Home?: $!";

foreach $name (readdir(TEST)){

if($name =~ /.*\.php$/){

open (IN, $name) or die "Could not open file to read: $!";
open OUT, ">$name.test" or die "Could not open file to write: $!";

$file = '';

while(<IN>){

s/\$HTTP_(POST|GET)_VARS/\$_$1/g;

$file .= $_;

}

print OUT $file;


}
}
closedir(TEST);


Проблемът е, че файловете *.test са празни. А не разбирам защо...

Предварително благодаря за помощта!

nmk

сам си намерих грешката. благодаря за вниманието.

perldoc -U perlrun
pogledni opciq "-i[extension]", toest :

perl -p -i '.test' -e 's/\$HTTP_(POST|GET)_VARS/\$_$1/' *php

(move bi ste trqbwa da escapwash oste wednav !? toest \\ )

Mnogo si si uslovnil skripta movesh da obrabotwash failowete ako tolkowa iskash po sledniq nachin :

foreach $name (readdir(TEST)){
if($name =~ /.*\.php$/){
open INFILE, "<$name" or die "oops :$!";
undef $/;#slurp mode
my $content = <INFILE>;
close INFILE;
$content =~ s/\$HTTP_(POST|GET)_VARS/\$_$1/g;
open OUTFILE, ">$name.test" or die "opala : $!":
print OUTFILE $content;
close OUTFILE;
}
}