PERL - otevreni souboru

[Zbynek Houska]

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

______________________________________________________________________
Reklama:
Dial-up nezemřel - s Contactel Bonus Clubem ožívá jako nikdy http://ad2.seznam.cz/redir.cgi?instance=55051%26url=http://club.razdva.cz/