Portál AbcLinuxu, 1. prosince 2020 10:56


Dotaz: Perl a načtení vstupu do pole

9.8.2004 13:01 Michal
Perl a načtení vstupu do pole
Přečteno: 170×
Odpovědět | Admin
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

Nástroje: Začni sledovat (0) ?Zašle upozornění na váš email při vložení nového komentáře.

Odpovědi

9.8.2004 13:20 Roman Vasicek
Rozbalit Rozbalit vše Re: Perl a načtení vstupu do pole
Odpovědět | | Sbalit | Link | Blokovat | Admin

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);
9.8.2004 14:01 Michal
Rozbalit Rozbalit vše Re: Perl a načtení vstupu do pole
Hezké, díky :-)
10.8.2004 09:28 Hynek (Pichi) Vychodil | skóre: 43 | blog: Pichi | Brno
Rozbalit Rozbalit vše Re: Perl a načtení vstupu do pole
Poněkud extrémní příklad:
print join("\n", split(/ /, do{ chomp($_=<>); $_ })) . "\n";
XML je zbytečný, pomalý, nešikovný balast, znovu vynalézané kolo a ještě ke všemu šišaté, těžké a kýčovitě pomalované.

Založit nové vláknoNahoru

Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.