Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re^4: .vimrc for perl programmers

by demerphq (Chancellor)
on Nov 01, 2006 at 17:50 UTC ( #581718=note: print w/replies, xml ) Need Help??

in reply to Re^3: .vimrc for perl programmers
in thread .vimrc for perl programmers

Looks like its been superficially improved so there is no difference anymore, which is good. But the output is still wrong, which is bad. For $x=\$y; $y=\$x; the raw call to Data::Dumper->Dump([$x,$y]) used to produce:

$VAR1 = [ \\$VAR1->[0], ${$VAR1->[0]} ];

But now it produces what Data::Dumper::Dumper (and what the sub{\@_} trick does) produce:

$VAR1 = \\$VAR1; $VAR2 = ${$VAR1};

Wheras Data::Dump::Streamer::Dump produces the correct output:

$REF1 = \$REF2; $REF2 = \$REF1;

Hope that explains things.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://581718]
[Lady_Aleena]: tobyink, I did after I failed to get the BLOCK to work. I can't seem to get my brain around grep BLOCK, though I'm okay with grep EXPR.
[shmem]: so in the second example grep returns all true elements of the list passed
[Lady_Aleena]: Okay, so grep BLOCK is not like map BLOCK where something might need to be returned at the end.
[tobyink]: grep { $_ =~ /.*$in.*/; } @my_modules should work just fine. The problem is that you were adding on ;$_ at the end of the block. Why were you doing that?
[Lady_Aleena]: tobyink, I was thinking map.
[tobyink]: Something does need to be returned at the end not $_ though. You need to return (something that will be evaluated as) a boolean.
[Lady_Aleena]: Here is a longish map I did in the same script. my @my_modules = map { my $file = $_; $file =~ s/$module_director y(.+)\.pm/$1/; $file =~ s/\//::/g; $file; } @files;
[Lady_Aleena]: I spent half an hour trying to figure out why map was rewriting @files.
[tobyink]: If you like map you can do map { ($_ =~ /.*$in.*/) ? $_ : () } @my_modules and it will work just the same. grep is neater though.
[Lady_Aleena]: tobyink, I'll keep the grep as is. Thanks everyone!

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2017-05-27 07:44 GMT
Find Nodes?
    Voting Booth?