Help for this page

Select Code to Download


  1. or download this
    # my @RecLine=split (/;/) ;
my @RecLine=split ('\t') ;
  2. or download this
    
my $Key=$NR ;
...
close ( $FILE ) ;
close ( OFILE ) ;
  3. or download this
          my ($recnos, $vINVOICE_TXT) = split (';', $key) ;
      chop ($recnos) ;
      $vINVOICE_TXT=~s!^.!!;
      my $vInv= "\"$vINVOICE_TXT\"" ;