[16815] in Perl-Users-Digest
Perl-Users Digest, Issue: 4227 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 5 14:06:17 2000
Date: Tue, 5 Sep 2000 11:05:16 -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: <968177116-v9-i4227@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 5 Sep 2000 Volume: 9 Number: 4227
Today's topics:
Re: $#- documentation bug (was: Regexp: Get the index o nobull@mail.com
Re: A Challenge <russ_jones@rac.ray.com>
ANNOUNCE: DBD::Sybase 0.23 <mpeppler@peppler.org>
Re: CGI programming book <brian+usenet@smithrenaud.com>
Re: CGI retrieve file and save <brian+usenet@smithrenaud.com>
Re: dates Calculations <dave@dave.org.uk>
Re: dates Calculations <19wlr@globalnet.co.uk>
Re: DBD::ODBC and date/time field overflow (David Wall)
Re: dmake of PERL-5.6.0 using MSVC60 compiler gens erro <randy@theoryx5.uwinnipeg.ca>
Re: dmake of PERL-5.6.0 using MSVC60 compiler gens erro <rydz@erols.com>
Re: Getting some Infos about Servers nobull@mail.com
Re: Inserting todays date hwestiii@zdnetmail.com
INTERNATIONAL PERL PROGRAMMERS TELECOMMUTE PERLprogrammer@Telecommute.com
Re: Match any character w/ regular expressions <lr@hpl.hp.com>
Re: Match any character w/ regular expressions <uri@sysarch.com>
Re: Match any character w/ regular expressions (Craig Berry)
Re: Match any character w/ regular expressions (Craig Berry)
Re: Newbie Questions, Gurus Help !! <lr@hpl.hp.com>
Perl Newbie: Stipping Absolute Paths from *.html files <cdipasqu@visteon.com>
Re: Perl Newbie: Stipping Absolute Paths from *.html fi (Randal L. Schwartz)
Re: Perl Newbie: Stipping Absolute Paths from *.html fi <T.Cockle@staffs.ac.uk>
PGP from Perl dies with "out of memory" (Sean McAfee)
Re: Reading a remote file. nobull@mail.com
Re: Remove carriage returns from input <lr@hpl.hp.com>
Re: Seperating text and integers from a variable <lr@hpl.hp.com>
Re: Seperating text and integers from a variable (Mark-Jason Dominus)
Re: Seperating text and integers from a variable <bart.lateur@skynet.be>
showing external hyperlinks in a frame... <alexwalker@hotmail.com>
Sorting again. (Abigail)
Re: Troubles with Async.pm (Mark-Jason Dominus)
Troubles with dbd::oracle installation <solivares@alamo-online.es>
Re: use strict: why? <bkennedy99@home.com>
Re: use strict: why? <brian+usenet@smithrenaud.com>
Re: use strict: why? (Tony L. Svanstrom)
Re: World Wide PERL PROGRAMMERS TELECOMMUTE <uri@sysarch.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 05 Sep 2000 18:33:34 +0100
From: nobull@mail.com
Subject: Re: $#- documentation bug (was: Regexp: Get the index of an alternative matched)
Message-Id: <u9d7ii4uc1.fsf@wcl-l.bham.ac.uk>
mjd@plover.com (Mark-Jason Dominus) writes:
> In article <u98zt8yum6.fsf@wcl-l.bham.ac.uk>, <nobull@mail.com> wrote:
> >> Does Perl have any function or special variable that can give me the index
> >> of an alternative matched?
> >
> >Not prior to 5.6 and not without making each alternative a capturing
> >subexpression. i.e. /(B)|(C)|(D)/.
>
> You can do it prior to 5.6.
> if (@matches = ($string =~ /(B)|(C)|(D)/)) {
> for ($i = 0; $i < @matches; $i++) {
> last if defined $matches[$i];
> }
> print "It matched alternative #$i.\n";
> }
I said that there was no special variable to do it for you. Obviously
you can do it by brute force!
As I said in a previous thread on this subject (WTF didn't the OP do a
serch anyhow) I prefer to find the first defined element in a list using:
my $i=0;
for (@matches) {
last if defined;
$i++;
}
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 05 Sep 2000 10:31:07 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: A Challenge
Message-Id: <39B511BB.552C20C6@rac.ray.com>
Bart Lateur wrote:
>
> Randy wrote:
>
> >I would like to thank you for your excellent program. I ran it earlier
> >this evening and the pizza arrived about 30 minutes later.
>
> Can you modify it, so the delivery is late, and I don't have to pay?
> Free pizza, wow! It'll be cold, but you can't have everything.
>
Could you modify it so that the pizza is delivered by Luciano
Pavarotti singing "Play That Funky Music White Boys" and wearing a
Speedo?
I'm on a diet and THAT ought to put me off my feed.
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Tue, 05 Sep 2000 07:45:23 -0700
From: Michael Peppler <mpeppler@peppler.org>
Subject: ANNOUNCE: DBD::Sybase 0.23
Message-Id: <sra6352la6e62@corp.supernews.com>
The uploaded file
DBD-Sybase-0.23.tar.gz
has entered CPAN as
file: $CPAN/authors/id/M/ME/MEWP/DBD-Sybase-0.23.tar.gz
size: 55196 bytes
md5: 211210528723934960eacb2bc9273ddc
This is a bug-fix release.
>From the CHANGES file:
Release 0.23
Bug Fixes:
331: ? marks in comments are parsed as placeholders.
343: Errors in stored procs cause data rows from proc to be
thrown away.
255: $dbh->execute does not fail it executing proc without
permissions.
Michael
--
Michael Peppler -||- Data Migrations Inc.
mpeppler@peppler.org -||- http://www.mbay.net/~mpeppler
Int. Sybase User Group -||- http://www.isug.com
Sybase on Linux mailing list: ase-linux-list@isug.com
------------------------------
Date: Tue, 05 Sep 2000 13:08:30 -0400
From: brian d foy <brian+usenet@smithrenaud.com>
Subject: Re: CGI programming book
Message-Id: <brian+usenet-523C6B.13083005092000@news.panix.com>
In article <slrn8r9db2.1c7.tim@degree.ath.cx>, tim@degree.ath.cx (Tim
Hammerquist) wrote:
> unicef2k@my-deja.com <unicef2k@my-deja.com> wrote:
> > I recently landed a job as a web programmer.
> > Can someone recommend a CGI programming book? Or is there a site where
> > I can find reviews of that type of book. I'll be using Perl.
>
> Lemme get this straight: you got a CGI programming job _before_ you knew
> how to program CGI? Are you admitting fraud? =)
it's only fraud if you misrepresent yourself. i don't think you have
sufficient information to make that judgement.
--
brian d foy
Perl Mongers <URL:http://www.perl.org>
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Tue, 05 Sep 2000 13:04:56 -0400
From: brian d foy <brian+usenet@smithrenaud.com>
Subject: Re: CGI retrieve file and save
Message-Id: <brian+usenet-8CBA25.13045605092000@news.panix.com>
In article <8p2uuf$odf$1@bignews.shef.ac.uk>, "Phil"
<Phil@moonhead.org.uk> wrote:
> Can someone give me a hint how I might take a URL... retrieve the file
> pointed to and save it ?
use LWP::Simple qw( getstore );
...
getstore( $url, $local_file );
--
brian d foy
Perl Mongers <URL:http://www.perl.org>
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Tue, 05 Sep 2000 16:19:14 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: dates Calculations
Message-Id: <qi3ars89oceluvro4dsdj8lshl25mdusom@4ax.com>
On Tue, 5 Sep 2000 15:44:50 +0100, "John Plaxton"
<19wlr@globalnet.co.uk> wrote:
>Hi there,
>
>I'm quite new to perl so hope this isn't too ...............
>
>I'm using
>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); with
>arrays for the days and months to get the current date.
>
>Then I want to add a day or a week to the date and reformat the date any
>Ideas?
Your best bet is probably to add the correct number of seconds to the
output from 'time' before passing it to 'localtime'.
my @tomorrow = localtime(time + 84_600); # Add one day
my @next_wek = localtime(time + 7 * 84_600); # Add seven days.
>Also does anyone have a procedure for encrypting and decrypting strings?
There are many options, epending on what level of encryption you want
to use.
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Tue, 5 Sep 2000 16:28:55 +0100
From: "John Plaxton" <19wlr@globalnet.co.uk>
Subject: Re: dates Calculations
Message-Id: <8p33ap$tb$1@gxsn.com>
"Dave Cross" <dave@dave.org.uk> wrote in message
news:qi3ars89oceluvro4dsdj8lshl25mdusom@4ax.com...
> On Tue, 5 Sep 2000 15:44:50 +0100, "John Plaxton"
> <19wlr@globalnet.co.uk> wrote:
>
> >Hi there,
> >
> >I'm quite new to perl so hope this isn't too ...............
> >
> >I'm using
> >($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
with
> >arrays for the days and months to get the current date.
> >
> >Then I want to add a day or a week to the date and reformat the date any
> >Ideas?
>
> Your best bet is probably to add the correct number of seconds to the
> output from 'time' before passing it to 'localtime'.
>
> my @tomorrow = localtime(time + 84_600); # Add one day
> my @next_wek = localtime(time + 7 * 84_600); # Add seven days.
>
> >Also does anyone have a procedure for encrypting and decrypting strings?
>
> There are many options, epending on what level of encryption you want
> to use.
Cheers for the above, very basic encryption !!!!!!!
> hth,
>
> Dave...
>
> --
> <http://www.dave.org.uk> SMS: sms@dave.org.uk
> yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
>
> "There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: 5 Sep 2000 11:18:31 -0400
From: darkon@one.net (David Wall)
Subject: Re: DBD::ODBC and date/time field overflow
Message-Id: <8FA675614darkononenet@206.112.192.118>
newsgroups@ckeith.clara.net (Colin Keith) wrote in
<GIqs5.4000$6A2.386202@nnrp4.clara.net>:
>In article <8FA1D331Ddarkononenet@206.112.192.118>, darkon@one.net
>(David Wall) wrote:
>>Driver]Datetime field overflow (SQL-22008)(DBD: st_execute/SQLExecute
>>err=-1) at C:\PerlProg\hhe-query\try-q.pl line 29.
>
>Its an ODBC error, so you're best of checking the MSKB and search for
>that error code, it turns up a few entries which might help.
>
>Also, stupid question as this seems, why do your date formats have #'s
>around them?
Not a stupid question, but probably a stupid thing for me to do. The
database I'm querying is in MS Access97 (not my fault <g>), and that's how
you denote a date in Access' version of SQL. I hadn't yet found the page
in the Perl/DBI book that notes the proper date format (one of them) for
DBD::ODBC as {d 'YYYY-MM-DD'}. Once I fixed that, the problem went away.
I posted a note Saturday (2 Sep 2000) saying that I'd found my mistake, but
for some reason my original post was missing from my news server, so I
couldn't do a proper reply to it.
I'm pretty pleased now. My little web interface to this database has made
some people in my division pretty happy. Many of them had no need to use
Access except to query this database, and this saves them time and cursing
when they want to look up something. I had fun writing it, too, even
though I had to corrupt my original design a bit to accomodate some of the
revision requests. It's probably pretty amateurish, but it's flexible
enough that I can adapt it to fit future revisions or other databases with
minimal changes. Most of it is configured from a single hash of hashes
describing the fields to be searched. And to think I wrote it almost as a
lark, since my boss left me alone for a while and I sat down with some Perl
books and started playing....
--
David Wall
darkon@one.net
------------------------------
Date: 5 Sep 2000 15:08:23 GMT
From: Randy Kobes <randy@theoryx5.uwinnipeg.ca>
Subject: Re: dmake of PERL-5.6.0 using MSVC60 compiler gens error C2061 in ..\iperlsys.h and ..\proto.h
Message-Id: <8p3297$ioq$2@canopus.cc.umanitoba.ca>
In comp.lang.perl.misc, Stan Rydz <rydz@erols.com> wrote:
> I am trying to build perl.exe for windows98 from the CPAN distribution of
> PERL-5.6.0 using Microsoft VC6.0.
> Running dmake generates syntax errors in header files: iperlsys.h and
> proto.h. and I don't know enough to find the cause of the problem.
[ ... ]
It may be that dmake isn't configured properly to use VC++ - the
docs for dmake, and the relevant Win32 README files in the
perl sources, discuss what's needed for this. However, since
you have VC++, it may be easier to use 'nmake', which comes
with VC++.
best regards,
randy kobes
------------------------------
Date: Tue, 5 Sep 2000 12:42:31 -0400
From: "Stan Rydz" <rydz@erols.com>
Subject: Re: dmake of PERL-5.6.0 using MSVC60 compiler gens error C2061 in ..\iperlsys.h and ..\proto.h
Message-Id: <8p37id$pha$1@bob.news.rcn.net>
Thanks for your reply Randy.
I read the README file for dmake and the config variables are set correctly
I believe:
OS *:= win32
OSRELEASE *:= microsft
OSENVIRONMENT *:=msc60
I'm running on Win98 and the instructions indicate that nmake works only
with NT.
Regards
Stan
"Randy Kobes" <randy@theoryx5.uwinnipeg.ca> wrote in message
news:8p3297$ioq$2@canopus.cc.umanitoba.ca...
>
> It may be that dmake isn't configured properly to use VC++ - the
> docs for dmake, and the relevant Win32 README files in the
> perl sources, discuss what's needed for this. However, since
> you have VC++, it may be easier to use 'nmake', which comes
> with VC++.
>
> best regards,
> randy kobes
------------------------------
Date: 05 Sep 2000 17:48:58 +0100
From: nobull@mail.com
Subject: Re: Getting some Infos about Servers
Message-Id: <u9hf7u4wed.fsf@wcl-l.bham.ac.uk>
Christian Oehring <Christian.Oehring@de.bosch.com> writes:
> Following Problem :
[snip program functional spec]
> The whole Process have to run in Perl. I never programed in Perl, who can
> help ???
A Perl contract programmer.
> Thanks a Lot,
You're welcome.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 05 Sep 2000 17:48:40 GMT
From: hwestiii@zdnetmail.com
Subject: Re: Inserting todays date
Message-Id: <8p3blj$vl$1@nnrp1.deja.com>
In article <8ovr3d$dnr$1@nnrp1.deja.com>,
appsman1368@my-deja.com wrote:
> I use Perls FORMAT facility to produce formatted hard-copy reports
from
> a database output file - with excellent results.
>
> However, I now need to be able to print these reports to include
> 'todays' date. I have tried using `date` but to no avail. Has anyone
> got any ideas please??
>
> Thanks in advance
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
try using the localtime function.
If you evaluate it in the context of a scalar, you get a formatted
string containing the current time.
For example:
>perl -e "$now = localtime; print \"$now\n\""
Tue Sep 5 12:48:05 2000
Any unwanted components can be removed through regexp processing.
Howard West
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 5 Sep 2000 10:21:59 -0500
From: PERLprogrammer@Telecommute.com
Subject: INTERNATIONAL PERL PROGRAMMERS TELECOMMUTE
Message-Id: <39b50f97$5_1@news.newsfeeds.com>
*** TELE COMMUTE ONLY ****
WEB PAGE PROGRAMMER
HIGH EXPERIENCE WITH DREAMWEAVER PREFERRED
KNOWLEDGE OF DHTML AND CSS CAPABILITIES OF DREAMWEAVER A+
KNOWLEDGE OF WINDOWS NT 4.0 IIS (server) A+
KNOWLEDGE OF WEB PROGRAMMING: PERL / CGI / JavaScript A +
Knowledge of programming: C / Java A+
15 TO 40 HOURS PER WEEK
$15.00 to $25.00 per hour commensurate with experience.
Using a Remote Control software utility called TIMBUKTU,
2 people can work on the same computer simultaneously.
Specific "Log-On' Schedule required. Flexible.
Prefer Mornings (PST), but afternoons, ok.
2 to 3 hours per remomte 'log-on' session.
2 to 3 times per week.
Timbuktu has an audio channel and chat features.
High-Bandwidth Not necessary, but PREFERRED.
Some work done off-line, but this is PRIMARILY a
real-time, log-on position. Instead of having a
specific schedule at an office, a specific computer
log-on schedule is required.
Please respond directly to:
TeleComMuter@Law.com
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Tue, 5 Sep 2000 10:35:15 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Match any character w/ regular expressions
Message-Id: <MPG.141eceafe0beb68998ad1f@nntp.hpl.hp.com>
In article <x7og23mjgz.fsf@home.sysarch.com> on Tue, 05 Sep 2000
06:38:37 GMT, Uri Guttman <uri@sysarch.com> says...
> >>>>> "R" == Ronny <ronald_f@my-deja.com> writes:
>
> R> (.|[\n]) would match any character. Does this help?
>
> no need for the [] there. and /s is simpler to make . match newlines.
^^^^^^^^^^^^^^^^^^^^^^^^
Sure there is a *use* for the [] there:
([.\n])
But of course the /s modifier is better, as you say.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 05 Sep 2000 17:50:09 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Match any character w/ regular expressions
Message-Id: <x7g0nen2y7.fsf@home.sysarch.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> In article <x7og23mjgz.fsf@home.sysarch.com> on Tue, 05 Sep 2000
LR> 06:38:37 GMT, Uri Guttman <uri@sysarch.com> says...
>> >>>>> "R" == Ronny <ronald_f@my-deja.com> writes:
>>
R> (.|[\n]) would match any character. Does this help?
>>
>> no need for the [] there. and /s is simpler to make . match newlines.
LR> ^^^^^^^^^^^^^^^^^^^^^^^^
LR> Sure there is a *use* for the [] there:
LR> ([.\n])
hmm, did you test that? . is plain in a char class and not a
metachar. it is not well documented (i couldn't find anything but the
fact that most chars in [] are not meta).
the idiom for ANY char is (.|\n) or [\W\w]
LR> But of course the /s modifier is better, as you say.
as i said.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Tue, 05 Sep 2000 17:58:40 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Match any character w/ regular expressions
Message-Id: <srad2gkqkmp12@corp.supernews.com>
Todd Wilson (toddcw@my-deja.com) wrote:
: I'm trying to match ANY character between two strings. Something like
: using the . character, but must also include the \n character.
That's precisely what the /s modifier is for.
: Specifically, I'm working with an HTML file and I would like to delete
: all text between <html> and, say, a specific <table> tag. There will
: obviously be many characters in between the two tags, both white space
: and non-white space. The regular expression I would like to use would
: be something as simple as this:
:
: s/<html>.*<table>//g
Note that this will delete all text (including newlines, if you make the
modifier /gs instead) from the first occurrence of <html> to the last
occurrence of <table> in the file, since .* is a greedy match. Thus, the
/g modifier is irrelevant. You may wish to use .*? to make the match
non-greedy, if you want to stop the deletion at the first occurrence of
<table>. The /g modifier would then cause any other <html>...<table>
sections to be deleted as well.
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "Every force evolves a form."
| - Shriekback
------------------------------
Date: Tue, 05 Sep 2000 17:59:46 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Match any character w/ regular expressions
Message-Id: <srad4i1vkmp63@corp.supernews.com>
Ronny (ronald_f@my-deja.com) wrote:
: In article <8p1p2s$ckg$1@nnrp1.deja.com>,
: Todd Wilson <toddcw@my-deja.com> wrote:
: > I'm trying to match ANY character between two strings. Something like
: > using the . character, but must also include the \n character.
:
: (.|[\n]) would match any character. Does this help?
What's the point of a one-character class? And how is this better than
just using /s to change the meaning of '.'?
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "Every force evolves a form."
| - Shriekback
------------------------------
Date: Tue, 5 Sep 2000 10:07:14 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Newbie Questions, Gurus Help !!
Message-Id: <MPG.141ec71f6960258098ad1d@nntp.hpl.hp.com>
In article <8p24h4$np8$1@nnrp1.deja.com> on Tue, 05 Sep 2000 06:40:37
GMT, Ronny <ronald_f@my-deja.com> says...
> In article <8otg63$28m$1@nnrp1.deja.com>,
> reg_exp@my-deja.com wrote:
...
> > 4) How can I create static variables withing a sub routine in Perl ?
> > Or is this the wrong question, and should i be asking "How do I do
> > <something> in Perl that may require static variables in C" ??
>
> There is no such a thing like a static function variable, but you could
> use package variables to imitate this. For instance, if your sub "bar"
> is defined in a package "foo", you could invent a new package, foo::bar,
> in which to hold the 'static variables' of bar:
>
> package foo;
>
> sub bar
> {
> $foo::bar::my_static = "xyz" unless defined $foo::bar::my_static;
> ...
> }
>
> I admit that this is not the nicest solution, though.
I think this is 'nicer':
{ my $my_static;
sub bar
{
$my_static = 'xyz' unless defined $my_static;
...
}
...
}
Or to initialize, one could add after the declaration:
BEGIN { $my_static = 'xyz'; }
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 05 Sep 2000 11:10:43 -0400
From: Carl DiPasquale <cdipasqu@visteon.com>
Subject: Perl Newbie: Stipping Absolute Paths from *.html files
Message-Id: <39B50CF3.EC1A9229@visteon.com>
Help!
I need to remove a bunch of absolute path strings from all files in a
website, (recursively from the site root), where the developers have
hardcoded the string value: "http://www.sitename.com/" instead of using
relative pathing. Does anyone have a script that will recursively
search all .html/.htm files in a site and change/remove a group of
specified string values, (I need to search for 3 particular strings and
remove them)?
Thanks!
Carl DiPasquale
Oracle DBA / Web Administrator
cdipasqu@visteon.com
------------------------------
Date: 05 Sep 2000 09:35:05 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl Newbie: Stipping Absolute Paths from *.html files
Message-Id: <m13djessp2.fsf@halfdome.holdit.com>
>>>>> "Carl" == Carl DiPasquale <cdipasqu@visteon.com> writes:
Carl> Help!
Carl> I need to remove a bunch of absolute path strings from all files in a
Carl> website, (recursively from the site root), where the developers have
Carl> hardcoded the string value: "http://www.sitename.com/" instead of using
Carl> relative pathing. Does anyone have a script that will recursively
Carl> search all .html/.htm files in a site and change/remove a group of
Carl> specified string values, (I need to search for 3 particular strings and
Carl> remove them)?
While not exactly "ready to run" for your application, you might look at:
http://www.stonehenge.com/merlyn/WebTechniques/col22.html
for a way to do this easily.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 05 Sep 2000 17:39:44 +0100
From: Tim Cockle <T.Cockle@staffs.ac.uk>
To: Carl DiPasquale <cdipasqu@visteon.com>
Subject: Re: Perl Newbie: Stipping Absolute Paths from *.html files
Message-Id: <39B521D0.6390AA92@staffs.ac.uk>
Perl Cookbook Tips and Tricks for Perl
Programmers
By Tom Christiansen & Nathan Torkington
1st Edition August 1998
If you can get it has an example that does this. Check your library you
never know! :)
http://www.oreilly.com/catalog/cookbook/
Carl DiPasquale wrote:
> Help!
>
> I need to remove a bunch of absolute path strings from all files in a
> website, (recursively from the site root), where the developers have
> hardcoded the string value: "http://www.sitename.com/" instead of using
> relative pathing. Does anyone have a script that will recursively
> search all .html/.htm files in a site and change/remove a group of
> specified string values, (I need to search for 3 particular strings and
> remove them)?
>
> Thanks!
>
> Carl DiPasquale
> Oracle DBA / Web Administrator
> cdipasqu@visteon.com
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Mr. T. P. Cockle M.Sc. B.Sc. (hons) Pg.D. Ph.D.
Representative
Research (Distributed Computer Systems)
School of Computing,
Staffordshire University,
Stafford ST18 0DG.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Tue, 05 Sep 2000 18:00:01 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: PGP from Perl dies with "out of memory"
Message-Id: <Bwat5.2287$O5.45342@news.itd.umich.edu>
I've recently begun experimenting with calling PGP from a Perl program. My
efforts have been rather less than successful so far.
What I want to do is have Perl invoke PGP to sign a file. I use PGP's
ability to read my passphrase from any file descriptor, specified via the
PGPPASSFD environment variable.
----------------------------------------------------------------------
pipe READ, WRITE;
print WRITE "mypassphrase\n";
close WRITE;
$ENV{PGPPASSFD} = fileno(READ);
system qw(pgp -s myfile)
----------------------------------------------------------------------
PGP fails to sign the file. When I capture and print the return code from
system(), it indicates that pgp has returned an exit code of 7, which,
according to the PGP docs, means "out of memory"!
Instead of using pipes, I've tried storing my passphrase in a file, opening
it, and setting PGPPASSFD to the file's descriptor, but it makes no
difference. Oddly, when I implement the same very simple program logic in
C (or even Python!), using either a pipe or a file to supply the passphrase,
PGP signs the file just as I requested.
Can anyone suggest why PGP behaves this way only when called from Perl? My
Perl version is 5.005_03 (although 5.6.0 shows the same behavior), and my
PGP is version 6.5.8.
For comparison, here's my equivalent C code:
----------------------------------------------------------------------
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
int main()
{
int fd[2];
int exitcode;
char buf[100];
pipe(fd);
write(fd[1], "mypassphrase\n", 13);
close(fd[1]);
sprintf(buf, "PGPPASSFD=%d", fd[0]);
putenv(buf);
exitcode = system("pgp -s myfile");
printf("Exit code = %d\n", exitcode);
return 0;
}
----------------------------------------------------------------------
--
Sean McAfee mcafee@umich.edu
print eval eval eval eval eval eval eval eval eval eval eval eval eval eval
q!q@q#q$q%q^q&q*q-q=q+q|q~q:q? Just Another Perl Hacker ?:~|+=-*&^%$#@!
------------------------------
Date: 05 Sep 2000 17:49:16 +0100
From: nobull@mail.com
Subject: Re: Reading a remote file.
Message-Id: <u9g0ne4wdv.fsf@wcl-l.bham.ac.uk>
brian.russo@nextel.com writes:
> Does anyone know if there is a module or technique available which will
> allow me to open a file for READ only on a remote UNIX system. I would
> like to avoid NFS mounting the filesystem or physically copying the file
> to my local box.
The obvious candidate is Net::FTP.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 5 Sep 2000 10:46:36 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Remove carriage returns from input
Message-Id: <MPG.141ed15c728cb52498ad20@nntp.hpl.hp.com>
In article <PM6t5.15421$gg.4088888@typhoon.southeast.rr.com> on Tue, 05
Sep 2000 13:44:15 GMT, Philip Garrett <philipg@atl.mediaone.net> says...
> RGA <rga@io.com> wrote in message
> news:Ru6t5.61106$g53.970650@news5.giganews.com...
> > Hope I don't stimulate too many of the Unsenet police with this silly Q,
> >
> > I need to strip out any carriage returns from my input.
> >
> > What's the character to match on.
> > I have 2 books, but can't find ..
> >
> > Can't I do a simple
> >
> > $results =~ s/chr(10)//g;
> >
> > Whatever that nasty carriage return is ?
>
> Carriage return is "\r". Try s/\r//g.
But chr(10) is line feed, not carriage return, except on the Mac.
Most likely the original poster wants to strip newlines, which are
otherwise called line feeds, not carriage returns (which shouldn't be
there in any case).
One way, assuming the strings have been read is as lines, is to use
chomp().
A more general way is to use the tr///d operator, which is much faster
than the s///g you show.
tr/\n//d
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 5 Sep 2000 10:29:25 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Seperating text and integers from a variable
Message-Id: <MPG.141ecd4e234bdef098ad1e@nntp.hpl.hp.com>
In article <39b3f591.1d06$27d@news.op.net> on Mon, 04 Sep 2000 19:18:42
GMT, Mark-Jason Dominus <mjd@plover.com> says...
> In article <39b3f3b3.8916471@news.coastalnet.com>,
> Jonaskuh <jonaskuh@tell-em-off.com> wrote:
> >contains a "ID" which is something like "hujkr45" and what I'd like
> >to do is seperate the number from the text and put the number into
> >it's own variable.
>
> ($digits) = ($id =~ /(\d+)/);
>
> or
>
> ($letters, $digits) = ($id =~ /([a-z]+)(\d+)/);
>
> Don't leave out any of the parentheses.
Why not? The binding operator =~ has higher precedence than assignment.
($digits) = $id =~ /(\d+)/;
or
($letters, $digits) = $id =~ /([a-z]+)(\d+)/;
There's a never-ending debate about whether superfluous parentheses
signify explicitness or insecurity.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 05 Sep 2000 17:36:59 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Seperating text and integers from a variable
Message-Id: <39b52f3b.4aa1$247@news.op.net>
In article <MPG.141ecd4e234bdef098ad1e@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
>> Don't leave out any of the parentheses.
>
>Why not?
Because it's simpler and clearer to say "Don't leave out any of the
parentheses" than to explain what all the parentheses are for, and
because in the past when I've omitted that instruction, the querent
came back and said "IT DIDNT WORK DUMMY" when they omitted the
parentheses.
------------------------------
Date: Tue, 05 Sep 2000 18:04:18 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Seperating text and integers from a variable
Message-Id: <5ddars01pkalodfuga8f3sareujtg0rkng@4ax.com>
Larry Rosler wrote:
>There's a never-ending debate about whether superfluous parentheses
>signify explicitness or insecurity.
How about "explicit insecurity".
--
Bart.
------------------------------
Date: Tue, 5 Sep 2000 18:18:14 +0100
From: "Alex Walker" <alexwalker@hotmail.com>
Subject: showing external hyperlinks in a frame...
Message-Id: <KV9t5.6590$4T2.143370@news6-win.server.ntlworld.com>
Hi,
I have seen something like this done on other sites but can't find anywhere
that tells me how to do it:
My main page has no frames. When people click on an external hyperlink I
would like the resulting page to consist of two parts not 1:a header frame
in it which displays my banner (a bit like askjeeves), and the linked page
below. As I have lots of external hyperlinks I don't want to have to create
a frames page for each one so is there any code that results in the external
link being shown with my header?
Hope this makes sense!
--
Regards
Alex Walker
------------------------------
Date: 05 Sep 2000 13:13:22 EDT
From: abigail@foad.org (Abigail)
Subject: Sorting again.
Message-Id: <slrn8raabo.tjm.abigail@alexandra.foad.org>
Recently, I posted a benchmark comparing how well Perls sort does on
various inputs. But now, perl 5.7.0 uses merge sort instead of quick sort.
(Thanks to the work of John Linderman and Peter McIlroy).
A comparison is in order.
First, the benchmark:
#!/opt/perl/bin/perl -w
use strict;
use Benchmark;
use Algorithm::Numerical::Shuffle qw/shuffle/;
use vars qw /@sorted @reverse @organ @random @dice @coins @saw/;
my $pid = open my $from => "-|";
die "Failed to fork: $!\n" unless defined $pid;
$| = 1;
unless ($pid) {
# Child writes.
for (my $size = 100; $size <= 25000; $size *= 2) {
@sorted = map {sprintf "%06d" => $_} 1 .. $size;
@reverse = reverse @sorted;
@organ = (@sorted [1 .. $size / 2],
reverse @sorted [1 .. $size / 2]);
@random = shuffle @sorted;
@dice = map {sprintf "%06d" => rand sqrt $size} 1 .. $size;
@coins = map {rand () < .5 ? 0 : 1} 1 .. $size;
@saw = (map {sprintf "%06d" => $_} 1 .. $size / 2) x 2;
print "SIZE: $size\n";
timethese -20 => {
sorted => 'my @a = sort @::sorted',
reverse => 'my @a = sort @::reverse',
organ => 'my @a = sort @::organ',
random => 'my @a = sort @::random',
dice => 'my @a = sort @::dice',
coins => 'my @a = sort @::coins',
saw => 'my @a = sort @::saw',
};
}
exit;
}
# Parent.
my ($size, %times);
while (<$from>) {
if (/^SIZE: (\d+)/) {
$size = $1;
next;
}
if (m{^\s*(\w+).*\@\s*(\d+\.\d+)/s}) {
die "No size!\n" unless defined $size;
$times {$1} {$size} = $2;
}
}
# Do some formatting. For each size, find the longest result.
my %length;
my $length = 0;
my $max_size = 0;
foreach my $size (keys %{$times {random}}) {
$length {$size} = 3 + length $size;
foreach my $method (keys %times) {
$times {$method} {$size} ||= -1;
$length = length $method if length $method > $length;
$length {$size} = length $times {$method} {$size} if
length $times {$method} {$size} > $length {$size};
}
$max_size = $size if $size > $max_size;
}
printf "%${length}s" => "Method";
foreach my $size (sort {$a <=> $b} keys %{$times {random}}) {
my $format = $length {$size} - 3;
printf " %${format}d " => $size;
}
print "(Size)\n";
my @methods = sort {$times {$b} {$max_size} <=> $times {$a} {$max_size}}
keys %times;
foreach my $method (@methods) {
printf "%${length}s" => $method;
foreach my $size (sort {$a <=> $b} keys %{$times {$method}}) {
printf " %$length{$size}.2f" => $times {$method} {$size} || -1;
}
print "\n";
}
__END__
"sorted" contains data that is already sorted. "reverse" is data that
is sorted in reverse order. "random" contains data in random order, with
no duplicates. "organ" contains data in 'organ pipe' format (sorted /\)
while "saw" contains data in sawtooth format (sorted /|/). "dice" contains
data with a high number of duplications, while "coins" has data that only
has 2 values.
The first set of runs is from perl 5.6.0, with quicksort.
Method 100 200 400 800 1600 3200 6400 12800 (Size)
coins 3497.74 1710.26 841.08 418.35 208.76 99.95 44.30 19.18
sorted 2800.09 1295.16 581.68 289.42 132.54 63.82 28.27 12.93
reverse 2326.46 1107.81 525.36 244.99 120.07 53.20 26.14 11.41
dice 2843.80 1243.55 616.18 271.66 126.01 54.96 24.73 10.48
random 1791.08 899.28 408.90 179.01 79.65 36.41 16.53 7.09
saw 1160.02 347.06 98.48 25.59 6.53 1.64 0.41 0.10
organ 710.35 194.04 52.36 13.43 3.39 0.85 0.22 0.05
The second set of runs is from perl 5.7.0, with merge sort.
Method 100 200 400 800 1600 3200 6400 12800 (Size)
sorted 3787.19 1884.01 916.32 454.26 226.57 110.30 49.60 21.44
reverse 3707.54 1868.80 906.91 447.93 221.81 108.77 48.69 21.36
organ 3152.24 1582.11 776.10 386.54 191.24 92.77 42.72 18.85
saw 3172.83 1587.37 781.38 386.40 190.81 93.41 42.11 18.32
coins 2350.38 1155.61 541.63 261.53 127.87 62.28 27.52 11.65
dice 1941.18 883.81 392.62 176.53 81.73 38.18 17.08 7.03
random 1883.99 864.89 386.80 173.71 80.22 36.44 16.01 6.43
As we can see, quick sort does better on data containing duplicates, but
merge sort does better on already sorted data. For random data, sometimes
quick sort is better, sometimes merge sort, but overall there's not much
difference. The biggest gain, however, is in organ and sawtooth sphaped
data. Where quicksort exhibits quadratic behaviour, that problem is gone
with merge sort, which will have an O (n log n) worst case run time.
In general, the number of comparisons done will be less with merge sort,
which should benefit sorts that have an expensive comparison routine.
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54";
print if s/<<EOT/<<EOT/e;
Just another Perl Hacker
EOT
------------------------------
Date: Tue, 05 Sep 2000 17:33:41 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Troubles with Async.pm
Message-Id: <39b52e74.4a73$3b1@news.op.net>
[mailed and posted]
In article <8p2q1p$du9$1@nnrp1.deja.com>, <pedja@dds.nl> wrote:
>main problem is that code works very strange.
>Any advice?
Try to find a small example program that demonstrates the problem.
Send the example program to the author of the module. It is not
likely that anyone can help you unless you provide a more detailed
report.
------------------------------
Date: Tue, 5 Sep 2000 17:37:54 +0200
From: "Sergio Olivares" <solivares@alamo-online.es>
Subject: Troubles with dbd::oracle installation
Message-Id: <8p3429$rf2$1@lola.ctv.es>
i' m trying to install dbd::oracle module after installing dbi module in
linux red hat.
Module's building runs without errors but when i make test, test 4 and 5
fails.
this is the test output:
----------------------------------------------------------------------------
---------------------------------------------------------
PERL_DL_NONLAZY=1
/usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl5/5.00503/i386-linux -I/
usr/lib/perl5/5.00503 -e 'use Test::Harness qw(&runtests $verbose);
$verbose=1; runtests @ARGV;' t/*.t
t/base..............1..5
ok 1
ok 2
ok 3
FAILED tests 4-5
Failed 2/5 tests, 60.00% okay
t/general...........install_driver(Oracle) failed: Can't load
'blib/arch/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle:
libclntsh.so.8.0: cannot open shared object file: No existe el fichero o el
directorio at /usr/lib/perl5/5.00503/i386-linux/DynaLoader.pm line 169.
at (eval 1) line 3
Perhaps a required shared library or dll isn't installed where expected
at t/general.t line 20
dubious
Test returned status 255 (wstat 65280, 0xff00)
Undefined subroutine &Test::Harness::WCOREDUMP called at
/usr/lib/perl5/5.00503/Test/Harness.pm line 288.
make: *** [test_dynamic] Error 255
----------------------------------------------------------------------------
--------------------------------------------------------------------
Does anybody know what is happening ? Thank you to all for your help
Sergio Olivares Cuervo
Álamo Online.
Tres Cantos . Spain
------------------------------
Date: Tue, 05 Sep 2000 15:23:49 GMT
From: "Ben Kennedy" <bkennedy99@home.com>
Subject: Re: use strict: why?
Message-Id: <9e8t5.9921$AW2.142986@news1.rdc2.pa.home.com>
"Tim Hammerquist" <tim@degree.ath.cx> wrote in message
news:slrn8r9b5b.1c7.tim@degree.ath.cx...
> I've noticed in this NG that 'use strict' is often encouraged much like
> a dealer pushes drugs. I completely understand it's benefits as a
> pragma. However, it's not a rule.
I think a better question to ask is, why not use strict. Like anything else
its a tradeoff. If you want to use strict, you have to
A) Declare your variables as lexical, or fully qualify them with a package
name
B) Turn off strict if you want to use barewords or symbolic references
Considering that lexical variables are faster than global variables, a
seasoned programmer is likely to do A anyway and declare as many variables
with my as possible. Global variables, barewords, and symbolic references
are used comparitively infrequently and B is not a tremendous burden.
Using strict just forces you write better code. Your variables are faster,
and it forces the programmer to examine if global variables, barewords, and
symbolic references are really necessary. And if they are, you can just
turn it off, or more likely fix the bug that was just pointed out to you.
> In practice, code is "wrong" when it doesn't do what you want. I like
> my code like my girlfriend: short, fun, sexy, and not anal.
IMO, a large chunk of code that compiles cleanly under strict is much
slimmer and sexier than chunk of code that is full of nasty unnecesary
globals, barewords, and symbolic references. strict shapes your code, it is
not your code.
--Ben Kennedy
------------------------------
Date: Tue, 05 Sep 2000 13:02:37 -0400
From: brian d foy <brian+usenet@smithrenaud.com>
Subject: Re: use strict: why?
Message-Id: <brian+usenet-47A076.13023705092000@news.panix.com>
In article <slrn8r9b5b.1c7.tim@degree.ath.cx>, tim@degree.ath.cx (Tim
Hammerquist) wrote:
> To boot, when I work under 'use strict', I sometimes just feel
> claustrophobic. If it's not a large app, and there's no significant
> reason I _have_ to 'use strict', I feel like I'm being made to program
> in C again, and that's something I just won't do for under $100/hr. =)
there are several reasons i want my programmers to use this pragma:
* they are part of a programming team. their stuff has to
work with other people's stuff.
* strict enforces habits that make a maintenance programmer's
job eaasier.
* strict finds unintentional errors faster than debugging.
* strict can be turned off in sections of code where it
gets in the way.
> In practice, code is "wrong" when it doesn't do what you want. I like
> my code like my girlfriend: short, fun, sexy, and not anal.
that may be fine when it's just you. however, when you are writing
a module for other people to use, or have many people working on
the same code, you'll want to have some pencillin ready.
--
brian d foy
Perl Mongers <URL:http://www.perl.org>
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Tue, 5 Sep 2000 19:09:19 +0200
From: tony@svanstrom.com (Tony L. Svanstrom)
Subject: Re: use strict: why?
Message-Id: <1egi26o.gzt165ou57ewN%tony@svanstrom.com>
Tim Hammerquist <tim@degree.ath.cx> wrote:
> I've noticed in this NG that 'use strict' is often encouraged much like
> a dealer pushes drugs. I completely understand it's benefits as a
> pragma. However, it's not a rule.
[cut]
> To boot, when I work under 'use strict', I sometimes just feel
> claustrophobic. If it's not a large app, and there's no significant
> reason I _have_ to 'use strict', I feel like I'm being made to program
> in C again, and that's something I just won't do for under $100/hr. =)
You just have to get use having it there, and then you are typing away
just as happily as before you started using it. As long as you have it
there from the very first lines of code that you write, every time you
start working on a new script, you soon will learn to do it right from
the begining (instead of keeping all your bad habits and then having to
spend days rewriting the script so that use strict works).
/Tony
--
/\___/\ Who would you like to read your messages today? /\___/\
\_@ @_/ Protect your privacy: <http://www.pgpi.com/> \_@ @_/
--oOO-(_)-OOo---------------------------------------------oOO-(_)-OOo--
on the verge of frenzy - i think my mask of sanity is about to slip
---ôôô---ôôô-----------------------------------------------ôôô---ôôô---
\O/ \O/ ©99-00 <http://www.svanstrom.com/?ref=news> \O/ \O/
------------------------------
Date: Tue, 05 Sep 2000 17:35:51 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: World Wide PERL PROGRAMMERS TELECOMMUTE
Message-Id: <x7itsan3m0.fsf@home.sysarch.com>
>>>>> "P" == PERLWorldWidel <PERLWorldWidel@GLOBALTelecommute.com> writes:
P> $15.00 to $25.00 per hour commensurate with experience.
HAHAHAHAHHAHAHAAHAH!!
go hire moronzilla. most money she will ever make. and pay her at the
bottom of your scale. you won't be getting your money's worth even then.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4227
**************************************
