Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
use strict;
...
  open STDIN, "<&", $stdin;
  exec "$^X", "tst.pl";
}

Select or download this

#!/usr/bin/perl
use warnings;
use strict;
...
  next unless /\[(\d+)\]/ && $1 % 2 == 1; # Only odds
  print "$1 is odd\n";
}