Cliff, the slice call gets a single string -- eliminate the single
quotes around the comma between the arguments.
On Nov 24, 2010, at 10:14 AM, Clifford Sobchuk wrote:
I guess there must be something more nefarious going on then. I
tried both methods and I get different errors.
foreach (0..5) {
use PDL::NiceSlice;
print $pic;
$iob4 = $pic(0,[$_:$picSize-1:6]);
print "iob4 is $iob4 of size ",nelem($iob4),"\n";
Produces ====>
C:\Users\eclisob\workspace\Perl projects>prs_picOpt.pl picSample.txt
Graphics::GnuplotIF : cannot find environment variable DISPLAY
syntax error at C:\Users\eclisob\workspace\Perl projects
\prs_picOpt.pl line 100,
near "$_:"
Execution of C:\Users\eclisob\workspace\Perl projects\prs_picOpt.pl
aborted due
to compilation errors.
foreach (0..5) {
use PDL::NiceSlice;
print $pic;
$iob4 = $pic->slice('0','$_:$picSize-1:6');
print "iob4 is $iob4 of size ",nelem($iob4),"\n";
Produces ====>
Usage: PDL::slice(PARENT,CHILD,str) (you may leave temporaries or
output variab
les out of list) at C:\Users\eclisob\workspace\Perl projects
\prs_picOpt.pl line
100.
I'll open a bug. In the meantime I'll send it to my home machine and
try it on Ubuntu.
Thanks for the help - I'll open a bug.
CLIFF SOBCHUK
Core RF Engineering
Phone 613-667-1974 ecn : 8109-71974
mobile 403-819-9233
yahoo: sobchuk
www.ericsson.com
“The author works for Telefonaktiebolaget L M Ericsson (“Ericsson”),
who is solely responsible for this email and its contents. All
inquiries regarding this email should be addressed to Ericsson. The
web site for Ericsson is www.ericsson.com.”
This Communication is Confidential. We only send and receive email
on the basis of the terms set out at www.ericsson.com/email_disclaimer
From: Craig DeForest [mailto:[email protected]]
Sent: November-24-10 10:06 AM
To: Clifford Sobchuk
Cc: Craig DeForest; Puneet Kishor; [email protected]
Subject: Re: [Perldl] Nice Slice Selection confusion
Hmmm...
It would be nice to get to the bottom of this, but if you need a
quick result you can fall back to the "nslice" command:
$iob4 = $pic->nslice(0,[$_,$picSize-1,6]);
which is what the NiceSlice preprocessor should be morphing your
code into, before handing it off to Perl.
If NiceSlice is causing the trouble, then the line above should work
OK and you are on your way; if you still get an error, it is
something else, more puzzling still (but you can fall back to using -
>slice).
Either way, it would be helpful to file a bug report on SourceForge.
On Nov 24, 2010, at 9:58 AM, Clifford Sobchuk wrote:
Yes. It is at the top of the file. But there is only one file. It
isn't called by another, nor does it call one. Just for the heck of
it I dropped it in to the foreach loop preceeding the statement and
it gives the same error.
foreach (0..5) {
use PDL::NiceSlice;
print $pic;
$iob4 = $pic(0,$_:$picSize-1:6);
print "iob4 is $iob4 of size ",nelem($iob4),"\n";
Thanks,
CLIFF SOBCHUK
Core RF Engineering
Phone 613-667-1974 ecn : 8109-71974
mobile 403-819-9233
yahoo: sobchuk
www.ericsson.com
“The author works for Telefonaktiebolaget L M Ericsson
(“Ericsson”), who is solely responsible for this email and its
contents. All inquiries regarding this email should be addressed to
Ericsson. The web site for Ericsson is www.ericsson.com.”
This Communication is Confidential. We only send and receive email
on the basis of the terms set out at www.ericsson.com/email_disclaimer
From: Craig DeForest [mailto:[email protected]]
Sent: November-24-10 9:32 AM
To: Clifford Sobchuk
Cc: Craig DeForest; Puneet Kishor; [email protected]
Subject: Re: [Perldl] Nice Slice Selection confusion
Argh. Sorry, in my pre-coffee fog I didn't see that Puneet was
actually *answering* Cliff's question. Sorry, all. Next time I'll
wait till I'm fully awake...
Cliff, that error looks as if NiceSlice isn't parsing your line
properly. Do you have a "use PDL::NiceSlice;" near the top of your
script? (You have to invoke NiceSlice on a per-file basis, since
it uses the Perl source filter mechanism; this can be confusing if
you're moving commands from the perldl shell, because perldl
jumps through a lot of hoops to do it invisibly for you...)
On Nov 24, 2010, at 9:25 AM, Clifford Sobchuk wrote:
I guess what I should have done was brought my "Also" to the top
of the print. I didn't realize that it doesn't supposed to do
this. Attached is the script.
Also I have
use PDL::NiceSlice ;
in the script, I still need to use ' ' around the values when
running the script in Windows (win32 ActiveState Perl 5.10). I am
debugging it in Eclipse with the EPIC plugin, and have also tried
it at the command line with the same results.
Without the single quotes which is what does work in perldl shell
$iob4 = $pic(0,$_:$picSize-1:6);
when I run it in Eclipse or Windows Command Prompt I get the
following error:
non piddle ref ' at C:/Perl/site/lib/PDL/Core.pm line 1645.
Thanks,
CLIFF SOBCHUK
Core RF Engineering
Phone 613-667-1974 ecn : 8109-71974
mobile 403-819-9233
yahoo: sobchuk
www.ericsson.com
“The author works for Telefonaktiebolaget L M Ericsson
(“Ericsson”), who is solely responsible for this email and its
contents. All inquiries regarding this email should be addressed
to Ericsson. The web site for Ericsson is www.ericsson.com.”
This Communication is Confidential. We only send and receive email
on the basis of the terms set out at www.ericsson.com/email_disclaimer
From: Craig DeForest [mailto:[email protected]]
Sent: November-24-10 8:10 AM
To: Puneet Kishor
Cc: Craig DeForest; Clifford Sobchuk; [email protected]
Subject: Re: [Perldl] Nice Slice Selection confusion
Puneet, by enclosing the niceslice terms in quotes, you are
forcing them to be evaluated as strings rather than as Perl
variables. Leave off the quotes.
On Nov 24, 2010, at 7:06 AM, Puneet Kishor wrote:
Clifford Sobchuk wrote:
Hi Folks,
I am struggling to understand the slice indexing syntax for $a-
>slice( a:b:c ). I did this in perldl shell:
pdl> $a=sequence (3,10);p $a
[
[ 0 1 2]
[ 3 4 5]
[ 6 7 8]
[ 9 10 11]
[12 13 14]
[15 16 17]
[18 19 20]
[21 22 23]
[24 25 26]
[27 28 29]
]
pdl> p $a(1,0:9:2)
[
[ 1]
[ 7]
[13]
[19]
[25]
]
and it worked like I expected it to.
I then put it in to my script
foreach (0..5) {
print $pic;
$iob4 = $pic('0','$_:$picSize-1:6');
print "iob4 is $iob4 of size ",nelem($iob4),"\n";
and i only get a single value - the first one:
[
[5.7863319e+008 5.5061404e+008]
[5.7863344e+008 5.5635026e+008]
[ 5.790996e+008 5.3051317e+008]
[5.7875504e+008 5.3033015e+008]
[5.7936432e+008 5.277951e+008]
[5.7675125e+008 5.6184104e+008]
[5.7871172e+008 5.5064908e+008]
[ 5.786631e+008 5.5618585e+008]
[5.7911588e+008 5.3037927e+008]
...
[5.7905481e+008 5.2330437e+008]
[5.7738847e+008 5.607879e+008]
[5.7844745e+008 5.5221171e+008]
[5.7900191e+008 5.5709251e+008]
[5.7942135e+008 5.2928743e+008]
[5.7908425e+008 5.286075e+008]
[5.7902203e+008 5.2338163e+008]
[ 5.774559e+008 5.6077705e+008]
]
iob4 is
[
[5.7863319e+008]
]
of size 1
Where I expected to get the first column with every 6th entry
starting from the first element in the column.
What am I doing wrong.
Also I have
use PDL::NiceSlice ;
in the script, I still need to use ' ' around the values when
running the script in Windows (win32 ActiveState Perl 5.10). I
am debugging it in Eclipse with the EPIC plugin, and have also
tried it at the command line with the same results.
The single quotes are screwing up here. They are being evaluated
as 0, so, in effect, your niceslice expression is becoming
$pic(0,0)
Consider
my $pdl = sequence (3,10);
print "pdl: " . $pdl(1,0:9:2) . "\n";
my $c = $pdl('0','0:9:2');
my $d = $pdl(0,0);
print "c is $c of size ", nelem($c), "\n";
print "d is $d of size ", nelem($d), "\n";
I get
pdl:
[
[ 1]
[ 7]
[13]
[19]
[25]
]
c is
[
[0]
]
of size 1
d is
[
[0]
]
of size 1
Thanks,
CLIFF SOBCHUK
Ericsson
Core RF Engineering
Calgary, AB, Canada
Phone 613-667-1974 ECN 8109 x71974
Mobile 403-819-9233
[email protected]
yahoo: sobchuk
www.ericsson.com
“The author works for Telefonaktiebolaget L M Ericsson
(“Ericsson”), who is solely responsible for this email and its
contents. All inquiries regarding this email should be addressed
to Ericsson. The web site for Ericsson is www.ericsson.com.”
This Communication is Confidential. We only send and receive
email on the basis of the terms set out at www.ericsson.com/email_disclaimer
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
<prs_picOpt.pl>
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
