[29511] in Perl-Users-Digest
Perl-Users Digest, Issue: 755 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 15 06:09:45 2007
Date: Wed, 15 Aug 2007 03:09:13 -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 Wed, 15 Aug 2007 Volume: 11 Number: 755
Today's topics:
Re: Air conditioners for cars <josef.moellers@fujitsu-siemens.com>
Re: Configuring CGI timeouts <stoupa@practisoft.cz>
Re: FAQ 6.11 Can I use Perl regular expressions to matc sln@netherlands.co
form requires two parameters <nospam@home.com>
Re: form requires two parameters <paduille.4061.mumia.w+nospam@earthlink.net>
Re: Get shell command return value in Perl program. <dummy@example.com>
Re: Matching paired arrays into hash <tadmc@seesig.invalid>
Re: Matching paired arrays into hash xhoster@gmail.com
Re: Matching paired arrays into hash <ced@blv-sam-01.ca.boeing.com>
Re: Matching paired arrays into hash anno4000@radom.zrz.tu-berlin.de
Re: Matching paired arrays into hash <brian.pat.kelly@googlemail.com>
new CPAN modules on Wed Aug 15 2007 (Randal Schwartz)
Re: Perl, Pipes and error return codes (aka ? the Platypus)
Re: problems with LWP & HTTP <stoupa@practisoft.cz>
Re: problems with LWP & HTTP <mail@bymouth.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 15 Aug 2007 09:37:21 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Air conditioners for cars
Message-Id: <f9uafn$vmb$1@nntp.fujitsu-siemens.com>
Martin Griffith wrote:
> On Tue, 14 Aug 2007 14:47:19 -0700, in comp.arch.embedded knjaz
> <knjaz0@gmail.com> wrote:
>=20
>=20
>>Everything you need to know about car air conditioners...
>>
>>http://car-air-conditioning.blogspot.com/
>=20
> Do you do air conditioners for newsgroups?
>=20
> You could make a fortune
But only if they can also be used to blow out all spam.
Josef
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Wed, 15 Aug 2007 02:05:29 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Configuring CGI timeouts
Message-Id: <f9tlek$1079$2@ns.felk.cvut.cz>
harini.gopi@gmail.com wrote:
> Hi,
>
> I have a CGI script wrapped as an exe running on IIS 6.0. It needs to
> parse a 31MB file located on a NFS and redirect the output to another
> CGI script for plotting. It works fine when the file size (that needs
> to be parsed) is smaller but for larger files it just ends abruptly
> without further processing. I understand that this could be because
> the connection timeout for CGI scripts on IIS 6.0 is set to 300 s. But
> there is no GUI in the IIS properties to edit the same. Can someone
Here _IS_ the tool from M$ ;-) I have Czech version of Windows so the names
could be little inaccurate ;-)
Start
Setup
Control Panels
Administration tools (control tools?)
Internet Information Service
Go to "Default Web Server" and select "Propreties from menu "Action". Here
you can change timeout.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Tue, 14 Aug 2007 19:36:37 -0700
From: sln@netherlands.co
Subject: Re: FAQ 6.11 Can I use Perl regular expressions to match balanced text?
Message-Id: <mjp4c3dekhssqme1na9poe676gv9lr9lhg@4ax.com>
On Sun, 12 Aug 2007 06:03:03 -0700, PerlFAQ Server <brian@stonehenge.com> wrote:
See RxParse for an example of factored balanced regular expression for XML
>This is an excerpt from the latest version perlfaq6.pod, which
>comes with the standard Perl distribution. These postings aim to
>reduce the number of repeated questions as well as allow the community
>to review and update the answers. The latest version of the complete
>perlfaq is at http://faq.perl.org .
>
>--------------------------------------------------------------------
>
>6.11: Can I use Perl regular expressions to match balanced text?
>
> Historically, Perl regular expressions were not capable of matching
> balanced text. As of more recent versions of perl including 5.6.1
> experimental features have been added that make it possible to do this.
> Look at the documentation for the (??{ }) construct in recent perlre
> manual pages to see an example of matching balanced parentheses. Be sure
> to take special notice of the warnings present in the manual before
> making use of this feature.
>
> CPAN contains many modules that can be useful for matching text
> depending on the context. Damian Conway provides some useful patterns in
> Regexp::Common. The module Text::Balanced provides a general solution to
> this problem.
>
> One of the common applications of balanced text matching is working with
> XML and HTML. There are many modules available that support these needs.
> Two examples are HTML::Parser and XML::Parser. There are many others.
>
> An elaborate subroutine (for 7-bit ASCII only) to pull out balanced and
> possibly nested single chars, like "`" and "'", "{" and "}", or "(" and
> ")" can be found in
> http://www.cpan.org/authors/id/TOMC/scripts/pull_quotes.gz .
>
> The C::Scan module from CPAN also contains such subs for internal use,
> but they are undocumented.
>
>
>
>--------------------------------------------------------------------
>
>The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
>are not necessarily experts in every domain where Perl might show up,
>so please include as much information as possible and relevant in any
>corrections. The perlfaq-workers also don't have access to every
>operating system or platform, so please include relevant details for
>corrections to examples that do not work on particular platforms.
>Working code is greatly appreciated.
>
>If you'd like to help maintain the perlfaq, see the details in
>perlfaq.pod.
------------------------------
Date: Wed, 15 Aug 2007 01:48:34 GMT
From: "Nospam" <nospam@home.com>
Subject: form requires two parameters
Message-Id: <SXswi.22202$ie3.5141@newsfe3-gui.ntli.net>
I am trying to submit a form that requires hidden fields from another form
on the same page before being submitted the relevant html is: < <form
name="poxy_url_form" method="get" action="/index.php">
<input type="hidden" name="q" value="" id="url_input" />
<input type="hidden" name="hl" value="" />
</form>
<form name="poxy_settings_form" method="get" action="" onsubmit="return
submit_form();">
<table style="width: 100%">
<tr><td class="option" style="width: 20%">URL</td><td class="option"
style="width: 80%"> <input type="text" name="url" size="70" value=""
/></td></tr>
I have tried it with both $mech->submit("poxy_url_form") and
$mech->submit("poxy_settings_form"), the first passes the value but nothing
is submitted. The full code is:
#!/usr/bin/perl;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get("http://witchproxy.info");
$mech->form("poxy_url_form");
$mech->set_visible('poxy_url_form','http://news.google.com');
$mech->form("poxy_settings_form");
$mech->field('url','http://news.google.com');
print $mech->content();
############################################################################
#################
As seen from the print out it doesn't show any content from news.google.com
but just the content from the first url, meaning nothing was submitted to
the form
------------------------------
Date: Tue, 14 Aug 2007 22:19:34 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: form requires two parameters
Message-Id: <13c4ubfsdg7gl1d@corp.supernews.com>
On 08/14/2007 08:48 PM, Nospam wrote:
> I am trying to submit a form that requires hidden fields from another form
> on the same page before being submitted [...]
>
> my $mech = WWW::Mechanize->new();
> $mech->get("http://witchproxy.info");
> [...]
> As seen from the print out it doesn't show any content from news.google.com
> but just the content from the first url, meaning nothing was submitted to
> the form
>
>
That website, witchproxy.info, says that Javascript is required to use
the page. Perhaps they don't want automated access there.
------------------------------
Date: Wed, 15 Aug 2007 03:05:16 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: Get shell command return value in Perl program.
Message-Id: <M3uwi.95979$tB5.32871@edtnps90>
Dan wrote:
> Hi all, I have a Perl script which includes a shell command, I want to
> get the return result from this shell command, but when I check the $?
> value, it is not correct, can anyone tell me how I can get the return
> value?
>
> my perl code:
>
> opendir(DIR, "/log") || die ("Can not open log directory");
> foreach $direntry (readdir(DIR))
> {
> if ($direntry =~ /2007\d{4}/)
> {
> $ja_request = system("grep -i 'INDEX' $BASE/$direntry/
> FILE.log | wc -l");
> }
> }
>
> Basically, I want to search the "INDEX" string, and count the number
> of occurrence in file.LOG file. But the
> $ra_request always is 0.
>
> Can anyone help about this, thanks a lot!
my $ja_request;
{ local @ARGV = glob '/log/*2007[0-9][0-9][0-9][0-9]*/FILE.log';
while ( <> ) {
$ja_request++ while /\bINDEX\b/g;
}
}
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Wed, 15 Aug 2007 01:13:01 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Matching paired arrays into hash
Message-Id: <slrnfc4kkq.egb.tadmc@tadmc30.sbcglobal.net>
kelticeye <brian.pat.kelly@googlemail.com> wrote:
> I was wondering if there is an efficient method in perl for joining
> two (properly ordered) arrays of equal length (@arrayA and @arrayB)
> into a hash(%hash) so that $hash{$arrayA[i]} = $arrayB[i].
See the "Slices" section in perldata, then use a hash slice:
my %hash;
@hash{ @arrayA } = @arrayB;
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: 15 Aug 2007 01:22:34 GMT
From: xhoster@gmail.com
Subject: Re: Matching paired arrays into hash
Message-Id: <20070814212237.902$CD@newsreader.com>
kelticeye <brian.pat.kelly@googlemail.com> wrote:
> Hi, this is my first post to this group.
>
> I was wondering if there is an efficient method in perl for joining
> two (properly ordered) arrays of equal length (@arrayA and @arrayB)
> into a hash(%hash) so that $hash{$arrayA[i]} = $arrayB[i].
@hash{@arrayA}=@arrayB;
This is known as a hash slice.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 14 Aug 2007 18:36:59 -0700
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Matching paired arrays into hash
Message-Id: <1187141819.102328.122570@q4g2000prc.googlegroups.com>
On Aug 14, 4:28 pm, kelticeye <brian.pat.ke...@googlemail.com> wrote:
> Hi, this is my first post to this group.
>
> I was wondering if there is an efficient method in perl for joining
> two (properly ordered) arrays of equal length (@arrayA and @arrayB)
> into a hash(%hash) so that $hash{$arrayA[i]} = $arrayB[i].
use List::MoreUtils qw/mesh/;
my %hash = mesh @arrayA, @arrayB;
>
> I need to do this as the first list is part of an incremental query to
> a webform, and if the response is as expected (split up with a regex),
> this should be proportional to the query and ordered in the same way
> as the query.
>
> Presently I do this through a loop, however this is ugly, creating
> iterating variables and I feel I am missing a trick (BTW this does
> work):-
>
> my %HresHash;
> if (scalar(@residuelist) == scalar(@fullH)){
> for (my $i = 0; $i < scalar(@fullH) ; $i++){
> my $reskey = "res".$fullH[$i]; # this is done as I want
> to add it to a global hash later
> $HresHash{$reskey}= $residuelist[$i];
> }
> }
>
Not sure how this follow-on example relates to
your earlier problem statement.
--
Charles DeRykus
------------------------------
Date: 15 Aug 2007 07:46:31 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Matching paired arrays into hash
Message-Id: <5ifpanF3p5bkeU1@mid.dfncis.de>
kelticeye <brian.pat.kelly@googlemail.com> wrote in comp.lang.perl.misc:
> Hi, this is my first post to this group.
>
> I was wondering if there is an efficient method in perl for joining
> two (properly ordered) arrays of equal length (@arrayA and @arrayB)
> into a hash(%hash) so that $hash{$arrayA[i]} = $arrayB[i].
Xho and Tad have shown the basic method of using a hash slice to do
this.
[...]
> my %HresHash;
> if (scalar(@residuelist) == scalar(@fullH)){
> for (my $i = 0; $i < scalar(@fullH) ; $i++){
> my $reskey = "res".$fullH[$i]; # this is done as I want
> to add it to a global hash later
> $HresHash{$reskey}= $residuelist[$i];
> }
> }
Applying the slice method to reproduce the result of your loop:
my %HresHash;
@HresHash{ map "res$_", @fullH} = @residuelist;
Anno
------------------------------
Date: Wed, 15 Aug 2007 01:21:53 -0700
From: kelticeye <brian.pat.kelly@googlemail.com>
Subject: Re: Matching paired arrays into hash
Message-Id: <1187166113.203148.150660@w3g2000hsg.googlegroups.com>
Tad McClellan <ta...@seesig.invalid> wrote:
> >See the "Slices" section in perldata, then use a hash slice:
> >
> > my %hash;
> > @hash{ @arrayA } = @arrayB;
>
> On Aug 15, 8:46 am, anno4...@radom.zrz.tu-berlin.de wrote:
> Applying the slice method to reproduce the result of your loop:
> On Aug 15, 8:46 am, anno4...@radom.zrz.tu-berlin.de wrote:
> my %HresHash;
> @HresHash{ map "res$_", @fullH} = @residuelist;
>
> Anno
Thank you all for your excellent response to my post and making me
aware of the concise power of hash slices.
Thank you, particularly to Anno for the tailored solution for my code.
I imagine this being very useful to know in future.
Regards,
Brian
------------------------------
Date: Wed, 15 Aug 2007 04:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Aug 15 2007
Message-Id: <JMst2E.298@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-ESP-1.002001
http://search.cpan.org/~tyemq/Acme-ESP-1.002001/
The power to implant and extract strings' thoughts.
----
Bigtop-0.30
http://search.cpan.org/~philcrow/Bigtop-0.30/
A web application data language processor
----
Bricklayer-Templater-0.9.2
http://search.cpan.org/~zaphar/Bricklayer-Templater-0.9.2/
yet another templating system. Pure perl, highly flexible with very few dependincies.
----
Class-DBI-Audit-0.02
http://search.cpan.org/~bduggan/Class-DBI-Audit-0.02/
Audit changes to columns in CDBI objects.
----
Class-Plugin-Util-0.005
http://search.cpan.org/~asksh/Class-Plugin-Util-0.005/
Utility functions for supporting Plug-ins.
----
Class-Plugin-Util-0.006
http://search.cpan.org/~asksh/Class-Plugin-Util-0.006/
Utility functions for supporting Plug-ins.
----
DashProfiler-1.06
http://search.cpan.org/~timb/DashProfiler-1.06/
collect call count and timing data aggregated by context
----
Data-Passphrase-0.0.7
http://search.cpan.org/~korty/Data-Passphrase-0.0.7/
rule-based passphrase strength checker
----
Devel-PPPort-3.11_03
http://search.cpan.org/~mhx/Devel-PPPort-3.11_03/
Perl/Pollution/Portability
----
Dir-Self-0.02
http://search.cpan.org/~mauke/Dir-Self-0.02/
a __DIR__ constant for the directory your source file is in
----
Egg-Release-2.23
http://search.cpan.org/~lushe/Egg-Release-2.23/
Version of Egg WEB Application Framework.
----
File-BSED-0.67
http://search.cpan.org/~asksh/File-BSED-0.67/
Search/Replace in Binary Files.
----
File-Monitor-Simple-0.99_1
http://search.cpan.org/~markstos/File-Monitor-Simple-0.99_1/
Watch for changed application files
----
Geo-ICAO-0.32
http://search.cpan.org/~jquelin/Geo-ICAO-0.32/
Airport and ICAO codes lookup
----
Geo-ICAO-0.33
http://search.cpan.org/~jquelin/Geo-ICAO-0.33/
Airport and ICAO codes lookup
----
Getopt-LL-0.0.5
http://search.cpan.org/~asksh/Getopt-LL-0.0.5/
Flexible argument processing.
----
Lingua-Any-Numbers-0.11
http://search.cpan.org/~burak/Lingua-Any-Numbers-0.11/
Converts numbers into (any available language) string.
----
Lingua-Any-Numbers-0.12
http://search.cpan.org/~burak/Lingua-Any-Numbers-0.12/
Converts numbers into (any available language) string.
----
Linux-SysInfo-0.06
http://search.cpan.org/~vpit/Linux-SysInfo-0.06/
Perl interface to the sysinfo(2) Linux system call.
----
Mail-Karmasphere-Client-2.12
http://search.cpan.org/~shevek/Mail-Karmasphere-Client-2.12/
Client for Karmasphere Reputation Server
----
Math-Factor-XS-0.34
http://search.cpan.org/~schubiger/Math-Factor-XS-0.34/
Factorise numbers and calculate matching multiplications
----
MySQL-Easy-2.0.1
http://search.cpan.org/~jettero/MySQL-Easy-2.0.1/
Perl extension to handle various mundane DBI session related things specific to mysql.
----
Net-CIDR-Compare-0.03
http://search.cpan.org/~grjones/Net-CIDR-Compare-0.03/
Find intersections across multiple lists of CIDR ranges, fast.
----
Net-LDAP-HTMLWidget-0.04
http://search.cpan.org/~andremar/Net-LDAP-HTMLWidget-0.04/
Like FromForm but with Net::LDAP and HTML::Widget
----
Net-SMS-2Way-0.01
http://search.cpan.org/~lengel/Net-SMS-2Way-0.01/
BulkSMS API
----
Net-XMPP2-0.07
http://search.cpan.org/~elmex/Net-XMPP2-0.07/
An implementation of the XMPP Protocol
----
Number-Phone-NO-0.04
http://search.cpan.org/~andremar/Number-Phone-NO-0.04/
Norwegian subclass of Number::Phone
----
Number-Phone-NO-0.05
http://search.cpan.org/~andremar/Number-Phone-NO-0.05/
Norwegian subclass of Number::Phone
----
POE-Component-Client-SMTP-0.17
http://search.cpan.org/~ultradm/POE-Component-Client-SMTP-0.17/
Asynchronous mail sending with POE
----
POE-Component-Generic-0.1002
http://search.cpan.org/~gwyn/POE-Component-Generic-0.1002/
A POE component that provides non-blocking access to a blocking object.
----
POE-Component-Generic-0.1003
http://search.cpan.org/~gwyn/POE-Component-Generic-0.1003/
A POE component that provides non-blocking access to a blocking object.
----
POE-Component-Server-NRPE-0.04
http://search.cpan.org/~bingos/POE-Component-Server-NRPE-0.04/
A POE Component implementation of NRPE Daemon.
----
Pod-Coverage-Moose-0.01
http://search.cpan.org/~phaylon/Pod-Coverage-Moose-0.01/
Pod::Coverage extension for Moose
----
RT-Extension-LDAPImport-0.03
http://search.cpan.org/~falcone/RT-Extension-LDAPImport-0.03/
Import Users from an LDAP store
----
SMS-AQL-0.05
http://search.cpan.org/~bigpresh/SMS-AQL-0.05/
Perl extension to send SMS text messages via AQ's SMS service
----
Statistics-Gtest-0.03
http://search.cpan.org/~dcfleck/Statistics-Gtest-0.03/
calculate G-statistic for tabular data
----
String-REPartition-1.6
http://search.cpan.org/~avif/String-REPartition-1.6/
Generates a regex to partition a data set
----
WWW-Myspace-0.69
http://search.cpan.org/~grantg/WWW-Myspace-0.69/
Access MySpace.com profile information from Perl
----
Web-Scraper-0.08
http://search.cpan.org/~miyagawa/Web-Scraper-0.08/
Web Scraping Toolkit inspired by Scrapi
----
Win32-Process-CommandLine-0.03
http://search.cpan.org/~kxj/Win32-Process-CommandLine-0.03/
Perl extension for getting win32 process command line parameters
----
XML-Compile-0.52
http://search.cpan.org/~markov/XML-Compile-0.52/
Compilation based XML processing
----
pmv-0.02
http://search.cpan.org/~jv/pmv-0.02/
rename files using Perl expressions
----
pmv-0.03
http://search.cpan.org/~jv/pmv-0.03/
rename files using Perl expressions
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Wed, 15 Aug 2007 02:25:52 GMT
From: "David Formosa (aka ? the Platypus)" <dformosa@usyd.edu.au>
Subject: Re: Perl, Pipes and error return codes
Message-Id: <slrnfc4pgn.219.dformosa@localhost.localdomain>
On Mon, 13 Aug 2007 21:38:23 -0500, Neil Cherry <njc@cookie.uucp> wrote:
> I need to run an external script and have its output displayed to
> the user while running. No problem something like this works fine:
>
> open(IN, "cat file|");
> while(<IN>) {
> print ;
>}
> close IN;
>
> But what if cat returns an error in the middle of cat'ng the file?
When you close the file handle the close will return a false value.
You can then examine the contents of $? to find out what happened.
perldoc -f close
Contains the docs.
------------------------------
Date: Wed, 15 Aug 2007 01:55:01 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: problems with LWP & HTTP
Message-Id: <f9tlek$1079$1@ns.felk.cvut.cz>
stephenc wrote:
> Hi
>
> I am trying to log into a secur site using this:
>
> use LWP;
> use Crypt::SSLeay;
> use HTTP::Request::Common qw(POST);
>
> my $ua = new LWP::UserAgent;
>
>
>
>
> my $req = POST 'https://www.secure.********.com.au/Cardlink/
> LoginServlet',
> [ 'UserID' => '*********',
> 'Password' => '********',
> 'Submit' => 'Submit'
> ];
>
> print $req->as_string;
> my $res = $ua->request($req)
> print $response->content();
>
last line should be
print $res->content();
Isn't true?
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Tue, 14 Aug 2007 23:58:39 -0700
From: stephenc <mail@bymouth.com>
Subject: Re: problems with LWP & HTTP
Message-Id: <1187161119.854530.123870@q3g2000prf.googlegroups.com>
OK, this code does compile but I have had to change my user id and
pasword for obvious reasons:
use LWP;
use Crypt::SSLeay;
use HTTP::Request::Common qw(POST);
my $ua = new LWP::UserAgent;
my $req = POST 'https://www.secure.cardlink.com.au/Cardlink/
LoginServlet',
[ 'UserID' => 'abshidf',
'Password' => 'oddhfhg',
'Submit' => 'Submit'
];
print $req->as_string;
my $res = $ua->request($req);
print $res->content();
It still hangs!
On Aug 15, 9:55 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
> stephenc wrote:
> > Hi
>
> > I am trying to log into a secur site using this:
>
> > use LWP;
> > use Crypt::SSLeay;
> > use HTTP::Request::Common qw(POST);
>
> > my $ua = new LWP::UserAgent;
>
> > my $req = POST 'https://www.secure.********.com.au/Cardlink/
> > LoginServlet',
> > [ 'UserID' => '*********',
> > 'Password' => '********',
> > 'Submit' => 'Submit'
> > ];
>
> > print $req->as_string;
> > my $res = $ua->request($req)
> > print $response->content();
>
> last line should be
>
> print $res->content();
>
> Isn't true?
>
> --
>
> Petr Vileta, Czech republic
> (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> from another non-spammer site please.)- Hide quoted text -
>
> - Show quoted text -
------------------------------
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 755
**************************************
