Help for this page

Select Code to Download


  1. or download this
    $ perl -MO=Deparse -e 'while (@d) {}'
    while (@d) {
    ...
    while (defined($_ = glob(join($", @d)))) {
        ();
    }
    
  2. or download this
    #!/usr/bin/perl -W
    use strict;
    ...
    bar    white    Util    Me
    baz    blue    jonnyfolk    Saint J
    qux    black    Util    Me2