Re^5: 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

Comment on Re^5: Array got modified! Download Code

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]
Re^7: Array got modified! by Anonymous Monk on Oct 10, 2011 at 13:21 UTC
Second, would you explain more for what is your code try to demonstrate? Um, its your code run through B::Deparse	[reply]