[7599] in Perl-Users-Digest
Perl-Users Digest, Issue: 1225 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 24 15:12:43 1997
Date: Fri, 24 Oct 97 12:00:54 -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 Fri, 24 Oct 1997 Volume: 8 Number: 1225
Today's topics:
Re: Displaying X-based applications? (Jared Evans)
Encryption <amias@mindless.com>
Re: Encryption <rootbeer@teleport.com>
Re: Encryption (brian d foy)
Re: finding a unique element in an array <seay@absyss.fr>
Re: Is posible to make a post from a CGI to other CGI (brian d foy)
Re: Is posible to make a post from a CGI to other CGI <rootbeer@teleport.com>
Lookaround? (Was: Re: Lookbehind) (David Sewell)
Re: Minimal match regular expression <rootbeer@teleport.com>
oraperl - connect string <knguyen@ab.bluecross.ca>
Paradox 7 - Bug in table export <jerryp.usenet@SPAMconnected.demon.co.uk>
Perl and file format lb8qc@qcunix1.qc.edu
Re: Perl and file format (brian d foy)
Re: Perl for Windows NT <pcogan@heroldhaines.com>
Perl/IIS4.0 Question (Mike Seidle)
please help--reding client file from a server (Lena Mindlina)
Re: Primes via regexen (Was: Re: non-greedy regexps) (John L. Allen)
Re: Q: Webserver for Win95? <rootbeer@teleport.com>
Re: Question: Using Modules <rootbeer@teleport.com>
Re: replacing quotes with help of a regexp? <rootbeer@teleport.com>
Re: Running a Script at Startup <rootbeer@teleport.com>
SQL and Perl lb8qc@qcunix1.qc.edu
Re: SQL and Perl (brian d foy)
SQL to update a row from a Perl script <HARTLEH1@westatNOSPAM.com>
Re: SQL to update a row from a Perl script (brian d foy)
Re: Strange behavior of $? <rootbeer@teleport.com>
Re: Using .forward file to trigger Perl script (brian d foy)
Re: Using .forward file to trigger Perl script (Matthew Cravit)
using perlscript with new IIS 4.0 beta <lebowitz@ehs.net>
Re: Year2000 problem with localtime(); (Jim Allenspach)
Re: Year2000 problem with localtime(); (I R A Aggie)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Oct 1997 17:05:24 GMT
From: jared@node6.cwnet.frontiernet.net (Jared Evans)
Subject: Re: Displaying X-based applications?
Message-Id: <62qkgk$1a9s$1@node6.cwnet.frontiernet.net>
In article <3450B911.2781E494@coam.usm.edu>,
Peter Sakalaukus <sakalauk@coam.usm.edu> wrote:
>I have created a user interface using Apache/Perl/Netscape. One of the
>user selections subsequently pops up an xterm, (which is running on the
>same machine as the server). This works fine if I am using the browser
>interface on the same machine that the Apache server is running on. The
>problem arises when I access the web pages from another machine. I am
>unable to pop up the xterm or any other x/motif program.
>
>Does anyone know wether it is a server/browser/perl problem? Is there
>a fix?
>
>Thanks in advance ...Pete
What you would want to use is have the web server make RPC calls to the
machine you are on (you can obtain the IP address by using the
$ENV{REMOTE_HOST}) to execute programs on your local machine. Granted this
will mean you will have to design a RPC server and install it on machines you
will be at. But it will work.
I'm using this method to have anyone send data filled on on a web form to a
CAD server residing elsewhere on the network to parse the values and
automatically create and print files that contains the CAD drawings.
-Jared
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Fri, 24 Oct 1997 18:31:13 +0100
From: Amias <amias@mindless.com>
Subject: Encryption
Message-Id: <3450DB61.6A6B@mindless.com>
Does anyone know of any good perl modules for PGP style encryption ?
I need to encrypt some data held in memory and output it to a file.
Toodle-pip
Amias
http://www.homeusers.prestel.co.uk/amias
ICQ 3099152
Anyone spamming me _will_ have problems with their server
------------------------------
Date: Fri, 24 Oct 1997 11:24:09 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Amias <amias@mindless.com>
Subject: Re: Encryption
Message-Id: <Pine.GSO.3.96.971024112351.5898g-100000@usertest.teleport.com>
On Fri, 24 Oct 1997, Amias wrote:
> Does anyone know of any good perl modules for PGP style encryption ?
If there's a module which does what you want, it should be listed in
the module list on CPAN. If you don't find one to your liking, you're
welcome and encouraged to submit one! :-) Hope this helps!
http://www.perl.org/CPAN/
http://www.perl.com/CPAN/
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 14:39:33 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Encryption
Message-Id: <comdog-ya02408000R2410971439330001@news.panix.com>
In article <3450DB61.6A6B@mindless.com>, REMOVE THIS <amias@mindless.com> wrote:
>Does anyone know of any good perl modules for PGP style encryption ?
>I need to encrypt some data held in memory and output it to a file.
have you tried the PGP module on CPAN [1]? it's labeled as alpha, so
be cautious with it.
other than that, i have so code (somewhere) that will do what you want
since i had to write an internal module to interface with PGP. if anyone
is interested i'll see if i can convince the suits to let me give it
away :)
[1]
Comprehensive Perl Archive Network
find one near you at <URL:http://www.perl.com>
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Fri, 24 Oct 1997 18:31:12 +0200
From: Doug Seay <seay@absyss.fr>
To: Prince Mystery <mystery@itis.com>
Subject: Re: finding a unique element in an array
Message-Id: <3450CD50.7D0750E3@absyss.fr>
[posted and mailed]
Prince Mystery wrote:
>
> I had an idea, and wondered if this was a faster method, or even just a
> nicer one. If it's slower, and prone to error, I'll change back to
> Tom's method. (Please understand that in my situation, the values of
> the string are much more constant than those shown here, and won't ever
> include an regexp special characters).
>
> @array = ("tom", "dick", "harry");
> $string = join(' ',@array);
> if($string =~ /tom/) { print "tom is in this array\n"; }
What about the differences between "tom" and "tomas"? You should
include some \b anchors in there. I don't know too much about RE
speeds, but I'd guess that yours would be slower to lookup, especially
for long lists. But for just one or two lookups, it might not be bad.
- doug
------------------------------
Date: Fri, 24 Oct 1997 16:46:32 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Is posible to make a post from a CGI to other CGI
Message-Id: <62qhk5$cni@bgtnsc01.worldnet.att.net>
In article <01bce068$7561de20$902f8cc2@p133>, "Deme" <deme@ran.es> wrote:
> Is posible to make a post from a CGI to other CGI
> i'm novice
yes. in your case you might want to use the LWP modules, which are
available from CPAN [1]. The modules come with plenty of documentation
and examples.
good luck :)
[1] Comprehensive Perl Archive Network
find one at <URL:http://www.perl.com>
--
brian d foy <http://computerdog.com>
#!/usr/bin/perl
$_=q|osyrNewkecnaYhe.mlorsePptMskurj|;s;[NY.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($NY=pop @pm){$pm.=$NY;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(NY,'>&STDOUT');print NY $pm
------------------------------
Date: Fri, 24 Oct 1997 10:58:28 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Deme <deme@ran.es>
Subject: Re: Is posible to make a post from a CGI to other CGI
Message-Id: <Pine.GSO.3.96.971024105714.5898b-100000@usertest.teleport.com>
On 23 Oct 1997, Deme wrote:
> Is posible to make a post from a CGI to other CGI
Yes, a Perl script can act as a web browser. The easiest way is usually to
use LWP, which you can find on CPAN. Good luck!
http://www.perl.com/CPAN/
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 24 Oct 1997 16:34:14 GMT
From: dsew@packrat.aml.arizona.edu (David Sewell)
Subject: Lookaround? (Was: Re: Lookbehind)
Message-Id: <62qim6$nqg$1@news.ccit.arizona.edu>
In article <1997101800091724918410N@roxboro-169.interpath.net>,
John Moreno <phenix@interpath.com> wrote:
>I was reading the perl regular expression manual and it looks to me like
>perl doesn't have a look behind extension is this true?
>
>Frex to find a 2 that was preceded by 1 and followed by a 3 I'd like to
>write something like
>
>/:<12:>3/;
I have a somewhat related question about the ability of regular
expressions to handle recursive embedding (if that's the right term).
I need to clean up text files in which (probably because of a bad
tty setting) corrections exist as backspaces (^H) followed
by the correct characters. For example, a line might look like
My g^Hfavorite bnn^H^Hook is the Vby^H^H^HCat in the Hat
So the need is to delete all instances of N chars followed by N ^H's.
It's simple to do this by brute-force, via multiple passes over
each line:
while ( /./ ) { s/.//; } # ^H is literal backspace
but it would be nice to have some sort of bidirectional regular
expression syntax to do the same thing, something like
s/*(.^H)*// ; # imaginary syntax
that would match .^H, ..^H^H, ...^H^H^H, etc. Is there such a beast?
--
David Sewell * dsew@packrat.aml.arizona.edu | "If all things should become
Dep't of Geosciences, Univ. of Arizona | become smoke, then perception
WWW: http://packrat.aml.arizona.edu/~dsew/ | would be by the nostrils."
| --Heraclitus
------------------------------
Date: Fri, 24 Oct 1997 10:44:00 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Martin Svanstrvm <erac.eramsva@memo.ericsson.se>
Subject: Re: Minimal match regular expression
Message-Id: <Pine.GSO.3.96.971024104154.5898X-100000@usertest.teleport.com>
On Thu, 23 Oct 1997, Martin Svanstr=F6m wrote:
> This, however, will find everything from the first found <title> to
> "text", while I want it to find the <title> which is closest to "text"
I think you want to use greediness to your advantage, and find as much
text as possible before the first tag.
/(.*)=09=09# greedy
<title>
(.*?)=09=09# stingy
</title>
/xs
Does something like that pattern work for you? Good luck!
--=20
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 12:49:28 -0600
From: Ky Nguyen <knguyen@ab.bluecross.ca>
Subject: oraperl - connect string
Message-Id: <3450EDB8.110B@ab.bluecross.ca>
Hello all,
I amd using oraperl 2.4 on HP and it is working fine iff
I login to one of the oracle sids in that local host. I
would like to connect to an oracle sid on another box
via Oracle sqlNet V2. What should my connect string be?
Thanks in advance!
--
''~``
( o o )
+-.oooO--(_)--Oooo.-----------------------------------+
| Light travels faster than sound. This is why some |
| people appear bright until you hear them speak. |
| .oooO |
| ( ) Oooo. |
+----\ (----( )-------------------------------------+
\_) ) /
(_/
------------------------------
Date: Fri, 24 Oct 1997 19:04:34 +0100
From: Jerry Pank <jerryp.usenet@SPAMconnected.demon.co.uk>
Subject: Paradox 7 - Bug in table export
Message-Id: <NywzrEAyMOU0EwrO@connected.demon.co.uk>
My version of paradox 7 ( Internal 5.71B ) has a horrid bug in it.
When using table/export (to a delimited text file) if you select
anything other than the default field seperator (by trying to enter any
delimiter in the requester box) the system HOWLS
** the seperator must be a single character **
until Paradox is closed by the three finger method. :o(
Does anyone know if there is a fix for this | who I contact to find a
fix as this is now causing me BIG problems.
TIA
-- Jerry Pank
This post in every-way totally reflects the views of my employer...
I am he.
jerryp(dot)usenet(at)connected(dot)demon(dot)co(dot)uk
j_us__ tan________o_the_rperl__hack______________________________er
------------------------------
Date: Fri, 24 Oct 1997 12:41:13 -0600
From: lb8qc@qcunix1.qc.edu
Subject: Perl and file format
Message-Id: <877713956.9321@dejanews.com>
Hello,
I've a web pages which returns a person's name, email and his
comments(which may be about 5 to 6 lines) to a perl script which then
stores it in a file.
What is the best format to store the information in a file ?
If I store the name, email and comments like
name|email|comments
This would be a long line. Any smart way of doing this?
Please help.
Thank you, for your attention.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Fri, 24 Oct 1997 14:44:05 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl and file format
Message-Id: <comdog-ya02408000R2410971444050001@news.panix.com>
In article <877713956.9321@dejanews.com>, lb8qc@qcunix1.qc.edu wrote:
>What is the best format to store the information in a file ?
>If I store the name, email and comments like
>name|email|comments
>This would be a long line. Any smart way of doing this?
you could store them like that - the filesystem doesn't know anything
about lines, so it doesn'tcare how long they are. you could then
write a script to pretty print the entries so that you can easily read
the information.
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Fri, 24 Oct 1997 12:33:10 +0100
From: "Phil Cogan" <pcogan@heroldhaines.com>
Subject: Re: Perl for Windows NT
Message-Id: <62qieu$pht@news.eclipse.net>
AAMU wrote in message <01bdfaed$8fbc7e10$92c28bcd@michelangelo>...
>Hi,
>
>Does anybody know where I can download Perl for Windows NT 4.0
>(workstation)?
>
>Thanks for your assistance,
>aamu
http://www.activeware.com
or
http://www.perl.com
------------------------------
Date: Fri, 24 Oct 1997 16:32:30 GMT
From: mikeseidle@crweb.com (Mike Seidle)
Subject: Perl/IIS4.0 Question
Message-Id: <62qin5$je9@wizard.bsu.edu>
I am trying to port a perl script cgi from WebsitePro to IIS 4.0 Beta.
I cannot get the script to open a simple text file as it seems that IIS is
giving me a random root directory, as opposed to a relative one.
Anyone know anything that could help?
Mike **
-- remove .nospam from email address --
------------------------------
Date: 24 Oct 1997 18:14:44 GMT
From: mindlina@allegro.cs.tufts.edu (Lena Mindlina)
Subject: please help--reding client file from a server
Message-Id: <62qoik$t58$1@news3.tufts.edu>
Hello,
this is the first time I am posting here...and already asking for help(-:
Thanks in advance to everyone answering this.
I am writing a cgi script in perl. Among other things, it needs
to read into a string information from a file that is on the client's pc.
Now, this is relatively easy to do if I upload the file to the server, then
read from it and then clean up. However, I really don't want to upload
the file. Is it at all possible to have a form asking user for the
file to look in, but then instead of uploading the file, read the
information from it into a variable?
I'd appreciate any help on this...
Lena
--
Lena Mindlin | Computers are useless. They can only give you answers.
mindlina@ | -- Pablo Picasso
eecs.tufts.edu |
------------------------------
Date: 24 Oct 1997 11:34:22 -0400
From: allen@gateway.grumman.com (John L. Allen)
Subject: Re: Primes via regexen (Was: Re: non-greedy regexps)
Message-Id: <62qf5u$gj2@gateway.grumman.com>
In article <slrn650ao9.qp.abigail@betelgeuse.wayne.fnx.com>,
Abigail <abigail@fnx.com> wrote:
>More seriously, discussion on IRC revealed a bug in the regex engine:
>
> perl -wle 'print length ($1) if (1 x shift) =~ /^(11+?)\1+$/' 100090
>
>gives 5, where it should give 2. Apparently, + doesn't match more
>than 32768 times.
Yes, I noticed that too.
--
_/JohnL\_allen@gateway.grumman.com <Sun>: 9.5 billion pounds per sec to energy
~\Allen/~Fax: 516-575-7428 <Universe>: 1e22 stars = 22 solar masses per sec
------------------------------
Date: Fri, 24 Oct 1997 10:54:06 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: CaSey Ryan <cj-ryan@ai.uiuc.edu>
Subject: Re: Q: Webserver for Win95?
Message-Id: <Pine.GSO.3.96.971024105242.5898a-100000@usertest.teleport.com>
On Thu, 23 Oct 1997, CaSey Ryan wrote:
> I'm looking for a way to test my CGI scripts
Then you should use the CGI.pm module (or one like it) which lets you do
just that without having to install a server. CGI.pm comes with modern
versions of Perl, or you can find it on CPAN. Enjoy!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 10:39:46 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Robert Nagy <nagy@darwin.topend.com.au>
Subject: Re: Question: Using Modules
Message-Id: <Pine.GSO.3.96.971024103900.5898W-100000@usertest.teleport.com>
On 22 Oct 1997, Robert Nagy wrote:
> There is a module I want to use called Edit.pm
> Even getting it into the perl program seems to cause problems.
Sounds as if it needs to be updated for your version of Perl. Have you
submitted a bug report to the module's author? Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 11:06:30 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "Calle ]sman" <md4calle@mdstud.chalmers.se>
Subject: Re: replacing quotes with help of a regexp?
Message-Id: <Pine.GSO.3.96.971024110507.5898e-100000@usertest.teleport.com>
On 24 Oct 1997, Calle ]sman wrote:
> $lines[$cnt++] =~ s/'src="pics/sm_feed2.gif" vspace=2><br>'/a/g;
>
> well, it complains, quite loudly, about this. What Am I doing wrong?
s/'src="pics/sm_feed2.gif" vspace=2><br>'/a/g
^ ^ ^ ^
There are only three slashes in s///. Maybe you want to protect one of
those with a backslash. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 11:02:57 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Jay Cruto <jrcruto@bechtel.com>
Subject: Re: Running a Script at Startup
Message-Id: <Pine.GSO.3.96.971024110203.5898d-100000@usertest.teleport.com>
On Fri, 24 Oct 1997, Jay Cruto wrote:
> How do I execute a Perl script automatically when a page is initially
> loaded?
You set up your software, probably a browser or a server, to do that. If
you're not sure how to do that, check the docs and FAQs for the browser or
server you want to use. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 11:52:01 -0600
From: lb8qc@qcunix1.qc.edu
Subject: SQL and Perl
Message-Id: <877711530.6152@dejanews.com>
How can I execute SQL commands on a database using a perl script?
Do I need a perl of c module for that? If so, where can I get it from?
- Please help.
Thank you, for your attention.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Fri, 24 Oct 1997 14:46:13 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: SQL and Perl
Message-Id: <comdog-ya02408000R2410971446130001@news.panix.com>
In article <877711530.6152@dejanews.com>, lb8qc@qcunix1.qc.edu wrote:
>How can I execute SQL commands on a database using a perl script?
>Do I need a perl of c module for that? If so, where can I get it from?
have you looked into the DBI::* modules on CPAN [1]? you might also
look for modules for your particular platform if you are using an
alien system.
good luck :)
[1]
Comprehensive Perl Archive Network
find one near you at <URL:http://www.perl.com>
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Fri, 24 Oct 1997 13:47:20 -0400
From: Henry Hartley <HARTLEH1@westatNOSPAM.com>
Subject: SQL to update a row from a Perl script
Message-Id: <3450DF28.6F56D35B@westatNOSPAM.com>
I have a perl script that contains the following:
$sql = sprintf("select * from Users where UserID='%s'", $uid);
$query->sql($sql);
$query->fetchrow();
I then get the column data from that returned record and display it as
the field data in a form. I want to have a "select" button that takes
any changes to the data in the form and writes it back to the MS Access
database. Something like using UPDATE although I've never used that so
don't really know how. Any help would be appreciated.
Henry Hartley
Westat
------------------------------
Date: Fri, 24 Oct 1997 14:53:43 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: SQL to update a row from a Perl script
Message-Id: <comdog-ya02408000R2410971453430001@news.panix.com>
In article <3450DF28.6F56D35B@westatNOSPAM.com>, Henry Hartley <HARTLEH1@westatNOSPAM.com> wrote:
despite such address munging, there exists simple filters to
get the real address. for example:
s/[A-Z]*(?:SPAM|REMOVE)[A-Z]*//;
one might as well say
user@NOREPLYDONOTMAILMEEVER.domain.tld
>$sql = sprintf("select * from Users where UserID='%s'", $uid);
>$query->sql($sql);
>$query->fetchrow();
> I want to have a "select" button that takes
>any changes to the data in the form and writes it back to the MS Access
>database. Something like using UPDATE although I've never used that so
>don't really know how.
how about building an UPDATE statement then using that as your query?
$sql = qq|UPDATE Users SET clue=NULL WHERE UserID='$uid'|;
$query->sql($sql);
an SQL reference will have more details about syntax and so on.
good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Fri, 24 Oct 1997 10:52:13 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Mike Manion <manion@defiant.cv.lexington.ibm.com.torolab.ibm.com>
Subject: Re: Strange behavior of $?
Message-Id: <Pine.GSO.3.96.971024104951.5898Z-100000@usertest.teleport.com>
On 23 Oct 1997, Mike Manion wrote:
> from the command line, I get the output "0", as I should. But when I
> point my web browser at the script (it is in my cgi-bin directory), I
> get a "-1" in my browser.
Almost certainly, your webserver is doing something that Perl doesn't
expect, probably installing its own handler for $SIG{CHLD} or something
like that. Try one of these lines at the top of your script; does one of
them make it work?
$SIG{CHLD} = 'IGNORE';
$SIG{CHLD} = 'DEFAULT';
(On some machines, you may need to use CHILD instead of CHLD.) If either
of those works, please let me know which one. Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 24 Oct 1997 16:43:27 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Using .forward file to trigger Perl script
Message-Id: <62qhec$cni@bgtnsc01.worldnet.att.net>
In article <01bce072$25436a80$79592581@pmp>, "Peter Perchansky"
<fp@pmpcs.com> wrote:
> Where may I find more information on utilizing the ".forward" file
> (specially in Apache 1.2) to trigger the execution of a Perl script?
man forward tells you all about it. :)
> Goal... incoming email triggers Perl script that handles the email
> based on either the "to", "cc" and "bcc" lines.
you could also use something like procmail or Deliver if simply
filtering and sorting the mail is your goal.
good luck :)
--
brian d foy <http://computerdog.com>
#!/usr/bin/perl
$_=q|osyrNewkecnaYhe.mlorsePptMskurj|;s;[NY.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($NY=pop @pm){$pm.=$NY;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(NY,'>&STDOUT');print NY $pm
------------------------------
Date: 24 Oct 1997 10:45:07 -0700
From: mcravit@best.com (Matthew Cravit)
Subject: Re: Using .forward file to trigger Perl script
Message-Id: <62qmr3$9cn$1@shell3.ba.best.com>
In article <01bce072$25436a80$79592581@pmp>,
Peter Perchansky <fp@pmpcs.com> wrote:
>Greetings:
>
>Where may I find more information on utilizing the ".forward" file
>(specially in Apache 1.2) to trigger the execution of a Perl script?
Err...Apache is a web server. The .forward file, being a part of sendmail,
has nothing at all to do with a web server, unless you're using a mailto:
link to invoke the .forward file.
Anyway...
>Goal... incoming email triggers Perl script that handles the email
>based on either the "to", "cc" and "bcc" lines.
You might have a look at procmail, which handles this sort of thing quite
well. You're also free to have a look at my mailbot code, which shows some
of the things one can do in terms of parsing and doing stuff with email
messages. You can get a copy of it from:
ftp://shell3.ba.best.com/pub/mcravit/mailbot.tar.gz
Hope this helps.
/MC
--
Matthew Cravit, N9VWG | Experience is what allows you to
E-mail: mcravit@best.com (home) | recognize a mistake the second
mcravit@taos.com (work) | time you make it.
------------------------------
Date: Fri, 24 Oct 1997 13:28:58 -0500
From: Robert Lebowitz <lebowitz@ehs.net>
Subject: using perlscript with new IIS 4.0 beta
Message-Id: <3450E8EA.649A@ehs.net>
I recently installed the new IIS 4.0 beta on my NT 4.0 server. Earlier,
I had no problems running simple perlscript scripts, but now I find that
even the samples do not work.
I can't figure out who to notify at ActiveWare about this issue.
Does it possibly have something to do with the registry, or is
perlscript too closely bound to the older versions of IIS (2 and 3)?
Rob
------------------------------
Date: 24 Oct 1997 11:43:42 -0500
From: jima@REMOVE.ME.mcs.com (Jim Allenspach)
Subject: Re: Year2000 problem with localtime();
Message-Id: <62qj7u$4ih$1@Mercury.mcs.net>
>> >Hi y'all,
>> > Of the values returned by localtime, the $year value is coming out
>> >as '97'. Is there a plan to change this to `1997`? It's something that
>> >could cause *major* problems, don't you think?
>>
>> Only if you don't add 1900 to the year . . .
>>
>> You apparently had to read the documentation a *little bit* to determine the
>> structure returned by localtime() . . . why did you stop there? The very next
>> paragraph had the answer to your question.
>>
>oh err. this was a bit catty wasn't it?
Actually, for an answer to an FAQ that seemingly gets posted twice
weekly, it was admirably restrained. Certain c.l.p.m regulars might have
roasted the original message to a crisp (and still might, come to think of
it).
In general, programmers are irked by postings that can be answered
by (a) a cursory look through the available documentation, (b) a quick
search through old Usenet postings for possible answers to their questions,
or (c) asking the person in the cubicle/desk/lab next door. Forgive us if
we bite your head off; we were led to assume you weren't using it in the
first place.
jma
--
Jim Allenspach
(jima at mcs dot com)
He's Italian, and he likes his spaghetti!
------------------------------
Date: Fri, 24 Oct 1997 14:05:53 -0400
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Year2000 problem with localtime();
Message-Id: <-2410971405530001@aggie.coaps.fsu.edu>
In article <3450BBB4.5CE2@webgenie.co.uk>, Nick Jones
<nicky@webgenie.co.uk> wrote:
+ Jeffrey R. Drumm wrote:
+ > Peter Meighan <pmeigh01@cork.cig.mot.com>
+ > wrote, apparently without bothering to check his documentation:
+ > > Of the values returned by localtime, the $year value is coming out
+ > >as '97'. Is there a plan to change this to `1997`? It's something that
+ > >could cause *major* problems, don't you think?
+ >
+ > Only if you don't add 1900 to the year . . .
+ >
+ > You apparently had to read the documentation a *little bit* to determine the
+ > structure returned by localtime() . . . why did you stop there? The very
+ > next paragraph had the answer to your question.
[explaination removed]
+ > $ perldoc -f localtime
[excellent advice...I only learned of the -f switch a short time ago]
+ oh err. this was a bit catty wasn't it?
Oh, indeed, and deservedly so. Had the orginal author either:
a) did a little more reading in their documentation
b) did a dejanews search on comp.lang.perl.misc for "2000" (195 documents)
or "Y2K" (43 documents)
c) did a 'man localtime' on their unix box
d) read the perl faq
they would have had their answer, clearly and consisely. And yet, it would
seem that _every_ week, someone asks this question.
>From the meta-faq:
Every post to the comp.lang.perl.misc newsgroup consumes the time and
effort of readers all over the world who pay for their Internet access
just as you do. That's OK, because mutual support is what USENET is
all about. But it only works if posters check out other resources
first!
Please make an effort to find the answer to your question on your own
before posting. The resources below will help you.
We're not the Help Desk. But we help those who help themselves. Just remember
which side of that equation you need to be on.
James
--
Consulting Minister for Consultants, DNRC
Support the anti-Spam amendment <url:http://www.cauce.org/>
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 1225
**************************************
