Help for this page

Select Code to Download


  1. or download this
    use 5.010;

my %parsed;
...
B 1_x 1_z
C 1_x 1_z
C v_x 8_z
  2. or download this
    D v_x s_x
E 1_x
  3. or download this
      say join ' ', $k, $parsed{$k}->{x1} || 0, $parsed{$k}->{c3} || 0;