Help for this page

Select Code to Download


  1. or download this
    if ($l2 =~ s/..../..../) {
   # $x and $y munging code
   # and substitution back into $l2
}
  2. or download this
    else {
   warn "houston, we have a problem: $l2 ";
}
  3. or download this
    s!(\d\d)\:(\d\d)\:(\d\d),(\d\d\d) --> (\d\d)\:(\d\d)\:(\d\d),(\d\d\d)!
+sprintf("%s;%s;%s;%02.0f %s;%s;%s;%02.0f",$1,$2,$3,$4/10,$5,$6,$7,$8/
+10)!e