Help for this page

Select Code to Download


  1. or download this
    perl -MData::Dump -F"\|\s?" -lane "$.==1?next:push@{$h{eval$F[0]=~tr/\
+s//r}},$F[1]}{dd%h" columndata.txt

...
  500001,
  ["Network1", "Network2"],
)
  2. or download this
    perl -MO=Deparse -MData::Dump -F"\|\s?" -lane "$.==1?next:push@{$h{eva
+l$F[0]=~tr/\s//r}},$F[1]}{dd%h" columndata.txt

...
    dd(%h);
}
-e syntax OK