Re: regex search valid only if registers n and n+1 are equal?


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: regex search valid only if registers n and n+1 are equal?

by Miguel (Friar)

on Jul 01, 2006 at 12:23 UTC ( [id://558752]=note: print w/replies, xml )

Need Help??

in reply to regex search valid only if registers n and n+1 are equal?

~~Just another way:~~
UPDATE: Another 3 ways:

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {

   # 1
   # my @arr = split;
   # print if $arr[1] != $arr[3];

   # 2
   print if sub { $_[1] != $_[3] }->(split);
 
}

# 3
# while (@_ = <DATA> =~ /(\w+)\s+/g) {print "@_\n" if $_[1] != $_[3]}

__DATA__
foo 1000 bar 1000
foo 1000 bar 500
[download]

Prints:

foo 1000 bar 500
[download]

Comment on Re: regex search valid only if registers n and n+1 are equal? Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

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

Other Users^?

Others admiring the Monastery: (3)

As of 2024-04-24 03:07 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found