Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl --
use 5.014;
use strict;
...
    close $outfh;
} ## end sub Replace
  2. or download this
    #!/usr/bin/perl --
use strict;
use warnings;
...
sub XmlChildren {
    return path( shift )->children( qr/\.xml$/ );
} ## end sub XmlChildren
  3. or download this
    sub Main {
    my @dirs = DirsForDonuts( '.../paths.txt' );
...
    return path( shift )->children( qr/\.xml$/ );
} ## end sub XmlChildren
  4. or download this
    Sky( 6 );
my $confusion = 'uhoh';
...
 ...
}
...