Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 14:54 22.01.21 
Клубове/ Компютри и Интернет / Perl Всички теми Следваща тема Пълен преглед*
Информация за клуба
Тема Проблем с отваряне и писане на файлове
Автор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



Цялата тема
ТемаАвторПубликувано
* Проблем с отваряне и писане на файлове nmk   06.04.03 10:53
. * Re: Проблем с отваряне и писане на файлове nmk   07.04.03 12:46
. * Re: Проблем с отваряне и писане на файлове raptor   23.05.03 16:40
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2021 Dir.bg Всички права запазени.