Citanie zo suboru

[Ludek Finstrle]

> Dne St, 20 leden 1999 jste napsal(a):
> >Ahoj vsetci,
> >
> >Mohol by mi niekto, prosim, aspon priblizne predviset ako 
> >kazdy riadok nejakeho suboru priradit do inej premennej ?
> >Moje napady uz dosli ...
> >
> >Vdaka za cas ...
> >
> >
> >-- 
> >
> >	                Peter Silhavy
> >.ooo0 0ooo.		sheehy na pobox.sk			  
> >((   ) (   )		http://sheehy.mtf.stuba.sk	  
> >-\ (---) /--------------------------------------------<>
> >  \_) (_/
> 
> Co treba tohle:
> 
> #!/usr/bin/perl
> my @nazvy_promennych = qw(jmeno prijmeni adresa mesto psc datum_narozeni) ; 
> 
> @soubor = <STDIN>;
> 
> foreach (@nazvy_promennych) {  ${$_} = shift @soubor; }
> 
> __END__
> 
> Nezkousel jsem to, ale mohlo by to fungovat. Co jste zkusil vy?
> 
> -- Jindra Vavruska (OK1FOU) Linux is good for me

A co to hodit do pole? To by nestacilo?

my @pole;
for (my $a = 0; $pole[$a]; ++$a) {
	$pole[$a] = <SOUBOR>;
} 

ci tak nejak ...

Luf