Help for this page

Select Code to Download


  1. or download this
    $ perl -MData::Dumper -e'
   $_="   56  1752.eps a b";
...
$VAR2 = '1752.eps';
$VAR3 = 'a';
$VAR4 = 'b';
  2. or download this
    $ perl -MData::Dumper -e'
   $_="   56  1752.eps a b";
...
$VAR1 = '56';
$VAR2 = '1752.eps';
$VAR3 = 'a b';
  3. or download this
    for (@data) {
   my @a = (split)[0,1];
...
   my ($x, $y) = split;
   ...
}
  4. or download this
       my ($x, $y) = /^\s*(\S+)\s+(\S+)/;