[28571] in Perl-Users-Digest
Perl-Users Digest, Issue: 9935 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 6 14:05:53 2006
Date: Mon, 6 Nov 2006 11:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 6 Nov 2006 Volume: 10 Number: 9935
Today's topics:
Re: ADSI through Win32::OLE damien.chaumette@gmail.com
Re: catch hitting crtl-c twice <christoph.lamprecht.no.spam@web.de>
Re: catch hitting crtl-c twice <ced@blv-sam-01.ca.boeing.com>
Re: catch hitting crtl-c twice xhoster@gmail.com
Re: FAQ 5.22 All I want to do is append a small amount <brian.d.foy@gmail.com>
Re: Getting huge data into memory in perl <shoppa@trailing-edge.com>
Re: HTTP::Request::Common Post problem <zentara@highstream.net>
Re: Keep getting error with email validation script <cdalten@gmail.com>
Re: Perl and OpenGL <martin_mohr@gmx.de>
Re: Perl and OpenGL jmg3000@gmail.com
Perl Cheat Sheet - "$foo" <usenet@whangomatic.freeserve.co.uk>
Re: Perl Cheat Sheet - "$foo" <josef.moellers@fujitsu-siemens.com>
Perl with setuid enabled prattm@gmail.com
Re: Putting a line in a specific place in a file <bryan@worldspice.net>
Re: warnings or -w ? <ynl@nsparks.net>
Re: warnings or -w ? <ynl@nsparks.net>
Re: warnings or -w ? <ynl@nsparks.net>
Re: warnings or -w ? <1usa@llenroc.ude.invalid>
Re: warnings or -w ? <ynl@nsparks.net>
Re: www::mechanize and forms kjhjhjhjadsasda@urbanhabit.com
Re: www::mechanize and forms <glex_no-spam@qwest-spam-no.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 6 Nov 2006 07:32:17 -0800
From: damien.chaumette@gmail.com
Subject: Re: ADSI through Win32::OLE
Message-Id: <1162827136.956549.242200@k70g2000cwa.googlegroups.com>
Mark Clements wrote:
> damien.chaumette@gmail.com wrote:
> > Hi, I need to be able to deploy an IIS configuration using a perl
> > script.
> > Therefore I've been looking into Win32::OLE, which allowed me to Dump
> > my config and make changes to the existing keys.
> > Now my problem is that I can't create a new Object or a new Property,
> > I've been looking around and found that piece of VB code:
> >
> > Set IIsWebVDirRootObj = GetObject("IIS://localhost/W3SVC/1/Root")
> > Set IIsWebVDirObj = IIsWebVDirRootObj.Create("IIsWebVirtualDir",
> > "NewVDir")
> >
> > Which successully created a new Object in my tree whereas the same code
> > in Perl left the tree unchanged (without warning nor error):
> >
> > my $root = Win32::OLE->GetObject("IIS://localhost/W3SVC/1/Root");
> > my $o = $root->Create("IIsWebVirtualDir", "ReallyNewVDir");
> >
>
> Is the result of executing "Create" twice with the same key name (here
> it's "IIsWebVirtualDir") defined?
>
> Will the VB code *change* the name (not just create it) if you execute
> it a second time but with a different string ie not "NewVDir"?
>
> What happens if you run a "Delete" first?
>
> Is $o defined after the call to create?
The VB functions will create and not rename, therefore exiting when
executing a second time the function with the same parameters.
$o is never defined wether the Object to create exists or not and
executing several Create() don't change anything.
I tried to turn warnings on but I still don't get any output
($Win32::OLE::Warn = 3).
Damien
------------------------------
Date: Mon, 06 Nov 2006 10:22:08 +0100
From: Ch Lamprecht <christoph.lamprecht.no.spam@web.de>
Subject: Re: catch hitting crtl-c twice
Message-Id: <eimuru$ftc$1@online.de>
Michael Goerz wrote:
> Hi,
>
> is there a way to catch if an interrupt (ctrl-c) is called twice in a
> certain time window? Catching the first one is done by
>
> $SIG{INT} = \&refresh;
>
> but now I want to detect if the user hits ctrl-c again while that
> handler is running (there can be a 'sleep 1' inside the handler to wait
> for this), so that the program can exit in that case. As I observed, the
> event is not triggered again while the handler is running.
>
> Any suggestions?
>
> Thanks,
> Michael Goerz
How about this:
use warnings;
use strict;
$SIG{INT} = \&refresh;
my $last_time= 0 ;
while(1) {}
sub refresh {
print "Ctrl-C caught\n";
if (time() - $last_time< 2){
print "Another Ctrl-C detected\n";
exit(0);
}
else {
print "Continuing on\n";
$last_time = time();
}
}
__END__
Christoph
--
perl -e "print scalar reverse q/ed.enilno@ergn.l.hc/"
------------------------------
Date: Mon, 6 Nov 2006 13:55:34 GMT
From: Charles DeRykus <ced@blv-sam-01.ca.boeing.com>
Subject: Re: catch hitting crtl-c twice
Message-Id: <J8BAoL.Irq@news.boeing.com>
Ben Morrow wrote:
> Quoth "Sisyphus" <sisyphus1@nomail.afraid.org>:
>
> [invoking a signal handler reentrantly]
>
>> Probably a difference between operating systems.
>> The script works for me as intended on Windows 2000 (perl 5.8.8)
>
> [pressing ctrl-c while $SIG{INT} is still running reenters $SIG{INT}]
>
>> but I find
>> the same behaviour as you on Mandrake-9.1 linux (also perl 5.8.8).
>
> [the second SIGINT is apparently not delivered until just after
> $SIG{INT} returns]
>
>> Seems that on Win32, the second instance of refresh() is run as soon as the
>> second Ctrl-C is hit. But on linux, the second instance of refresh() does
>> not get run until the first instance has finished running .... which is not
>> what we want if the script is going to perform as intended.
>
> General recommendation when using signal handlers is to do nothing in
> the actual handler except set a global, which you then check in your
> main loop. However, if you really want the behaviour you describe, you
> can get it as follows:
>
> use POSIX qw/sigaction SIGINT SA_NODEFER/;
>
> sigaction
> SIGINT,
> POSIX::SigAction->new(
> sub {
> warn "start INT handler";
> sleep 2;
> warn "end INT handler";
> },
> POSIX::SigSet->new,
> SA_NODEFER,
> ),
> or die "sigaction for SIGINT failed: $!";
>
> Note that this defeats the 5.8 'safe signals' mechanism (for this signal
> only), which means there is a chance of a segfault if the signal arrives
> while perl is in the middle of something non-reentrant. You can
> reinstate it with the ->safe method on the POSIX::SigAction object, but
> then you lose the reentrancy again. See sigaction and POSIX::SigAction
> in the POSIX.pm manpage.
>
Interesting, I thought the 'safe' signal semantics of 5.8+ would enable
you to get away with I/O and other potentially non-reentrant calls as
documented in perlipc IIUC:
... Then at strategic "safe" points in the Perl interpreter (e.g.
when it is about to execute a new opcode) the flags are checked
and the Perl level handler from %SIG is executed. The "deferred"
scheme allows much more flexibility in the coding of signal
handlers as we know Perl interpreter is in a safe state, and that
we are not in a system library function when the handler is called...
But here, it looks as though 'safe' means deferring receipt until the
handler returns entirely (except for Win32).
--
Charles DeRykus
------------------------------
Date: 06 Nov 2006 16:27:40 GMT
From: xhoster@gmail.com
Subject: Re: catch hitting crtl-c twice
Message-Id: <20061106112845.033$ya@newsreader.com>
Charles DeRykus <ced@blv-sam-01.ca.boeing.com> wrote:
>
> Interesting, I thought the 'safe' signal semantics of 5.8+ would enable
> you to get away with I/O and other potentially non-reentrant calls as
> documented in perlipc IIUC:
>
> ... Then at strategic "safe" points in the Perl interpreter (e.g.
> when it is about to execute a new opcode) the flags are checked
> and the Perl level handler from %SIG is executed. The "deferred"
> scheme allows much more flexibility in the coding of signal
> handlers as we know Perl interpreter is in a safe state, and that
> we are not in a system library function when the handler is called...
>
> But here, it looks as though 'safe' means deferring receipt until the
> handler returns entirely (except for Win32).
I think there are two different aspects of "safety" here. At the perl
level, you don't want to interrupt perl ops and cause bad things to inside
the black box (e.g. seg faults) . At the Perl level, you don't want to
interrupt signal handlers with other signal handlers, which can cause bad
things to happen outside the black box.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 06 Nov 2006 12:02:13 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 5.22 All I want to do is append a small amount of text to the end of a file. Do I still have to use locking?
Message-Id: <061120061202137246%brian.d.foy@gmail.com>
In article <454d5401$0$97220$892e7fe2@authen.yellow.readfreenews.net>,
Puckdropper <puckdropper@yahoo.com> wrote:
> PerlFAQ Server <brian@stonehenge.com> wrote in
> news:mbtv14-5k.ln1@blue.stonehenge.com:
>
> > This is an excerpt from the latest version perlfaq5.pod, which
> > comes with the standard Perl distribution.
> > 5.22: All I want to do is append a small amount of text to the end of
> > a file. Do I still have to use locking?
> *snip, no code*
> There's no code included in this post. Would someone either change the
> paragraph to be less ambiguous or include the code?
You missed the first sentence, which says that this is an excerpt from
perlfaq5. The code is in the previous answer in that document, which
comes with Perl.
In general, Tom and Nat wrote the perlfaq as compilations rather than
stand-alone answers, so sometimes refer to other parts of the
documents. That I post excerpts here doesn't necessasrily constrain
that design decision.
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 6 Nov 2006 05:20:21 -0800
From: "Tim Shoppa" <shoppa@trailing-edge.com>
Subject: Re: Getting huge data into memory in perl
Message-Id: <1162819221.023486.277110@h54g2000cwb.googlegroups.com>
rahulthathoo wrote:
> That actually works fine. My problem is that I want to store each file
> as a part of an associative array. I am not able to do that.
Actually, you can. You can either read them all in (slurp mode most
likely). Or if you want to learn about tie-ing, you can tie a hash so
that whenever you access it, it'll cache it into RAM and then give you
the contents of that file.
With the small quantity of data you have (50MB by my count) it should
be possible to read them all in to RAM if that's what you want to do.
But... you probably don't really want to do any of the above. A file
system is already a kind of associative array. Various database systems
(Berkeley DB) have excellent lookup-by-key abilities that can be
Tie::'ed with appropriate Perl modules. Relational databases and
tie-ing to them will give you the same thing (and a lot more if you
choose to use it). And very likely there's a much better abstraction
for your data than lookup-by-filename.
Tim.
------------------------------
Date: Mon, 06 Nov 2006 13:48:22 GMT
From: zentara <zentara@highstream.net>
Subject: Re: HTTP::Request::Common Post problem
Message-Id: <26fuk29f09vpua3jsn3fbscjhhkqb62e0q@4ax.com>
On 5 Nov 2006 20:22:43 -0800, matlaw@gmail.com wrote:
>I'm trying to Post to a web site using the following code:
>
>>#!/usr/bin/perl
>
>>use HTTP::Request::Common qw(POST);
>>use LWP::UserAgent;
>>$ua = LWP::UserAgent->new;
>
>>my $req = POST 'http://www.sfarmls.com/scripts/mgrqispi.dll',
>> [ APPNAME => 'Sanfrancisco',
>> PRGNAME => 'MLSLogin',
>> ARGUMENTS => ('-ASS','-AA'),
>> ];
>
>>print $ua->request($req)->as_string;
>
>But when I do, I get an HTML file from www.sfarmls.com telling me that
>I'm using an invalid entry point.
>
>However, I can easily access this site with the following telnet
>commands:
>
>>POST /scripts/mgrqispi.dll HTTP/1.1
>>Host: www.sfarmls.com
>>Content-Length: 56
>>Content-Type: application/x-www-form-urlencoded
>
>>APPNAME=Sanfrancisco&PRGNAME=MLSLogin&ARGUMENTS=-ASS,-AA
>
>Can anyone tell me what I'm doing wrong?
Have you tried capturing the transfers with something like ethereal or
tcpick, and seeing what is actually being sent?
Just glancing at syntax, I zeroed in on
ARGUMENTS => ('-ASS','-AA'),
vs.
&ARGUMENTS=-ASS,-AA
as looking quite susceptible to different interpretations.
maybe try
ARGUMENTS => ['-ASS','-AA'],
or
ARGUMENTS => '-ASS, -AA',
? just guessing :-)
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: 6 Nov 2006 06:29:08 -0800
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: Keep getting error with email validation script
Message-Id: <1162823348.145992.233940@h54g2000cwb.googlegroups.com>
Tad McClellan wrote:
> grocery_stocker <cdalten@gmail.com> wrote:
>
> > I
> > also figures since the OP is & to invoke the subroutine,
>
>
> What effect does using & on the function call have for the
> function that is being discussed?
>
I forgot. I think it was something to do with the fact the OP was
already screwing himself using &..
> > we might as
> > well just continue to screw ourself by using the unsafe system()
> > function.
>
>
> What is unsafe about the system() function?
>
> Using the shell is certainly unsafe, but you can use the system()
> function in such a way that it won't use a shell.
>
> Is that what you meant?
>
I should probably explore this before I shoot off my mouth, but under
*nix, you can screw yourself with system() by having the user do
something really inane with the input. Like
char arr[200];
system(arr);
The user then can go like
ls -al; rm
This is because system() under *nix uses the fork/exec model. So is the
behavior different using Perl?
------------------------------
Date: Mon, 06 Nov 2006 11:05:24 +0100
From: Martin Mohr <martin_mohr@gmx.de>
Subject: Re: Perl and OpenGL
Message-Id: <ein1fi$ar1$1@news.lrz-muenchen.de>
Martin Mohr wrote:
> which OpenGL binding for Perl would you recommend?
Hello again,
let me rephrase my question:
SDL is the way to go, right?
Ciao
Martin
------------------------------
Date: 6 Nov 2006 07:26:56 -0800
From: jmg3000@gmail.com
Subject: Re: Perl and OpenGL
Message-Id: <1162826816.605767.178610@h48g2000cwc.googlegroups.com>
Martin Mohr wrote:
> Martin Mohr wrote:
> > which OpenGL binding for Perl would you recommend?
>
> Hello again,
> let me rephrase my question:
>
> SDL is the way to go, right?
>
> Ciao
> Martin
No no Martin. Your original question was very good.
It's interesting that there seems to be quite a bit of duplication of
effort here. Personally, I tend to choose which free software to use
based on quality of documentation, and whether or not users can get
some reasonable amount of help on the mailing list.
Please keep digging and let us know what you find out! :)
Thanks,
---John
------------------------------
Date: Mon, 6 Nov 2006 11:48:34 -0000
From: "Andrew Gillett" <usenet@whangomatic.freeserve.co.uk>
Subject: Perl Cheat Sheet - "$foo"
Message-Id: <4r8lq2Fqb34hU1@individual.net>
I was reading the cheat sheet at:
http://perldoc.perl.org/perlcheat.html
About two thirds of the way down, in the middle, is a column entitled
"DON'T" listing things which should apparently be avoided. One of these is
simply:
"$foo"
It's not clear exactly what is meant to be bad about this. I thought maybe
it meant that 'my $thing = "$foo"' is slower than 'my $thing = $foo', but
then again it could mean something completely different.
------------------------------
Date: Mon, 06 Nov 2006 12:51:13 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Perl Cheat Sheet - "$foo"
Message-Id: <ein7os$hq0$1@nntp.fujitsu-siemens.com>
Andrew Gillett wrote:
> I was reading the cheat sheet at:
> http://perldoc.perl.org/perlcheat.html
>=20
> About two thirds of the way down, in the middle, is a column entitled=20
> "DON'T" listing things which should apparently be avoided. One of these=
is=20
> simply:
>=20
> "$foo"
>=20
> It's not clear exactly what is meant to be bad about this. I thought ma=
ybe=20
> it meant that 'my $thing =3D "$foo"' is slower than 'my $thing =3D $foo=
', but=20
> then again it could mean something completely different.=20
perldoc -q quoting
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 6 Nov 2006 09:37:07 -0800
From: prattm@gmail.com
Subject: Perl with setuid enabled
Message-Id: <1162834627.465053.100680@k70g2000cwa.googlegroups.com>
We have a bunch of Perl scripts on our system, all of which use the
following header:
#!/bin/ksh -- # -*- perl -*-
eval 'exec ${PERL} $0 ${1+"$@"}'
if 0;
The idea is we maintain a common variable $PERL that points to our
latest version. This works fine and dandy, but one particular script
is running with setuid enabled (4110 permission) and has problems with
this header. It prints out the message:
Unrecognized character \x7F at /bin/ksh line 1.
The character 7F is the "delete" character, but I copied and pasted the
ksh header from another script that works, so I don't believe there is
any hidden character(s). We've also tried something like:
#!${PERL}
but that didn't work. The only way to get it to work is to hardcode the
path to perl executable, but this requires more maintenance when
upgrading our version of perl and we'd like to avoid it if possible.
Anyone have any ideas?
Thanks, Mike
------------------------------
Date: 6 Nov 2006 09:04:59 -0800
From: "samasama" <bryan@worldspice.net>
Subject: Re: Putting a line in a specific place in a file
Message-Id: <1162832699.103680.209990@m7g2000cwm.googlegroups.com>
>
> I like that little number there... and it works too.
> Now I need to figure it out : )
>
> $. == the line matched earlier loop until gpgkey ?
>
> --
> samasama
I still don't really understand that line, but here's what I got...
use strict;
use Fcntl;
my $file = "CentOS-Base.repo";
sysopen( REPO_FILE, $file, O_RDWR )
|| die "Can't open repo file !: $!\n";
my $base_line;
my $gpg_line;
while (<REPO_FILE>) {
chomp $_;
if ( $_ =~ /\[base\]/i ) {
$base_line = $.;
print "Found $_ on line $base_line\n";
}
if ( ( $. == $base_line .. /gpgkey\=/i ) =~ /E/ ) {
print "Found $_ on line $.\n";
$gpg_line = $.;
print REPO_FILE "\nfoo\n";
}
This finds the lines correctly but if I try to print after $gpg_line,
the line below gets fubar.
I know I could use Tie::File, but i really want to understand what's
going on and how to insert my line after $gpg_line correctly.
--
samasama
------------------------------
Date: Mon, 6 Nov 2006 12:07:13 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: warnings or -w ?
Message-Id: <MPG.1fb935ceb56f7d89898f0@news.tiscali.fr>
In article <slrnektcuk.i2i.tadmc@tadmc30.august.net>,
tadmc@augustmail.com says...
> [...] *plonk*
>
Your post is totally unuseful, Tad. So, sorry to *double-plonk* at my
turn... [second degree for those who has not access to it]
------------------------------
Date: Mon, 6 Nov 2006 12:42:04 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: warnings or -w ?
Message-Id: <MPG.1fb93df634a25fa39898f1@news.tiscali.fr>
In article <Xns9872A8BAC82DFasu1cornelledu@127.0.0.1>,
1usa@llenroc.ude.invalid says...
> > Not necessary to be agressive unless you spent a bad day :)
>
> He wasn't being agressive, just giving good advice.
>
Not sure... In this thread Sisyphus and you gave me good advice (see
below) !
> I am assuming you are FTP'in these scripts to the FC5 server from a
> Windows computer. In that case, make sure they are transferred in ASCII
> mode.
>
In fact, no : my own stations are one under Windows and the second under
Ubuntu ; however, it's a fact I generally write a first release under
Win, then transfert to Ubuntu for testing and final upload toward
servers. And, in rare case, I ftp upload from Win, ascii mode is well
asociated with .pl extension.
> Your problem very likely has absolutely nothing to do with the warnings
> module, but with the presence of options on the shebang line. For
> example, I am guessing that
>
> #!/usr/bin/perl --
>
You're absolutely right here ! So, I've searched what could be wrong in
the "scripts with problem"... Well, the fact is that, here, every
developer send his work to all other developers for final check and (it
was difficult to figure out)... And the Linux servers on which problem
occured were, all, managed or co-managed by a single man who recently
installed a different Komodo release for his own usage. The problem is
that in these Komodo settings, he (surely not volontarily because it has
not any sense) checked "preserve existing line ending" as "\r\n". So,
even if file were correctly ftp uploaded (with line ending conversion),
this simple checkbox does every scripts which have been re-edited
locally in these Komodo has been changed back with Win style \r\n.
Fortunately this has no influence on final end-user servers because,
after checking and approval of all developers (who report their opinion
back to original developper), the scripts which are finally released are
the one (modified or not) from original plateform.
I've changed by myself this Komodo settings on the FC5 server and
propagated the things toward team for local checking. Solved ! Thanks
------------------------------
Date: Mon, 6 Nov 2006 12:48:07 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: warnings or -w ?
Message-Id: <MPG.1fb93f657e9a9e7e9898f2@news.tiscali.fr>
In article <slrneksqhp.foh.tadmc@tadmc30.august.net>,
tadmc@augustmail.com says...
> One thing to check that has bitten me more than once in the past:
>
> If you leave the semicolon off of the end of the "use warnings",
> then you get messages that seem to come from the Twilight Zone...
>
Solved now (see A. Sinan Unur post and subsequent one), it was a matter
og Komodo settings on this (I hope 'these') server(s).
Thanks anyway
------------------------------
Date: Mon, 6 Nov 2006 15:24:24 +0000 (UTC)
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: warnings or -w ?
Message-Id: <Xns987369DDCC8DEasu1cornelledu@132.236.56.8>
Yohan N Leder <ynl@nsparks.net> wrote in news:MPG.1fb935ceb56f7d89898f0
@news.tiscali.fr:
> In article <slrnektcuk.i2i.tadmc@tadmc30.august.net>,
> tadmc@augustmail.com says...
>> [...] *plonk*
>>
>
> Your post is totally unuseful, Tad. So, sorry to *double-plonk* at my
> turn... [second degree for those who has not access to it]
>
I see your plonk and raise you triple.
Bye bye.
Sinan
------------------------------
Date: Mon, 6 Nov 2006 18:00:36 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: warnings or -w ?
Message-Id: <MPG.1fb9889d60680fc29898f4@news.tiscali.fr>
In article <Xns987369DDCC8DEasu1cornelledu@132.236.56.8>,
1usa@llenroc.ude.invalid says...
> I see your plonk and raise you triple.
>
I'm beaten.
------------------------------
Date: 6 Nov 2006 03:22:46 -0800
From: kjhjhjhjadsasda@urbanhabit.com
Subject: Re: www::mechanize and forms
Message-Id: <1162812166.662835.186090@h54g2000cwb.googlegroups.com>
Whats the command for storing it / retrieving it?
Thanks
On Nov 6, 1:21 am, yankeeinex...@gmail.com wrote:
> kjhjhjhjadsa...@urbanhabit.com writes:
> > Hi, Im working on using www::mechanize to automatically post to a form
> > (login) and then scrape the resulting page, see below code. Where does
> > the resulting page from below get stored?
>
> > ThanksNowhere until you elect to store it.
>
> -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
> Lawrence Statton - lawrena...@abaluon.abaom s/aba/c/g
> Computer software consists of only two components: ones and
> zeros, in roughly equal proportions. All that is required is to
> sort them into the correct order.
------------------------------
Date: Mon, 06 Nov 2006 10:35:04 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: www::mechanize and forms
Message-Id: <454f6434$0$495$815e3792@news.qwest.net>
kjhjhjhjadsasda@urbanhabit.com wrote:
> On Nov 6, 1:21 am, yankeeinex...@gmail.com wrote:
>> kjhjhjhjadsa...@urbanhabit.com writes:
>>> Hi, Im working on using www::mechanize to automatically post to a form
>>> (login) and then scrape the resulting page, see below code. Where does
>>> the resulting page from below get stored?
>>> Thanks
>>>Nowhere until you elect to store it.
That's not true, WWW::Mechanize does store it.
> Whats the command for storing it / retrieving it?
That, along with many other methods, is conveniently documented for you.
Reading it will allow you to learn how to use WWW::Mechanize
effectively. See:
perldoc WWW::Mechanize
Search for '->content'.
------------------------------
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 V10 Issue 9935
***************************************
