Help for this page

Select Code to Download

Select or download this

$ perl -we 'use strict;my @d=([0,"BE"],[3,"BUS"],[4,
"BUS2"]);my @a=map($_ , split(/,/, "BUS2,BE") ) ; my @b=map { my $mapk
+ey
...
          4,
          'BUS2'
        ];