Portál AbcLinuxu, 9. května 2024 00:32
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
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);
print join("\n", split(/ /, do{ chomp($_=<>); $_ })) . "\n";
Tiskni Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.