Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

use vars qw(%VARIABLE);
...
  shift; print "Entered Subroutine\n";
  my ($foo, $bar) = @_;
  return $foo;

Select or download this

#===============================================#
# RecDescent grammar to parse a CD TOC file.    #
#===============================================#
...


foo:            /\d+.\d+.\d+/            # This will match both 14:43:
+00 and 38935137