Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl  -t -w

...
@a = &dosplitMe($num2,0);   print ("3: $a[0] - $a[1] \n");
@a = &dosplitMe($num3,1);   print ("4: $a[0] - $a[1] \n");
@a = &dosplitMe($num3,0);   print ("5: $a[0] - $a[1] \n");
  2. or download this
    #!/usr/bin/perl  -t -w

...
@a = &dosplitMe($num3,',', 1);   print ("4: $a[0] - $a[1] \n");
@a = &dosplitMe($num3,',', 0);   print ("5: $a[0] - $a[1] \n");