[28774] in Perl-Users-Digest
Perl-Users Digest, Issue: 18 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 12 14:05:56 2007
Date: Fri, 12 Jan 2007 11:05:05 -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 Fri, 12 Jan 2007 Volume: 11 Number: 18
Today's topics:
Re: DB_File tie error <jehutz@artsci.wustl.edu>
Re: Devel::Cover How to get a more indepth report <Peter@PSDT.com>
Re: if (! mkdir $dir) joez3@yahoo.com
Re: link text in sendMail <tfeserver@gmail.com>
Re: Perl free e-books (on aioe)
Re: Perl free e-books <uri@stemsystems.com>
Re: Perl free e-books <john@castleamber.com>
Re: Perl free e-books <anonymous@127.0.0.1>
Re: Perl free e-books <segraves_f13@mindspring.com>
Re: Perl free e-books <segraves_f13@mindspring.com>
Re: This is strange!!! What happens in here??? <Remus.SEPP@t-mobile.co.uk>
Trying to extract Headings from a Word 2003 document us <kleefaj@gmail.com>
Trying to extract Headings from a Word 2003 document us <kleefaj@gmail.com>
Re: Trying to extract Headings from a Word 2003 documen (on aioe)
Re: Trying to extract Headings from a Word 2003 documen <kleefaj@gmail.com>
Re: Trying to extract Headings from a Word 2003 documen (on aioe)
Unix commands <kgardine+usenet@cis.strath.ac.uk>
Re: Unix commands <tfeserver@gmail.com>
Re: Unix commands <jurgenex@hotmail.com>
Re: Unix commands <cgrady357@gmail.com>
Re: Unix commands xhoster@gmail.com
WWW:Mechanize single quotes around URL causes problem <randall.belk@knology.net>
Re: WWW:Mechanize single quotes around URL causes probl <mritty@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Jan 2007 08:21:31 -0800
From: "Janna" <jehutz@artsci.wustl.edu>
Subject: Re: DB_File tie error
Message-Id: <1168618891.117799.81500@11g2000cwr.googlegroups.com>
This seems to be the trick - thanks to everyone for your help!
Paul Marquess wrote:
> You sometimes set this before opening a database
>
> $DB_BTREE->{'flags'} = R_DUP;
>
> The problem with that is $DB_BTREE is a global data structure, so once set
> it will remain set till the program terminates or something else changes
> it. You don't change it.
>
> So if your LIT block sets it, it will still remain set when the CON block is
> executed. But if the LIT block isn't executed, the CON block will be
> executed without R_DUP. This is a bad idea. You should reset
> $DB_BTREE->{'flags'} after each tie.
>
> Paul
------------------------------
Date: Fri, 12 Jan 2007 14:45:05 GMT
From: Peter Scott <Peter@PSDT.com>
Subject: Re: Devel::Cover How to get a more indepth report
Message-Id: <pan.2007.01.12.14.45.04.208832@PSDT.com>
On Thu, 11 Jan 2007 08:54:56 -0600, Billy Patton wrote:
> Peter Scott wrote:
>> Have you run the (default) HTML report? In cover_db/ you get
>> coverage.html, containing a table with modules in the first column, each
>> of which is a link to a page showing a table containing every line
>> preceded by cells reporting its coverage. The first cell is the number of
>> times the line was called and it's red if the number is zero.
>>
> Yea I found the html after running cover.
> What I don't know is exactly what the column abbreviations for t he
> column names.
If all you're interested in is the number of times a line was visited,
that's in the first column and you can ignore the rest. They're explained
in the tutorial that comes with Devel::Cover (search.cpan.org is your
friend).
--
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/
------------------------------
Date: 12 Jan 2007 07:07:16 -0800
From: joez3@yahoo.com
Subject: Re: if (! mkdir $dir)
Message-Id: <1168614436.585684.266460@s34g2000cwa.googlegroups.com>
Thanks this work, I'll try an new version of perl and see what else
doesn't work
jl_post@hotmail.com wrote:
> j...@yahoo.com wrote:
> >
> > if (! mkdir $dir)
> >
> > When I try to run this code no matter what I set $dir to it fails with:
> > Not enough arguments for mkdir at test.pl line 11, near "$dir ) "
> > Execution of test.pl aborted due to compilation errors.
>
>
> If you're using an older version of Perl, the mkdir() function may
> be expecting a MASK parameter. Type "perldoc -f mkdir" to see if this
> additional parameter is required (which I suspect is the case).
>
> If that's the case, try changing your line to:
>
> if (! mkdir $dir, 0777)
>
> and see if that works.
>
> I hope this helps, Zim.
>
> -- Jean-Luc
------------------------------
Date: 12 Jan 2007 06:45:44 -0800
From: "tfe" <tfeserver@gmail.com>
Subject: Re: link text in sendMail
Message-Id: <1168613144.320514.295170@l53g2000cwa.googlegroups.com>
Jaks ha escrito:
> I have the following code in a sub sendMail
>
> $link1 =
> "mailto:jacqueline.penny@btopenworld.com?subject=Account&body=Please%20set%20my%20address%20to%20$address1";
>
> $link2 =
> "mailto:jacqueline.penny@btopenworld.com?subject=Account&body=Please%20set%20my%20address%20to%20$address2";
>
> print MAIL "
> I would like $link1 to be my primary address
>
> I would like $link2to be my primary address";
>
> close (MAIL);
>
> In the generated email the following text is displayed
>
> I would like
> mailto:jacqueline.penny@btopenworld.com?subject=Account&body=Please%20set%20my%20address%20to%20Banbridge
> to be my primary address.
>
> How do I get the link text to be displayed as the address ie
>
> I would like Banbridge to be my primary address.
>
>
> Any help would be much appreciated.
>
> JP
Hello,
You should extract the email adress from the variables $link1 and
$link2 and then lines like:
<a href="$link1">$real_email_adress</a>
An idea of code is:
print MAIL "I would like <a href=\"$link1\">".
($link1 =~ /mailto:(.+?)\@/)[0].
."</a> to be my primary address. ";
--
tfe
http://tfeserver.be
------------------------------
Date: Fri, 12 Jan 2007 08:03:36 -0600
From: "Mumia W. (on aioe)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Perl free e-books
Message-Id: <eo88ns$b3g$1@aioe.org>
On 01/12/2007 06:55 AM, Shuo Shi wrote:
> "Uri Guttman" <uri@stemsystems.com> wrote in message
> news:x7zm8pzamj.fsf@mail.sysarch.com...
>> go to learn.perl.org and you will find the book beginning perl which is
>> totally free, good quality and in pdf format. you can also print the
>> perldocs in almost any format you want. look for pod to pdf conversion
>> utilities if you must use that. but you can print the perldocs from man
>> format, plain text, ps or others. so don't keep whining you must have
>> pdf format if you are just going to print the docs. and the docs are
>> your best resource for learning perl. there are over 1000 pages of them.
>> don't print them all, look in the top level doc called just 'perl' and
>> it lists them all by category.
>>
>> uri
>>
> I can find this book, but it is not really free downloaded. You see the
> below content shown in learn.perl.org web page
> =====================================================================================================
> Beginning Perl
> by Simon Cozens, Peter Wainwright. 700 pages. Wrox Press, Inc.. (May 25,
> 2000).
> Beginning Perl is a different kind of Perl book. [...]
I'm amazed by the latitude you're getting in this newsgroup Shuo Shi.
You're still getting expert advice despite the facts that you ignore
half of it, and you *always* top-post.
http://www.perl.org/books/beginning-perl/
http://perldoc.perl.org/
If you are unable to find free PDF files at those sites, I'm going to be
amazed again. :-)
Shuo Shi, it's in your best interest to read and follow the posting
guidelines for this newsgroup:
http://www.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
It's in your best interest to stop top-posting:
http://www.xs4all.nl/~hanb/documents/quotingguide.html
--
paduille.4060.mumia.w@earthlink.net
Windows Vista and your
freedom in conflict: http://www.badvista.org/
http://home.earthlink.net/~mumia.w.18.spam/
------------------------------
Date: Fri, 12 Jan 2007 11:08:16 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl free e-books
Message-Id: <x7fyagw7m7.fsf@mail.sysarch.com>
>>>>> "SS" == Shuo Shi <moya0901@126.com> writes:
SS> I just wanna make the format of my message as "Times New Roman", not the
SS> default format of Plain Text file.
STOP TOP POSTING.
and usenet is a PLAIN TEXT only medium. no one cares about your
formatting requests. html IS NOT ACCEPTED.
THE BOOK I TOLD YOU IS FREE. it SAYS that on the page. the author has
MADE IT FREE FOR YEARS. DO YOU UNDERSTAND?
you have exhausted my patience. you seem to understand english well
enough but you are not listening.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 12 Jan 2007 17:07:16 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Perl free e-books
Message-Id: <Xns98B6712051B7Acastleamber@130.133.1.4>
"Shuo Shi" <moya0901@126.com> wrote:
> I can find this book,
Please print out one of the following pages first:
<http://www.google.com/search?q=top%20posting>
> but it is not really free downloaded.
I want a nice house for free, if you can arrange that, I'll sent you the
book for free.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 12 Jan 2007 12:13:28 -0500
From: "Jim Carlock" <anonymous@127.0.0.1>
Subject: Re: Perl free e-books
Message-Id: <45a7c1b8$0$9604$4c368faf@roadrunner.com>
"Shuo Shi" <moya0901@126.com> wrote:
: I just wanna make the format of my message as "Times New Roman",
: not the default format of Plain Text file.
Hello again, Shuo,
Take a look at how the folks are writing the messages. On this
particular message, I placed the content of your message at the
top of this message. Then I replied.
However, when you reply to folks here, you place your reply at
the top of the message and place what you're replying to under-
neath that. That's called top-posting. It breaks up the harmony
of reading the message. Think of the newsgroup as an orchestra
where each note of music gets played in a specific order. The
newsgroup works in the same way, and it's much friendlier to
place the content of what you are replying to at the top of the
message.
Now, for your question. I like the Times New Roman font for
reading as well. That's an easy fix inside of Outlook Express.
(1) Click on the Tools menu item.
(2) Click on the Options menu item.
(3) On the Options dialog (window), click upon the Read tab.
(4) Click upon the Fonts... button.
(5) For the Proportional Font: item, set it to Times New Roman.
(6) Click OK to save the settings, and do that for the rest of the
windows until you get back to the Options dialog. That should
take care of your Times New Roman problem for reading the
newsgroups. It also works for composing, but... there's another
tab called Compose... That tab gets used when creating a new
message, although I haven't had a need to set those options, as
the default "Proportional Font:" we set in the previous steps
seems to do it all. But if you run into any problems, perhaps set
the fonts inside the Compose tab also.
Hope this helps.
--
Jim Carlock
Post replies to the group.
------------------------------
Date: Fri, 12 Jan 2007 18:47:19 GMT
From: "Bill Segraves" <segraves_f13@mindspring.com>
Subject: Re: Perl free e-books
Message-Id: <XIQph.10235$w91.5690@newsread1.news.pas.earthlink.net>
"Shuo Shi" <moya0901@126.com> wrote in message
news:eo7vok$8s1$1@az33news01.freescale.net...
> I can find this book, but it is not really free downloaded.
Yes, it is.
http://www.perl.org/books/beginning-perl/
The links to the content (as PDFs) appear in the right-hand column of the
page.
--
Bill Segraves
------------------------------
Date: Fri, 12 Jan 2007 18:47:20 GMT
From: "Bill Segraves" <segraves_f13@mindspring.com>
Subject: Re: Perl free e-books
Message-Id: <YIQph.10236$w91.7480@newsread1.news.pas.earthlink.net>
"Shuo Shi" <moya0901@126.com> wrote in message
news:eo76lf$3ld$1@az33news01.freescale.net...
> Yes, it is just what I want to read the hard copies of books, so I should
> buy the books from bookstore, however, I am in China, I cannot find any
good
> book about Perl, whatever is from bookstore or online shop.
Manning Publications, www.manning.com, sells eBook versions of their books.
Please let us know if you can't find "any good book about Perl" there. I'm
sure you'll find at least one, if you look hard enough.
In addition, you seem to be obsessed with PDF as the format for your reading
matter. Manning's eBooks are all in PDF format. In addition, if you really,
really have to have your Perl reading matter in PDF format, you should
consider purchasing Bruno Lowagie's book, _iText in Action_, available for
purchase in both oprint and eBook editions at www.manning.com/lowagie. With
iText, you should be able to convert to PDF yourself.
> Frankly
> speaking, Perl is not very popular and welcomed by programmers in China,
all
> books in bookstore's shelves are about C++, Java, VB.net etc--- no good
> books are available to see. If you don't believe it, you can come to China
> to see what happens to Perl here?
> So I need your help to get online free book which owns PDF format, and
then
> print it book.
Manning has free sample chapters of many of their eBooks available on their
web site.
--
Bill Segraves
------------------------------
Date: 12 Jan 2007 08:58:52 -0800
From: "trxrse" <Remus.SEPP@t-mobile.co.uk>
Subject: Re: This is strange!!! What happens in here???
Message-Id: <1168621131.973284.261170@l53g2000cwa.googlegroups.com>
Thanks very much both, that was the problem!!!
trxrse
hymie! wrote:
> In our last episode, the evil Dr. Lacto had captured our hero,
> "trxrse" <Remus.SEPP@t-mobile.co.uk>, who said:
> >I have a piece of code and I really don't understand what's
> >happening...
>
> Found it.
>
> >print "Parent continues now...\n";
> ># Parent - wait for returned data
> >while (&sum_pids > 0) {
> > print "sum_pids=",&sum_pids,"\n";
> > while (! $gotone){
> > sleep 1;
> > print "Slept 1\n";
> > }
> > $gotone=0;
> > print "finished_child=$finished_child","\n";
> > foreach (@kids){
> vvvvv
> > if ($finished_child=$_){
> ^^^^^
> > print "\$finished_child=",$finished_child,"\n";
> > print "\$_=",$_,"\n";
> > print "I am the parent and process $_ finished!!!\n";
> > $_=0;
> > }
> > }
> >}
>
> As soon as you finish your first child, you declare them all finished.
> Thus the while loop only runs once.
>
> hymie! http://www.smart.net/~hymowitz hymie@lactose.homelinux.net
> ===============================================================================
> When speaking to a Bear of Very Little Brain, remember that long words may
> Bother him. -- Winnie the Pooh
> ===============================================================================
------------------------------
Date: 12 Jan 2007 06:53:34 -0800
From: "kleefaj@gmail.com" <kleefaj@gmail.com>
Subject: Trying to extract Headings from a Word 2003 document using Perl
Message-Id: <1168613614.096022.322170@i15g2000cwa.googlegroups.com>
Greetings.
I'm trying to extract the Headings from a Word 2003 document using
Perl. The VBA version of this script works.
Here's the script:
==============================
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->Documents->Open("C:\\mydoc.doc") || die("Unable to open document
", Win32::OLE->LastError());
my @i =
$Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading);
foreach (@i) {
# print "$_\n";
print "got one!\n";
}
$Word->Quit;
print "Done!\n";
==============================
This line
$Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading)
should return an array of strings. It works in VBA. I commented out
print "$_\n";
so I could see if the loop runs at all. My output is
got one!
Done!
but I'm expecting to see "got one!" about twenty times. I figure it has
something to do with the way I'm loading the array.
Any thoughts?
-Jeff
------------------------------
Date: 12 Jan 2007 07:20:40 -0800
From: "kleefaj@gmail.com" <kleefaj@gmail.com>
Subject: Trying to extract Headings from a Word 2003 document using Perl
Message-Id: <1168615240.612407.244250@q2g2000cwa.googlegroups.com>
Here's the script:
==============================
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->Documents->Open("C:\\mydoc.doc") || die("Unable to open document
",
Win32::OLE->LastError());
my @i =
$Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading);
foreach (@i) {
# print "$_\n";
print "got one!\n";
}
$Word->Quit;
print "Done!\n";
==============================
This line
$Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading)
should return an array of strings. It works in VBA. I commented out
print "$_\n";
so I could see if the loop runs at all. My output is
got one!
Done!
but I'm expecting to see "got one!" about twenty times. I figure it has
something to do with the
way I'm loading the array.
By the way, when I assign the return value of the
GetCrossReferenceItems to a scalar (instead of an array) I get the
following output:
ARRAY(0x1bfc7a8)Done!
Any thoughts?
-Jeff
------------------------------
Date: Fri, 12 Jan 2007 10:21:52 -0600
From: "Mumia W. (on aioe)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Trying to extract Headings from a Word 2003 document using Perl
Message-Id: <eo8chp$jnc$1@aioe.org>
On 01/12/2007 09:20 AM, kleefaj@gmail.com wrote:
> [...]
> By the way, when I assign the return value of the
> GetCrossReferenceItems to a scalar (instead of an array) I get the
> following output:
>
> ARRAY(0x1bfc7a8)Done!
>
> Any thoughts?
>
> -Jeff
>
It's time for you to (re)read "perldoc perlref"
my $i =
$Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading);
foreach (@$i) {
print "$_\n";
print "got one!\n";
}
--
paduille.4060.mumia.w@earthlink.net
Windows Vista and your
freedom in conflict: http://www.badvista.org/
http://home.earthlink.net/~mumia.w.18.spam/
------------------------------
Date: 12 Jan 2007 08:30:12 -0800
From: "kleefaj@gmail.com" <kleefaj@gmail.com>
Subject: Re: Trying to extract Headings from a Word 2003 document using Perl
Message-Id: <1168619408.137100.307360@s34g2000cwa.googlegroups.com>
Mumia W. (on aioe) wrote:
>
> It's time for you to (re)read "perldoc perlref"
>
> my $i =
> $Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading);
> foreach (@$i) {
> print "$_\n";
> print "got one!\n";
> }
>
Excellent!! That was it!
Thanks,
Jeff
------------------------------
Date: Fri, 12 Jan 2007 10:49:28 -0600
From: "Mumia W. (on aioe)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Trying to extract Headings from a Word 2003 document using Perl
Message-Id: <eo8ein$oet$1@aioe.org>
On 01/12/2007 10:30 AM, kleefaj@gmail.com wrote:
> Mumia W. (on aioe) wrote:
>
>> It's time for you to (re)read "perldoc perlref"
>>
>> my $i =
>> $Word->ActiveDocument->GetCrossReferenceItems(wdRefTypeHeading);
>> foreach (@$i) {
>> print "$_\n";
>> print "got one!\n";
>> }
>>
>
> Excellent!! That was it!
>
> Thanks,
> Jeff
>
You're welcome.
Did you read "perldoc perlref"?
------------------------------
Date: Fri, 12 Jan 2007 14:14:09 +0000
From: Kim Gardiner CS2003 <kgardine+usenet@cis.strath.ac.uk>
Subject: Unix commands
Message-Id: <45a797b1$1@nntphost.cis.strath.ac.uk>
Can you issue UNIX commands using Perl?
Thanks.
------------------------------
Date: 12 Jan 2007 06:31:49 -0800
From: "tfe" <tfeserver@gmail.com>
Subject: Re: Unix commands
Message-Id: <1168612309.062884.303720@51g2000cwl.googlegroups.com>
Kim Gardiner CS2003 ha escrito:
> Can you issue UNIX commands using Perl?
>
> Thanks.
Hello,
Sure and "there is more than one way to do it" ...
qx! command with args!;
system("Command","arg1","arg2",...);
`command with args`
open(PIPE, "command |");
--
tfe
http://tfeserver.be
------------------------------
Date: Fri, 12 Jan 2007 16:12:40 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Unix commands
Message-Id: <YrOph.16$tZ.12@trndny05>
Kim Gardiner CS2003 wrote:
> Can you issue UNIX commands using Perl?
Sure you can, provided your operating system supports them.
jue
------------------------------
Date: 12 Jan 2007 08:37:14 -0800
From: "Craig" <cgrady357@gmail.com>
Subject: Re: Unix commands
Message-Id: <1168619833.973662.3530@38g2000cwa.googlegroups.com>
Kim Gardiner CS2003 wrote:
> Can you issue UNIX commands using Perl?
The previous respondents gave you good advice. You can get more
detailed information on the system and exec commands in perlfunc. If
you use system, remember to check the return code from the OS.
system($cmd)==0 or die("Cannot $cmd ", $?);
------------------------------
Date: 12 Jan 2007 19:05:39 GMT
From: xhoster@gmail.com
Subject: Re: Unix commands
Message-Id: <20070112130327.123$1N@newsreader.com>
Kim Gardiner CS2003 <kgardine+usenet@cis.strath.ac.uk> wrote:
> Can you issue UNIX commands using Perl?
That depends. Are you running Perl on UNIX? If not, can you ssh or rsh
into UNIX from whereever you are running Perl?
if (so) {
system "echo yes";
else {
system "echo no";
};
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 12 Jan 2007 08:54:17 -0800
From: "Randall" <randall.belk@knology.net>
Subject: WWW:Mechanize single quotes around URL causes problem
Message-Id: <1168620857.107416.14590@a75g2000cwd.googlegroups.com>
I used this code to post a form:
$agent->form(1);
$agent->field("Email", xxxxxxxxxxxt');
$agent->field("Passwd", 'xxxxxxxx');
$agent->untick("PersistentCookie", "yes");
$agent->click();
Here is the page that was returned:
<html> <head> <title> Redirecting </title> <meta content="0;
url='http://video.google.com/'" http-equiv="refresh"> </head> <body
alink="#ff0000" text="#000000" vlink="#551a8b" link="#0000cc"
bgcolor="#ffffff"> <script type="text/javascript"
language="javascript"><!--
location.replace("http://video.google.com/")
//--> </script> </body> </html>
I processed the page like this:
my $link = $agent->find_link();
my $l = $link->url();
print $l;
Output: 'http://video.google.com/'
I then take $l and do a get.
$agent->get($l);
print $agent->uri() . "\n";
Output: http://www.google.com
For some reason when find_link() grabs the link it also grabs the
single quotes around the link. This apparently causes get() to drop
the subdomain??
If I redefine $l without the single quotes like this:
$l="http://video.google.com";
Then the correct page is retrieved.
Has anyone seen this before?
This is my first experience with Mechanize so maybe (probably) I'm
just missing something.
------------------------------
Date: 12 Jan 2007 10:52:23 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: WWW:Mechanize single quotes around URL causes problem
Message-Id: <1168627943.023049.91870@11g2000cwr.googlegroups.com>
Randall wrote:
> I used this code to post a form:
>
> $agent->form(1);
> $agent->field("Email", xxxxxxxxxxxt');
> $agent->field("Passwd", 'xxxxxxxx');
> $agent->untick("PersistentCookie", "yes");
> $agent->click();
No you don't, since that code is a syntax error. Please post your
*real* short-but-complete script that demonstrates your error, via a
copy and paste.
[remainder of post snipped and not read]
Paul Lalli
------------------------------
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 18
*************************************
