[linux] OT:PERL

[Peter Mikula]

* Valašťan Štefan <stefan.valastan na scp.sk> [010827 08:50]:
> No som uplny zaciatocnik v PERL-e takze sorry za stupidnu otazku
> 
> Potrebujem vypis adresara z prikazom ls prejst regularnym vyrazom
> ktory podla nejakej podmienky vybere len niektore subory (nieco ako
> grep) No tak zatial som to urobil tak ze vypis ls zapisem do suboru a
> na ten pustim regularny vyraz.  a ziskam zoznam suborov ktore
> potrebujem. Ale toto mi pripada ako sa skrabat pravou rukou za lavym
> uchom. Urcite existuje sposob ako to spravit nejako jednoducho priamo
> v pameti.
> 
 
 jeden z moznych sposobov bez pouzitia 'ls':

    use strict;
    use DirHandle;

    my $dir = './';
    my (@files, $dh);
    if (defined ($dh = new DirHandle ($dir))) {
      while (defined ($_=$dh->read)) {
        push(@files, $dir . $_) if /regex/;
      }
      close ($dh);
    }
    print join (', ', @files);

-- 
  Peter Mikula <mico na pobox.sk>
  System analyst/programmer
  POBOX s.r.o.
                                      Any technology distinguishable from
                                         magic is insufficiently advanced