[9995] in Perl-Users-Digest
Perl-Users Digest, Issue: 3588 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 30 07:03:55 1998
Date: Sun, 30 Aug 98 04:00:20 -0700
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, 30 Aug 1998 Volume: 8 Number: 3588
Today's topics:
Re: [BUG?] A suspected bug in m// and s/// (but probab <rootbeer@teleport.com>
Building Perl 5.005_xx under Cygnus CYGWIN32? <tlilley@perspex.com>
Re: Building Perl 5.005_xx under Cygnus CYGWIN32? (Nathan V. Patwardhan)
Compiling XS output fails on SGI with IDO 7.1 (Daniel G. Kluge)
Re: even or odd (Abigail)
Re: Help - Perl security problem! (Marc Haber)
Re: Help with a fork() and pipe() problem <zenin@bawdycaste.org>
Re: Imagine... a non-greedy world! <mee@mine.com>
Re: Imagine... a non-greedy world! <mee@mine.com>
Re: Imagine... a non-greedy world! <mee@mine.com>
Re: Imagine... a non-greedy world! <mds-resource@mediaone.net>
Re: Imagine... a non-greedy world! (Michael Rubenstein)
Re: Imagine... a non-greedy world! (Michael Rubenstein)
Re: Perl Cookbook, does anyone have it? <elaine@artsci.wustl.edu>
Re: Perl Cookbook, does anyone have it? (David Adler)
Re: Perl documentation (Bob Trieger)
Re: perl regex bug? (or feature?) <kistler@erdw.ethz.ch>
Perl Script to Retreve HTML Files from the Internet <brian@toogood.com>
Re: Perl Script to Retreve HTML Files from the Internet <brian@toogood.com>
Re: Posting images from a mSQL database <rootbeer@teleport.com>
Problem with a package <maryesme@localaccess.com>
Public Domain Module wanted (Steve Silberberg)
Re: regular expression. Help !!!! simple@nanospace.com
Re: Setting DOS environment from PERL scripts <mpersico@erols.com>
tripped on chomp bray1@postoffice.pacbell.net
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 30 Aug 1998 00:28:41 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: [BUG?] A suspected bug in m// and s/// (but probably already known :-)
Message-Id: <Pine.GSO.4.02A.9808291726570.15614-100000@user2.teleport.com>
On 29 Aug 1998, Wade Holst wrote:
> In the following tidbit of code, note the existence of a '/' in the
> comment associated with the regular expression. It appears that perl
> is not removing the comments before doing the parsing.
Not a bug. The delimiter can't normally appear in the comments. (The
exception is if you have matching delimiters properly paired.) Hope this
helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 29 Aug 1998 21:12:27 -0400
From: Tripp Lilley <tlilley@perspex.com>
Subject: Building Perl 5.005_xx under Cygnus CYGWIN32?
Message-Id: <Pine.LNX.3.95.980829211124.15485Z-100000@mail.perspex.com>
Has anyone had success doing this? I've followed the instructions for
dealing with the Configure process, but it keeps wanting to bomb out when
it tries to compile the test script...
TIA...
-----------------------------------------------------------------------
Tripp Lilley, Perspex Imageworks, Inc. (tripp.lilley@perspex.com)
-----------------------------------------------------------------------
"As long as America's educational system : Professor Dick Solomon
remains woefully inadequate, I rule!" : Third Rock from the Sun
------------------------------
Date: Sun, 30 Aug 1998 04:19:47 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Building Perl 5.005_xx under Cygnus CYGWIN32?
Message-Id: <Dp4G1.33$kv1.816450@news.shore.net>
Tripp Lilley (tlilley@perspex.com) wrote:
: Has anyone had success doing this?
Yes.
: I've followed the instructions for dealing with the Configure
: process, but it keeps wanting to bomb out when it tries to compile
: the test script...
It probably can't find your compiler (gcc?) and/or execute it. Make
sure that the 'gcc2' and 'ld2' wrappers are in your PATH and that '.'
is there as well. Make sure that you've got the correct path to your
Perl source in ld2. The test script should compile then.
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: 29 Aug 1998 20:08:43 +0100
From: daniel@vis.inf.ethz.ch (Daniel G. Kluge)
Subject: Compiling XS output fails on SGI with IDO 7.1
Message-Id: <slrn6uggtb.en.daniel@neelix.iiic.ethz.ch>
Hello there,
I'm shure I'm doing something wrong, but whenever I try to compile some XS
generated code on my SGI O2, I get the following error Message:
"Base64.c": Error: Invalid format revision (WHIRL::0.28:) for WHIRL file
(/tmp/ctmB.BAAa001Nc)
This is for most XS generated Code, when using the -n32 compiler (IDO 7.1
with Patches), the compilation works, if I use -32, but then I
cannot link it to perl, which is an n32 binary.
Perl is: version 5.004_04 built for IP32-irix
Somebody got any ideas, others than recompiling perl ?
-daniel
P.S. The SGI is an O2 running 6.3 + Patches 5/98
--
Daniel G. Kluge - CS-Alumni / http://www.vis.inf.ethz.ch/~daniel/
E-Mail: daniel@vis.inf.ethz.ch (NeXT-Mail welcome) PGP-Key ID: 847D5C6D
------------------------------
Date: Sun, 30 Aug 1998 00:07:50 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: even or odd
Message-Id: <qJ0G1.57$Ts1.128288@client.news.psi.net>
Tom Christiansen (tchrist@mox.perl.com) wrote on MDCCCXXIII September
MCMXCIII in <URL: news:6s7es8$mcl$1@csnews.cs.colorado.edu>:
++
++ What I was looking for was to provide a thought process, not an opaque
++ and instant answer. The question ``Is a number even'' means ``Is a
++ number an even multiple of 2''. In fact, once you do that, you can
ITYM: "an even multiple of 1".
++ extend it to ``Is it a multiple of N?''
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
Date: Sun, 30 Aug 1998 01:09:26 GMT
From: Marc.Haber-usenet@gmx.de (Marc Haber)
Subject: Re: Help - Perl security problem!
Message-Id: <6sa8q6$iss$3@nz12.rz.uni-karlsruhe.de>
dmr@doug.fc.hp.com (Doug) wrote:
>That isn't a warning, is it? I think it's an error.
One that can be easily fixed by spending a few minutes with perldoc
perlsec, thinking a few minutes and spending a few more minutes with
the code.
Greetings
Marc
--
-------------------------------------- !! No courtesy copies, please !! -----
Marc Haber | " Questions are the | Mailadresse im Header
Karlsruhe, Germany | Beginning of Wisdom " | Fon: *49 721 966 32 15
Nordisch by Nature | Lt. Worf, TNG "Rightful Heir" | Fax: *49 721 966 31 29
------------------------------
Date: 29 Aug 1998 20:41:36 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Help with a fork() and pipe() problem
Message-Id: <904423051.609921@thrush.omix.com>
[posted & mailed]
Malcolm Hoar wrote:
> I have a Perl application where a parent fork()'s multiple
> children and then communicates with them via a pair of
> pipe()'s.
Silly question time: You are closing the unused ends
of those pipes before trying to pump anything through
them right? And you're only trying to pump data
one way through any single pair of pipes right?
> Does anyone have any idea what this might be or, more
> likely, any suggested strategies for tracking it down?
> If this is some kind of kernel race condition (currently
> my best guess) is it likely that a socketpair would be
> more robust?
If memory serves me, a local socketpair is pretty much
identical to a pipe at the kernel level in BSD. -Or
was that streems?
> Environment:
> FreeBSD 2.2.7-RELEASE
> This is perl, version 5.005_01 built for i386-freebsd
> Also seen on 5.004_04.
Same setup here (ok, I run -STABLE and 5.00404, but it's
close), with no problems.
What is your code like? Is it anything like this:
local (*TO_CHILD, *FROM_CHILD, *TO_PARENT, *FROM_PARENT);
pipe FROM_CHILD, TO_PARENT or die "pipe $!";
pipe FROM_PARENT, TO_CHILD or die "pipe $!";
my $pid = fork();
defined $pid or die "fork: $!";
if ($pid == 0) {
## Child
close FROM_CHILD or die "close pipe: $!";
close TO_CHILD or die "close pipe: $!";
select TO_PARENT; $|++; select STDOUT;
print TO_PARENT "Hi mom!";
exit;
}
else {
## Parent
close TO_PARENT or die "close pipe: $!";
close FROM_PARENT or die "close pipe: $!";
select TO_CHILD; $|++; select STDOUT;
}
my $baby;
read FROM_CHILD, $baby, 7;
print "My baby said $baby\n";
__END__
Note the two pairs of pipes, the unused sides closed and the
used write sides set to autoflush.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Sat, 29 Aug 1998 08:11:54 -0700
From: Mee <mee@mine.com>
Subject: Re: Imagine... a non-greedy world!
Message-Id: <35E81A3A.FED228B8@mine.com>
So far so good:
Everyone has noted a typo in the contrived example
but noone has understood the question.
Mee
------------------------------
Date: Sun, 30 Aug 1998 01:21:28 -0700
From: Mee <mee@mine.com>
Subject: Re: Imagine... a non-greedy world!
Message-Id: <35E90B88.31DF4A90@mine.com>
Michael,
>> WHAT THE HELL DIFFERENCE DOES IT MAKE? <<
Absolutely none if you consider expressions such as /a*c/
and /a.*[^fg;lfd]45\s86433[//]qw#/\W$54p3{9}9[59]45\s+?c/
morally and aesthetically equal.
Mee
------------------------------
Date: Sat, 29 Aug 1998 19:32:42 -0700
From: Mee <mee@mine.com>
Subject: Re: Imagine... a non-greedy world!
Message-Id: <35E8B9CA.6A426DED@mine.com>
Tom,
Thanks for your arrogant assumption that you have
read more than I have (not impossible, but unlikely.)
Regardless, the point is not in how many books someone
has read.
The trick is, instead of being assimilated by the
stuff one reads, to use that knowledge and the
brain cells to reach beyond formulas and get
to the pinnacle: plain old common sense.
If and when you get there, we will all know it --
your posts will then be about the issues raised
rather than personalities.
Have a nice day,
Mee
------------------------------
Date: Sat, 29 Aug 1998 22:28:05 -0500
From: "Michael D. Schleif" <mds-resource@mediaone.net>
Subject: Re: Imagine... a non-greedy world!
Message-Id: <35E8C6C5.D94D5153@mediaone.net>
Again, my dear Mee (am I talking to myself?) -- those issues would be
???
Mee wrote:
>
> Tom,
>
> If and when you get there, we will all know it --
> your posts will then be about the issues raised
> rather than personalities.
--
Best Regards,
mds
mds resource
888.250.3987
"Dare to fix things before they break . . . "
"Our capacity for understanding is inversely proportional to how much we
think we know. The more I know, the more I know I don't know . . . "
------------------------------
Date: Sun, 30 Aug 1998 10:13:20 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: Imagine... a non-greedy world!
Message-Id: <35ec255a.372513365@nntp.ix.netcom.com>
On Sun, 30 Aug 1998 01:21:28 -0700, Mee <mee@mine.com> wrote:
>Michael,
>
>>> WHAT THE HELL DIFFERENCE DOES IT MAKE? <<
>
>Absolutely none if you consider expressions such as /a*c/
>and /a.*[^fg;lfd]45\s86433[//]qw#/\W$54p3{9}9[59]45\s+?c/
>morally and aesthetically equal.
>
>Mee
This is a repost. I have canceled the original message which
contained a serious typo.
I don't understand. Why should I consider a regular expression and a
syntax error moraly and aesthetically equal? What does this have to
do with greed?
Your original message complained about greediness. One has a choice,
/a.*c/ matches everything from the first a to the last that follows or
/a.*?c/ which matches everything from the first a to the first c that
follows. I both cases the match fails if there is no c following the
first a.
--
Michael M Rubenstein
------------------------------
Date: Sun, 30 Aug 1998 04:15:06 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: Imagine... a non-greedy world!
Message-Id: <35e9ce4d.350227089@nntp.ix.netcom.com>
On Sat, 29 Aug 1998 19:32:42 -0700, Mee <mee@mine.com> wrote:
>Tom,
>
>Thanks for your arrogant assumption that you have
>read more than I have (not impossible, but unlikely.)
>Regardless, the point is not in how many books someone
>has read.
>
>The trick is, instead of being assimilated by the
>stuff one reads, to use that knowledge and the
>brain cells to reach beyond formulas and get
>to the pinnacle: plain old common sense.
>
>If and when you get there, we will all know it --
>your posts will then be about the issues raised
>rather than personalities.
I'm afraid that some of the regulars have been having a bit of fun at
your expense. Everyone knows that you are correct and regular
expressions should be nongreedy. What they have not pointed out is
that in Perl the default is, in fact, for regular expressions to be
nongreedy. Unfortunately, the documentation contains an error that is
confusing you. perlre should read:
The following standard quantifiers are recognized:
*? Match 0 or more times
+? Match 1 or more times
?? Match 0 or 1 time
{n}? Match exactly n times
{n,}? Match at least n times
{n,m}? Match at least n but not more than m times
(If a curly bracket occurs in any other context, it is treated
as a regular character.) The ``*?'' modifier is equivalent to
{0,}?, the ``+?'' modifier to {1,}, and the ``??'' modifier to
{0,1}?. n and m are limited to integral values less than
65536.
By default, a quantified subpattern is ``nongreedy'', that is,
will match as few times as possible (given a particular
starting location) while still allowing the rest of the
pattern to match. If you want it to match the maximum number
of times possible, eliminate the terminating ``?'' from the
qualifier. Note that the meanings don't change, just the
``greediness'':
* Match 0 or more times
+ Match 1 or more times
? Match 1 or 0 times
{n} Match exactly n times
{n,} Match at least n times
{n,m} Match at least n but not more than m times
I know it seems strange that the longer quantifiers are the default,
but you must realize that perl did not arise in a vacuum. Many
earlier programs used regular expressions with the shorter quantifiers
being greedy and it was thought that changing their meaning would be
too confusing. It's unfortunate that such programs as ed, ex, sed,
and awk were written by people who lacked your clear grasp of what is
logical, but unfortunately we must live with that.
--
Michael M Rubenstein
------------------------------
Date: Sat, 29 Aug 1998 19:16:37 -0500
From: eli <elaine@artsci.wustl.edu>
Subject: Re: Perl Cookbook, does anyone have it?
Message-Id: <Pine.SOL.3.96.980829191232.25638A-100000@ascc.artsci.wustl.edu>
congrats to the authors for a well done hefty tome. a great cheat sheet.
its not complete, however, without a recipe for camel and/or llama from
martha stewart. ;) maybe the 2nd ed.
e.
-=]) Do Not Taunt HappyFunBall ([=-
------------------------------
Date: 30 Aug 1998 03:15:07 GMT
From: dha@panix.com (David Adler)
Subject: Re: Perl Cookbook, does anyone have it?
Message-Id: <6sag3r$75q@news1.panix.com>
On Sat, 29 Aug 1998 19:16:37 -0500, eli <elaine@artsci.wustl.edu> wrote:
>congrats to the authors for a well done hefty tome. a great cheat sheet.
More like a cheat rock....
Ducking...
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"Your point being..." - Homer Simpson
------------------------------
Date: Sun, 30 Aug 1998 01:10:19 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Perl documentation
Message-Id: <6sa903$qc8$1@strato.ultra.net>
[ posted to usenet and courtesy e-mail sent to Gellyfish@btinternet.com]
Gellyfish@btinternet.com (Jonathan Stowe) wrote:
-> On Sat, 29 Aug 1998 14:43:32 GMT, David Hawker wrote :
->
-> >On 23 Aug 1998 23:00:15 GMT, abigail@fnx.com (Abigail) felt the need to
-> >post:
-> >>
-> >>If you're that afraid of spam, don't post to Usenet.
-> >
-> >The benefits are too great.
-> >
-> >>Better weld your mailbox shut too.
-> >
-> >Oh?
-> >
-> Well for myself I find that I get more paper Junk mail through the
-> letter box than I do spam. Infact I have had no spam all week but
-> have had several offers of cheaper credit cards/cheap airfares/save my
-> soul for a donation to some charity/ etc etc. And I take no
-> precautions whatsoever against spam - and obviously one cant put a
-> false name and address when applying for bank account/credit card or
-> whatever and it is a real pain in the butt to go the office of the
-> data protection registrar to complain every time I get a bit of
-> unsolicited mail. Maybe I should get the Postman to sue for an
-> industrial injury.
Perhaps you could just munge you mailing address and make the bill
collectors and friend figure out how to unmunge it in order to send you
mail.
Who cares if it screws up everyone elses postal service as well as
yours? You will get less junk mail.
Bob Trieger
sowmaster@juicepigs.com
------------------------------
Date: Sun, 30 Aug 1998 11:33:04 +0200
From: Per Kistler <kistler@erdw.ethz.ch>
To: "Peter J. Kernan" <pete@theory2.phys.cwru.edu>
Subject: Re: perl regex bug? (or feature?)
Message-Id: <35E91C50.809E85FD@erdw.ethz.ch>
Hi Peter
Use the commandline option -l (perl -lne), then the newline will
be stripped off, before processing, and added when output.
This would be grep behaviour then:-)
Regards, Per.
Peter J. Kernan wrote:
>
> perl -ne 'print if /^[^aeiouA-Z][aeiou][^aeiou]$/' < /usr/dict/words
> bad
> bag
> bah
> ban
> bar
> bat
> bay
> be #whoa there!
> bed
> ...
>
> i expected somthing like egrep's behavior
>
> egrep '^[^aeiouA-Z][aeiou][^aeiou]$' /usr/dict/words
> bad
> bag
> bah
> ban
> bar
> bat
> bay
> bed
> ...
>
> (looks good)
>
> w/perl5.004_04 i need to
>
> perl -ne 'print if /^[^aeiouA-Z][aeiou][^aeiou\n]$/'
>
> to get what i expected at the top w/perl and got w/egrep.
>
> which surprised me and seems bizarre. If the /[^aeiou]$/
> matches the new-line in the character class why does the
> end-of-line anchor also match the newline? if it was
> matching "be\n\n" this would seem more reasonable (yet
> still absurd), but that can not happen with the -n switch.
> should i re-read the owl book? the camel book? the perlre
> manpage?
>
> bug or feature?
> --
> Pete Kernan CWRU Physics/Statistics Depts
> http://theory2.phys.cwru.edu/~pete
--
Per Kistler
mailto:kistler@erdw.ethz.ch http://kistler.ethz.ch/
------------------------------------------------------------
------------------------------
Date: Sat, 29 Aug 1998 18:16:11 GMT
From: "Brian Zuill" <brian@toogood.com>
Subject: Perl Script to Retreve HTML Files from the Internet
Message-Id: <LzXF1.14779$hw1.6804277@news.rdc1.on.wave.home.com>
How do I compose a perl script file to get an HTML File from the Internet?
Thanks,
Brian Zuill
------------------------------
Date: Sun, 30 Aug 1998 04:09:53 GMT
From: "Brian Zuill" <brian@toogood.com>
Subject: Re: Perl Script to Retreve HTML Files from the Internet
Message-Id: <lg4G1.15133$hw1.7104706@news.rdc1.on.wave.home.com>
Yes, I use Pico.
I need to write a Perl Script Program that I will execute using Cron to
download a specific HTML File to a file. I don't want to view the file on
screen and I don't want to use Lynx or any browser to get the file.
Thanks ,
Brian Zuill
Arunas Salkauskas wrote in message <35e8499b.0@news.cadvision.com>...
>A text editor usually works well.
>
>Or was that not your question? You'd have to be more specific I think.
>
>--
>- Arunas Salkauskas
>High Point Designs
>http://www.highpointdesigns.com/
>
>Brian Zuill wrote in message ...
>>How do I compose a perl script file to get an HTML File from the Internet?
>>
>>Thanks,
>>
>>Brian Zuill
>>
>>
>
>
------------------------------
Date: Sun, 30 Aug 1998 00:31:22 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Posting images from a mSQL database
Message-Id: <Pine.GSO.4.02A.9808291729540.15614-100000@user2.teleport.com>
On Sat, 29 Aug 1998 simple@nanospace.com wrote:
> open (IMAGE, "$imagefile");
Those quote marks are merely misleading. And even when your script is
"just an example" (and perhaps especially in that case!) you should
_always_ check the return value after opening a file. Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 29 Aug 1998 20:10:29 -0700
From: Mark Lybrand <maryesme@localaccess.com>
Subject: Problem with a package
Message-Id: <35E8C2A4.3202@localaccess.com>
Howdy Perl Gurus,
Once again I come seeking assistance. I am afraid that I do not know a
lot about modules or packages. I am working through an example in
Lincoln Stein's CGI.pm book and am having the following problem:
First, the system admin on my server has not upgraded CGI.pm, so I have
been using one located in my CGI bin. This has worked to take advantage
of some of the most recent features in CGI.pm.
So, I have been using a "use lib" statement in my scripts specifying the
location of my CGI.pm module. Now, I have tried to follow the example
in the book of creating a module, putting it in the CGI subdirectory.
Here is the module:
--- begin module ---
package CGI::Multiple;
$VERSION = '1.0';
use lib '/path_to_my_own_modules';
use CGI;
@ISA = qw/CGI/;
sub add_multiple {
my ($self, %params) = @_;
my $p;
foreach $p (keys %params) {
$self->param(-name=>$p, -value=>$params{$p});
}
}
sub hidden_multiple {
my ($self, @params) = @_;
my ($p, @results);
foreach $p (@params) {
push (@results, $self->hidden(-name=>$p));
}
return @results;
}
1; # have to return TRUE from all modules
--- end module ---
and now the script that I calling this from:
--- begin script ---
#!/usr/local/bin/perl5
# script: multest.cgi
use lib '/path_to_my_own_modules';
use CGI::Multiple;
use CGI::Carp qw(fatalsToBrowser);
$q = new CGI;
if (! ($q->param)) {
print $q->header,
$q->start_html,
$q->start_form,
$q->textfield( -name=>gumbo,
-size=>25),
$q->textfield( -name=>okra,
-size=>25),
$q->textfield( -name=>crawdad,
-size=>25),
$q->submit,
$q->end_form,
$q->end_html;
} else {
print $q->header,
$q->start_html,
$q->hidden_multiple($q->param);
$q->end_html;
}
--- end script ---
Okay, so it prints the first form just fine (although it's pretty ugly
looking ;). But then upon submitting I get the following output:
--- output ---
Software error:
Undefined subroutine CGI::hidden_multiple
For help, please send mail to the webmaster (webmaster@shore.net),
giving this error message and the time and date of the
error. ;
--- end output ---
I had some syntax errors in my module, so I know Perl is "use"-ing it,
but why doesn't it see it when the hidden_multiple method is called?
I would appreciate any help you guys could give me. Especially if you
can tell me what I should be looking for in the Camel or in the FAQ's.
TIA
Mark :)
------------------------------
Date: Sun, 30 Aug 98 02:31:31 GMT
From: stevebo@onramp.net (Steve Silberberg)
Subject: Public Domain Module wanted
Message-Id: <6sadi2$f9p$1@news.onramp.net>
You must get this all the time --
Does anyone have a compiled perl script that will translate form data into
something readable under Windows?
thanks.
----------------
Steve Silberberg
mailto:stevebo@onramp.net
Visit the Air Sickness Bag Museum at:
http://rampages.onramp.net/~stevebo/airsick.html
FACT: Buff Babes Dig Cut Dudes!
------------------------------
Date: Sat, 29 Aug 1998 17:28:35 +0100
From: simple@nanospace.com
Subject: Re: regular expression. Help !!!!
Message-Id: <simple-2908981728350001@tc1-dialin17.nanospace.com>
open (FILE, "$filename");
@lines = <FILE>;
close FILE;
foreach $line (@lines) {
if ($line =~ /.+(crno=\d+).+(AOL\s+\d\.\d)/) {
$firstpart = $1;
$secondpart = $2;
} else {
&DidntMatch;
}
The parentheses denote sections of pattern that you want to remember.
This is read as: if the line is matched by 'one or more of any character'
followed by 'crno=any number of digits' followed by any number of
characters, followed by a space followed by 'AOL' followed by 'one or more
spaces', followed by a digit, followed by a period (notice its escaped),
followed by another digit.
In article <6rcr5o$5up$1@nnrp1.dejanews.com>, nguyen.van@imvi.bls.com wrote:
> Hi Guys,
>
> I'm new to perl; however I try to do something with but face a big problem.
> The following is my problem:
>
> For instance, in a file I have the following lines:
>
> xxxxxxxxxx&crno=1111222&xxxxxxxxx xxxxxxx xxxxxx AOL 3.0
>
> /?crno=1111111xxxxxxxxx xxxxxxxx xxxxxxxxxx AOL 3.1
>
> xxxxxxxxxxxxx xxxxxxxx&crno=8757555 xxxxxxx AOL 2.0
>
> In this case "crno=number" also increase over time, and it also can be
> located any where but last file which is the versions of browsers. What I
> want to do is to pull out from the line only "crno=number" (i.e crno=1111222,
> etc) and AOL X.X (i.e AOL 3.0, etc). Your help is highly appreciated.
>
> Thanks
> Van Nguyen
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sat, 29 Aug 1998 22:25:27 -0400
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Re: Setting DOS environment from PERL scripts
Message-Id: <35E8B817.4475C002@erols.com>
Whenever a subprocess is started, the subprocess gets a copy of the
parent's environment including the envvars. That means the best you can
do is alter your copy and pass it down. You cannot pass it up. The only
OS I know of where you can do this is VMS where the envvar tables
(actually their equivilent, its not quite the same) are global.
--
#!/usr/bin/perl -- Matthew O. Persico
print "Just Another Perl Neophyte\n";
## Simplicity is a blessing when you're
## supporting the program at 2AM
------------------------------
Date: Sat, 29 Aug 1998 19:25:13 -0700
From: bray1@postoffice.pacbell.net
Subject: tripped on chomp
Message-Id: <35E8B809.95D519CE@postoffice.pacbell.net>
I've gone through the first chapter in Learning Perl from O'Reilly.
I've been able to get the examples to work (after modifications) in
Windows 98.
But... when I telnet to my Unix shell, beginning with the most simple
example, I get syntax errors. For example, this simple script:
#! /usr/local/bin/perl -w
print "What is your name? ";
$name = <STDIN>;
chomp ($name);
print "Hello, $name!\n";
produces the following error -
syntax error in file hello.pl at line 4, next 2 tokens "chomp ("
In its Perl FAQ, the host server says Perl 5 is located in
/usr/local/bin/perl. That's how the #! reads in my little script.
When I edit the script to chop ($name), it runs without errors.
Is chomp new to Perl 5? Could I be using 4 on the server, even though
I've followed the faq's instructions?
I also get the same error when I use the qw( ) operator in another
script.
Any suggestions or solutions?
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3588
**************************************
