[12906] in Perl-Users-Digest
Perl-Users Digest, Issue: 316 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 30 18:07:19 1999
Date: Fri, 30 Jul 1999 15:05:17 -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 Fri, 30 Jul 1999 Volume: 9 Number: 316
Today's topics:
Re: <<END_OF_TEXT function <martin@adoma.se>
Re: <<END_OF_TEXT function <emschwar@rmi.net>
Re: <<END_OF_TEXT function <paulreid@cableinet.co.uk>
Re: bug in perlop manual <hal_mounce@amdahl.com>
Re: communicating with my POP3 mailer on an Apache syst <debot@xs4all.nl>
Re: Date incrementing (Abigail)
Re: ebcdic packed numbers (Abigail)
Re: ebcdic packed numbers <garethr@cre.canon.co.uk>
Re: Getting Height and Width of GIF/JPEG in PERL? <keithmur@mindspring.com>
Getting the Win32::API module to work <sweather@fastenal.com>
Re: Help install <martin@adoma.se>
Re: Help pls..<how to use perl to get a file from the i (Tad McClellan)
Re: Help pls..<how to use perl to get a file from the i (Abigail)
Re: Hey, that's pretty neat! (Larry Rosler)
Re: Hey, that's pretty neat! <tchrist@mox.perl.com>
Re: Hey, that's pretty neat! <tchrist@mox.perl.com>
Re: How is perl braindamaged? (was Re: Is LISP dying?) <emschwar@rmi.net>
Re: How to read the submit button as a name or value <tchrist@mox.perl.com>
Re: How to read the submit button as a name or value <Floyd@NewWebSite.com>
Re: How to stop a CGI execution ? (Abigail)
Re: Net::SNMP unabel to $session->get_table <carvdawg@patriot.net>
Re: Newbie alert !! (Tad McClellan)
Re: Newbie alert !! (John Borwick)
Re: Newbie alert !! <vlad@doom.net>
Re: Newbie alert !! <emschwar@rmi.net>
Re: Newbie alert !! (Larry Rosler)
Re: NEWSFLASH: Supremes rule anti-advert-ware illegal (I R A Darth Aggie)
Oraperl - how to get number of rows without count(*) <stearnol@cisco.com>
Re: parallel search (Abigail)
Re: parameter doesn't show up (Tad McClellan)
Re: parameter doesn't show up (Larry Rosler)
Re: Printing lines BTW two strings in file (NOT!) (Tad McClellan)
Re: running programs from inside perl <mattk@cybersurf.net>
Re: Sorting by more than one variable !? (Tad McClellan)
Re: system function broken - ActivePerl - build 517 or <schmickl@magnet.at>
Trouble shooting please!!! <jaganna@shell.one.net>
Re: Trouble shooting please!!! <sachin@sanskrit.lz.att.com>
Re: Why is this regexp not working ? (Tad McClellan)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 30 Jul 1999 22:36:29 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: <<END_OF_TEXT function
Message-Id: <37A21ADD.65DFDCD1@adoma.se>
Paul Christopher Reid wrote:
>
[snip..]
> I didn't understand what you meant by running it from shell and I would like
> to know more about this. I have to load to my server (I use cute FTP) and
> cannot telnet. I have been trying to run cgi/perl scripts on my pc for testing
> by using MS PWS but I cant get that to work.
>
use DOS on your PC if you cant telnet to try it on the server.
Read the documentation that came with perl on how to run CGI scripts at
the prompt.
Best regards
Martin Quensel
------------------------------
Date: 30 Jul 1999 15:26:02 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: <<END_OF_TEXT function
Message-Id: <xkfoggthlsl.fsf@valdemar.col.hp.com>
Eric The Read <emschwar@rmi.net> writes:
> If you're on a PC, go to <URL:http://www.activstate.com/>
That should be <URL:http://www.activestate.com/>, of course.
-=Eric, thinking it's maybe time to go home early :^)
------------------------------
Date: Fri, 30 Jul 1999 22:33:10 +0100
From: Paul Christopher Reid <paulreid@cableinet.co.uk>
Subject: Re: <<END_OF_TEXT function
Message-Id: <37A21A16.643D3C5E@cableinet.co.uk>
I have installed activeperl and now i need to read all the documentation.
This is not so easy I will need to play about searching through the folders etc to
see what it has installed and trying to find out how to use it. be back in about
forty three years
Thanks for the help again
BTW:
I see great potential in this and my understanding of the web has just become the
size of a needle in a haystack again.
thanks
Scratchie wrote:
> Paul Christopher Reid <paulreid@cableinet.co.uk> wrote:
> : I took it straight from the book by M&T books
>
> All well and good, but sometimes you have to be careful cutting and
> pasting from books.
>
> : #!/usr/bin/perl
>
> First of all, this should be flush with the left margin. Did you really
> enter it with the spaces before the #! or is that a typo?
>
> : require "cgi-lib.pl";
>
> People will tell you to use CGI instead of this library -- and they're
> probably right -- but this isn't the cause of your problem and for parsing
> the input of simple cgi scripts, cgi-lib should work fine.
>
> : MAIN:
> : {
> : &ReadParse
>
> : print &PrintHeader;
> : print &HtmlTop("Greetings of the world");
> : print <<END_OF_TEXT;
> : <P>Your translation reads:</P>
> : <BLOCKQUOTE>
> : $translateHi{$in{'lang'}}, $in{'who'} $translateHow{$in{'lang'}}
> : </BLOCKQUOTE>
> : END_OF_TEXT
>
> Aha. You're getting "clever" here. Whose idea was it to put the "main"
> body of code in this MAIN: block? If it was your book's, you might want to
> find another book.
>
> Anyway, your problem is that the here-document syntax ( << ) expects to
> see the specified token ("END_OF_TEXT" in this case) flush against the
> left margin. In your case, you have inserted a space (if this is really
> exactly the way it appears in the book, then you *really* need a new
> book!). Move "END_OF_TEXT" so there are no spaces to the left of it and
> that should work.
>
> : I didn't understand what you meant by running it from shell and I would like
> : to know more about this. I have to load to my server (I use cute FTP) and
> : cannot telnet.
>
> Running it from the shell means that you telnet to the server (assuming
> it's not local and it sounds like it isn't in your case) and execute the
> program from the command line (by typing its name) rather than executing
> it via CGI (i.e. invoking it from your web browser).
>
> : I have been trying to run cgi/perl scripts on my pc for testing
> : by using MS PWS but I cant get that to work.
>
> Did you install perl on your PC? If so, you should be able to run the
> scripts from the (DOS) command line without setting up PWS. If not, you're
> not going to be able to run them as CGIs either. :)
>
> Good luck.
>
> --Art
>
> --
> --------------------------------------------------------------------------
> National Ska & Reggae Calendar
> http://www.agitators.com/calendar/
> --------------------------------------------------------------------------
------------------------------
Date: Fri, 30 Jul 1999 14:09:40 -0700
From: Hal Mounce <hal_mounce@amdahl.com>
Subject: Re: bug in perlop manual
Message-Id: <37A21494.BF159D25@amdahl.com>
elephant wrote:
>
> I believe that there's a bug in the perlop documentation .. in the "Quote
> and Quote-like Operators" section - line 736 (when viewed with 'man')
>
> "For example, most networking protocols
> expect and prefer a CR+LF ("\012\015" or "\cJ\cM") for
> line terminators,"
>
> should be
>
> "For example, most networking protocols
> expect and prefer a CR+LF ("\015\012" or "\cM\cJ") for
> line terminators,"
Looks like a bug to me too. I'm looking at at perlop section marked
perl 5.005, patch 02, and a dusty 1979 Centronics manual. I don't know
how to effect a fix.
BTW, in the Centronics manual, the input port is called "The Interface."
--Hal
------------------------------
Date: Fri, 30 Jul 1999 22:42:45 +0200
From: Frank de Bot <debot@xs4all.nl>
Subject: Re: communicating with my POP3 mailer on an Apache system
Message-Id: <37A20E45.57BCBE50@xs4all.nl>
This is a multi-part message in MIME format.
--------------9A71586C7C220539142FBC79
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
If your isp has unix you could ask if they support procmailrc . This far
much easier to do. (I use it myself). If they do here are some url where you
can find instructions about it:
http://www.erehwon.org/erehwon/procmailex.html
Just thinking of an alternative for your idea.
Alyne & Warren wrote:
> Hi! My ISP is using Apache and I want to make a really SIMPLE pop3 mail
> filter to get rid of some of the spam before it hits my mailbox. I came
> up with this much so far:
>
> #!/usr/bin/perl
>
> $|=1;
> print "Content-type: text/html", "\n\n";
> print "<HTML>\n";
>
> $pop = new POP3Client("myactualID","MyPassword","MyDomainName");
> for ($i = 1; $i <= $pop->Count; $i++) {
> foreach ($pop->Head($i)) {
> /^(From|Subject): / and print $_, "\n";
> }
> print "\n";
> }
>
> #===============================================#
> print "<br><br><br>";
> print " =========== DONE =========";
> print "</body>";
> print "</html>";
> quit;
>
> NOTES: I do have POP3Client in the same directory on this Apache system as
> my mail filter program. Of course, I substitute my actual pop3 ID,
> password, and domain name for the dummies inserted for public viewing. I
> actually collect this by means of a form so that it doesn't sit in a file
> for all to see. . .
>
> Can anyone spot the errors I'm making? I hope so...
>
> Thanks heaps!
>
> --Warren
--------------9A71586C7C220539142FBC79
Content-Type: text/x-vcard; charset=us-ascii;
name="debot.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Frank de Bot
Content-Disposition: attachment;
filename="debot.vcf"
begin:vcard
n:de Bot;Frank
x-mozilla-html:FALSE
url:http://www.debot.nl/ppi/
adr:;;Dr.schaepmanlaan 37;Roosendaal;Noord-Brabant;4702 GT;Netherlands
version:2.1
email;internet:debot@xs4all.nl
fn:Frank de Bot
end:vcard
--------------9A71586C7C220539142FBC79--
------------------------------
Date: 30 Jul 1999 16:06:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Date incrementing
Message-Id: <slrn7q44u5.h2a.abigail@alexandra.delanet.com>
Stone Cold (paulm@dirigo.com) wrote on MMCLIX September MCMXCIII in
<URL:news:7ns6mm$bgi$1@nnrp1.deja.com>:
:: Does anyone know how to easily increment a date?
Yeah, as hinted by the FAQ, there are several modules on CPAN
that do this. Read the FAQ, and you'll know the names of those
modules.
:: For example, if the user enters in "may-99" in the user form, the
:: output would show like follows:
::
:: May-99 Jun-99 Jul-99 Aug-99 Sep-99 Oct-99
::
:: So basically, I need to increment the date entered by 1 month, for 5
:: months beyond the date entered. I'm pretty close now by incrementing
:: variables, but sort of lost.
Well, that seems pretty easy. Simple enough of not needing a module.
The order of the months in a year is: Jan Feb Mar Apr May Jun Jul Aug
Sep Oct Nov Dec.
Given that, and that the addition operator is '+', and the modulus
operator is '%', can you figure it out? If not, try something, and
show us what you tried, and why it didn't work as you expected.
Abigail
--
perl -wlne '}for($.){print' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Jul 1999 16:08:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: ebcdic packed numbers
Message-Id: <slrn7q4520.h2a.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCLIX September MCMXCIII in
<URL:news:37a75b65.5232539@news.skynet.be>:
<> Uri Guttman wrote:
<>
<> >perl's bigint modules should satisfy that need without any extra effort.
<>
<> Math::Bigint? With decimal points?
Try its brother, Math::BigFloat.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 30 Jul 1999 21:15:28 GMT
From: Gareth Rees <garethr@cre.canon.co.uk>
Subject: Re: ebcdic packed numbers
Message-Id: <siaesdn8jz.fsf@cre.canon.co.uk>
Uri Guttman wrote:
> Perl's bigint modules should satisfy that need without any extra effort.
Bart Lateur wrote:
> Math::Bigint? With decimal points?
Decimal fractions can be represented exactly as ratios of bignums.
--
Gareth Rees
------------------------------
Date: Fri, 30 Jul 1999 14:28:00 -0500
From: "Keith G. Murphy" <keithmur@mindspring.com>
Subject: Re: Getting Height and Width of GIF/JPEG in PERL?
Message-Id: <37A1FCC0.E08DCE88@mindspring.com>
Tom Christiansen wrote:
>
> [courtesy cc of this posting mailed to cited author]
>
> In comp.lang.perl.misc,
> abigail@delanet.com writes:
> :For years, one of the items in one of the drop down menus of my copy of
> :Netscape had the label "The Evil Empire". It was the link to Netscape's
> :web site.
>
> I wonder whether people remember this whole Evil Empire thing. It was
> because the AT&T logo resembled the Death Star, and they were battling
> BSD on idiotic copyright crap.
>
> If you have ever seen the grim word "login:" on a screen, your mind
> is now a wholly-owned subsidiary of The Death Star.
> John Woods in <14105@ksr.com> of comp.unix.bsd
>
> It made a lot of sense to apply the Evil Empire epithet to something
> that actually resembles the Death Star symbol. Since then, use of the
> moniker has obviously broadened. For example, now "Evil Empire" means
> Microsoft, but they have no Death Star.
>
But was the phrase "Evil Empire" ever uttered in the Star Wars series?
Yeah, it was Evil, and it was an Empire, but "Evil Empire" would have
been almost redundant for an SW character to say. I thought the phrase
came into vogue through Reagan's application of it to the Soviet Union.
------------------------------
Date: Fri, 30 Jul 1999 15:43:02 -0500
From: "Sam Weatherhead" <sweather@fastenal.com>
Subject: Getting the Win32::API module to work
Message-Id: <7nt2ol$1m08@enews4.newsguy.com>
Don't laugh at me, but....:
I downloaded Aldo Calpini's Win32::API module but I can't
figure out how to install it and get it running.
I took the "API.mak" file and opened it up in Visual C++ 6.0.
I then tried building the API.pll file. At first it was failing out
because it was trying to find "..\..\..\Release\perl300.lib", which
doesn't exist for newer versions of Perl (I have version 517 from
ActiveState).
To fix the problem, I then created the "Release" directory and then
copied perlCAPI.lib and renamed it to perl300.lib in the "Release"
directory.
I then did a rebuild and it worked. It created the API.pll, API.lib, and
API.exp.
After that, I then copied the API.pll, API.exp, and API.lib to the
C:\Perl\Site\lib\auto\win32\API directory and then copied the API.pm
to the C:\Perl\Site\lib\Win32 directory.
However, when I went to run the test script:
use Win32::API;
$GetPID = new Win32::API("kernel32", "GetCurrentProcessId", [], N);
$PID = $GetPID->Call();
print "1..1\n";
print ($PID == $$ ? "ok 1\n" : "not ok 1\n");
it failed out saying:
Can't locate loadable object for module Win32::API in @INC (@INC contains:
C:/Perl/lib C:/Perl/site/lib .) at
E:\Sams_Files\Perl\Shareware\Win32API-0.011\t\test.pl line 2
BEGIN failed--compilation aborted at
E:\Sams_Files\Perl\Shareware\Win32API-0.011\t\test.pl line 2.
Any Suggestions are appreciated.
Sam Weatherhead
Fastenal
------------------------------
Date: Fri, 30 Jul 1999 23:04:28 +0100
From: Martin Quensel <martin@adoma.se>
Subject: Re: Help install
Message-Id: <37A2216C.98AB71E7@adoma.se>
Igor Lior wrote:
>
> Hello!
> Help me to install Perl Win32 on server Apache 1.3.6 (Win32)
Just install activestate perl, and apache.
You have to include the shebang, pointing at your perl executable, just
as if you where on Unix.
(If you run IIS you dont need to do this. But you dont.)
For example:
#!C:\perl\bin\perl.exe
It is also covered in the docs for activestate perl.
Martin Q
------------------------------
Date: Fri, 30 Jul 1999 10:49:53 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Help pls..<how to use perl to get a file from the internet??>
Message-Id: <h2esn7.rat.ln@magna.metronet.com>
HING (leech6@ie.cuhk.edu.hk) wrote:
: can i open a page from the internet??
: say open(FH,"http://XXX");
No.
That was a silly question.
open() works on files (if you believe perlfunc).
'http://XXX' is not a file spec.
: if not what can i do to get file from XXX by using perl??
use LWP::Simple;
my $html = get 'http://XXX';
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 30 Jul 1999 16:11:20 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Help pls..<how to use perl to get a file from the internet??>
Message-Id: <slrn7q456o.h2a.abigail@alexandra.delanet.com>
HING (leech6@ie.cuhk.edu.hk) wrote on MMCLIX September MCMXCIII in
<URL:news:Pine.GSO.4.10.9907301342020.18486-100000@iesun44>:
'' HI HI.
'' can i open a page from the internet??
Sort of.
'' say open(FH,"http://XXX");
Did you try? What happened?
'' if not what can i do to get file from XXX by using perl??
use LWP::UserAgent;
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 30 Jul 1999 13:50:29 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Hey, that's pretty neat!
Message-Id: <MPG.120baff164e52a44989d7a@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <37a1fdbf@cs.colorado.edu> on 30 Jul 1999 13:32:15 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
...
> But I really hate y/A-Z/a-z/. I really really do. You can't
> use it on English, let alone anything else.
>
> Encyclophædia Britannica
Encyclopædia Britannica
> El Niño
> La Niña
> Secretary Federico Peña
> Molière
> Renée
> Goödel
Gödel
> Shröindger
Shrödinger
> coöperate
> façade
> fiancé
> fiancée
> naïve
> preëmpt
> rôle
> tschüß
You have the strangest definition of 'English' for that last one!
But I don't see the solution to this problem with locales. Would 'ñ' or
'ß' be handled correctly in a French locale, for example? Are there
different locales to distinguish that Parisian French upper-cases 'é'
for example to 'E', while Canadian French upper-cases it to 'É' (or is
it vice-versa)? 'perllocale' has the following:
setlocale(LC_CTYPE, "fr_CA.ISO8859-1");
# LC_CTYPE now in locale "French, Canada, codeset ISO 8859-1"
so maybe there is hope for that, but how would it be done in an English
locale?
Nine 'en_' locales are named in the reference given in the FAQ:
<URL:ftp://dkuug.dk/i18n/WG15-collection/locales/>. Ugh.
Maybe a small tutorial on locales would be useful in general. I know it
would be to me.
Ciao! (Is that English, too?)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 30 Jul 1999 15:35:11 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Hey, that's pretty neat!
Message-Id: <37a21a8f@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
lr@hpl.hp.com (Larry Rosler) writes:
: Encyclopædia Britannica
: Gödel
: Shrödinger
I wish I could get my locales set up well enough that I could have seen
these instead of the hex characters that confused me. :-(
--tom
--
If I had to choose between System V and 4.2, I'd resign. --Peter Honeyman
------------------------------
Date: 30 Jul 1999 15:35:34 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Hey, that's pretty neat!
Message-Id: <37a21aa6@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
lr@hpl.hp.com (Larry Rosler) writes:
:Maybe a small tutorial on locales would be useful in general. I know it
:would be to me.
Isn't "man perllocale" good enough?
--tom
--
"I want to know God's thoughts... the rest are details."
- Albert Einstein
------------------------------
Date: 30 Jul 1999 15:30:20 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: How is perl braindamaged? (was Re: Is LISP dying?)
Message-Id: <xkflnbxhllf.fsf@valdemar.col.hp.com>
rurban@xarch.tu-graz.ac.at (Reini Urban) writes:
> if anyone is interested in "language wars" or let's say some arguments
> from the outside morons, we collected some arguments on comp.lang.lisp
> "why perl is braindamaged", "why python is better", "why perl is better
> than python", why lisp is better than everything and such.
Go away, troll.
*plonk*
-=Eric
------------------------------
Date: 30 Jul 1999 14:13:48 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to read the submit button as a name or value
Message-Id: <37a2077c@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Floyd Morrissette <Floyd@NewWebSite.com> writes:
:Point well taken. I only got the idea from reading Learning Perl which you
:co-wrote with Randal. On page 4 it says, "This compilation does take time; it's
:inefficient to have a voluminous Perl program that does one small quick task
:(out of many potential tasks) and then exits, because the run-time for the
:program will be dwarfed by the compile-time." So if this quote does not apply to
:CGI.pm, what size program would it refer to? At what point does it become
:inefficient? Don't think I am trying to be argumentative. I really do want the
:answer because I have written some scripts where I was afraid it might be taking
:too long to execute.
I believe that this was more true on old nasty machines than it is today.
--tom
--
"Usenet is like a herd of performing elephants with diarrhea --
massive, difficult to redirect, awe-inspiring, entertaining, and a
source of mind-boggling amounts of excrement when you least expect
it." --gene spafford, 1992
------------------------------
Date: Fri, 30 Jul 1999 16:19:36 -0400
From: Floyd Morrissette <Floyd@NewWebSite.com>
Subject: Re: How to read the submit button as a name or value
Message-Id: <37A208D8.3BC6A26E@NewWebSite.com>
Tom Christiansen wrote:
>
> I believe that this was more true on old nasty machines than it is today.
>
> --tom
You are probably right of course. The book was first written in '93 updated '97.
The long scripts I wrote seemed to run ok. Thanks for your help.
Floyd
------------------------------
Date: 30 Jul 1999 16:17:36 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to stop a CGI execution ?
Message-Id: <slrn7q45ig.h2a.abigail@alexandra.delanet.com>
Hilton Bruno de Almeida Sousa (sapujo@dcc.ufmg.br) wrote on MMCLIX
September MCMXCIII in <URL:news:7nsmeq$dpa$1@usenet.pop-mg.rnp.br>:
;; Does the browser send any signal to a CGI when the user hits "stop" ?
No... for the same reason your client doesn't send a signal to an FTP if
you quit your ftp client. CGI is a protocol. Browsers don't send signals
to protocols.
Of course, this hasn't anything to do with Perl.
;; How
;; can I capture it ? I have a CGI (written in ActivePerl for Win32) that
;; executes
You mean, you have a program that communicates with the *server* using CGI,
right? Now, does the CGI specification say anything about sending anything
to the client program when the user hits "stop"? (And, for that matter, does
HTTP say anything about a control message that's issued when the user hits
"stop"?)
;; a "while" loop. But even when the user hits "stop" (or kills the browser
;; window),
;; the scripts go on running (I can see the "perl.exe" process in the task
;; manager).
;; Any ideas ?
Find a different news group to discuss this. This hasn't anything to do
with Perl.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 30 Jul 1999 16:53:11 -0400
From: HC <carvdawg@patriot.net>
Subject: Re: Net::SNMP unabel to $session->get_table
Message-Id: <37A210B7.DC233A9@patriot.net>
How about posting the code you are using...for all we know, you may be
trying to get a table where there is none!
John Hennessy wrote:
> I have read through the documentation that comes with Net::SNMP version 2.0
> but am still unable to get the "get_table" function to return any data.
>
> Where can I find some sample code or additional documentation to help ?
>
> Thanks
------------------------------
Date: Fri, 30 Jul 1999 11:32:47 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Newbie alert !!
Message-Id: <vigsn7.rit.ln@magna.metronet.com>
96Vette (cajun@rattler.cajuninc.com) wrote:
: Thank you Sam. I'm sure there are many ways to accomplish it. Thanks much
: for the starting point. That's what I was looking for.
: In my tiny mind, I thought the following might work:
: #!/usr/bin/perl -n -pi.bak
: s/$_/$_'.'|||||/w;
: Of course, I was wrong.
But this will work:
s/$/|||||/; # dollar sign is the end-of-string (or line) anchor
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 30 Jul 1999 20:06:21 GMT
From: John.Borwick@sas.com (John Borwick)
Subject: Re: Newbie alert !!
Message-Id: <37a60505.373788178@newshost.unx.sas.com>
On Fri, 30 Jul 1999 03:19:21 -0700, 96Vette
<cajun@rattler.cajuninc.com> wrote:
>Thank you Sam. I'm sure there are many ways to accomplish it. Thanks much
>for the starting point. That's what I was looking for.
>
>In my tiny mind, I thought the following might work:
>
>#!/usr/bin/perl -n -pi.bak
>
>s/$_/$_'.'|||||/w;
If you really really wanted to use a regexp, you could use:
#!/usr/bin/perl -pi.bak
s/$/|||||/;
__END__
/$_/ is always true, because it's the same as $_ =~ /$_/ .
A "tautology," you might say.
--
John Borwick
------------------------------
Date: 30 Jul 1999 17:21:44 GMT
From: <vlad@doom.net>
Subject: Re: Newbie alert !!
Message-Id: <7nsmv8$p92$1@news.servint.com>
96Vette <cajun@rattler.cajuninc.com> wrote:
> The database definition has been expanded to include five more blank
> fields at the end of each record. Making the new database example look
> like this:
> |Mary|601 Elm Street|Nowhere, CA|99999|555-111-2222||||||
> |Joe|432 Pine Street|Downtown, CA|88888|555-222-3333||||||
Since you are new to perl, here's a simple program that will do what you want.
This can easily be written in one line of code. But here's a long version so you
understand whats going on.
-v
#!/usr/bin/perl -w
open (FILE, "original_db.txt") || die $!;
open (FILE2, ">new_db.txt") || die $!;
while (<FILE>) {
chomp;
print FILE2 "$_|||||\n";
}
close (FILE);
close (FILE2);
------------------------------
Date: 30 Jul 1999 15:22:59 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Newbie alert !!
Message-Id: <xkfr9lphlxo.fsf@valdemar.col.hp.com>
Ala Qumsieh <aqumsieh@matrox.com> writes:
> Eric The Read <emschwar@rmi.net> writes:
> > I'd say something like:
> >
> > perl -lni.bak -e "print $_,"|||||\n"' old_data_file
>
> The '-l' adds a "\n" to your print()s. $_ already has a "\n" at the
> end. You print a "\n" after the five pipes.
d'oh!
I plead over-speedy reading of perlrun-- I was sure there was something
that did an automatic chomp() for me, and I didn't stay long enough to
realize it automatically set $\ to $/.
For my penance, I'll send in that FAQ emendation I did, and scour it for
a few other possible bugs.
-=Eric
------------------------------
Date: Fri, 30 Jul 1999 14:23:42 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Newbie alert !!
Message-Id: <MPG.120bb7bd217c59d989d7c@nntp.hpl.hp.com>
In article <37a60505.373788178@newshost.unx.sas.com> on Fri, 30 Jul 1999
20:06:21 GMT, John Borwick <John.Borwick@sas.com> says...
...
> /$_/ is always true, because it's the same as $_ =~ /$_/ .
> A "tautology," you might say.
Never say 'always'. A 'truism', you might say.
#!/usr/local/bin/perl -w
use strict;
$_ = "";
'foo' =~ /./; # Then try commenting this line out.
print "true\n" if /$_/;
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 30 Jul 1999 20:30:59 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: NEWSFLASH: Supremes rule anti-advert-ware illegal
Message-Id: <slrn7q430a.1kk.fl_aggie@thepentagon.com>
On 30 Jul 1999 18:20:26 GMT, John Callender <jbc@shell2.la.best.com>, in
<37a1ecea$0$13652@nntp1.ba.best.com> wrote:
+ But yeah, from a certain perspective it does suck.
Thus why G*d uses a killfile whilst reading Usenet...
James
------------------------------
Date: Fri, 30 Jul 1999 14:52:18 -0700
From: Stephanie <stearnol@cisco.com>
Subject: Oraperl - how to get number of rows without count(*)
Message-Id: <37A21E91.931D85DC@cisco.com>
Hi-
Just a quick question that I hope someone can help with. My coworker has
worked with perl and was using $foo = &ora_do($lda,"select 'X' from blah
blah") to get back the number of rows from a table. He used this rather
than a cursor for speed. Since we moved our code to a new server this no
longer works. In my Perl modual book it says this was alright in
Oraperl v2 but that the new Oraperl emulation does not work the same. I
have never tried queries without cursors and could not help him, so I
need to know what he can do to make this work. He wants to continue to
not use a cursor, but I don't think this is possible.Is it? If so, how
can it be done. He needs to get this done ASAP, so emailing me directly
would be a plus.
Thanks in Advance-
Stephanie
stearnol@cisco.com
------------------------------
Date: 30 Jul 1999 16:22:40 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: parallel search
Message-Id: <slrn7q45s1.h2a.abigail@alexandra.delanet.com>
Kit (hykit@jps.net) wrote on MMCLIX September MCMXCIII in
<URL:news:300719990612493856%hykit@jps.net>:
%% I am wondering where I can find more information about how to implement
%% parallel processing or parallel search under PERL. I am trying to
%% write a search engine that searches serveral websites in parallel
%% (simultaneously) and outputs the results into one page.
%% What command(s) in PERL should I be looking at. Am I in the right
fork() and/or select().
%% direction if I start reading more about interprocess communication
%% (IPC)? Any help is greatly apreciated.
Yes.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 30 Jul 1999 11:01:56 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: parameter doesn't show up
Message-Id: <4pesn7.rat.ln@magna.metronet.com>
Richard H (rhrh@hotmail.com) wrote:
: Maria Zevenhoven wrote:
: > read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
: > with perl -w I get the following:
: > Use of uninitialized value at kalenteri.cgi line 8.
: > so what went wrong?
: Nothing went wrong,
Something went wrong.
: you asked for a warning and you got one,
If you are getting a warning from -w, then, most of the time,
something has indeed gone wrong.
: you've read an environmental variable into an uninitiated variable,
^^^^
You do not get an "uninitialized *value*" warning when for
a variable that you are *trying to initialize*, because
its _value_ is not being used, it is being set.
: declare it first:
: my $in;
Thanks for trying to be helpful, but it didn't work this time.
$in cannot be the variable that -w is complaining about,
because its _value_ is not being used. In fact, she was
trying to give it a value in the statement that generated
the warning!
Please don't post untested advice (unless you don't mind being
embarrassed in front of thousands of people).
perl -we 'read(STDIN,$in,$foo)'
Name "main::foo" used only once: possible typo at -e line 1.
Name "main::in" used only once: possible typo at -e line 1.
Use of uninitialized value at -e line 1.
perl -we 'my $in; read(STDIN,$in,$foo)'
Name "main::foo" used only once: possible typo at -e line 1.
Use of uninitialized value at -e line 1.
Doesn't look like that helped much...
perl -we 'read(STDIN,$in,5)'
Name "main::in" used only once: possible typo at -e line 1.
Hmmm. Must have had something to do with that 3rd argument...
: and to make things easier in the long run look up strict in the docs:
: #!/usr/bin/perl -w
: use strict;
Now _that_ is the ultimate in being helpful. Keep it up.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 30 Jul 1999 14:13:02 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: parameter doesn't show up
Message-Id: <MPG.120bb53db66fe3a989d7b@nntp.hpl.hp.com>
In article <4pesn7.rat.ln@magna.metronet.com> on Fri, 30 Jul 1999
11:01:56 -0400, Tad McClellan <tadmc@metronet.com> says...
> Richard H (rhrh@hotmail.com) wrote:
...
> : you've read an environmental variable into an uninitiated variable,
> ^^^^
>
> You do not get an "uninitialized *value*" warning when for
> a variable that you are *trying to initialize*, because
> its _value_ is not being used, it is being set.
>
> : declare it first:
>
> : my $in;
>
> Thanks for trying to be helpful, but it didn't work this time.
>
> $in cannot be the variable that -w is complaining about,
> because its _value_ is not being used. In fact, she was
> trying to give it a value in the statement that generated
> the warning!
You are being a bit dogmatic here. There was a bug in version 5.003 and
below that in fact required one to initialize the target variable to
suppress the warning. I still use it in programs that run on updated
servers owned by others.
> Please don't post untested advice (unless you don't mind being
> embarrassed in front of thousands of people).
OK.
E:\test>cat try.txt
#!/usr/local/bin/perl -w
use strict;
my $in;
read DATA, $in, 3;
print $in;
__END__
foobar
E:\test>perl5003 try.txt
Use of uninitialized value at e:\test\try.txt line 5.
foo
E:\test>perl5003 -v
This is perl, version 5.003 with DEBUGGING MULTIPLICITY
built under Windows_NT at Sep 24 1997 00:36:07
+ suidperl security patch
...
Of course, you are probably right about the cause of this particular
undefined warning being the third argument to 'read'.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 30 Jul 1999 10:47:28 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Printing lines BTW two strings in file (NOT!)
Message-Id: <0udsn7.rat.ln@magna.metronet.com>
Philip 'Yes, that's my address' Newton (nospam.newton@gmx.net) wrote:
: chris dawson wrote:
: >
: > And there are better ways to match multiple occurences of a character
: > than
: > $eks_file[$i] !~ /\*\*\*\*/ )
: Such as? Were you thinking about /\*{4}/? By explicitly specifying the
: four asterisks, you relieve the regex engine from having to count
: itself. As I understand it, the original version is more efficient
: ("better", in my book) than \*{4}. Or what were you thinking of?
-------------------------------
#!/usr/bin/perl -w
use Benchmark;
$s = 'foo*******bar';
timethese 10_000_000, { explicit => '$s =~ /\*\*\*\*/',
counting => '$s =~ /\*{4}/',
};
-------------------------------
output:
Name "main::s" used only once: possible typo at ./benchmark line 5.
Benchmark: timing 10000000 iterations of counting, explicit...
counting: 9 wallclock secs (10.11 usr + -0.02 sys = 10.09 CPU)
explicit: 9 wallclock secs (10.24 usr + 0.00 sys = 10.24 CPU)
Or what were you thinking of?
:-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 30 Jul 1999 15:07:54 -0700
From: Matt <mattk@cybersurf.net>
Subject: Re: running programs from inside perl
Message-Id: <37A2223A.E7FE1B0A@cybersurf.net>
three ways
`java test`; # returns program output
exec 'java test'; # executes and NEVER returns
system 'java test'; # returns program return value
try:
perldoc -f exec
or
perldoc -f system
Matt Kennedy
mattk@cybersurf.net
`
olumsbaba@my-deja.com wrote:
>
> HELP:
> how do I call another program from inside Perl
> e.g
> I have a perl script but inside it I want to run a
> java program [say, java test (where test.class is
> the java class name)]
------------------------------
Date: Fri, 30 Jul 1999 11:26:34 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Sorting by more than one variable !?
Message-Id: <a7gsn7.rit.ln@magna.metronet.com>
Ryan Ngi (ryanngi@hotmail.com) wrote:
: by sorting the [1] of array if the [1] of array is equal then perform
: second sort on [0]
: how to implement the clean algorithm for this job !?
You are beginning to get very annoying!
You should stop before you get widely killfiled.
We are not here to read the docs *for* you.
Read them yourself (I assume you can do that).
perldoc -q sort
finds:
"How do I sort an array by (anything)?"
In the answer to that question it has:
"If you need to sort on several fields, the following
paradigm is useful."
(following paradigm not given here, go look it up)
If you *try first* and still don't understand, then ask about
it here.
You pre-K types are not allowed to play with the big kids
until you are at least this tall...
----------------------------------------------------------------------
In article <1995Nov9.193745.13694@netlabs.com>, lwall@netlabs.com (Larry
Wall) wrote: ...
<Larry> [snip] I view a programming language as a place to be
<Larry> explored, like Disneyland. You don't need to have a lot of preparation
<Larry> to explore a theme park. You do have to go along with the crowd
<Larry> control measures, though. In a sense, each ride has its own
<Larry> prerequisites--if you cut in line, you risk getting tossed out of the
<Larry> park.
<Larry>
<Larry> What we have here in this newsgroup is a failure in crowd control.
<Larry> Reading the FAQ is like staying in line--it's something you should
<Larry> learn in kindergarten. Usenet needs a better kindergarten.
----------------------------------------------------------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 30 Jul 1999 23:35:06 +0200
From: Thomas Schmickl <schmickl@magnet.at>
Subject: Re: system function broken - ActivePerl - build 517 or 518
Message-Id: <37A21A8A.57CC3CB6@magnet.at>
Michael Allan schrieb:
> Request for confirmation of bug in build 517 or 518 of ActivePerl for
> Win32:
>
> Applications fail to launch properly from a system function call under
> build 518. For example, the following simple program, which worked in
> build 516, is broken under 518.
>
> use diagnostics;
> use strict;
> print system 'CALC.EXE';
> print $!;
I posted about this behavior a few days before (no answer). Calling a
gui-application
on WinNT 4.0 with ActivePerl 518 using >system "xxxx.exe"< brings no window
on screen. Calling a shell based application like latex or dvips works fine.
So I can confirm this bug.
ciao, thomas.
please answer to: schmickl@magnet.at, do not reply to this mail adress.
------------------------------
Date: 30 Jul 1999 16:22:31 -0400
From: Tanvada Jagannadha <jaganna@shell.one.net>
Subject: Trouble shooting please!!!
Message-Id: <37a20987@news1.one.net>
Hi,
I am stuck with a wierd problem. I'm working on a perl code and i am
getting an error in the routine given belew:
open(fpp, "r.txt")
@array = <fpp>;
foreach $key (keys(%FORM)) {
for($n=0; $n<@array; $n++) {
$temp = substr(@array[$n],0);
if($key eq substr($temp,0,8){
@arr = split(/^/, @array[$n]);
* for($p=1; $p<@arr; $p++) {
if($FORM{$key} eq @arr[$p]) {
$score = $score + @arr[$p+1];
}
$p++;
}
}
}
}
the error mesg i'm getting is:
syntax error at r.pl line 60, near "for"
syntax error at r.pl line 60, near "++) "
Execution of r.pl aborted due to compilation errors.
i marked line 60 by a '*'.
i really couldn't find out what the problem is. Thsi is my first major
code in perl. Please help me. Thanks in advance.
Regards,
Jagannadha Tamvada
------------------------------
Date: Fri, 30 Jul 1999 17:43:30 -0400
From: Sawant Sachin <sachin@sanskrit.lz.att.com>
Subject: Re: Trouble shooting please!!!
Message-Id: <37A21C82.99618970@sanskrit.lz.att.com>
HI,
if($key eq substr($temp,0,8){
The statement above is missing a right backet at the end it should be
if($key eq substr($temp,0,8)){
Tanvada Jagannadha wrote:
> Hi,
> I am stuck with a wierd problem. I'm working on a perl code and i am
> getting an error in the routine given belew:
> open(fpp, "r.txt")
> @array = <fpp>;
> foreach $key (keys(%FORM)) {
> for($n=0; $n<@array; $n++) {
> $temp = substr(@array[$n],0);
> if($key eq substr($temp,0,8){
> @arr = split(/^/, @array[$n]);
> * for($p=1; $p<@arr; $p++) {
> if($FORM{$key} eq @arr[$p]) {
> $score = $score + @arr[$p+1];
> }
> $p++;
> }
> }
> }
> }
>
> the error mesg i'm getting is:
> syntax error at r.pl line 60, near "for"
> syntax error at r.pl line 60, near "++) "
> Execution of r.pl aborted due to compilation errors.
>
> i marked line 60 by a '*'.
>
> i really couldn't find out what the problem is. Thsi is my first major
> code in perl. Please help me. Thanks in advance.
> Regards,
> Jagannadha Tamvada
------------------------------
Date: Fri, 30 Jul 1999 11:37:27 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Why is this regexp not working ?
Message-Id: <nrgsn7.rit.ln@magna.metronet.com>
marcza@my-deja.com wrote:
: Assume the following:
: $currline = "Date: 23.05.1999";
^^^^
^^^^
: if ($currline =~ /([ \w]{1,20})$/) {
: print "matched\n"; }
: Surprisingly currline IS MATCHED. Why ?
Looks to me like that underlined part matches.
All you had to do was print out the value of $1.
Usenet should be the _last_ place you go for help, after
you have tried everything else.
Maybe you meant to anchor the beginning of the pattern too?
: a word char (\w = [a-zA-Z_]) or a space.
Those are not the only word characters.
Try again.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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.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 V9 Issue 316
*************************************
