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---