Dotaz: Perl a naplnenie pola pomocou externeho prikazu

[shepi]

Nazdarek

Ucim sa perl a momentalne polia. Vsade sa uvadza ako priklad pola ktore naplnam manualne.

Ja ale hladam moznost ako naplnit pole pomocou externeho prikazu.

napr:ls

vytoril som nieco taketo ale vypisuje to ako text.

$cmd=`ls`;
@pole = qw($cmd);
print "$pole[0]\n";
$pocet = @pole;
print "$pocet\n";

Vdaka za tipy.

Odpovědi

[happy barney]

{
    open CMD, "ls |" or die "run: $!\n";
    local $/ = "\n";
    @pole = <CMD>;
    close CMD;
}

[Přemek Vyhnal]

taky se ucim perl ;)

@pole = `ls`; # kdyz ty zpetny uvozovky beres jako pole tak by mely ulozit kazdej radek zvlast 
print @pole[0], @pole, scalar @pole, "".@pole; # prevest na skalar (delku pole) muzes i rovnou pomoci "scalar"

[ams]

Spatne uvozovky na dvou radkach:

$cmd=`ls`;         # Ma byt $cmd = 'ls'; nebo $cmd = "ls";
@pole = qw($cmd);  # Ma byt @pole = `$cmd`; nebo @pole = qx($cmd);

[luky]

takze spatne nejsou uvozovky, ale logika, zeano

[petr]

@pole=`ls -1`; print foreach @pole;

Na podobne veci se jeste hodi split. Vizte man perlfunc a v nem si najdete split.