Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
    } @rows,
);
print $t;
  2. or download this
    ID Name Source Type   Assigment
1  ...  ...    ...    ...
2  ...  NA     Emp    Active
        EU     Ex-emp Inactive
3  ...  ...    ...    ...
  3. or download this
    $t->load( map { MapCarU {[@_]} map [split $/], @$_ } @rows );