Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: reading a value from a given text

by boftx (Deacon)
on Apr 07, 2015 at 16:13 UTC ( [id://1122716]=note: print w/replies, xml ) Need Help??


in reply to reading a value from a given text

Assuming you are reading a log file and are interested in the value of FAULT CODE and that the value is always at the end of the line if it is present at all:

#!/usr/bin/perl use strict; use warnings; my $input = q{O1/APZ "GWHMSC2_R132_EP" 3233 150407 1448 BACKUP INFORMA +TION FAULT FAULT CODE 34}; # initialize this to a numeric value so you don't get warnings my $fault_code = 0; if ( $input =~ m/FAULT CODE (\d+)$/ ) { $fault_code = $1; } my $flag = ( $fault_code == 34 ); print "FAULT CODE is 34\n" if $flag; exit; __END__
The use of a flag is somewhat redundant since you can always do a test for the value where needed.

You must always remember that the primary goal is to drain the swamp even when you are hip-deep in alligators.

Replies are listed 'Best First'.
Re^2: reading a value from a given text
by get2vijay (Novice) on Apr 08, 2015 at 08:03 UTC
    Thank you so much for helping me out in getting the scipt. My apologies for not mentioning it properly,as i wanted to read the value "34" from the print output. This numeric value of FAULT CODE keeps changing most of the time,i wanted to read the value "34" only else the script should return as false or fc=34 not found. i hope i am clear this time. Regards Vijay

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1122716]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2024-03-28 19:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found