PERL - otevreni souboru
EHP
ehp na s4u.cz
Pátek Červen 6 16:33:31 CEST 2003
> mohl by mi nekdo zkusenejsi poradit jak otevrit soubor a nasledne
> nacist jeho obsah do pole @pole?Myslim tim opravdu nacist vse co je v
> nem obsazeno...
> Mam tu totiz jeden trivialni skriptik, ktery mi vraci jen nazev
> souboru...
> Viz nize:
> #!/usr/bin/perl -w
> $file="";
> @seznam=();
> @vysledek=();
> print 'Zadej jmeno souboru, ktery chces otevrit: ';
> chomp ($file=<STDIN>);
> open (FILE, "$file");
> @seznam=$file;
Tady ma byt:
@seznam = <FILE>;
> @vysledek = sort {$a <=> $b } @seznam;
> print "@vysledek\n";
EHP
Další informace o konferenci Linux