|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 13 Jul 2000 12:39:52
To : Dmitriy Sedov
Subject : Re: Вот вопрос возник...
--------------------------------------------------------------------------------
<Dmitriy_Sedov@p33.f1353.n5020.z2.fidonet.org> wrote:
DS> Аве All, друг любезный. Hу заходи, давно заждались.
DS> Объясните пожалуйста что в следующей конструкции неправильно?
DS> _====================== начало ===============================_
DS> #!/usr/local/bin/perl
DS> while (defined($file = glob("*.lst")))
DS> {
DS> open (WORDSLIST, $file) || die "can't open wordslist: $!";
DS> while($name = <WORDSLIST>)
DS> {
DS> chomp ($name);
DS> $word = <WORDSLIST>;
DS> chomp $word;
DS> write;
DS> }
DS> close (WORDSLIST) || die "Couldn't close wordslist: $!";
DS> }
DS> format STDOUT =
DS> @<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<
DS> $name, $word
DS> .
DS> format STDOUT_TOP =
DS> Page @<<
DS> $%
DS> Name Word
DS> =================== ===============
DS> .
DS> _======================== конец ==================================_
DS> При запуске пишет что:
DS> *"Указаное имя не является внутренней или внешней*
DS> *командой, исполняемой программой или пакетным файлом."*
DS> Использую PERL 5.004 for win32. Такое подозрение что не работает функция
DS> _glob_, до ее появления все работало.
Скорее всего. Замени на конструкцию
opendir (DIR,".");
while (defined($file=readdir(DIR))) {
next unless substr($file,-4) ne '.lst';
...
closedir(DIR);
Если файлов заведомо немного, можно написать
opendir (DIR,"."); my @files = grep(substr($_,-4) eq '.lst', readdir(DIR));
closedir(DIR);
foreach $file (@files) {
...
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
