Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^5: Array got modified!

by Anonymous Monk
on Oct 10, 2011 at 13:00 UTC ( [id://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

[download]

See glob, readline

Replies are listed 'Best First'.
Re^6: Array got modified!
by exilepanda (Friar) 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 ?

[reply]

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

      Um, its your code run through B::Deparse

[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://930619]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others about the Monastery: (2)
As of 2024-04-26 04:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found