|
Тема |
Проблем с отваряне и писане на файлове |
|
Автор | nmk (Нерегистриран) | |
Публикувано | 06.04.03 10:53 |
|
|
Здравейте,
Опитвам се да напиша скрипт, който да замества низ във файловете на дадена директория. Досега съм стигнал дотук:
#!/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
|
| |
|
|
|