Help for this page

Select Code to Download


  1. or download this
    open(ROFILE, "<", $mExcludingFile) or die("Can't open $mExcludingFile 
+exception file!");
while(<ROFILE>) {
  push(@mArray, $_);
}
...
  2. or download this
    ...
      my $mLineNow = "$email $name\n";
...
      foreach $mArrayNow (@mArray) {
        if ($mLineNow eq $mArrayNow) {
  3. or download this
    open(ROFILE, "<", $mExcludingFile) or die("Can't open $mExcludingFile 
+exception file!");
while(<ROFILE>) {
  s/\s+$//;
  push(@mArray, $_);
}
  4. or download this
          my $mLineNow = "$email $name"; # no newline needed here