Citanie zo suboru

[Honza Pazdziora]

> 
> #!/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?

No, pokud bude mit soubor vic radku nez scalar(@nazvy_promennych), tak
nebude splnena podminka, ze "kazdy riadok nejakeho suboru priradit do
inej". ;-)

Krome toho by asi bylo efektivnejsi to napsat obracene, bez pole na
cely vstup:

	while (<>) {
		${ shift @nazvy_promennych } = $_;
		last unless @nazvy_promennych;
		}

------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 The total number of bytes in all expressions in the GROUP BY clause is
 limited to the size of a data block minus some overhead. --Oracle SQL Ref.
------------------------------------------------------------------------