Help for this page

Select Code to Download


  1. or download this
    #!perl -w
use strict;
...
while (@values) {
    print "$values[0] => ", get_value( \@values ),"\n";
};
  2. or download this
    #!perl -w
use strict;
...
while (length $values) {
    print get_value( \$values ),"\n";
};
  3. or download this
    #!perl -w
use strict;
...
while (length $values) {
    print get_value( \$values ),"\n";
};