[19048] in Perl-Users-Digest
Perl-Users Digest, Issue: 1243 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 4 09:05:40 2001
Date: Wed, 4 Jul 2001 06:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <994251910-v10-i1243@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 4 Jul 2001 Volume: 10 Number: 1243
Today's topics:
Re: chicken and egg regexp problem <m.grimshaw@salford.ac.uk>
Re: chicken and egg regexp problem <pne-news-20010704@newton.digitalspace.net>
Re: Chmod Problem (Villy Kruse)
Debate, Flame, Exchange Information (3819)
Help need to define absolute path in perl (Wanni)
Re: Help need to define absolute path in perl <wyzelli@yahoo.com>
Re: Help need to define absolute path in perl <gnarinn@hotmail.com>
Re: hideen fields (Greg)
Re: How to find pwd in Perl <krahnj@acm.org>
Re: ImageMagick installation <nospam@peng.nl>
Net::Telnet logging on problem..... <yasser.nabi@uk.easynet.net>
Re: Newbie DBI question <gnarinn@hotmail.com>
perl script error HELP HELP! (Wanni)
Re: perl script error HELP HELP! <krahnj@acm.org>
Re: regexp across lines <dommit@videotron.ca>
Re: regexp across lines <goldbb2@earthlink.net>
Re: Scripts to Load Image Based on Time <goldbb2@earthlink.net>
snmp in perl <takh@hotmail.com>
Re: To Mac OS hackers! (Greg)
Using functions inside regular expressions <joonas.paalasmaa@nokia.com>
Re: Using functions inside regular expressions <kevin@vaildc.net>
Re: Vapo-Rub <whitetip@iprimus.com.au>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 04 Jul 2001 11:28:36 +0100
From: Mark Grimshaw <m.grimshaw@salford.ac.uk>
Subject: Re: chicken and egg regexp problem
Message-Id: <3B42EFD4.5DCB2649@salford.ac.uk>
Philip Newton wrote:
>
> On Wed, 04 Jul 2001 09:31:45 +0100, Mark Grimshaw
> <m.grimshaw@salford.ac.uk> wrote:
>
> > However, when I come to re-encode this for user editing of the post I
> > can see that I will run into a problem:
> > # code for fancy URLs
> > $message =~ s/(<A
> > HREF=\")(.*?)(\">)(.*?)<\/A>/\[furl-$2\]$4\[\/furl\]/gi;
> > # code for plain URLs
> > $message =~ s/(<A
> > HREF=\")(.*?)(\">)(.*?<\/A>)/\[url\]$2\[\/url\]/gi;
> >
> > No matter what order I place these two statements in, the first will
> > take precedence and encode all HREF's as either a [furl] or [url] type
> > leaving nothing for the second to do and possibly incorrectly specifying
> > the HREF's as furls or urls.
>
> Well, the difference appears to be that furls point have something else
> for the link and the link text, so you could use one regexp and
> distinguish between the two. Perhaps something like this (tested):
>
> $message =~ s{
> <A\ HREF=" # common beginning
> ([^"]+) # non-quote characters, captured to $1
> # (this is the link)
> "> # end of opening <A> tag
> ([^<]+) # >non-<> characters, captured to $2
> # (this is the link text)
> </A> # common ending
> }{
> $1 eq $2 ? '[url]' . $1 . '[/url]'
> : "[furl-$1]" . $2 . '[/furl]'
> }exig;
>
> Note: this relies on [url]'s having the form <A
> HREF="http://www.perl.com">http://www.perl.com</A> and not <A
> HREF="http://www.perl.com">www.perl.com</A> as you gave in your example,
> but it should be trivial to fix (for example, by replacing '$1 eq $2'
> with something like '$1 eq "http://$2"').
Thanks - I didn't realise I could use s{...}{...}; like that -
presumably that's why there's an 'e' modifier? The http:// stuff is my
typing error.
------------------------------
Date: Wed, 04 Jul 2001 13:12:24 +0200
From: Philip Newton <pne-news-20010704@newton.digitalspace.net>
Subject: Re: chicken and egg regexp problem
Message-Id: <ffu5kts2fo2khntsub7otq6emlbrm5qr6f@4ax.com>
On Wed, 04 Jul 2001 11:28:36 +0100, Mark Grimshaw
<m.grimshaw@salford.ac.uk> wrote:
> Thanks - I didn't realise I could use s{...}{...}; like that -
> presumably that's why there's an 'e' modifier?
Yes, for "treat the replacement as Perl code and 'e'val it".
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
Yes, that really is my address; no need to remove anything to reply.
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: 04 Jul 2001 10:59:11 GMT
From: vek@pharmnl.ohout.pharmapartners.nl (Villy Kruse)
Subject: Re: Chmod Problem
Message-Id: <slrn9k5tng.48h.vek@pharmnl.ohout.pharmapartners.nl>
On Wed, 4 Jul 2001 00:12:42 -0700,
William Pietri <william-news-102374@scissor.com> wrote:
>BUCK NAKED1 wrote:
>> > > Why isn't this code chmodding all my files and directories under
>> > > $tmpdir to 644?
>> > > { chmod 0644, $_; rename $_, $new; }
>> >
>> > gee, i don't know, but the system will tell you:
>> > chmod (0644, $_) or die ("Can't chmod: $!");
>>
>> I mean, did I make a mistake in my coding below? Your code is totally
>> different.
>
>He is suggesting that chmod returns valuable error information which your
>code does not check. If you want to know why chmod isn't working, you
>should start by putting the "or die" stuff directly after your call to
>chmod. This is good practice with all system calls.
>
Just a thought: what if you chmod multiple files, and some of them
are changed and some are not, you wouldn't know from the error code or
message which failed and which didn't, or would you? The return value
of chmod counts the number of chmod files, though, so that is additional
information.
A common cause is that you don't own the file you are trying to chmod.
Villy
------------------------------
Date: Wed, 04 Jul 2001 10:27:10 GMT
From: 3819@C208.33.61.34 (3819)
Subject: Debate, Flame, Exchange Information
Message-Id: <9hurq4$20nq_008@worldnet.att.net>
New newsgroups about programming and operating systems
Contact your ISP or NNTP server provider if you do not have them...
alt.politics.os2
alt.politics.unix
alt.politics.winnt
alt.comp.programming.anti-oop
alt.flame.java
alt.flame.operating-systems
alt.flame.programming-languages
--
Remove C from IP address to respond
------------------------------
Date: 4 Jul 2001 03:25:39 -0700
From: wanni_chua@hotmail.com (Wanni)
Subject: Help need to define absolute path in perl
Message-Id: <9dcaa4a8.0107040225.19212f9d@posting.google.com>
Help needed to define absolute path in pearl script
#! /usr/local/perl
..
..
require 'sys/wait.ph';
The above script is trying to call "sys/wait.ph" which we found out in
the following dir "/usr/perl5/site_perl/5.005/sun4-solaris/sys"
The problem we think is, the absolute path to 'sys/wait.ph'is not
defined in the perl script. We are not familiar with perl at all.
Help is need to teach us how to define an absolte path.
Thanks & Regards,
Wanni
------------------------------
Date: Wed, 4 Jul 2001 20:41:03 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Help need to define absolute path in perl
Message-Id: <lDC07.2$uT2.541@vic.nntp.telstra.net>
"Wanni" <wanni_chua@hotmail.com> wrote in message
news:9dcaa4a8.0107040225.19212f9d@posting.google.com...
> Help needed to define absolute path in pearl script
>
> #! /usr/local/perl
> ..
> ..
> require 'sys/wait.ph';
>
>
> The above script is trying to call "sys/wait.ph" which we found out in
> the following dir "/usr/perl5/site_perl/5.005/sun4-solaris/sys"
>
> The problem we think is, the absolute path to 'sys/wait.ph'is not
> defined in the perl script. We are not familiar with perl at all.
> Help is need to teach us how to define an absolte path.
>
Did you try
require '/usr/perl5/site_perl/5.005/sun4-solaris/sys/wait.ph';
????????????????
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: Wed, 4 Jul 2001 10:44:25 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Help need to define absolute path in perl
Message-Id: <994243465.54803806822747.gnarinn@hotmail.com>
In article <9dcaa4a8.0107040225.19212f9d@posting.google.com>,
Wanni <wanni_chua@hotmail.com> wrote:
>Help needed to define absolute path in pearl script
>
>#! /usr/local/perl
>..
>..
>require 'sys/wait.ph';
>
>
>The above script is trying to call "sys/wait.ph" which we found out in
>the following dir "/usr/perl5/site_perl/5.005/sun4-solaris/sys"
>
perldoc FindBin
gnari
------------------------------
Date: 4 Jul 2001 04:16:18 -0700
From: google@uksites4all.co.uk (Greg)
Subject: Re: hideen fields
Message-Id: <62127286.0107040316.2a8c178c@posting.google.com>
Luis <loboaguia@yahoo.com> wrote in message news:<6uk3kts9r4glbqkiv2u3kl5uhkiql0p1st@4ax.com>...
> How do I get the information of a HIDDEN FIELD?
A: in the same way as any other field.
> I send a request from the SHTML to the CGI.
> The answer is a query of two columns.
> I want to capture the two columns the user will mark.
A: Example code?
How can we help if you do not give enough information?
======================================================
Greg
www.uksites4all.co.uk
------------------------------
Date: Wed, 04 Jul 2001 10:37:59 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: How to find pwd in Perl
Message-Id: <3B42F248.5CAD6B5@acm.org>
Graham Wood wrote:
>
> --------------992B0A91C3C4E590E919877C
> Content-Type: text/x-vcard; charset=UTF-8;
> name="Graham.T.Wood.vcf"
> Content-Transfer-Encoding: 7bit
> Content-Description: Card for Graham Wood
> Content-Disposition: attachment;
> filename="Graham.T.Wood.vcf"
Please don't post attachments.
> I'm sure this is bleedin' obvious but I can't find it in the FAQ or
> perlfunc or perlvar.
>
> I want to find my current working directory without calling `pwd` on
> Unix or `cd` on Windows and I can't find the native Perl method for
> doing so.
use Cwd;
my $dir = cwd;
John
--
use Perl;
program
fulfillment
------------------------------
Date: Wed, 04 Jul 2001 13:03:02 GMT
From: Lex Thoonen <nospam@peng.nl>
Subject: Re: ImageMagick installation
Message-Id: <Xns90D498CA5E80Alexthoonenpengnl@213.51.129.161>
mgjv@tradingpost.com.au (Martien Verbruggen) was trying to say in
news:slrn9jvr07.4ot.mgjv@verbruggen.comdyn.com.au:
<cut>
>
> Martien
Thanks for your info!
Lex Thoonen
Pêng Smart Web Design
http://www.peng.nl
------------------------------
Date: Wed, 4 Jul 2001 11:24:33 +0100
From: "Yasser Nabi" <yasser.nabi@uk.easynet.net>
Subject: Net::Telnet logging on problem.....
Message-Id: <O9C07.4584$A51.1159941@monolith.news.easynet.net>
Hi,
Below is my test script :
#!/usr/bin/perl
use Net::Telnet ();
$host="<my host>";
$username="admin";
$passwd="<my password>";
$t = new Net::Telnet(Timeout => 10,
Dump_Log => "/tmp/dump.log",
Input_log => "/tmp/input.log",
Output_Log => "/tmp/output.log",
Port => "10001");
$t->open($host);
$t->waitfor('/login: /');
print "Recieved login prompt -- sending $username\n";
$t->print("$username");
$t->waitfor('/password: /');
print "Recieved password prompt -- sending password\n";
t->print("$passwd");
Ive tried loads of different things but just cant get it to log on... below
is what happens...
I run the script and recieve the following error message:
bash-2.03# ./telnet2.pl
Recieved login prompt -- sending admin
pattern match timed-out at ./telnet2.pl line 18
I 'cat' /tmp/dump.log and find:
bash-2.03# cat dump.log
< 0x00000: ff fb 01 ÿû.
> 0x00000: ff fd 01 ÿý.
< 0x00000: ff fb 03 ÿû.
> 0x00000: ff fd 03 ÿý.
< 0x00000: 6c 6f 67 69 6e 3a 20 login:
> 0x00000: 61 64 6d 69 6e 0d 0a admin..
< 0x00000: ff fb 01 ÿû.
< 0x00000: ff fb 03 61 ÿû.a
when i 'cat' /tmp/input.log :
bash-2.03# cat input.log
login: a
(without a new line)
and 'catting' /tmp/output.log
bash-2.03# cat output.log
ÿýÿýadmin
hmmm... what it looks like to me is that its not sending all the username...
it just prints the a then... i dont know just disapears... I have tried and
tried and just cant get it working...
Can anyonehelp.. plz?
thnx
p.s. FYI Iam running the script on Solaris 8 using perl v5.6.1, the server
iam trying to telnet to is a Perle c9600 console server.
-----------
Yasser Nabi
Corporate Support Engineer
Easynet Ltd
Tel: 0207 900 4444x4493
Mail: yasser.nabi@uk.easynet.net
----------------------------------------------------------------------------
------------
ISPA Best European ISP 1999
ISPA Best ISP Product 2000
----------------------------------------------------------------------------
------------
This E mail contains proprietary information some or all of which may be
legally privileged. It is intended for the recipient only. If an addressing
error or transmission error has misdirected this e mail, please notify the
sender immediately. If you are not the intended recipient you must not
use, disclose, distribute, copy, print or rely on this e mail.
The views expressed in this e mail are those of the author and do not
necessarily reflect the views of Easynet Ltd.
----------------------------------------------------------------------------
------------
------------------------------
Date: Wed, 4 Jul 2001 10:42:35 +0000
From: gnari <gnarinn@hotmail.com>
Subject: Re: Newbie DBI question
Message-Id: <994243355.535062714945525.gnarinn@hotmail.com>
In article <211c8e3f.0107040149.637156bb@posting.google.com>,
^CooL^ <cool133@hotmail.com> wrote:
>
>Is there a simple way of putting a single row from a DBI recordset
>into a hash array? I need each field in the row to be stored as an
>element in the hash array with the same name as the column name of
>that row.
>
see perldoc DBI
you will find a method whose name suggests fetching a row into
a hash, returning its reference.
perldoc is a wonderful resource that usually gives you
better info that newsgroups, and faster. also with less sarcasm.
gnari
------------------------------
Date: 4 Jul 2001 03:33:55 -0700
From: wanni_chua@hotmail.com (Wanni)
Subject: perl script error HELP HELP!
Message-Id: <9dcaa4a8.0107040233.70c055dd@posting.google.com>
Got the following error message:
Warning: Use of "defined" without parens is ambiguous at
/usr/perl5/site_perl/5.005/sun4-solaris/_h2ph_pre.ph line 2.
(Did you mean $ or @ instead of &?)
syntax error at /usr/perl5/site_perl/5.005/sun4-solaris/_h2ph_pre.ph
line 4, near "unless"
Need some clue what the above error msg is. The perl5 is a system
file. Should not contain error. Unless, the parameter parsed is
wrong. But we have no idea.
Thanks for your help.
Cheers,
Wanni
------------------------------
Date: Wed, 04 Jul 2001 11:05:16 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: perl script error HELP HELP!
Message-Id: <3B42F86B.E22FADAF@acm.org>
Wanni wrote:
>
> Got the following error message:
^^^^^
> Warning: Use of "defined" without parens is ambiguous at
^^^^^^^
_Warning_ not error.
> /usr/perl5/site_perl/5.005/sun4-solaris/_h2ph_pre.ph line 2.
> (Did you mean $ or @ instead of &?)
> syntax error at /usr/perl5/site_perl/5.005/sun4-solaris/_h2ph_pre.ph
> line 4, near "unless"
>
> Need some clue what the above error msg is. The perl5 is a system
> file. Should not contain error. Unless, the parameter parsed is
> wrong. But we have no idea.
The perldiag man page explains Perl's warning and error messages.
Warning: Use of "%s" without parentheses is ambiguous
(S ambiguous) You wrote a unary operator followed by
something that looks like a binary operator that could
also have been interpreted as a term or unary
operator. For instance, if you know that the rand
function has a default argument of 1.0, and you write
rand + 5;
you may THINK you wrote the same thing as
rand() + 5;
but in actual fact, you got
rand(+5);
So put in parentheses to say what you really mean.
Perhaps if you copied and pasted the actual code that is giving you
problems we might be able to help you fix it.
John
--
use Perl;
program
fulfillment
------------------------------
Date: 04 Jul 2001 06:14:55 -0400
From: Dominic Mitchell <dommit@videotron.ca>
Subject: Re: regexp across lines
Message-Id: <m38zi52e74.fsf@rlevesque.com>
Thanks Philip for your advice. My problem is now fixed. I just
had to set $/="" and everything seems very smooth now!.
Cheers.
Dominic.
Philip Newton <pne-news-20010704@newton.digitalspace.net> writes:
> On 04 Jul 2001 04:49:09 -0400, Dominic Mitchell
> <dommit@videotron.ca> wrote:
>
> > I have play around this:
> >
> > while (<>) { if ($_ =~ m{^\\harvarditem\[(.*?)[,].*\]}xms ){
> >print $_; print "\n\\harvarditem[$1 et al.]"; } }
> >
> > It captures does the job only if it is on one single line. I
> >have tried to use the /m /s modifiers but I must be missing
> >something because I can' t figure out what is wrong.
>
> You're reading in one line at a time with your "while (<>)" loop,
> unless you set $/ appropriately. So the regex only ever sees one
> line at a time. Consider setting $/ to something else -- perhaps
> "" for paragraph mode or undef for while-file mode? (In the latter
>
> case, you'll probably need a 'while (/regex/g)' loop rather than
> an 'if (/regex/)' condition, using the /g flag to loop through the
>
> places found.)
>
> > In the above example the regexp should capture
> >
> > \harvarditem[{\textsc{Alizadeh}}, {\textsc{Brandt}}, and
> >{\textsc{Diebold}}]
>
> Which is hard to do if it sees
>
> \harvarditem[{\textsc{Alizadeh}}, {\textsc{Brandt}}, and
>
> on one line and
>
> {\textsc{Diebold}}]
>
> the next time around :)
>
> Cheers, Philip
--
Dominic Mitchell
------------------------------
Date: Wed, 04 Jul 2001 08:54:43 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: regexp across lines
Message-Id: <3B431213.60B370F2@earthlink.net>
[order of quoting rearranged; please don't top-post]
Dominic Mitchell wrote:
> Philip Newton <pne-news-20010704@newton.digitalspace.net> writes:
>
> > On 04 Jul 2001 04:49:09 -0400, Dominic Mitchell
> > <dommit@videotron.ca> wrote:
> >
> > > I have play around this:
> > >
> > > while (<>) { if ($_ =~ m{^\\harvarditem\[(.*?)[,].*\]}xms ){
> > >print $_; print "\n\\harvarditem[$1 et al.]"; } }
> > >
> > > It captures does the job only if it is on one single line. I
> > >have tried to use the /m /s modifiers but I must be missing
> > >something because I can' t figure out what is wrong.
> >
> > You're reading in one line at a time with your "while (<>)" loop,
> > unless you set $/ appropriately. So the regex only ever sees one
> > line at a time. Consider setting $/ to something else -- perhaps
> > "" for paragraph mode or undef for while-file mode? (In the latter
> >
> > case, you'll probably need a 'while (/regex/g)' loop rather than
> > an 'if (/regex/)' condition, using the /g flag to loop through the
> >
> > places found.)
> >
> > > In the above example the regexp should capture
> > >
> > > \harvarditem[{\textsc{Alizadeh}}, {\textsc{Brandt}}, and
> > >{\textsc{Diebold}}]
> >
> > Which is hard to do if it sees
> >
> > \harvarditem[{\textsc{Alizadeh}}, {\textsc{Brandt}}, and
> >
> > on one line and
> >
> > {\textsc{Diebold}}]
> >
> > the next time around :)
>
> Thanks Philip for your advice. My problem is now fixed. I just
> had to set $/="" and everything seems very smooth now!.
Actually, you should set $/ to undef, not "", since you want the whole
file, not just until the next blank line... for instance, if an extra
newline occurs after the ", and\n" and the "{\textsc{Diebold}}]", you'd
have a problem.
Second, Parse::RecDescent may give you better milage for whatever you're
trying to do...
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: Wed, 04 Jul 2001 09:13:08 -0400
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Scripts to Load Image Based on Time
Message-Id: <3B431664.505845DB@earthlink.net>
Marcus T. Franklin wrote:
>
> Group,
>
> I would like to know where I can find a script(s) that allows
> me to load and display images based on the time of day,
> and day of the week. The images could change every half an hour.
> If you know of such a script or links to similar scripts,
> it would be appreciated.
The image, or the image name, or what?
The simplest example for me to assume is that you're loading something
like webcam images, and that each image is stored with a name
representing the day/time it was taken, to the nearest half-hour.
my @ddd = qw(Sun Mon Tue Wed Thu Fri Sat);
my ($d, $hh, $mm) = (localtime)[6, 2, 1];
my $url = sprintf "http://host/path/images/%s-%02d:%02d.jpg",
$ddd[$d], $hh, $mm - $mm % 30;
--
The longer a man is wrong, the surer he is that he's right.
------------------------------
Date: Wed, 4 Jul 2001 17:33:24 +0800
From: "Tak" <takh@hotmail.com>
Subject: snmp in perl
Message-Id: <9hunue$sep5@rain.i-cable.com>
Hi ,
Could anyone have experience to write a perl script to use the function like
"snmpset" to write a value to a specific OID in the equipment ?
I downloaded the tools in www.perl.com but I dunno how to use it..
Thx
------------------------------
Date: 4 Jul 2001 04:11:12 -0700
From: google@uksites4all.co.uk (Greg)
Subject: Re: To Mac OS hackers!
Message-Id: <62127286.0107040311.430b589@posting.google.com>
"Ann Bancroft" <Ann_Nancroft@excite.com> wrote in message news:<9hsl81$m9q$1@flis.man.torun.pl>...
> Hi!
> I have to call some perl scripts from an application written in C
> [CodeWarrior] under Mac OS.
> How to handle this?
-----------------------------------
try comp.sys.mac.*
------------------------------
Date: Wed, 04 Jul 2001 12:36:42 GMT
From: Joonas Paalasmaa <joonas.paalasmaa@nokia.com>
Subject: Using functions inside regular expressions
Message-Id: <3B430D33.80A4AED5@nokia.com>
How can I use functions inside regular expressions.
For example if I want to reverse a match with reverse function.
Can I do something like in dummy example below?
s/(?<= )(.*)(?= )/reverse($1)/g;
------------------------------
Date: Wed, 04 Jul 2001 08:58:35 -0400
From: Kevin Michael Vail <kevin@vaildc.net>
Subject: Re: Using functions inside regular expressions
Message-Id: <040720010858359689%kevin@vaildc.net>
In article <3B430D33.80A4AED5@nokia.com>, Joonas Paalasmaa
<joonas.paalasmaa@nokia.com> wrote:
> How can I use functions inside regular expressions.
>
> For example if I want to reverse a match with reverse function.
>
>
> Can I do something like in dummy example below?
>
> s/(?<= )(.*)(?= )/reverse($1)/eg;
^
Yes, with the added character, which tells Perl to treat the
replacement string as an expression.
--
Kevin Michael Vail | a billion stars go spinning through the night,
kevin@vaildc.net | blazing high above your head.
. . . . . . . . . | But _in_ you is the presence that
. . . . . . . . . | will be, when all the stars are dead. (Rainer Maria Rilke)
------------------------------
Date: Wed, 4 Jul 2001 20:30:09 +1000
From: "Dallas McCarthy" <whitetip@iprimus.com.au>
Subject: Re: Vapo-Rub
Message-Id: <3b42f0a1@news.iprimus.com.au>
OK, then, RACK OFF Losers
"Tim Hammerquist" <tim@vegeta.ath.cx> wrote in message
news:slrn9k5f8m.ru.tim@vegeta.ath.cx...
> Eric Bohlman <ebohlman@omsdev.com> wrote:
> > ObPerl: I wonder what percentage of all Perl programs, CGI or not, exist
> > to support the operation of porn sites.
>
> I can cite one, never-released, custom CGI script I wrote for a porn
> site based in Dayton, NV.
>
> I was quite proud of it. It was easily extendable,
> and I learned most of the Perl language while writing it. It was my
> first commercial script!
>
> Of course, coming from so far back in my experience, I would probably
> wince looking at the code now.
>
> But in answer to your question, most porn sites (AFAIK) work like the
> client-side programmer on the porn site:
>
> - Frequent downloads from JavaScript.com and similar sites.
>
> My script was never released because the site shortly went under. But
> he paid well in the mean time. ;)
>
> --
> -Tim Hammerquist <timmy@cpan.org>
>
> Just because my fingers are in my ears doesn't mean I'm ignoring you.
> -- Larry Wall
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 1243
***************************************
