[29396] in Perl-Users-Digest
Perl-Users Digest, Issue: 640 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 10 14:10:15 2007
Date: Tue, 10 Jul 2007 11:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 10 Jul 2007 Volume: 11 Number: 640
Today's topics:
croak/confess from within File::Find <mritty@gmail.com>
Re: dollar sign literals <Jason.Williams.0617@gmail.com>
Re: dollar sign literals <jurgenex@hotmail.com>
Re: Help finding CGI files on Unix server <bassintro@gmail.com>
How to turn off taint checking in cgi <usenet@larseighner.com>
Re: How to turn off taint checking in cgi <mritty@gmail.com>
Re: How to turn off taint checking in cgi anno4000@radom.zrz.tu-berlin.de
Re: re-lurking <savagebeaste@yahoo.com>
Re: retrieving news messages <bik.mido@gmail.com>
Re: retrieving news messages <bik.mido@gmail.com>
Re: searching for a special string in an array <jurgenex@hotmail.com>
Re: Streamlining login to Web site mailbox@cpacker.org
Re: Streamlining login to Web site <ts@dionic.net>
Re: Streamlining login to Web site mailbox@cpacker.org
sysread vs read? <socyl@987jk.com.invalid>
Re: sysread vs read? <ddunham@redwood.taos.com>
TXL-like capability? <somedeveloper@gmail.com>
Using xargs perl to join lines charissaf@gmail.com
Re: Using xargs perl to join lines charissaf@gmail.com
Re: validating a group of variables <savagebeaste@yahoo.com>
Re: win32::OLE and SeriesCollection on a chart <rohman@gmail.com>
Re: XML SAX Parser for PERL <bugbear@trim_papermule.co.uk_trim>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 10 Jul 2007 10:40:13 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: croak/confess from within File::Find
Message-Id: <1184089213.118687.95220@n2g2000hse.googlegroups.com>
I've been staring at this and playing with variations for over an hour
now. Can someone help me out? My goal is to be able to use croak()
from within a subroutine that is called by the &wanted subroutine
which is passed to File::Find::find(). I want the error message
printed as a result of this croak() to list the line number of the
call to the final subroutine. Here is a short-but-complete script to
demonstrate the problem I'm having:
#!/usr/bin/perl
use strict;
use warnings;
use Carp;
use File::Find;
die "Usage: $0 [croak|confess] [level]\n" unless @ARGV == 2;
my ($which, $carplevel) = @ARGV;
sub err {
$Carp::CarpLevel = $carplevel;
if ($which eq 'croak') {
croak "You did something bad!"; #line 12
} else {
confess "You did something bad!"; #line 14
}
}
sub wanted {
err(); #line 19
}
find(\&wanted, '.'); #line 22
__END__
So, find() is calling wanted() which is calling err() which is calling
croak(). What I want is an error message saying:
"You did something bad! at ff_carp.pl line 19". However:
$ ./ff_carp.pl croak 0
You did something bad! at /opt2/Perl5_8_4/lib/perl5/5.8.4/File/Find.pm
line 810
Calling croak with a CarpLevel of 0 shows me where in File::Find the
wanted() subroutine is being called.
$ ./ff_carp.pl croak 1
You did something bad! at ./ff_carp.pl line 22
But if I call croak with a CarpLevel of 1, I instead get where in my
main file find() is being called.
So instead I tried looking at the whole stack trace, to see what's
going wrong. I tried calling confess() with a CarpLevel of 0:
$ ./ff_carp.pl confess 0
You did something bad! at ./ff_carp.pl line 14
main::err() called at ./ff_carp.pl line 19
main::wanted() called at /opt2/Perl5_8_4/lib/perl5/5.8.4/File/
Find.pm line 810
File::Find::_find_dir('HASH(0x13e82c)', ., 2) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 690
File::Find::_find_opt('HASH(0x13e82c)', .) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
File::Find::find('CODE(0x1b66d0)', .) called at ./ff_carp.pl
line 22
Now this is exactly what I'd expect. It's telling me the actual
confess was called on line 14, inside the err() function that was
called on line 19, inside the wanted() function that was called within
File::Find.pm. Exactly. And furthermore, if I skip a level by
setting CarpLevel to 1:
$ ./ff_carp.pl confess 1
You did something bad! at ./ff_carp.pl line 19
main::wanted() called at /opt2/Perl5_8_4/lib/perl5/5.8.4/File/
Find.pm line 810
File::Find::_find_dir('HASH(0x13e82c)', ., 2) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 690
File::Find::_find_opt('HASH(0x13e82c)', .) called at /opt2/
Perl5_8_4/lib/perl5/5.8.4/File/Find.pm line 1193
File::Find::find('CODE(0x1b66d0)', .) called at ./ff_carp.pl
line 22
Again, Exactly what I expect. I skipped a level, so the first level
being printed is the source of the err() call, line 19.
Now - how do I get croak() to behave the same way? I don't want to
print the entire stack trace, I just want it to tell me that the
subroutine was called from line 19, like confess() does when I skip a
level.
Thank you for any insight you can provide,
Paul Lalli
------------------------------
Date: Tue, 10 Jul 2007 14:31:17 -0000
From: Jason Williams <Jason.Williams.0617@gmail.com>
Subject: Re: dollar sign literals
Message-Id: <1184077877.056307.286470@n60g2000hse.googlegroups.com>
Thank you all for you posts; I learned something from each of them. I
ended up taking a slightly different approach. I wrote a separate perl
program, and then called it from ksh for each file, like so:
ksh:
--------------------------------
#!/bin/ksh
PATH=blah
for FILE in dc0003*
do
echo $FILE
mv $FILE $FILE.bak
update_part_maint_jobs.pl $FILE.bak
mv $FILE.bak.new $FILE
echo $FILE done
done
perl:
------------------------------
#!/usr/bin/perl
open(infile, "$ARGV[0]");
open(outfile, ">$ARGV[0].new");
while (<infile>) {
s/.*calling_program_dir=.*//;
s/dc0003\.maintain\.partitions_test/dc0003.maintain.partitions/;
s/(.*)dc0003\.maintain\.partitions(.*dev.*)/$1\$calling_program_dev
$2/;
print outfile $_;
}
close(outfile);
------------------------------
Date: Tue, 10 Jul 2007 14:41:28 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: dollar sign literals
Message-Id: <sUMki.6732$V35.6660@trndny03>
Jason Williams wrote:
> Thank you all for you posts; I learned something from each of them. I
> ended up taking a slightly different approach. I wrote a separate perl
> program, and then called it from ksh for each file, like so:
>
> ksh:
Any particular reason why you are not using Perl for this part?
> --------------------------------
> #!/bin/ksh
> PATH=blah
> for FILE in dc0003*
for my $file (glob(dc0003*))
> do
{
> echo $FILE
print $file;
> mv $FILE $FILE.bak
move ($file, "$file.bak"); #from File::Copy
> update_part_maint_jobs.pl $FILE.bak
#rewritten to call a sub:
update_part_jobs ("$file.bak");
> mv $FILE.bak.new $FILE
move ("$file.bak.new", $file);
> echo $FILE done
print "$file done";
> done
}
jue
------------------------------
Date: Tue, 10 Jul 2007 05:30:58 -0700
From: bassintro <bassintro@gmail.com>
Subject: Re: Help finding CGI files on Unix server
Message-Id: <1184070658.521048.157810@g4g2000hsf.googlegroups.com>
On Jul 6, 5:59 am, Joe Smith <j...@inwap.com> wrote:
> J=FCrgen Exner wrote:
> > bassintro wrote:
> >> On Jul 2, 2:20 pm, "J=FCrgen Exner" <jurge...@hotmail.com> wrote:
> >>> bassintro wrote:
> >>>> I need a way to find all the cgi files on my server and simply list
> >>>> their name and dir.
> >> What I mean is I am trying to find executable files that are run on
> >> the server side of a www connection.
>
> > Well, strictly speaking that could be any file on the file system where=
the
> > 'execute' bit is set.
>
> Not true. The web server severely limits which files it provides access
> to. For Apache, files that are not under DocumentRoot or ScriptAlias
> cannot be accessed.
>
> > I don't think your approach is feasible because literaly any executable=
on
> > the web server could be involved in generating an HTTP response.
>
> Anyone who configures a web server so that it allows access to EVERY SING=
LE
> FILE ON THE SERVER should be shot on site. (On sight? No, on site!)
>
> -Joe
So then, this would work?
find `awk '/^ScriptAlias/ {print $3}' /etc/httpd/conf/httpd.conf | tr -
d \"` -type f -perm +111
------------------------------
Date: 10 Jul 2007 13:18:28 GMT
From: Lars Eighner <usenet@larseighner.com>
Subject: How to turn off taint checking in cgi
Message-Id: <slrnf971n7.d9u.usenet@goodwill.larseighner.com>
How can I turn off taint checking in a perl cgi script?
I mean completely including path checking.
Naturally I would like to do this on a per script basis, but if that
is not possible, is it possible to compile perl (5.8.8) without taint
checking at all?
I am not interested in hearing that I do not want to do this.
I understand I can get around variable taint checking with a do nothing
sed-like replacement, but is it not clear to me how this could be done with
the path.
--
Lars Eighner <http://larseighner.com/> <http://myspace.com/larseighner>
Countdown: 560 days to go.
Friends of Lizbeth: help replace failed a/c at Austin's no-kill shelter
<https://secure.groundspring.org/dn/index.php?aid=12349>
------------------------------
Date: Tue, 10 Jul 2007 07:36:31 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: How to turn off taint checking in cgi
Message-Id: <1184078191.748383.207190@k79g2000hse.googlegroups.com>
On Jul 10, 9:18 am, Lars Eighner <use...@larseighner.com> wrote:
> How can I turn off taint checking in a perl cgi script?
By removing the -T option from the shebang in the script and/or the
perl executable line in your webserver configuration file.
I have now handed you a loaded hand gun and taught you how to point it
at your head. Good luck.
Paul Lalli
------------------------------
Date: 10 Jul 2007 14:40:14 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: How to turn off taint checking in cgi
Message-Id: <5fhk2eF3aqmtpU1@mid.dfncis.de>
Lars Eighner <usenet@larseighner.com> wrote in comp.lang.perl.misc:
> How can I turn off taint checking in a perl cgi script?
>
> I mean completely including path checking.
>
> Naturally I would like to do this on a per script basis, but if that
> is not possible, is it possible to compile perl (5.8.8) without taint
> checking at all?
>
> I am not interested in hearing that I do not want to do this.
>
> I understand I can get around variable taint checking with a do nothing
> sed-like replacement, but is it not clear to me how this could be done with
> the path.
( $_) = /(.*)/ for $ENV{ PATH};
Anno
------------------------------
Date: Tue, 10 Jul 2007 09:31:22 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: re-lurking
Message-Id: <5fhqj1F23hvj3U1@mid.individual.net>
merl the perl wrote:
> "Clenna Lumina" <savagebeaste@yahoo.com> wrote in message
> news:5fg599F3chs5mU1@mid.individual.net...
>> Wade Ward wrote:
>>> <QoS@domain.invalid> wrote in message
>>> news:WQtki.25497$BT3.1351@trnddc06...
>>>>
>
>> Have you ever tried highlighting a message (in OE) and then going to
>> File and Save As? This will save the raw article, headers & all
>> (what is sometimes referred to as "mbox format".)
>>
>> Also, you can right click a highlighted message and use "Copy to
>> Folder" to save a copy in your local OE folders.
> That they are local OE folders is precisely my bitch about it.
Why? You don't have to save them to the local OE folders. "Save As"
saves it as a file anywhere you want.
--
CL
------------------------------
Date: Tue, 10 Jul 2007 13:17:10 -0000
From: blazar <bik.mido@gmail.com>
Subject: Re: retrieving news messages
Message-Id: <1184073430.559536.296720@w3g2000hsg.googlegroups.com>
On 9 Lug, 19:31, "Wade Ward" <inva...@invalid.nyet> wrote:
> > Given that I actually have cancer... I'M TOUCHING MY NUTS! (I don't
[snip]
> Out of curiosity, does the first name Michele make you male or female? A
> person can't tell with romance languages. The statement has a different
> connotation depending on the gender of the person saying it. Here, to ward
> off bad luck, we knock on wood.
A male. The feminine version -rarer- is Michela. And yeah... on wood
too. Or Iron. But nuts are more common... for about a half of the
population.
Michele
------------------------------
Date: Tue, 10 Jul 2007 13:33:53 -0000
From: blazar <bik.mido@gmail.com>
Subject: Re: retrieving news messages
Message-Id: <1184074433.162127.56630@k79g2000hse.googlegroups.com>
On 9 Lug, 20:10, "comp.llang.perl.moderated" <c...@blv-
sam-01.ca.boeing.com> wrote:
> The most likely errors are from the initial socket
> connection. The inherited IO::Socket::INET and
> friends seem to return $@ often by wrapping $!, eg,
Thank you for pointing out. However Net::NNTP's docs do not clearly
specify that, if at all, and perhaps should. Still, the particular
error returned in $! for the wrong argument was at most a fortunate
coincidence.
Michele
------------------------------
Date: Tue, 10 Jul 2007 13:47:46 GMT
From: "J?rgen Exner" <jurgenex@hotmail.com>
Subject: Re: searching for a special string in an array
Message-Id: <66Mki.3585$qu5.464@trndny02>
Shai wrote:
> I'm running on an array of strings with a foreach loop.
> I want to stop the loop when I find the string: "item(s)" - but it
> looks like I have problems with defining the if condition.
> I tried:
> if ($str=~"item(s)") {
It would be less confusing to you and others if you used the customary /.../
for REs.
Double quotes are a particularly poor choice because naturally people will
confuse the text with a string.
> last;
> }
> But it seems to have problems. if I remove the "(s)" it works fine but
You need to escape the parantheses because they are using for grouping in
REs.
> I need to find a unique string which contains exactly this: "item(s)".
> Any idea ?!?!?
Even better: use the right tool. If you want to search for a substring
within another string then index() is your friend. No need to wield the big
RE cannon for that task.
jue
------------------------------
Date: Tue, 10 Jul 2007 06:02:56 -0700
From: mailbox@cpacker.org
Subject: Re: Streamlining login to Web site
Message-Id: <1184072576.844900.124570@57g2000hsv.googlegroups.com>
On Jul 9, 6:16 pm, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
> But at second glance it is obvious that you don't need CGI::Auth for
> this. You get the same effect if you use Apache only for authentication,
> and do the authorization in your scripts.
Ah, but I haven't figured out how my script can learn who the user is
after it's invoked following Basic authentication! If that information
is in the tutorials, I've missed it, somehow. That's why I went poking
around in the Auth documentation. Is the user name a variable in %ENV,
or where? Once I know the user, I can parse .htgroup, I guess, to
determine his access level and generate the appropriate menu.
--
Charles Packer
http://cpacker.org/whatnews
mailboxATcpacker.org
------------------------------
Date: Tue, 10 Jul 2007 15:40:53 +0100
From: Tim Southerwood <ts@dionic.net>
Subject: Re: Streamlining login to Web site
Message-Id: <46939a75$0$640$5a6aecb4@news.aaisp.net.uk>
mailbox@cpacker.org wrote:
> On Jul 9, 6:16 pm, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
>> But at second glance it is obvious that you don't need CGI::Auth for
>> this. You get the same effect if you use Apache only for authentication,
>> and do the authorization in your scripts.
>
> Ah, but I haven't figured out how my script can learn who the user is
> after it's invoked following Basic authentication! If that information
> is in the tutorials, I've missed it, somehow. That's why I went poking
> around in the Auth documentation. Is the user name a variable in %ENV,
> or where? Once I know the user, I can parse .htgroup, I guess, to
> determine his access level and generate the appropriate menu.
Hi
Yes, the username is in %ENV - REMOTE_USER I think, but if you dump the
whole of %ENV it will be obvious on sight.
That var is guaranteed correct by apache/mod_cgi, so if it is set, then that
is the username that apache authorised.
HTH
Tim
------------------------------
Date: Tue, 10 Jul 2007 08:35:37 -0700
From: mailbox@cpacker.org
Subject: Re: Streamlining login to Web site
Message-Id: <1184081737.959322.107380@p39g2000hse.googlegroups.com>
On Jul 10, 10:40 am, Tim Southerwood <t...@dionic.net> wrote:
> Yes, the username is in %ENV - REMOTE_USER I think, but if you dump the
> whole of %ENV it will be obvious on sight.
>
> That var is guaranteed correct by apache/mod_cgi, so if it is set, then that
> is the username that apache authorised.
Yup, I just found "remote_user()" call documented in
the CGI module. You get the user name returned if the
script was protected, i.e. required login to be invoked, null
otherwise.
Thanks.
--
Charles Packer
http://cpacker.org/whatnews
mailboxATcpacker.org
------------------------------
Date: Tue, 10 Jul 2007 16:59:41 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: sysread vs read?
Message-Id: <f70dtt$3f5$1@reader2.panix.com>
I've rtfm'd this question but I still can't figure out why one
would prefer Perl's read over Perl's sysread, or viceversa. Is
one significantly faster than the other?
(And why would Perl provide two different functions that, aside
from possible differences in performance, seem to both do pretty
much the same thing?)
Any words o' wisdom would be much appreciated.
TIA!
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Tue, 10 Jul 2007 17:26:18 GMT
From: Darren Dunham <ddunham@redwood.taos.com>
Subject: Re: sysread vs read?
Message-Id: <_iPki.1688$m%.1111@newssvr17.news.prodigy.net>
kj <socyl@987jk.com.invalid> wrote:
> I've rtfm'd this question but I still can't figure out why one
> would prefer Perl's read over Perl's sysread, or viceversa. Is
> one significantly faster than the other?
'read' and the stdio/perlio handling are probably more efficient if
you're not doing block reads yourself. They'll use buffers to perform
larger I/Os when possible.
> (And why would Perl provide two different functions that, aside
> from possible differences in performance, seem to both do pretty
> much the same thing?)
Same reason that your system probably provides read() and fread().
Using the stdio routines and the automatic buffering is easy and often
the right thing to do, but you have another interface that lets you
avoid it.
--
Darren Dunham ddunham@taos.com
Senior Technical Consultant TAOS http://www.taos.com/
Got some Dr Pepper? San Francisco, CA bay area
< This line left intentionally blank to confuse you. >
------------------------------
Date: Tue, 10 Jul 2007 14:27:24 -0000
From: SomeDeveloper <somedeveloper@gmail.com>
Subject: TXL-like capability?
Message-Id: <1184077644.866420.302430@a26g2000pre.googlegroups.com>
Hello,
Can I do source to source transformations elegantly in Perl?
I'm a compilers and TXL newbie, but as I'm reading more about TXL, I'm
seeing that what it provides at the end of the day is:
1. the ability to define/specify arbitrary grammars, and
2. the ability to specify semantic actions (for grammar
productions) via search/replace patterns.
Since Perl is the king of regex's, I'm wondering where I can stay
within Perl for all my source to source transformation needs.
Regards,
Some Developer
------------------------------
Date: Tue, 10 Jul 2007 09:06:31 -0700
From: charissaf@gmail.com
Subject: Using xargs perl to join lines
Message-Id: <1184083591.285921.134660@i38g2000prf.googlegroups.com>
Hello,
FreeBSD 4.10
#!/bin/ksh
I'm looking for some guidance on how to use a combination of grep and
xargs to find lines in multpile files beginning with > and append them
to the previous line.
For example, ideally I would like to use:
grep -r -l '^>' . | xargs perl -pi -e :a -e '$!N;s/\n>/>/;ta' -e 'P;D'
I am basing this one liner on the following sed example:
# if a line begins with an equal sign, append it to the previous line
# and replace the "=" with a single space
# sed -e :a -e '$!N;s/\n=/ /;ta' -e 'P;D'
The error I receive is: N: Event not found.
A sample file would have a line similar to
<htm
>
The ideal result is to bring the closing > up to the preceeding line:
<htm>
Please look at my syntax or let me know if there is another way of
doing this operation using xargs perl.
Thank you!
C
------------------------------
Date: Tue, 10 Jul 2007 10:39:59 -0700
From: charissaf@gmail.com
Subject: Re: Using xargs perl to join lines
Message-Id: <1184089199.408485.73600@g37g2000prf.googlegroups.com>
On Jul 10, 9:06 am, charis...@gmail.com wrote:
> Hello,
> FreeBSD 4.10
> #!/bin/ksh
>
> I'm looking for some guidance on how to use a combination of grep and
> xargs to find lines in multpile files beginning with > and append them
> to the previous line.
>
> For example, ideally I would like to use:
>
> grep -r -l '^>' . | xargs perl -pi -e :a -e '$!N;s/\n>/>/;ta' -e 'P;D'
>
> I am basing this one liner on the following sed example:
>
> # if a line begins with an equal sign, append it to the previous line
> # and replace the "=" with a single space
> # sed -e :a -e '$!N;s/\n=/ /;ta' -e 'P;D'
>
> The error I receive is: N: Event not found.
>
> A sample file would have a line similar to
> <htm
>
>
>
> The ideal result is to bring the closing > up to the preceeding line:
> <htm>
>
> Please look at my syntax or let me know if there is another way of
> doing this operation using xargs perl.
>
> Thank you!
> C
More info:
sample file has
<htm
>
Also, I turned on the perl -w option and have the following info:
Bareword found where operator expected at -e line 2, near "$!N"
(Missing operator before N?)
Can't call method "a" without a package or object reference at -e line
1, <> chunk 1.
------------------------------
Date: Tue, 10 Jul 2007 09:41:53 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: validating a group of variables
Message-Id: <5fhr6nF3d1ap3U1@mid.individual.net>
Tad McClellan wrote:
> Robert Valcourt <webmaster@know.spam.customfitonline.com> wrote:
>
>
>> We have been suffering much lately from users abusing our Website
>> forms with Spam.
>
>
> Right behind the spammers are...
>
>
>> #!/usr/bin/perl
>
>> my $fullname = param('fullname');
>
>
> ... the crackers!
Actually wouldn't go something like, spammers, phishers, and then
crackers? :) Phishers always seemed like they were in between... they
are like crackers, they just let those who blindly click links in their
email do their work for them.
> You should never write a program that processes form input
> without turning on taint checking.
Absolutely true.
--
CL
------------------------------
Date: Tue, 10 Jul 2007 17:33:38 -0000
From: axroh <rohman@gmail.com>
Subject: Re: win32::OLE and SeriesCollection on a chart
Message-Id: <1184088818.193177.197360@z28g2000prd.googlegroups.com>
Hello again,
It took me days to figure this out, I was really hoping to have saved
some time by asking on this group :P
Basically, if you change the location of a chart:
$Chart->Location(xlLocationAsObject,$Sheet->Name);
You need to update the handle, since it is lost. Luckily, there is
'ActiveChart':
# STUPID EXCEL BUG - CAUSED ME HOURS OF FRUSTRATION
# Chart handle is lost when you move the location of
# the chart. Stupid.
$Chart = $Excel->ActiveChart;
And then all else works ok. Hope this helps someone.
On Jul 5, 4:46 pm, axroh <roh...@gmail.com> wrote:
> Hi folks,
>
> I'm trying to do something like this:
>
> $Sheet->Range("A1:C1")->Select;
> my $y = $Excel->Selection;
> my $x = $Sheet->Range($y, $y->End(xlDown));
> my $Chart = $Book->Charts->Add;
> $Chart->{ChartType} = xlXYScatterSmooth;
> $Chart->SetSourceData($x,xlColumns);
> $Chart->Location(xlLocationAsObject,$Sheet->Name);
> $Chart->SeriesCollection(1)->Select;
> $Chart->SeriesCollection(1)->{AxisGroup} = xlPrimary;
>
> Everything is working fine until I access the SeriesCollection
> property. I keep getting:
> Can't call method "Select" on an undefined value at <filename> line
> <line_number>
>
> Even if I disable that line (I really don't need to select it, this
> was inherited from a VBA macro -- hence the selection), I get the same
> error for the next line. It's almost as if SeriesCollection is not an
> object for Chart.
>
> My range of data (A:A)->(C:C) are just numbers I wish to plot.
>
> Any help here would be greatly appreciated.
------------------------------
Date: Tue, 10 Jul 2007 11:20:36 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: XML SAX Parser for PERL
Message-Id: <46935d74$0$8754$ed2619ec@ptn-nntp-reader02.plus.net>
xhoster@gmail.com wrote:
> ranjeeth <mnranjeeth@gmail.com> wrote:
>> Hi guys,
>> I am currently developing an application that needs to process XML
>> docs.
>> Can you recomend me some XML SAX parsers for this purpose?
>> Thanks,
>> Ranjeeth
>
> How about XML::SAX ?
You rebel, you!
BugBear
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 640
**************************************
