Re: Matching for the second,fourth, and fifth word in a text


XP is just a number
	PerlMonks

Re: Matching for the second,fourth, and fifth word in a text

by dingus (Friar)

on Dec 10, 2002 at 20:17 UTC ( [id://218891]=note: print w/replies, xml )

Need Help??

in reply to Matching for the second,fourth, and fifth word in a text

Assuming your printer records contain a blank line and you can read the whole file in at once then you could loop aroung a //g; as in:

local undef $/;
open(FILE,"<printfile");
my $_ = <FILE>; # slurp
close (FILE);
print "printer '$1' $2 - $3\n" while (/^printer\s+(\w+)\s+\w+\s+(\w+)\
+.\s+(\w+)/msg);
__OUTPUT__
'llp' idle - enabled
'ps' idle - enabled
[download]

Dingus

Enter any 47-digit prime number to continue.

Comment on Re: Matching for the second,fourth, and fifth word in a text Download Code

Replies are listed 'Best First'.
Re^2: Matching for the second,fourth, and fifth word in a text by Aristotle (Chancellor) on Dec 11, 2002 at 13:53 UTC
`local undef $/;` That´ll first clear `$/`, then localize it. Legal syntax, but not probably what you meant. `$ perl -wle'$_ = "x"; { local undef $_ } print' Use of uninitialized value in print at -e line 1. $ perl -wle'$_ = "x"; { undef local $_ } print' x` [download] Makeshifts last the longest.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://218891]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others meditating upon the Monastery: (4)

As of 2024-04-25 05:43 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found