Me se warning zobrazi. Takze mas <mozna> 'posahanou' verzi Perlu ;)) t. > Pro jistotu jeste jednou cituji script: > ---cite--- > #!/usr/bin/perl -w > > > $_ = "pepea"; > @pole = qw( jeden dva tri ); > > while ( $_ = shift @pole ) { print "$_\n" } > print "$_\n"; > ---cite---