Wow its working now. Must have been staring at the code to long and was
missing some obvious type... Thanks!!
How can I parse $a->content?
I must be missing something.
If I try to foreach ($a -> content){
if (/someregeq/){
print "$_\n";
}
}
It always prints. This is because all of content is look at as 1
element.
If I assign it to an array first I get the some kind of response. If I
try and use a while loop it just hangs indefinitely.
I know this is something easy.
Paul
-----Original Message-----
From: Kevin Old [mailto:[EMAIL PROTECTED]
Sent: Thursday, November 13, 2003 4:51 PM
To: [EMAIL PROTECTED]
Cc: 'Beginners Perl'
Subject: Re: Mechanize
On Thu, 2003-11-13 at 16:41, Paul Kraus wrote:
> Is it possible to connect to a 128bit encrypted web site with
> www::mechinize?
>
> My boss wants me to write a script that will get a daily report for
> some of our financial web sites and merchant accounts.
>
> This is kind of high priority so the sooner you can help the better.
>
> This is the address I am trying to connect to
> https://webproe3.keybank.com/scripts/ndpluginisapi.dll/gtmCmHome/pgAut
> ho
> rization
>
> But it fails every time returning nothing.
>
> Paul
Paul,
Yes, it can be done....this code works for me:
#!/usr/bin/perl
#
use warnings;
use strict;
use WWW::Mechanize;
my $m = WWW::Mechanize->new;
$m->get("https://webproe3.keybank.com/scripts/ndpluginisapi.dll/gtmCmHom
e/pgAuthorization");
print $m->content();
Hope this helps,
Kevin
--
Kevin Old <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
