Re^2: Memory Leaks and %+

in reply to Re: Memory Leaks and %+
in thread Memory Leaks and %+

Isn't it easier to just switch over to $1 and $2 at this point? Your new substr workaround isn't very readable (to me anyway), so it appears that you've lost the one thing you were hoping to gain by using %+.

my $regexp = qr/(\d+)\s+(\d+)/;

while(<$fh>) {
    next unless /$regexp/;
    my $value1 = $1;
    my $value2 = $2;
    print "GOT $value1 $value2\n";
}
[download]

Comment on Re^2: Memory Leaks and %+ Download Code

Replies are listed 'Best First'.
Re^3: Memory Leaks and %+ by BrowserUk (Patriarch) on Mar 01, 2012 at 15:16 UTC
I completely agree yours is more readable that the OPs alternate version. But even more readable is: `my $regexp = qr/(\d+)\s+(\d+)/; while(<$fh>) { my( $value1, $value2 ) = /$regexp/ or next; print "GOT $value1 $value2\n"; }` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Memory Leaks and %+
by BrowserUk (Patriarch) on Mar 01, 2012 at 15:16 UTC

I completely agree yours is more readable that the OPs alternate version. But even more readable is:

my $regexp = qr/(\d+)\s+(\d+)/;

while(<$fh>) {
    my( $value1, $value2 ) = /$regexp/ or next;
    print "GOT $value1 $value2\n";
}
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

[reply]
[d/l]

In Section Seekers of Perl Wisdom