ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     20 Jun 2002  11:12:38
 To : Soft
 Subject : Re: Как найти файл
 -------------------------------------------------------------------------------- 
 

 Soft <Soft.@p58.f15.n5075.z2.fidonet.org> wrote:
 
 > Доброго времени суток, уважаеммый(ая) All
 > 
 > Есть каталог с файлами. Один из файлов - ".htaccess".  Хочу занести в массив
 > имена всех файлов и каталогов, пишу такой код.
 > chdir("/www/");
 > local(@files)=<*>;
 > Все бы хорошо, но вот заметил одну интересную особенность файла .htaccess в
 > списке нет. Попробовал создать другой файл с точкой вначале имени и такая же
 > картина.
 
 Hеудивительно :)
 
 > В чем пероблема?
 
 Читайте доки - они рулез...
 
 > File::Find не предлогать.
 
 Hе буду :)
 
 [raven@t-rex - 10:10:08 Thu Jun 20 /tmp/test]
 $ cat test.pl 
 #!/usr/bin/perl -wT
 use strict;
 use warnings;
 
 print join "\n", (<*>), "+++\n";
 
 opendir DH, './' or die "$!";
 print join "\n", readdir DH, '';
 closedir DH;
 
 [raven@t-rex - 10:10:18 Thu Jun 20 /tmp/test]
 $ ./test.pl 
 file_0
 file_1
 file_2
 test.pl
 +++
 .
 ..
 file_0
 file_1
 file_2
 .file_0
 .file_1
 .file_2
 test.pl
 [raven@t-rex - 10:10:20 Thu Jun 20 /tmp/test]
 $ 
 
 > icq #120669090
 > http://www.moneky.tk
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Как найти файл   Soft   17 Jun 2002 23:20:46   Re: Как найти файл   Vladimir Podgorny   20 Jun 2002 11:12:38   Re: Как найти файл   Victor Wagner   20 Jun 2002 17:47:53