Help for this page

Select Code to Download


  1. or download this
    
    $/ = undef;
    ...
    }
    
  2. or download this
    $dtrx = qr/[Dd][Tt]=(\d{8}\.\d{6})/;
    $/ = undef;
    ...
    
      print "$ARGV\t $aa -- $z\n";
    }