[23282] in Perl-Users-Digest
Perl-Users Digest, Issue: 5502 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 14 18:10:51 2003
Date: Sun, 14 Sep 2003 15:10:12 -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 Sun, 14 Sep 2003 Volume: 10 Number: 5502
Today's topics:
Optimising performance of Perl binary <mrbean@mira.dot.net>
Optimising performance of Perl binary <neil.griffin@nospam.com>
Re: Optimising performance of Perl binary <r_reidy@comcast.net>
Re: Optimising performance of Perl binary <bwalton@rochester.rr.com>
Re: Outlook Address Books and Perl? <jwillmore@cyberia.com>
Re: Pattern Match Question.. <NoSpamPlease@bellsouth.net>
Re: Perl DBMS <abigail@abigail.nl>
recognising a special character inside [^] (Jason Quek)
Re: recognising a special character inside [^] <no@email.com>
Re: Removing numbers from a text file (bob)
Re: Send email using Perl <abigail@abigail.nl>
Tring to kill my kids, but they are stuborn little bast <eric@dmcontact.com>
Re: variable-width negative look-behind emulation (Xavier Noria)
Re: variable-width negative look-behind emulation <pinyaj@rpi.edu>
Re: variable-width negative look-behind emulation (Xavier Noria)
WWW::Mechanize click() returns "Unexpected field value" (Timur Tabi)
Re: wxPerl <bart.lateur@pandora.be>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Sep 2003 00:15:16 +1000
From: "Neil Griffin" <mrbean@mira.dot.net>
Subject: Optimising performance of Perl binary
Message-Id: <bk1t5a$7c1$2@mws-stat-syd.cdn.telstra.com.au>
Hi,
currently we are hosting a Perl 5.6.1 based Intranet application on a
Sun 6x750MHz v880/Solaris 8 (64bit) server. The application performs a lot
of CGI/DBI (Oracle DBD) interactions apart from the required 'business'
processing. To try and improve the perfomance of this application after a
recent upgrade, I am looking at recompiling Perl and associated modules with
more agressive optimising and targeting of the platform. The developers are
also attempting to squeeze more cycles out of the application.
Originally the Perl was compiled with gcc 2.95.3 on a Sun Ultra 1/Solaris 8
(32bit) with the default optimisation. I am recompiling with Sun Forte v7 on
an UltraSparc II/Solaris 8 (64bit) server
My questions are:
1. Am I going to gain any performance compiling as a 64bit app, or should I
stick with 32bit. The O/S and Oracle are 64bit.
2. Are there any performance advantages moving to Perl 5.8? I read mixed
reports on this.
3. I am looking at using the Sun compiler options of -fast -xtarget=ultra3.
Are there any others that I should consider (safe) with Perl? The
appropriate spec.org reports indicate a number of other switches.
4. Are there any advantages using third party (malloc) libraries like
SmartHeap?
5. Are there any other compilation/configuration issues I should consider?
TIA
------------------------------
Date: Mon, 15 Sep 2003 00:21:51 +1000
From: "Neil Griffin" <neil.griffin@nospam.com>
Subject: Optimising performance of Perl binary
Message-Id: <iQ_8b.2988$d6.144810@nasal.pacific.net.au>
Hi,
currently we are hosting a Perl 5.6.1 based Intranet application on a
Sun 6x750MHz v880/Solaris 8 (64bit) server. The application performs a lot
of CGI/DBI (Oracle DBD) interactions apart from the required 'business'
processing. To try and improve the perfomance of this application after a
recent upgrade, I am looking at recompiling Perl and associated modules with
more agressive optimising and targeting of the platform. The developers are
also attempting to squeeze more cycles out of the application.
Originally the Perl was compiled with gcc 2.95.3 on a Sun Ultra 1/Solaris 8
(32bit) with the default optimisation. I am recompiling with Sun Forte v7 on
an UltraSparc II/Solaris 8 (64bit) server
My questions are:
1. Am I going to gain any performance compiling as a 64bit app, or should I
stick with 32bit. The O/S and Oracle are 64bit.
2. Are there any performance advantages moving to Perl 5.8? I read mixed
reports on this.
3. I am looking at using the Sun compiler options of -fast -xtarget=ultra3.
Are there any others that I should consider (safe) with Perl? The
appropriate spec.org reports indicate a number of other switches.
4. Are there any advantages using third party (malloc) libraries like
SmartHeap?
5. Are there any other compilation/configuration issues I should consider?
TIA
------------------------------
Date: Sun, 14 Sep 2003 08:52:52 -0600
From: Ron Reidy <r_reidy@comcast.net>
Subject: Re: Optimising performance of Perl binary
Message-Id: <3F6480C4.4010301@comcast.net>
On my servers, I have Perl compiled for max optimization. I have had
not problems with Perl running in this matter.
On the Oracle side, you should have your developers ensure all preapre()
calls are using '{ora_check_sql => 0}'. Without this, each SQL
statement will be described and then parsed (double parsing) which will
eat up a lot of CPU on an active server.
Neil Griffin wrote:
> Hi,
> currently we are hosting a Perl 5.6.1 based Intranet application on a
> Sun 6x750MHz v880/Solaris 8 (64bit) server. The application performs a lot
> of CGI/DBI (Oracle DBD) interactions apart from the required 'business'
> processing. To try and improve the perfomance of this application after a
> recent upgrade, I am looking at recompiling Perl and associated modules with
> more agressive optimising and targeting of the platform. The developers are
> also attempting to squeeze more cycles out of the application.
>
> Originally the Perl was compiled with gcc 2.95.3 on a Sun Ultra 1/Solaris 8
> (32bit) with the default optimisation. I am recompiling with Sun Forte v7 on
> an UltraSparc II/Solaris 8 (64bit) server
>
> My questions are:
>
> 1. Am I going to gain any performance compiling as a 64bit app, or should I
> stick with 32bit. The O/S and Oracle are 64bit.
>
> 2. Are there any performance advantages moving to Perl 5.8? I read mixed
> reports on this.
>
> 3. I am looking at using the Sun compiler options of -fast -xtarget=ultra3.
> Are there any others that I should consider (safe) with Perl? The
> appropriate spec.org reports indicate a number of other switches.
>
> 4. Are there any advantages using third party (malloc) libraries like
> SmartHeap?
>
> 5. Are there any other compilation/configuration issues I should consider?
>
> TIA
>
>
--
Ron Reidy
Oracle DBA
------------------------------
Date: Sun, 14 Sep 2003 19:42:39 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Optimising performance of Perl binary
Message-Id: <3F64C4A6.6010602@rochester.rr.com>
Neil Griffin wrote:
> Hi,
> currently we are hosting a Perl 5.6.1 based Intranet application on a
> Sun 6x750MHz v880/Solaris 8 (64bit) server. The application performs a lot
> of CGI/DBI (Oracle DBD) interactions apart from the required 'business'
> processing. To try and improve the perfomance of this application after a
> recent upgrade, I am looking at recompiling Perl and associated modules with
> more agressive optimising and targeting of the platform. The developers are
> also attempting to squeeze more cycles out of the application.
>
> Originally the Perl was compiled with gcc 2.95.3 on a Sun Ultra 1/Solaris 8
> (32bit) with the default optimisation. I am recompiling with Sun Forte v7 on
> an UltraSparc II/Solaris 8 (64bit) server
>
> My questions are:
>
> 1. Am I going to gain any performance compiling as a 64bit app, or should I
> stick with 32bit. The O/S and Oracle are 64bit.
>
> 2. Are there any performance advantages moving to Perl 5.8? I read mixed
> reports on this.
>
> 3. I am looking at using the Sun compiler options of -fast -xtarget=ultra3.
> Are there any others that I should consider (safe) with Perl? The
> appropriate spec.org reports indicate a number of other switches.
>
> 4. Are there any advantages using third party (malloc) libraries like
> SmartHeap?
>
> 5. Are there any other compilation/configuration issues I should consider?
>
...
I would be amazed if you gain enough from compiler optimizations and the
like to make it worth the time and effort involved (and the time spent
fighting potential compiler bugs in the fancier optimizations). You
don't mention the use of mod_perl. If you are not using mod_perl or
something equivalent, you could gain speed by orders of magnitude by
using it. You would need to move to the Apache web server.
Well-written Perl CGI scripts need no modification. This basically
functions by holding a Perl interpreter and a compiled Perl process
ready-to-go for new CGI requests, with no need to start a process, load
the Perl interpreter and script, and compile the script each time. It
just goes right to running the script. Also, a connection to your
database is held open so that doesn't need to be established each time
either. The result is a truly dramatic improvement in performance.
--
Bob Walton
------------------------------
Date: Sun, 14 Sep 2003 16:41:14 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: Outlook Address Books and Perl?
Message-Id: <20030914124124.1274c6cc.jwillmore@cyberia.com>
On Sat, 13 Sep 2003 21:18:17 -0700
"Mark" <nospam@thanksanyway.org> wrote:
> Are there any modules available that can read and/or write address
> books for Microsoft Outlook or Outlook Express? I couldn't find what
> I need on CPAN.
http://search.cpan.org/
search keyword: outlook
first item thats shows is: mbx2mbox
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Actors will happen even in the best-regulated families.
------------------------------
Date: Sun, 14 Sep 2003 05:46:53 -0400
From: "Rodney" <NoSpamPlease@bellsouth.net>
Subject: Re: Pattern Match Question..
Message-Id: <dMW8b.4247$4j3.3320@bignews6.bellsouth.net>
That did it perlfectly!
Thanks John.
--
...
`·.¸¸.·´¯`·.¸¸.·´¯`·-> rodney
------------------------------
Date: 14 Sep 2003 19:38:34 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Perl DBMS
Message-Id: <slrnbm9gtq.jnn.abigail@alexandra.abigail.nl>
ge0rge (ge0rge@Talk21.com) wrote on MMMDCLXV September MCMXCIII in
<URL:news:bjunpf$nai8m$1@ID-175222.news.uni-berlin.de>:
__
__ Well, that would be a bit of an overkill. Don't you think so? Killfiling
__ someone because (s)he top post!
I killfile people for topposting - usually on their first offence,
unless they have posted before and their name has made an impression.
Entries in my killfile don't automatically expire, and I seldomly go in
by hand to remove entries.
Out of the 773 lines in my killfile, 459 are reserved for individual
entries.
People have the right to speak, but they don't have the right to
not be ignored.
Abigail
--
CHECK {print "another "}
END {print "Hacker\n"}
INIT {print "Perl " }
BEGIN {print "Just " }
------------------------------
Date: Sun, 14 Sep 2003 18:29:19 GMT
From: qjason@cyberway.com.sg (Jason Quek)
Subject: recognising a special character inside [^]
Message-Id: <3f66b174.7039109@news.starhub.net.sg>
Hi
What I need to do is to print only '1|2|3'.
#----------------------------------------------------------------
@array = (
'1',
'1|2',
'1|2|3',
'1|2|3|4',
'1|2|3|4|5',
'1|2|3|4|5|6'
);
$string = '1|2';
foreach (@array)
{
if ($_ =~ /^$string\|([^\|]*)$/)
{
print "$_\n";
}
}
#----------------------------------------------------------------
But the above code prints the entire array out.
I believe the problem lies with ([^\|]*).
How do I correctly tell Perl to recognise the pipe | character inside
([^\|]*)
Any help would be appreciated.
Jason Q.
------------------------------
Date: Sun, 14 Sep 2003 19:39:57 +0100
From: "Brian Wakem" <no@email.com>
Subject: Re: recognising a special character inside [^]
Message-Id: <bk2cmd$opgk0$1@ID-112158.news.uni-berlin.de>
"Jason Quek" <qjason@cyberway.com.sg> wrote in message
news:3f66b174.7039109@news.starhub.net.sg...
> Hi
>
> What I need to do is to print only '1|2|3'.
>
> #----------------------------------------------------------------
> @array = (
> '1',
> '1|2',
> '1|2|3',
> '1|2|3|4',
> '1|2|3|4|5',
> '1|2|3|4|5|6'
> );
>
> $string = '1|2';
>
> foreach (@array)
> {
> if ($_ =~ /^$string\|([^\|]*)$/)
> {
> print "$_\n";
> }
> }
> #----------------------------------------------------------------
>
> But the above code prints the entire array out.
>
> I believe the problem lies with ([^\|]*).
>
> How do I correctly tell Perl to recognise the pipe | character inside
> ([^\|]*)
>
> Any help would be appreciated.
if ($_ =~ /^\Q$string\E\|([^\|]*)$/) {
...
}
--
Brian Wakem
------------------------------
Date: 14 Sep 2003 11:01:18 -0700
From: utsuxs@hotmail.com (bob)
Subject: Re: Removing numbers from a text file
Message-Id: <51c3a5d3.0309141001.2ec11c62@posting.google.com>
Martien Verbruggen <mgjv@tradingpost.com.au> wrote in message
> 100k is nothing. Why do you think that "could take awhile'? What do you
> define as acceptible performance? I'm sure the above on a reasonable
> machine with 100k of input would run more than fast enough. Loading a
> 100k into an array or scalar and then doing the same would not take much
> more or less time. In any case, it's unlikely you'd notice the
> difference.
>
> Martien
Thanks for your tips. I'm brand new to perl and I've been and windoze
to long. I guess I've been corrupted.
------------------------------
Date: 14 Sep 2003 21:07:33 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Send email using Perl
Message-Id: <slrnbm9m4l.jnn.abigail@alexandra.abigail.nl>
Ning li (ningli2000@worldnet.att.net) wrote on MMMDCLXVI September
MCMXCIII in <URL:news:I6P8b.140824$3o3.10064623@bgtnsc05-news.ops.worldnet.att.net>:
-- Hi,
--
-- I am new to Perl and I would like to know the Perl equivalent of this
-- Unix mail command:
--
-- mailx -s "My Subject Here" jdoe@mail.com < my_file_name
system 'mailx -s "My Subject Here" jdoe@mail.com < my_file_name';
Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: Sun, 14 Sep 2003 21:40:34 GMT
From: Eric Frazier <eric@dmcontact.com>
Subject: Tring to kill my kids, but they are stuborn little bastards!
Message-Id: <3F64B2EB.3E7E39CA@dmcontact.com>
Hi,
I have finaly got my server running, but I am having a problem with
killing off my forked processes.
I am kind of stuck, because I could swear this was working before, and
now it is not.
I am running on perl 5.8 with FreeBSD 4.8. Other than this problem, it
is doing just what I want, forking off right away, and then giving the
command prompt.
Below is what I have now..
I have seen a few differnet ways of killing off children, but if the
SIGCHLD isn't getting called for some
reason I don't know if fiddling with the handler will help.. Right now I
am not getting any messages from the child handler, and every connect
makes a new process. This is sucking alot since otherwise life seems
great. The alarm and HUP work fine.
Thanks,
Eric
use strict;
use POSIX ();
use IO::Socket;
use FindBin ();
use File::Basename ();
use File::Spec::Functions;
use Net::hostent;
use Carp;
$|=1;
open (DIED, ">>/var/log/daemon_log") or warn "$!";
sub logmsg { print DIED "$0 $$: @_ at ", scalar localtime, "\n" }
my $listen_socket = IO::Socket::INET->new(LocalPort => 1081,
LocalAddr => '127.0.0.1',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1 )
or die "can make a tcp server on port 1080 $!";
# make the daemon cross-platform, so exec always calls the script
# itself with the right path, no matter how the script was invoked.
my $script = File::Basename::basename($0);
my $SELF = catfile $FindBin::Bin, $script;
# POSIX unmasks the sigprocmask properly
my $sigset = POSIX::SigSet->new();
my $action = POSIX::SigAction->new('sigHUP_handler',
$sigset,
&POSIX::SA_NODEFER);
my $action_alrm = POSIX::SigAction->new('sigALRM_handler',
$sigset,
&POSIX::SA_NODEFER);
POSIX::sigaction(&POSIX::SIGHUP, $action);
POSIX::sigaction(&POSIX::SIGALRM, $action_alrm);
sub sigHUP_handler {
print "got SIGHUP\n";
exec($SELF, @ARGV) or die "Couldn't restart: $!\n";
}
sub sigALRM_handler {
print "got ALARM timeout\n";
}
$SIG{CHLD} = \&REAPER;
sub REAPER {
#$SIG{CHLD} = \&REAPER; # loathe sysV
my $waitedpid = wait;
logmsg "reaped $waitedpid" . ($? ? " with exit $?" : '');
}
print "PID: $$\n";
print "ARGV: @ARGV\n";
print "[Server $0 accepting clients]\n";
while (my $connection = $listen_socket->accept()) {
my $pid;
if (!defined($pid = fork)) {
logmsg "cannot fork: $!";
}elsif ($pid) {
logmsg "begat $pid";
}else{
# else i'm the child -- go spawn
print $connection "Command?";
while ( <$connection> ){
if (/quit|exit/i) {
last; }
elsif (/closeme/i )
{$connection->close(); }
elsif (/date|time/i) { printf $connection "%s\n",
scalar localtime; }
elsif (/who/i ) { print $connection `who
2>&1`; }
elsif (/dienow/i ) { alarm
2; }
elsif (/dieT/i ) {
die; }
print $connection "Command?";
}
#STDIN->fdopen($connection,"r") || die "can't dup client to
stdin";
#STDOUT->fdopen($connection,"w") || die "can't dup client to
stdout";
#STDERR->fdopen($connection,"w") || die "can't dup stdout to
stderr";
### FORKed code here..
print DIED "I got forked\n";
} ## end while <$connection>
} ## end else
------------------------------
Date: 14 Sep 2003 04:05:06 -0700
From: fxn@hashref.com (Xavier Noria)
Subject: Re: variable-width negative look-behind emulation
Message-Id: <31a13074.0309140305.fb0a24@posting.google.com>
Jeff 'japhy' Pinyan <pinyaj@rpi.edu> wrote in message news:<Pine.SGI.3.96.1030913220055.85446A-100000@vcmr-64.server.rpi.edu>...
> On 13 Sep 2003, Xavier Noria wrote:
>
> >I was playing with variable-width negative look-behind emulation and
> >worked out this regexp that supports assertions about substrings of
> >the pre-match:
> >
> > /^.*(??{ index($&,"foo") == -1 ? "" : "(?!)" })bar/
> >
> >That matches "bar" if it is not preceded at any point by "foo". I know
> >that can be achieved by reverse + negative look-ahead but this has to
> >be considered an exercise (that comes from a question in freenode#perl
> >that required a single regexp to solve the problem).
>
> You could use
>
> /^(?:[^f]*|f+(?!f|oo))*bar/;
Ah, better, thank you.
Maybe we could take benefit of atomic grouping here? Like this
/^ (?> [^f] | f(?!oo) )*? bar/x
or even better maybe this way
/^(?> (?!foo). )*? bar/x
which has been suggested by Iain Truskett right now on freenode#regex.
-- fxn
------------------------------
Date: Sun, 14 Sep 2003 09:52:03 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
Subject: Re: variable-width negative look-behind emulation
Message-Id: <Pine.SGI.3.96.1030914095011.349954A-100000@vcmr-64.server.rpi.edu>
On 14 Sep 2003, Xavier Noria wrote:
>> > /^.*(??{ index($&,"foo") == -1 ? "" : "(?!)" })bar/
>>
>> /^(?:[^f]*|f+(?!f|oo))*bar/;
>
>Ah, better, thank you.
>
>Maybe we could take benefit of atomic grouping here? Like this
>
> /^ (?> [^f] | f(?!oo) )*? bar/x
I'd rather see [^f]+. (That should have been [^f]+ in my regex.)
>or even better maybe this way
>
> /^(?> (?!foo). )*? bar/x
That crawls one character at a time, and the (?>) shouldn't be needed.
--
Jeff Pinyan RPI Acacia Brother #734 2003 Rush Chairman
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: 14 Sep 2003 13:45:33 -0700
From: fxn@hashref.com (Xavier Noria)
Subject: Re: variable-width negative look-behind emulation
Message-Id: <31a13074.0309141245.32a4acb6@posting.google.com>
Jeff 'japhy' Pinyan <pinyaj@rpi.edu> wrote in message news:<Pine.SGI.3.96.1030914095011.349954A-100000@vcmr-64.server.rpi.edu>...
> On 14 Sep 2003, Xavier Noria wrote:
>
> >> > /^.*(??{ index($&,"foo") == -1 ? "" : "(?!)" })bar/
> >>
> >> /^(?:[^f]*|f+(?!f|oo))*bar/;
> >
> >Ah, better, thank you.
> >
> >Maybe we could take benefit of atomic grouping here? Like this
> >
> > /^ (?> [^f] | f(?!oo) )*? bar/x
>
> I'd rather see [^f]+. (That should have been [^f]+ in my regex.)
The problem there is that it seems we loose the states corresponding
to [^f]+, which in spite of the outer *? eats too much and would need
to backtrack:
% perl -wle 'print 1 if "xbar" =~ /^(?>[^f]+|f(?!oo))*?bar/'
% perl -wle 'print 1 if "xbar" =~ /^(?>[^f]|f(?!oo))*?bar/'
1
But [^f]+ is fine if we don't use atomic grouping:
% perl -wle 'print 1 if "xbar" =~ /^(?:[^f]+|f(?!oo))*?bar/'
1
> >or even better maybe this way
> >
> > /^(?> (?!foo). )*? bar/x
>
> That crawls one character at a time, and the (?>) shouldn't be needed.
Yeah, it's there just to indicate to the engine it can forget about
the states. We either match in one shot or fail.
-- fxn
------------------------------
Date: 14 Sep 2003 13:01:05 -0700
From: nospam_timur@tabi.org (Timur Tabi)
Subject: WWW::Mechanize click() returns "Unexpected field value"
Message-Id: <53bb806a.0309141201.5ffcb126@posting.google.com>
A friend of mine wrote a Perl script that works fine on his machine
but dies on mine. I know very little about Perl, so I need help in
determining the problem. Here's the code that fails:
my $agent = WWW::Mechanize->new();
$agent->get("http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm");
die "Couldn't get login screen" unless $agent->success;
my $id = "userid";
$agent->field("newUsername",$id);
my $password = "password";
$agent->field("newPassword",$password);
$agent->click();
When it tries to execute the click() call, it generates this message:
Unexpected field value
http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm at (eval 15) line
1
I added the line "use Carp 'verbose';" to the Perl module, and now I
get this:
Unexpected field value
http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm at
/usr/lib/perl5/vendor_perl/5.6.1/HTTP/Headers.pm line 256
HTTP::Headers::_header('HTTP::Headers=HASH(0x846bd44)',
'Referer', 'http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm')
called at /usr/lib/perl5/vendor_perl/5.6.1/HTTP/Headers.pm line 150
HTTP::Headers::header('HTTP::Headers=HASH(0x846bd44)') called
at (eval 15) line 1
HTTP::Message::__ANON__('HTTP::Request=HASH(0x846bce4)',
'Referer', 'http://w3.reserve.ibm.com/Reserve/ReserveLogon-3.htm')
called at /usr/lib/perl5/site_perl/5.6.1/WWW/Mechanize.pm line 1045
WWW::Mechanize::request('WWW::Mechanize=HASH(0x8181abc)',
'HTTP::Request=HASH(0x846bce4)') called at
/usr/lib/perl5/site_perl/5.6.1/WWW/Mechanize.pm line 515
WWW::Mechanize::click('WWW::Mechanize=HASH(0x8181abc)') called
at ./reserve.pl line 30
Can anyone tell me what's going on? I'm running Perl 5.6.1 on Red Hat
Linux 7.3.
------------------------------
Date: Sun, 14 Sep 2003 11:59:06 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: wxPerl
Message-Id: <sil8mv0fe9em10l7t3dpjm5ct4b3kfq28o@4ax.com>
Matija Papec wrote:
>My experience with ppm is also good as long I don't search for modules which
>aren't there. I've tried "s wx" and nothing come out.. Maybe they don't have
>module for 5.8 yet. :!
Yet I've gotten the necessary modules installed, even though I haven't
got ActivePerl 5.8 (by default)...
Tell you what, I'll show you how you can do it without PPM. A slightly
unortodox way, but it works.
You can get POD-Browser as announced here:
<http://perlmonks.org/index.pl?node_id=254944>
POD-Browser is an app written using wx-Perl on ActivePerl 5.8, and
distributed after processing with PerlApp. What you get is the modules,
the script, a Perl runtime DLL (the same as you have yourself, I'm
sure), and a small EXE file containing the script and a small bootstrap
executable which launches the perl DLL.
Now, you can just copy the stuff under the "lib" mdoule into your
site/lib directory. After that, you should just be able to run the .PL
script using your own Perl. If that works (I'm pretty sure it will),
you're set, and you can use Wx in your own scripts.
HTH,
Bart.
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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.
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 5502
***************************************
