|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Ivlenkov 2:5020/400 16 Nov 2000 14:24:30
To : All
Subject : Re: Вопрос по Perl`у
--------------------------------------------------------------------------------
[Thu, 16 Nov 2000 10:46:50 +0300] Andrey Larushkin wrote:
AL> Приветик, Alex!
AL> Как-то (14 оя 00)
AL> Alex Markin написал(а) письмецо to All про "Вопрос по Perl`у" :
AM>> Как осуществить на перле поиск файла? Т.е. если по заданому пути есть
AM>> такой-то фаил - значит одно, нет - другое?
AL> А если несколько файлов, то так:
AL> === Кусь ===
AL> #! /usr/bin/perl
AL> $dir="/home/andrei";
AL> @find_files=("file_3.flo","file_2.flo");
AL> @command_exec=("perldoc perlvar >doc.txt","perldoc perldoc >do2c.txt");
Попробуй так:
perldoc -f "-X"
И такой кусок (по-моему он проще и внятнее):
=============
for( my $i=0; $i<=@#find_files; $i++) {
system( $command_exec[$i] )
if ( -e $dir."/".$find_files[$i] );
}
=============
--
Всего доброго, Сергей Ивленков
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
