Dotaz: Perl - open

[Petr]

Dobrý den,

rád bych vás poprosil o pomoc při programování v perlu. Mám následující příkaz: $adresar = "nazev_adresare" open(DATA, "find $adresar |") tento kod funguje a do DATA se ulozi vystup funkce "find"

ale kdyz pridam: open(DATA, "find $adresar | grep reg_vyraz |")

tak mi to nenajde nic. Regulární výraz je určitě správně, protože normalně v konzoli to funguje.

Děkuji předem za každou radu.

Odpovědi

[ironman]

proc tak slozite (aspon pro me)? Chci spustit externi prikaz a ziskat z nej vystup pak pouziju prikaz system

my $outputCmd = system("find $adresar | grep reg_vyraz");

Mimo to cele je to slozite napsane:
1/ find umi prez exec sam volat grep tim se zvysi prehlednost externiho commandu.
2/ perl ma svoje regularni vyrazi = cistejsi reseni vlastnimi regex v kodu perlu, externe bych volal jen find pro ziskani seznamu souboru

[Petr]

Dekuju za radu. Ještě otázka. Funkce system je ze standardních knihoven?

[ironman]

Ano funkce system je "v zakladu" Jinak http://search.cpan.org/~dom/perl-5.12.5/pod/perlfunc.pod

[Jan Šimák]

A co varianta:

print `find $adresar | grep reg_vyraz`;

Pokud bude fungovat, tak bych hledal příčinu v regulárním výrazu, respektive jeho pozměnění v perlu před vykonáním.

[NN]

open(DATA,"find /etc | grep host|");

Funguje, takze problem bude nekde jinde. Muzes uvest cely kod ?

[Brilantní modř]

No fuj, takhle prasit v Perlu, to je teda hnus…

A jedna filosofická: co k tomu proboha lidi vede?

[martin-ux]

Co tak pouzit Find::File:

#!/usr/bin/perl

use warnings;
use strict;
use File::Find;

find (\&open_routine, "/etc/");

sub open_routine {
        return 1 if (! /^hosts$/);

        print "DEBUG: got file: $_\n";

        open (HFD, '<' . $_) or die ("ERROR: unable to open $_, $!");

        print $_ foreach (<HFD>);

        close (HFD);
}

Hladata hosts v /etc. Ak najde, otvori a vypise jeho obsah.