
No such thing as a small change
	PerlMonks

by le (Friar)

on May 01, 2001 at 13:34 UTC ( [id://76947]=note: print w/replies, xml )

Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

Maybe this will work:

while (<DATA>) {
    print "$1 $2 $3\n" if /^\S+\s+(\S+)\s+(\S+)\s+\S+\s+\S+\s+\S+\s+(\
+S+)$/;
}
[download]

Might be not too efficient.

Comment on Re: Regular expression Download Code

Domain Nodelet^?

Node Status^?

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

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Notices^?

	• hippo	‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
	• erzuuli	‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.