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