|
Тема |
Re: Проблем с отваряне и писане на файлове [re: nmk] |
|
Автор | raptor (Нерегистриран) | |
Публикувано | 23.05.03 16:40 |
|
|
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;
}
}
|
| |
|
|
|