Hi Folks, I received some unexpected results when using 'my' in the pdl2 shell. I verified that the correct behaviour works from perl -e, but I am not sure if this is a pdl2 shell problem or a Term::ReadLine problem.
Thanks Cliff.
I tried the following code:
pdl> foreach $i (1..5) { my @a; print "my a is @a\n"; @a = (1,2,3);print "now
a is @a\n";}
not expecting to get :
my a is 1 2 3 <<<<<<<<< This should be blank.
now a is 1 2 3
my a is
now a is 1 2 3
my a is
now a is 1 2 3
my a is
now a is 1 2 3
my a is
now a is 1 2 3
to be sure that it was the values from the last run (as I had done it several
times)
pdl> @a=(4,5,6)
pdl> foreach $i (1..5) { my @a; print "my a is @a\n"; @a = (1,2,3);print "now
a is @a\n";}
my a is 4 5 6 <<<<<<<<< This should be blank, but is the last
assignment to @a.
now a is 1 2 3
my a is
now a is 1 2 3
my a is
now a is 1 2 3
my a is
now a is 1 2 3
my a is
now a is 1 2 3
I am running Win7 64 bit with Strawberry Perl 5.16.3.1 32 bit with
Term::ReadLine and Term::ReadLine::Perl both installed from CPAN this past
week.PDL and pdl2 shell are:
C:\Users\eclisob>pdl2
load_rcfile: got $HOME = C:/Users/eclisob
load_rcfile: loading C:/Users/eclisob/.perldlrc
******************************************
* Warning: TERM type is dumb! *
* Limited ReadLine functionality will be *
* available. Please unset TERM or use a *
* different terminal type. *
******************************************
Perldl2 Shell v0.008
PDL comes with ABSOLUTELY NO WARRANTY. For details, see the file
'COPYING' in the PDL distribution. This is free software and you
are welcome to redistribute it under certain conditions, see
the same file for details.
Loaded plugins:
CleanErrors
Commands
Completion
CompletionDriver::LexEnv
CompletionDriver::Methods
DDS
FindVariable
History
LexEnv
MultiLine::PPI
NiceSlice
PDLCommands
Packages
PrintControl
ReadLineHistory
Type 'help' for online help
Type Ctrl-D or quit to exit
Loaded PDL v2.006
[Ericsson]<http://www.ericsson.com/>
CLIFF SOBCHUK
Engineer IV - Systems Developer
BNET DURA
Ericsson
Home Office
T3K3Y5, Calgary, AB, Canada
Phone +16139636957
Mobile +14038199233
[email protected]
www.ericsson.com
[http://www.ericsson.com/current_campaign]<http://www.ericsson.com/current_campaign>
Legal entity: Ericsson Canada, registered office in Terry Fox. This
Communication is Confidential. We only send and receive email on the basis of
the terms set out at
www.ericsson.com/email_disclaimer<http://www.ericsson.com/email_disclaimer>
<<inline: image005.jpg>>
<<inline: image006.jpg>>
_______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
