in reply to Decompose a String into Tuples (Faster and Compact Way)

$ perl -le'
my $s1  = q/X -4 Y 3 Z/;
my $s2  = q/W 1 X -4 Y 3 Z/;                 
my $s3  = q/X 2 Y/;                          
my $s4  = q/A -4 B -4 C -4 A -4 B/;          
for my $s ( \( $s1, $s2, $s3, $s4 ) ) {     
    print for $$s =~ /(?=(\S+\s+-?\d+\s+\S+))/g;
    }
'
X -4 Y
Y 3 Z
W 1 X
X -4 Y
Y 3 Z
X 2 Y
A -4 B
B -4 C
C -4 A
A -4 B

[download]

Replies are listed 'Best First'.
Re^2: Decompose a String into Tuples (Faster and Compact Way)
by demerphq (Chancellor) on Oct 13, 2005 at 10:29 UTC

    Is there a reason for the \$s1 stuff? It seems to work just fine without.... 

    #!perl -l
my $s1  = q/X -4 Y 3 Z/;
my $s2  = q/W 1 X -4 Y 3 Z/;
my $s3  = q/X 2 Y/;
my $s4  = q/A -4 B -4 C -4 A -4 B/;
for ( $s1, $s2, $s3, $s4 ) {
    print for /(?=(\S+\s+-?\d+\s+\S+))/g;
}

    [download]

    Don't forget that for aliases its iterator, which is basically a funny kind of reference that doesnt need to be dereferenced.

    ---
    $world=~s/war/peace/g

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom