in reply to Problem with 'last' or problem with me?
Use a hash for the ignored users:
Then you can look up an ignored user like this:open FH, "$workdir/ignoreusers" or die "Can't open $workdir/ignoreusers: $!"; my %ignore; while (<FH>) { chomp; $ignore{$_}++; } close FH or die "Can't close ignoreusers: $!";
In fact you could just stick this in your while loop:if ($ignore{$user}) { ## Ignore this user. }
Then you can get rid of *all* of that $matched stuff.next if $ignore{$user};
|
|---|