Perl Script to Test for Condition

[edrichard]

Hi,

I have a file that contains the following...

hostMode=Standard
displayName=CL1-A-0
nickname=1A-G00
hostMode=Windows Extension
displayName=CL1-A-2
nickname=SERVER123_B20_S6_0

I have a perl script (Below) that reads the above file, and if it finds the instance of "hostMode=Standard" it prints it out, (this is just to prove my sytax works).

#!/usr/bin/perl
open (FILE,"mp.txt") || die print "Can't Open File\n";
while (<FILE>) {
    $_=~ s/^\s+//;
    if (/hostMode=Standard/) {print "$_";}
               }
close (FILE);
 

What I'd like to do is... if "hostMode=Standard" is found, I'd like to jump 2 lines down in the file and test if the first character of "nickname=" is a string. If it is I'll print it out, if it's not I'll just loop again for the next occurance of "hostMode=Standard" and do the same. Any ideas?

[Ganon11]

If you do a regular expression over multiple lines and match for the "hostMode=Standard" string, a line containing whatever, and "nickname=", then capture whatever remains on that line, you can compare away.

[nithinpes]

To do a regular expression over multiple lines, you need to undefine $/ first to read entire file at once and use /g option in pattern match to do the match repeatedly.

#!/usr/bin/perl
open (FILE,"mp.txt") || die print "Can't Open File\n";
$/="";  # undefine input record separator
while (<FILE>) {
$_=~ s/^\s+//;
while (/hostMode=Standard\n.+\n(nickname=(.).*\n)/g) {
$f=$1;$ch=$2;
print "$f" if($ch =~/[A-Z]/i);} #print if 1st character after 'nickname=' is alphabet
 }
close (FILE);