Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
    print @$row;
    print Data::Dumper->Dump($row);
}
  2. or download this
    use strict;
use warnings;
...
    my ($x,$y,$z) = split /,/;
    print "x: $x\n";
}
  3. or download this
    x: ˙ūDARK01DGBBHF1D
x: DARK01JDM0HF1D
x: 191WA357Z1F811
x: 1952AF2-L3A3567
x:
  4. or download this
    use strict;
use warnings;
...
    print "x: $x\n";
}