Forum Webscript.Ru

Программирование => Perl => Тема начата: Lora от 08 Апреля 2002, 18:09:04

Название: Помогите изменить файлы в каталоге
Отправлено: Lora от 08 Апреля 2002, 18:09:04

Мне необходимо изменить все файлы в каталоге, или в крайнем случае их переписать заново. Я делаю так:

 $when = time();
opendir (DIR, $vulpath);

@files = readdir(DIR);
 
closedir(DIR);

foreach $file(@files) {
next if $file =~/^\\.\\.?$/;
             
utime ($when,$when,"$vulpath/$file");
}

Но что то это не работает. Мальчики пожалуйста помогите. Только пожалуйста критику конструктивную и с работающим примером.

Название: Помогите изменить файлы в каталоге
Отправлено: Kostya от 08 Апреля 2002, 18:50:10

Под виндой может и не работать.

Ещё следует добавить

next unless( -f "$vulpath/$file");

Название: Помогите изменить файлы в каталоге
Отправлено: Kostya от 08 Апреля 2002, 18:52:33

И проверь права на запись в каталог.

Название: Помогите изменить файлы в каталоге
Отправлено: Chs от 08 Апреля 2002, 20:38:20

Цитировать

Под виндой может и не работать.

Работает.
А под nix есть touch.:)