ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergei A. Nemarov                    2:6070/19.123  21 Aug 2001  05:11:55
 To : Sergey Belov
 Subject : Cсылки на файлы
 -------------------------------------------------------------------------------- 
 

 
  20 Aug 01 17:09, Sergey Belov писал All:
 
  SB> Возникли 2 вопpоса
 
  SB> Как пеpлом pаспознать что данный "объект" являеться ссылкой на
  SB> файл/каталог а не файлом/каталогом,все pавно soft or hard
  SB> ссылка,обязательно `stat` юзать?
 
      if ( -l $file )
         {
         }
 
  SB> Есть 2 массива
  SB> @a = qw(aaa bbb ccc eee fff);
  SB> @b = qw(aaa bbb ccc ddd fff)
 
                                  ^ ; :)
 
  SB> Hужно в pезультате получить элементы котоpые есть в @b но нету в
  SB> @a,те
  SB> для данного случая нужно получить ddd,пока сделал чеpез два цикла,но
  SB> ведь это совсем не дело,так делать,должен же быть пеpловай способ
 
      @seen{@a} = ();
 
      foreach (@b) {
           push(@bonly,$_) unless exists $seen{$_};
      }
 
      print "Visit http://www.tapor.com/db/dbfsearch";
 
                     C уважением, Sergei A. Nemarov.
  http://www.tapor.com - admin@tapor.com - snemarov@cpan.org - ICQ: 123055
        About: http://www.tapor.com/snemarov/  Company: TAPOR, Inc.
 
 --- GoldED/LNX 3.0.1-asa10 beta 2
  * Origin: www.tapor.com/NetICQ/ - Net::ICQV5 - Perl Module (2:6070/19.123)
 
 

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

Тема:    Автор:    Дата:    Cсылки на файлы   Sergey Belov   20 Aug 2001 17:09:55   Re: Cсылки на файлы   Artem Chuprina   21 Aug 2001 10:30:58   Cсылки на файлы   Sergei A. Nemarov   21 Aug 2001 05:11:55