Re^4: Array got modified!

Hmm... my try is to take that array as a file handle to read, like @ARGV;

I add up this code :

@x = qw/Foo Bar Blaz/;
#@x = qw//;

print "Before: @x$/";
while ( my $ele = <@x> ) {
 next unless $ele;
 print "$ele becomes ";
 $ele =~ s/^(.)/x$1/;
 print $ele . $/;
}
print "$/After: @x";
__END__

Then I have :
  Before: Foo Bar Blaz
  Foo becomes xFoo
  Bar becomes xBar
  Blaz becomes xBlaz

  After: Foo Bar Blaz
[download]

Is this work out properly by accident? This is what I want though...
My observation is:
if that's a empty array, it skips fine.
And, without the diamond quote, it loops forever...

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

Replies are listed 'Best First'.
Re^5: Array got modified! by Anonymous Monk on Oct 10, 2011 at 13:00 UTC
`$ 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	[reply] [d/l]
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]
Re^5: Array got modified! by choroba (Cardinal) on Oct 10, 2011 at 13:44 UTC
Yes, it's working by accident (no spaces nor * in `@x`). For example: `perl -E '@arr=("a b", "c d", qw/e f g h a*/); while (my $e = <@arr>) { say $e }'` [download] gives this output for me: `a b c d e f g h address.txt address.txt~ analytic ascii.htm aux-no-lex.lst` [download]	[reply] [d/l] [select]
Re^6: Array got modified! by exilepanda (Friar) on Oct 10, 2011 at 16:03 UTC
Got it! Didn't aware of it at all.... Lesson learned!! Thanks a lot!!! =)	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks