Help for this page

Select Code to Download


  1. or download this
      $Val2 = trim(substr($line2,80,11));
        print "Value obtained = $Val2\n";
        $Val1 = $Val2;
...
        print "Value eleven digit = $Val1\n";
        $Val1 =~ s/ /0/g;
        print "Value replaced = $Val1\n";
  2. or download this
    Value obtained = 12143951645
Value assigned = 12143951645
Value eleven digit =          -1
Value replaced = 000000000-1