Help for this page

Select Code to Download


  1. or download this
    while (<$fh>){
  next unless /\S/; # skip blank lines
  s/"//g; # remove all "
  2. or download this
      if (/STATUS\s+Acct:"?(\d+)/){
    $acct = $1;
  }