Re^2: modify list through grep

I was excited by your answer at first because I thought it was that trick I saw for making aliases, and which I can never remember. ;-)

But then I realized that you're using a glob, which means you could simply write

@l = ( "a", "b", "c" );
*m = \@l;
$m[0] = "z";
print "@l\n";
[download]

We're building the house of the future together.

Comment on Re^2: modify list through grep Download Code

Replies are listed 'Best First'.
Re^3: modify list through grep by calin (Deacon) on Nov 26, 2006 at 16:46 UTC
Yes, you're right. My reply was a bit tongue-in-cheek - the OP asked why his grep aliasing example "didn't work" and I resolved to beat it into submission ;) There's a slight difference though. `*m = \@l;` aliases the entire array object. The `sub {\@_}` trick creates a new array object containing scalar elements which are aliased to memberes in `@l` matching `/a/` (in OP's example it contains only one element aliased to the first element in `@l` - `"a"`).	[reply] [d/l] [select]
Re^4: modify list through grep by syntactic (Initiate) on Nov 26, 2006 at 21:30 UTC
thanks, this would be a solution for me, unfortunately the code with sub still gives "a b c " Extended version of the code I'm trying to get to work `foreach $p ( @patterns ) { if ( ??? grep /$p/, @values ) { modify the matching list value; } else { push @values, "strings $pattern"; } }` [download] For the modification part I can use grep again and modify the value through $_, but then I call expensive grep twice. If I could save a reference (alias?) into @values in the if condition statement I can have a lighter code.	[reply] [d/l]
Re^5: modify list through grep (slice) by tye (Sage) on Nov 27, 2006 at 06:19 UTC
`for my $p ( @patterns ) { my $found= 0; for my $last ( ( grep /$p/, @values )[-1] ) { $last .= '.'; # whatever mod you want $found= 1; } push @values, "string $p" if ! $found; }` [download] - tye	[reply] [d/l]