PERL - otevreni souboru

[Jirka]

Zbynek Houska wrote:
> Zdravim,
> 
>   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;
> @vysledek = sort {$a <=> $b } @seznam;
> print "@vysledek\n";
> 
> Predem diky
> 
> Zbynek
> 

open(F,$zdroj);
     binmode F;
     while ($radek = <F>) {
         push(@soubor,$radek);
     }
close(F);

Jirka