Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
    chomp;
    my ($s, $a, $c, $r) = split /[,\t]/;
...
__DATA__
clientserver,00001,AIT,SOURCE
clientserve|00001|AIT|SOURCE
  2. or download this
    Processing: clientserver,00001,AIT,SOURCE
Invalid string: clientserve|00001|AIT|SOURCE at 1006854.pl line 6, <DA
+TA> line 2.