|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Larushkin 2:5024/11.12 16 Nov 2000 11:46:50
To : Alex Markin
Subject : Вопрос по Perl`у
--------------------------------------------------------------------------------
Приветик, Alex!
Как-то (14 оя 00)
Alex Markin написал(а) письмецо to All про "Вопрос по Perl`у" :
AM> Как осуществить на перле поиск файла? Т.е. если по заданому пути есть
AM> такой-то фаил - значит одно, нет - другое?
Я вот так делал:
=== Кусь ===
#! /usr/bin/perl
#Тут, сам понимаешь, директория, которую просматривать
$dir="/home/andrei";
#Здесь имя исходного файла, при наличии которого происходит действие
$find_file="file_2.flo";
#Выполняемые действии при наличии заданного файла
#В переменной написать команду так же как пишешь если выполняешь с консоли
$command_exec="perldoc perlvar >doc.txt";
while(1==1)
{
opendir (directory, $dir) or die "Cennot open directory";
@dir_files=readdir(directory);
closedir directory;
foreach $fil (@dir_files)
{
if ($fil eq $find_file)
{
system $command_exec;
}
}
}
=== Опаньки ... ===
А если несколько файлов, то так:
=== Кусь ===
#! /usr/bin/perl
#Тут, сам понимаешь, директория, которую просматривать
$dir="/home/andrei";
#Здесь массив имен исходных файлов, при наличии которых происходит действие
@find_files=("file_3.flo","file_2.flo");
#Выполняемые действии при наличии заданных файлов
#В переменной написать команду так же как пишешь если выполняешь с консоли
#причем каждая команда в кавычках, и порядок должен соответствовать порядку
файлов,
#т.е. первая команда соотв первому файлу и т.д. :)
@command_exec=("perldoc perlvar >doc.txt","perldoc perldoc >do2c.txt");
while(1==1)
{
opendir (directory, $dir) or die "Cennot open directory";
@dir_files=readdir(directory);
closedir directory;
my $i=0;
foreach $each (@find_files)
{
foreach $fil (@dir_files)
{
if ($fil eq $each)
{
system $command_exec[$i];
}
}
$i++;
}
}
=== Опаньки ... ===
PS. аписано по ламерски, так что сильно прошу не пинаться :)
Team [-=Ворчун Гамми=-]
Andreyka (AKA Зая)
--- GEcho 1.20/Pro
* Origin: И послала она его за елочкой... Ох уж и послала. (2:5024/11.12)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Вопрос по Perl`у 