Help for this page

Select Code to Download


  1. or download this
      /^[A-Z]\d\d +1?\d +\d?\d(?:\.1)? +[0-3](?: +\d?\d\.\d)+ *$/ or ($bad
+{$line++} = $_) && next;
  my ($t, $p, $s, $d, @c) = split / +/;
  2. or download this
      /^[A-Z]\d\d +1?\d +\d?\d(\.1)? +[0-3]( +\d?\d\.\d)+ *$/n
  3. or download this
    use v5.10;
use warnings;
...
T11 2  1 0 6.0 1.1 2.2
L06 1  1 0 1.0 3.3
L06 1  4 0 1.1 1.8