Dotaz: Perl a načtení vstupu do pole

[Michal]

Jak lze ze standardního vstupu uložit přímo do pole prvky, které na vstupu odděluji mezerou a vstup chci ukončit enterem ?

Něco jako:

...
@parametry = < STDIN >; # vstup: -l 12 /opt/data test.pl\n
chomp(@parametry[@parametry-1]);
foreach $param ( @parametry ) {
    print "$param\n"; # výstup    : -l
                      # další krok: 12
                      # další krok: /opt/data
                      # poslední krok: test.pl
}
...

Díky

Odpovědi

[Roman Vasicek]

Asi ne. Spise nactete radek, ktery pak nasledne zpracujete nejak takto

$_ = <>;             # nactu radek do defaultni promenne
chomp;               # odstranim znak konce radku
@params = split / /; # podle mezery rozdelim do pole

# a ted si to treba vytiskneme - kazdy parametr na novy radek
print "$_\n" for (@params);

[Michal]

Hezké, díky

[Hynek (Pichi) Vychodil]

Poněkud extrémní příklad:

print join("\n", split(/ /, do{ chomp($_=<>); $_ })) . "\n";