Re^2: perl if statement

Replies are listed 'Best First'.
Re^3: perl if statement by Laurent_R (Canon) on Feb 29, 2016 at 20:54 UTC
Well, for changing as little as possible to your code, you could slurp the content of the file into an array and then use your grep function on that array. One quick and simple possibility is as follows: `my $infile = "/export/install/users.txt"; open my $IN, "<", $infile or die "Cannot open $infile $!"; my @lines = <$IN>; if (grep /($FORM{user}\|$FORM{pin})/i, @lines) { # ... }` [download]	[reply] [d/l]
Re^4: perl if statement by Drsin (Novice) on Mar 01, 2016 at 14:06 UTC
Hi Laurent, Many thanks, it worked. The only issue is that the grep: `grep /($FORM{user}\|$FORM{pin})/i` only matches the first condition even when both conditions are on the same line.	[reply] [d/l]
Re^5: perl if statement by poj (Abbot) on Mar 01, 2016 at 14:19 UTC
see Alternation Try grep /($FORM{user}\\|$FORM{pin})/i ^ add \	[reply]
Re^6: perl if statement by Anonymous Monk on Mar 01, 2016 at 14:25 UTC
Re^3: perl if statement by FreeBeerReekingMonk (Deacon) on Feb 29, 2016 at 22:01 UTC
search for a pattern in file without opening the file (take a look at "sub contains")	[reply]