Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re^5: Array got modified!

by Anonymous Monk
on Oct 10, 2011 at 13:00 UTC ( #930619=note: print w/replies, xml ) Need Help??

in reply to Re^4: Array got modified!
in thread Array got modified!

$ perl -MO=Deparse junk print "Before: @x$/"; use File::Glob (); while (defined(my $ele = glob(join $", @x))) { do { next unless $ele; print "$ele becomes "; $ele =~ s/^(.)/x$1/; print $ele . $/ }; } print "$/After: @x"; __DATA__ junk syntax OK

See glob, readline

Replies are listed 'Best First'.
Re^6: Array got modified!
by exilepanda (Pilgrim) on Oct 10, 2011 at 13:19 UTC
    Sorry but I don't get it.

    First, after a perldoc on the glob, I get totally lost, I never touch a Unix shell, so I couldn't imagine or relate to anything.. I am on Win32 all time..

    Second, would you explain more for what is your code try to demonstrate? Is this a safe/suggested way to do what I want? or it's proving my way is danger? or anything else ?

      Second, would you explain more for what is your code try to demonstrate?

      Um, its your code run through B::Deparse

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://930619]
[hippo]: See also Getting Started with Perl for some gentle introductory tutorials.
[thao4]: I don't see where I can post my question. I am french so not good in English
[erix]: go to the bottom of this page: Seekers of Perl Wisdom

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2018-02-21 09:57 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (276 votes). Check out past polls.