Help for this page

Select Code to Download

Select or download this

# input file
open(USERS, $inFile) or die ("Cannot Open $inFile\n");
...
  push(@userNames, $line);
}
close(USERS);

Select or download this

open(OUT, ">> $outFile") or die("Cannot Open $outFile\n"); #append to 
+this file
  foreach my $USER(@userNames){
    print OUT "$USER\n";
  }
close(OUT);