Citanie zo suboru

[Jindra Vavruska]

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