[16813] in Perl-Users-Digest
Perl-Users Digest, Issue: 4225 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 5 06:05:35 2000
Date: Tue, 5 Sep 2000 03:05:19 -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: <968148318-v9-i4225@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 5 Sep 2000 Volume: 9 Number: 4225
Today's topics:
Re: "list" vs "array" (was: @_ as array) (David Combs)
ASCII code <dchan@wcwpt.com.hk>
Re: ASCII code (Gwyn Judd)
Re: CGI programming book (Tim Hammerquist)
Client / Server Certificate <wolfgang.huber@proofit.at>
Re: Client / Server Certificate (Martien Verbruggen)
Re: Convert UNIX Timestamp to DateTime (Martien Verbruggen)
Re: Dear friends, help in locking *.db databases <paul@pco.iis.nsk.su>
Re: Flock being stubborn (Randal L. Schwartz)
Re: How to make eval() secure with backtick? nobull@mail.com
Re: How to make eval() secure with backtick? nobull@mail.com
HTML::Mason as a templating tool. <ocschwar@mit.edu>
IPC::Shareable "Munged shared memory segment" errors <steven@ircnet.dk>
Re: Match any character w/ regular expressions <philipg@atl.mediaone.net>
Re: Match any character w/ regular expressions <bcaligari@my-deja.com>
Re: Match any character w/ regular expressions <ronald_f@my-deja.com>
Re: Match any character w/ regular expressions <uri@sysarch.com>
new module: feedback desired. <srohit@hotmail.com>
Re: Newbie Questions, Gurus Help !! <ronald_f@my-deja.com>
Re: Optimization of Perl code (Martien Verbruggen)
Re: Parsing a Excell table - or - a "Tab New_Line" text (David Combs)
Re: Parsing MySQL TEXT field <ales.romaniuk@zag.si>
Re: Parsing MySQL TEXT field <bart.lateur@skynet.be>
Re: Perl/CGI file transfer <alanhll@alphalink.com.au>
Re: Programming Ethics (Tim Hammerquist)
Re: Question Perl Cookbook 17.6 (Tim Hammerquist)
use strict: why? (Tim Hammerquist)
Re: use strict: why? (Rafael Garcia-Suarez)
Re: use strict: why? (Tim Hammerquist)
Re: use strict: why? <godzilla@stomp.stomp.tokyo>
Re: using the value of a variable for another varible's (Gwyn Judd)
visited urls <troyr@vicnet.net.au>
Re: Win98 com port - rookie needs help <nobody@spamcop.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Sep 2000 06:19:15 GMT
From: dkcombs@netcom.com (David Combs)
Subject: Re: "list" vs "array" (was: @_ as array)
Message-Id: <8p2393$ql$1@nntp9.atl.mindspring.net>
In article <MPG.140e06246f3d23c798acd0@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
>[alt.perl removed. They'll just have to live with the errors!]
>
>In article <8o1f07$rtt$1@news.netvision.net.il> on Thu, 24 Aug 2000
>00:19:34 +0200, Amir E. Aharoni <amir_e_a@netvision.net.il> says...
>
>...
>>
>> # Creates an array called @keanu and assigns 3 values to it
>> my @keanu = ("Speed", "Matrix", "Devil's Advocate");
>>
>> # Prints "Matrix"
>> print @keanu[1];
>
>That prints a slice of the array @keanu, which is a list consisting of
>the single scalar element $keanu[1]. Note how the @ character isn't an
>inseparable part of the name of the array @keanu.
>
Am confused about terminology: what is the difference
between a "list" and an "array"?
Does "list" refer ONLY to a "LITERAL" thing, eg
(10, 20, "foo", (4, 5))
?
When you ASSIGN a list (as above) to a variable, then
regardless of how you do it, you then have an ARRAY (or
ref to one)?
No such thing as a list "in" a variable?
Is the above correct? If not, please elaborate.
Thanks!
David
------------------------------
Date: Tue, 05 Sep 2000 16:34:21 +0800
From: Daniel <dchan@wcwpt.com.hk>
Subject: ASCII code
Message-Id: <39B4B00D.3E98D6BD@wcwpt.com.hk>
Is there any function in Perl for getting the ascii code of a
character?
Daniel
------------------------------
Date: Tue, 05 Sep 2000 09:46:57 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: ASCII code
Message-Id: <slrn8r9g8d.50m.tjla@thislove.dyndns.org>
I was shocked! How could Daniel <dchan@wcwpt.com.hk>
say such a terrible thing:
>Is there any function in Perl for getting the ascii code of a
>character?
perldoc -f ord
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
In theory, there is no difference between theory and practice. In
practice, there is a big difference.
------------------------------
Date: Tue, 05 Sep 2000 08:44:55 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: CGI programming book
Message-Id: <slrn8r9db2.1c7.tim@degree.ath.cx>
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? =)
On the other hand, at least you realize that CGI and Perl aren't
synonymous. ;)
In any case, `perldoc CGI` was my sole tutor.
--
-Tim Hammerquist <timmy@cpan.org>
Democracy encourages the majority to decide
things about which the majority is ignorant.
-- John Simon
------------------------------
Date: Tue, 5 Sep 2000 09:18:39 +0200
From: "Wolfgang" <wolfgang.huber@proofit.at>
Subject: Client / Server Certificate
Message-Id: <968138631.288788@newsmaster-04.atnet.at>
Hi
I need help very urgent.
I want to establish a connection from one (web)-server to another
(web)-server with a secure link (SSL).
The other server requires a client certificate from me, no problem i've got
one.
My problem is, i don't know how i can establish such a connection within a
perl-script.
If you have experience or perl-script examples where i can send a client
certificate to another server please be so kind and send it to me.
Please help i need this information really very urgent !!!!!!!!!!!!!
thanks in advance
Wolfgang
------------------------------
Date: Tue, 5 Sep 2000 19:09:48 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Client / Server Certificate
Message-Id: <slrn8r9aic.ucf.mgjv@martien.heliotrope.home>
On Tue, 5 Sep 2000 09:18:39 +0200,
Wolfgang <wolfgang.huber@proofit.at> wrote:
> I need help very urgent. I want to establish a connection from one
> (web)-server to another (web)-server with a secure link (SSL). The
> other server requires a client certificate from me, no problem i've
> got one. My problem is, i don't know how i can establish such a
> connection within a perl-script. If you have experience or
> perl-script examples where i can send a client certificate to another
> server please be so kind and send it to me.
>
> Please help i need this information really very urgent !!!!!!!!!!!!!
Please, don't shout. You're not going to reach more people if you shout.
You will just run the risk that people don't read your post at all.
If you need help urgently, then maybe you should hire and pay someone to
do it for you. If it's really urgent, Usenet is normally not the best
place to go.
Anyway, your question is slightly oddly framed. Is your question: I have
a program written in Perl. It uses the CGI interface, running behind a
secure web server. I need to contact another web server, using a secure
HTTP protocol. How can I do this?
If so:
# perldoc lwpcook
[snip]
URLs with https scheme are accessed in exactly the same
way as with http scheme, provided that an SSL interface
module for LWP has been properly installed (see the
README.SSL file found in the libwww-perl distribution for
more details). If no SSL interface is installed for LWP
to use, then you will get "501 Protocol scheme 'https' is
not supported" errors when accessing such URLs.
[snip]
In other words, get the LWP modules installed, read the README.SSL that
comes with the dictribution, and install a SSL interface for LWP to use.
start at http://www.cpan.org/
Martien
--
Martien Verbruggen |
Interactive Media Division | The gene pool could use a little
Commercial Dynamics Pty. Ltd. | chlorine.
NSW, Australia |
------------------------------
Date: Tue, 5 Sep 2000 17:31:25 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Convert UNIX Timestamp to DateTime
Message-Id: <slrn8r94pt.ucf.mgjv@martien.heliotrope.home>
On Mon, 04 Sep 2000 13:25:10 GMT,
Jonaskuh <jonaskuh@tell-em-off.com> wrote:
> Is there any way in Perl (Modules, Equations, Functions) where I can
> convert a Unix timestamp into a regular datetime (i.e. 2000-09-04
> 09:24:00)?? Any help would be greatly appreciated.
Others have already pointed you in the direction of localtime, which is
the correct answer, _if_ you are on a platform that uses the same epoch
as Unix systems normally do. If you're on a Mac, and you want to convert
unix timestamps, you'll have to do some conversions.
One thing that others haven't mentioned yet, is that you might be able
to use the strftime function from the POSIX package to fomat your time.
To read more about that epoch thingy:
# perldoc -f time
To read more about strftime:
# perldoc POSIX
To read more about the formatting, if you're on a Unix system:
# man strftime
Martien
--
Martien Verbruggen |
Interactive Media Division | Useful Statistic: 75% of the people
Commercial Dynamics Pty. Ltd. | make up 3/4 of the population.
NSW, Australia |
------------------------------
Date: Tue, 5 Sep 2000 15:56:40 +0600
From: "Paul Dortman" <paul@pco.iis.nsk.su>
Subject: Re: Dear friends, help in locking *.db databases
Message-Id: <8p2ck8$sdo$1@news.itfs.nsk.su>
Thanks for help, Derrick.
Well Now my program works pretty well,
Thanks
Paul Dortman wrote in message <8p0d4b$2ntj$1@news.itfs.nsk.su>...
>Dear Friends,
>
>Please help, I get error and I can not find how to fix it.
>
>I'm working with DB_File module,
>I try to open database to read some information, after that I close
>database.
>Than I open database to write some information and close it. Of course,
>I lock database while open and unlock it while close
>
>Please look at this simple code below, And tell me what's wrong or give me
>advice where
>can I find information that could help me!
>
>This program does not work. I got error "Bad file descriptor at
./test5.pl
>line 38." when I tried to run it.
>(Error occured when Program tried to open data.db file second time)
>
>I will happy If somebody helps me
>
>Thank you.
>
>Paul
>
>#!/usr/bin/perl
>
>use DB_File;
>
>sub LOCK_SH { 1 }
>sub LOCK_EX { 2 }
>sub LOCK_NB { 4 }
>sub LOCK_UN { 8 }
>
>
>#open for reading
>
>my($tr_db, $fd_tr_db);
>
>$tr_db = tie(%tr_db, 'DB_File', "/home/paul/temp/data.db", O_CREAT|O_RDWR,
>0666)
> or die "db /home/paul/temp/data.db : $!";
>$fd_tr_db = $tr_db->fd;
>open(TR_DB_FH, "+<&=$fd_tr_db") or die "error, $fd_tr_db : 1 : $!";
>unless (flock(TR_DB_FH, LOCK_SH)) {
> die "can not get lock on file /home/paul/temp/data.db";
>}
>
>#processing
>
>foreach $user (@ARGV) {
> print "$user\t$tr_db{$user}\n";
>}
>
>#close
>$tr_db -> sync;
>flock(TR_DB_FH, LOCK_UN);
>untie %tr_db;
>close(TR_DB_FH) or die "Could not close TR_DB_FH: $!";
>
>#open for writing
>$tr_db = tie(%tr_db, 'DB_File', "/home/paul/temp/data.db", O_CREAT|O_RDWR,
>0666)
> or die "db /home/paul/temp/data.db : $!";
>$fd_tr_db = $tr_db->fd;
>open(TR_DB_FH, "+<&=$fd_tr_db") or die "error, $fd_tr_db : 2 : $!";
>unless (flock(TR_DB_FH, LOCK_EX)) {
> die "can not get lock on file /home/paul/temp/data.db";
>}
>
>#processing
>
>foreach $user (@ARGV) {
> $tr_db{$user}++;
>}
>
>#close
>$tr_db -> sync;
>flock(TR_DB_FH, LOCK_UN);
>untie %tr_db;
>close(TR_DB_FH) or die "Could not close TR_DB_FH: $!";
>
>
>
>
>
------------------------------
Date: 04 Sep 2000 21:32:39 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Flock being stubborn
Message-Id: <m1k8crtq54.fsf@halfdome.holdit.com>
>>>>> "Bart" == Bart Lateur <bart.lateur@skynet.be> writes:
>> There's no point in that O/S test. If it doesn't exist, then this
>> code won't even compile. Way too late to check at runtime.
Bart> Oh it exists. It compiles. Only, it gives a runtime error.
Eww. That is evil. Bleh. Whatever happened to the true Perl
way of having everything that compiles... work. :)
--
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: 05 Sep 2000 08:43:36 +0100
From: nobull@mail.com
Subject: Re: How to make eval() secure with backtick?
Message-Id: <u9aednw7gz.fsf@wcl-l.bham.ac.uk>
> nobull@mail.com writes:
>
> > All this
> > stuff about $cmd and the extra level of eval() indirection is
> > irrelevant to your real question since $cmd is from a trusted source.
>
> It's not irrelevant, although I wasn't clear. The source may be
> trusted, but that doesn't mean it knows how the program works or knows
> or cares to know how to use Perl all that well.
>
> > The answer is probably to do:
> >
> > print `echo \Q$var`;
>
>
> Thanks. However the responsibility for quoting should be with the
> program rather than the person writing the command.
Yes but that's a trivial matter.
> If it weren't for the parsing problem, I suppose I could replace
> '$var' with '\Q$var'
No, just modify the contents of $var _before_ interpolation.
#!/usr/bin/perl -w
use strict;
my $cmd='echo $var';
my $var=<DATA>;
$var=quotemeta($var); # Can also be written $var="\Q$var"
print readpipe(eval("<<_BoUnDaRy_\n$cmd\n_BoUnDaRy_"));
__DATA__
`hostname`
__END__
Note: I use a << rather than qq// so that we don't need to worry about
$cmd containing the qq// delimiter. I use readpipe() rather than
backticks or qx// because I find it is counter-intuative to think of
backticks as a quoting construct.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 05 Sep 2000 08:51:28 +0100
From: nobull@mail.com
Subject: Re: How to make eval() secure with backtick?
Message-Id: <u98zt7w6pv.fsf@wcl-l.bham.ac.uk>
mjd@plover.com (Mark-Jason Dominus) writes:
> In article <wihk8crmyol.fsf@panix3.panix.com>,
> R. Bernstein <rocky@panix.com> wrote:
> >The post by nobull@mail.com seems more in line with what I need. It
> >sure is a lot less arcane.
>
> Yes, but it's a lot less secure, and you specifically asked for
> security.
>
> The \Q solution supposedly works by 'escaping' all the shell
> metacharacters. It does this by putting a \ in front of every special
> character. But in the shell, putting \ in front of a character does
> *not* escape it. Sometimes it does, and sometimes it doesn't, and the
> result depends on context.
Yes but context depends on other metacharacters. And AFAIK the worst
that will happen is you'll get some unwanted backslashes in the data.
Consider the following.
$var=quotemeta($var);
print readpipe(eval("<<_BoUnDaRy_\n$cmd\n_BoUnDaRy_"));
Now assume $val comes from someone who is malicious.
Assume also $cmd comes from someone who is not security savvy but not
actively trying to assit the malicious user either.
I challenge you to find a value of $val and a _credible_ value of $cmd
that allow the malicious user to malicious stuff.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 05 Sep 2000 00:34:09 -0400
From: Omri Schwarz <ocschwar@mit.edu>
Subject: HTML::Mason as a templating tool.
Message-Id: <39B477C1.C29F72E4@mit.edu>
I have a directory with HTML files that have Mason calls in them.
(~/www/components)
I have components in that directory.
I want Mason to process say ~/www/components/index.html and output
HTML into ~/www/index.html
I thought this script (genweb) would do it:
#!/usr/athena/bin/perl
use HTML::Mason;
use Getopt::Std;
getopts('o:i:');
my $outbuf;
my $parser = new HTML::Mason::Parser;
my $interp = new HTML::Mason::Interp (parser=>$parser,
comp_root=>"$ENV{HOME}/www/components",
data_dir=>"$ENV{HOME}/www",
out_method=>\$outbuf);
my $retval = $interp->exec("$ENV{HOME}/www/components/$opt_i");
open(F,"$ENV{HOME}/www/$opt_o");
print F $outbuf;
close(F);
print "return value of component was: $retval\n";
But, this shows otherwise:
athena% perl5.00503 scripts/genweb -i index.html -o index.html
could not find component for initial path
'/afs/athena.mit.edu/user/o/c/ocschwar/www/components/index.html'
Has anyone here used HTML::Mason in such a context?
Could anyone guess what is going wrong?
------------------------------
Date: Tue, 05 Sep 2000 09:30:07 GMT
From: steven <steven@ircnet.dk>
Subject: IPC::Shareable "Munged shared memory segment" errors
Message-Id: <8p2eem$2ea$1@nnrp1.deja.com>
Hi,
I'm using IPC::Shareable 0.51 under Perl 5.6.0 and mod_perl 1.24 on
Linux 2.0.36, I have a shared hash which is created and accessed fine
until I delete() a hash element. Any call (I'm using `exists()') to an
element which has been deleted causes a "Munged shared memory segment
(size exceeded?)" error, and I can't figure out what's wrong. The pod
for IPC::Shareable contains an example which works fine, but there's no
documentation for that error, and the pod for delete() doesn't shed any
light. If I let the tie occur whilst under mod_perl and delete an
element from the share from the command line then use exists() on that
element I get the same error. I do not get this error if I don't call
delete() on the hash. I can't find anything on deja and I'm a
bit stuck, has anyone experienced this before?
Thanks,
--
steven
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 05 Sep 2000 04:05:40 GMT
From: "Philip Garrett" <philipg@atl.mediaone.net>
Subject: Re: Match any character w/ regular expressions
Message-Id: <oi_s5.9198$Oc.3114179@typhoon.southeast.rr.com>
Todd Wilson <toddcw@my-deja.com> wrote in message
news:8p1p2s$ckg$1@nnrp1.deja.com...
> Sorry for the newbie question, but I'm still getting my feet wet with
> regular expressions.
>
> I'm trying to match ANY character between two strings. Something like
> using the . character, but must also include the \n character.
> 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
>
> The problem is that .* won't match the newline characters.
s/<html>.*<table>//sg
From 'perldoc perlre':
To simplify multi-line substitutions, the "." character
never matches a newline unless you use the `/s' modifier,
which in effect tells Perl to pretend the string is a
single line--even if it isn't.
hth,
Philip
------------------------------
Date: Tue, 05 Sep 2000 05:35:29 GMT
From: Brendon Caligari <bcaligari@my-deja.com>
Subject: Re: Match any character w/ regular expressions
Message-Id: <8p20n2$k15$1@nnrp1.deja.com>
In article <8p1p2s$ckg$1@nnrp1.deja.com>,
Todd Wilson <toddcw@my-deja.com> wrote:
> Sorry for the newbie question, but I'm still getting my feet wet with
> regular expressions.
>
> I'm trying to match ANY character between two strings. Something like
> using the . character, but must also include the \n character.
> 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
>
> The problem is that .* won't match the newline characters.
>
> Any help would be much appreciated.
>
> Regards,
>
> Todd Wilson
You can copy all the html file to a scalar
my $html;
$html = `cat test.html`;
(or `type test.html` under win systems)
$html =~ s/<html>.+?<table>//is;
removes anything between <html> and <table>, including the tags
themselves.
This has worked for me when i had to automatically extract some
informaton from a table downloaded from the web. I hope this could
have been of help but I am still pretty much a newbie myself.
Brendon
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 05 Sep 2000 06:20:22 GMT
From: Ronny <ronald_f@my-deja.com>
Subject: Re: Match any character w/ regular expressions
Message-Id: <8p23av$mjg$1@nnrp1.deja.com>
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?
--
Ronald Fischer <ronald_f@my-deja.com>
http://profiles.yahoo.com/ronny_fischer/
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 05 Sep 2000 06:38:37 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Match any character w/ regular expressions
Message-Id: <x7og23mjgz.fsf@home.sysarch.com>
>>>>> "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.
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 04:36:19 GMT
From: Rohit Sharma <srohit@hotmail.com>
Subject: new module: feedback desired.
Message-Id: <8p1t83$gkn$1@nnrp1.deja.com>
Hi Listeners!
I recently submitted a module to CPAN. It's called spice.pm.
spice.pm ia an easy-to-use Perl5 library for parsing spice netlist.
Spice is a circuit level design format/language for describing VLSI
designs at transistr level.
Targeted audiances for this package are CAD persons and VLSI designers.
Please pass this message on to anybody, you think may be benefitted
from this. It'd help me immensly getting the feedback and improving the
module. Your help/inputs shall be deeply appreciated.
To get this module, you can go to "search.cpan.org" and search for
spice.pm. Please contact me, if this fails. This may take quite a while
to show up on the perl.com site.
regards,
-Rohit
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 05 Sep 2000 06:40:37 GMT
From: Ronny <ronald_f@my-deja.com>
Subject: Re: Newbie Questions, Gurus Help !!
Message-Id: <8p24h4$np8$1@nnrp1.deja.com>
In article <8otg63$28m$1@nnrp1.deja.com>,
reg_exp@my-deja.com wrote:
> while ($workunit =~ m/thisandthat/gs) {
> ...
> ... code to modify $workunit here
> ...
> }
>
> the problem of course is that once the $workunit gets modified, the
> position of the match is reset to the beginning - how can i modify the
> regular expression within the loop as well as find all occurences of
> the pattern ?
From your question it looks as if you want to find all occurences of the
pattern and replace them by something, and the replacement is so
complicated that you can't do it with s///. Right? In this case, you
could use "split" on $workunit before the while loop starts, then work
on the individual parts, and put them together afterwards with "join".
>
> 2) I have a sequence file which I want to update every time my script
> is run. The way I do it presently is tedious :
>
> $seq = `cat ./seq` + 1;
> open (F,">./seq");
> print $seq F;
> close F;
>
> how do i improve this code ?? anything with IN_PLACE_EDIT ?? help...
Does the "-i" switch answer your question?
> 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 can't comment on your question#3. Note that it would be wiser to use 4
different postings, if you have 4 different questions, as you would most
likely get more answers.
Ronald
--
Ronald Fischer <ronald_f@my-deja.com>
http://profiles.yahoo.com/ronny_fischer/
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 5 Sep 2000 16:48:17 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Optimization of Perl code
Message-Id: <slrn8r9291.ucf.mgjv@martien.heliotrope.home>
On Mon, 04 Sep 2000 13:36:29 +0200,
Ralf Heydenreich <heydenreich@delta.de> wrote:
> Hi,
> I'm looking for literature / advises for optimizing my Perl scripts. The
> reason: I've written a little program which handles a large array (about
> 10 MB of data) and has to process each row of this array. The memory
> consumption is very high - more than 40 MB (I checked this from "top"
> output - high means for a computer that has only 64 MB RAM). Which
> common advises have you about this fact? (In addition, I have some
> hashes and other arrays, but not so large.)
If you only have to process this array row by orw, and never need
multiple rows at the time (i.e. you don't need to pass it to sort or
something like that), I'd keep it on disk, and access it that way. You
will have to probably read it from disk anyway, so the speed differences
won't be too large.
If you have to loop over the list multiple times, you'll have to
sacrifice the memory. IOW: upgrade the hardware. Alternatively: rewrite
your program in C, and you won't use much more than the 10 MB to start
with.
It's a well-known fact that perl is a memory hog, although 40 MB for an
array keeping 10 MB of data is a bit rich. On my system it's a lot more
efficient:
$ cat foo.pl
#!/usr/local/bin/perl -w
use strict;
my $old_vsz = 0;
sub print_size
{
# might work on various Linux based systems, maybe some others
chomp(my $vsz = (`/bin/ps -o vsz -p $$`)[1]);
printf "My vsz: %d, increase: %d\n", $vsz, $vsz - $old_vsz;
$old_vsz = $vsz;
}
print_size;
my @foo = ('x' x 1024) x (10 * 1024);
print scalar @foo, " times ", length $foo[-1], " characters\n";
print_size;
my @bar = ('x' x 1024) x (10 * 1024);
print scalar @bar, " times ", length $bar[-1], " characters\n";
print_size;
$ ./foo.pl
My vsz: 2608, increase: 2608
10240 times 1024 characters
My vsz: 13360, increase: 10752
10240 times 1024 characters
My vsz: 23964, increase: 10604
As you can see, Perl uses slightly over 10 MB of memory to store 10240
elements of 1 kb each, which is fairly minimal. (It is more efficient to
store 1024 elements of 10240 characters each, as is to be expected. The
first array creation probably includes a few inital memory thingies here
and there, only pay attention to the second. Storing 10 MB of data with
16 * 10240 element of 64 bytes takes about 17 MB)
Are you doing something you're not telling us? Something that is not
simply a loop, but maybe needs a copy? Maybe something like
@bar = sort @bar;
That would need a full copy of the array. Some other things which
involve copying of the array could create extra memory requirements as
well.
Storing a 10 MB array is not too expensive. Copying the thing is.
Without your code, I couldn't really comment on any of that, except that
the 40 MB to me indicates that you probably have at least one copy of
the data around.
Martien
--
Martien Verbruggen |
Interactive Media Division | The gene pool could use a little
Commercial Dynamics Pty. Ltd. | chlorine.
NSW, Australia |
------------------------------
Date: 5 Sep 2000 07:26:44 GMT
From: dkcombs@netcom.com (David Combs)
Subject: Re: Parsing a Excell table - or - a "Tab New_Line" text file?
Message-Id: <8p277k$9ia$1@slb7.atl.mindspring.net>
In article <nHur5.208587$Gh.4113685@news20.bellglobal.com>,
Etienne Laverdiere <info@digitaltango.com> wrote:
>Hi, I finaly found the way to parse a field having more than 255 characters.
>
>Thanks.
>
>Still looking to pase the right DATATYPE.
>
Please keep posting code, fixes, things you discovered,
etc. There are many of us, at least one, anyway,
very interested in perl / excel.
Thanks!
David
------------------------------
Date: Tue, 5 Sep 2000 06:38:50 +0200
From: Marvin <ales.romaniuk@zag.si>
Subject: Re: Parsing MySQL TEXT field
Message-Id: <MPG.141e97416c0024fd989686@news.siol.net>
In article <8ovhm3$aq4$1@orpheus.gellyfish.com>, gellyfish@gellyfish.com
says...
> On Sun, 03 Sep 2000 15:38:37 +0200 marvin wrote:
> > Keith Calvert Ivey wrote:
> >>
> >> Marvin <ales.romaniuk@zag.si> wrote:
> >>
> >> >When I pull this field into variable, and watch its value in DEBUG, I
> >> >can see this:
> >> >
> >> >Line1\cM\cJLine2\cM\JLine3\cM\cJ
> >>
> >> It sounds like you're doing something wrong with translation of
> >> line-ending characters, starting with data that's using Windows
> >> (or network) line endings and treating it as if it has Unix line
> >> endings.
> >>
> >> >which seems to be CR/LF fields.
> >> >
> >> >If I watch line by line made by split "\n",@TEXTFIELD), I can see
> >> >
> >> >Line1\cM
> >> >Line2\cM
> >> >Line3\cM
> >> >
> >> >with no \cJ fields.
> >>
> >> No, you don't. The second argument of split() should be a
> >> scalar, not an array. The result of split("\n", @TEXTFIELD)
> >> would be just 3 in your case.
> >>
> >> >How can I strip TEXT fields and put them into an ARRAY with the split
> >> >command ?
> >>
> >> You may want something like this:
> >>
> >> my @lines = split /\cM\cJ/, $TEXTFIELD;
> >>
> >> if you have a scalar, or
> >>
> >> s/\cM\cJ$// for @TEXTFIELD;
> >>
> >> if you really have an array.
> >>
> >> But it might be better to get your data right in the first
> >> place.
> >>
> >> >(Also split("\c",@TEXTFIELD) won't work)
> >>
> >> What do you expect it to do? It's a syntax error, though
> >> strangely it isn't if you change the quotes to slashes (which is
> >> a good idea, since the first argument to split() is a regex, not
split "\r\n",$FIELD works. Thanks
------------------------------
Date: Tue, 05 Sep 2000 08:17:25 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Parsing MySQL TEXT field
Message-Id: <pua9rss65g814ccg4h1c4nj4f8fuk39o5q@4ax.com>
Colin Keith wrote:
>split on \r\n instead of just \n
Just to be on the safe side, make the \r optional:
my @lines = split /\r?\n/, $TEXTFIELD;
Or, get rid of the CR's first
$TEXTFIELD =~tr/\r//d;
my @lines = split /\n/, $TEXTFIELD;
--
Bart.
------------------------------
Date: Tue, 05 Sep 2000 07:28:57 GMT
From: alan <alanhll@alphalink.com.au>
Subject: Re: Perl/CGI file transfer
Message-Id: <sr985p9fa6e162@corp.supernews.com>
Philip Garrett wrote:
>
>
> alan <alanhll@alphalink.com.au> wrote in message
> news:sr8mjab0a6e40@corp.supernews.com...
> > Hi,
> > My question is, I know how to send a file up from the web page, using
HTTP
> > File Upload
> > e.g. <form enctype="multipart/form-data" [etc]>
> > <input name="file1" type="file">
> >
> > But, how would I access the contents of this (say text file) at the
other
> > end. Is a different read-parse code required? Could someone give me a
> > simple example to point me in the right direction. Would like to know,
a
> > lot.
>
> perldoc CGI
> Look for "Creating a File Upload Field." It also explains how to receive
> file uploads. Something like this:
>
> use CGI;
> my $q = new CGI;
> my $filename = $q->param('file1');
> my $filehandle = $q->upload('file1');
> while (<$filehandle>) {
> ... do file stuff here ...
> }
>
> > Thankya Kindly
>
> You're welcome.
>
> hth,
> Philip
>
>
Thanks for that. I found some documentation about CGI.pm which covers a bit
of this topic, but still dosn't really explain how to receive, read and use
the file within a cgi program. Where is perldoc CGI that you refer to?
Pleez?
Alan.
--
Posted via CNET Help.com
http://www.help.com/
------------------------------
Date: Tue, 05 Sep 2000 08:34:50 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: Programming Ethics
Message-Id: <slrn8r9co4.1c7.tim@degree.ath.cx>
Soren Andersen <soren@spmfoiler.removethat.wonderstorm.com> wrote:
> tim@degree.ath.cx (Tim Hammerquist) wrote in
> <slrn8q7h2b.66a.tim@degree.ath.cx>:
>
> >My meaning is that, to some degree, all of us might me disqualified
> >due to the fact that we are all (at times) egomaniac talking heads
> >making philosophical speeches about the right and wrong of a purely
> >subjective field.
> >
> >It was also a joke. =)
> >
> >Sorry for any misunderstanding.
>
> Thanks for clarifying that. Joke or not, though, it contains a valid (if
> obvious .. to me at least) point. The 'Net makes it possible for anyone to
> set up a tree stump, clamber atop it, and begin to rail. However that
> wasn't really what I was talking about. I had in mind more the electronic
Granted, there are many types of egomaniac talking heads, some of which
spout off about the evils of not running under 'use strict',
but...bygones. =)
> Possibly dead horse, beaten:
...and effectively so. =)
--
-Tim Hammerquist <timmy@cpan.org>
Just because my fingers are in my ears doesn't mean I'm ignoring you.
-- Larry Wall
------------------------------
Date: Tue, 05 Sep 2000 08:25:42 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: Question Perl Cookbook 17.6
Message-Id: <slrn8r9c71.1c7.tim@degree.ath.cx>
tlynch001@my-deja.com <tlynch001@my-deja.com> wrote:
> In this line:
>
> $server = IO::Socket::UNIX->new(LocalAddr => "/tmp/mysock",
>
> Is the /tmp/mysock created in the directory where my Perl program is
> run from?
Coincidentally, "/tmp/mysock" is created in the "/tmp" directory, which
is a subdirectory of "/" (aka "root"). The file created has the name
is "mysock".
That's the first RTFM question I've seen that can't be answered in the
perldocs. Try your file system or shell documentation.
--
-Tim Hammerquist <timmy@cpan.org>
Love is the triumph of imagination over intelligence.
-- H. L. Mencken
------------------------------
Date: Tue, 05 Sep 2000 08:07:51 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: use strict: why?
Message-Id: <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.
`perldoc -X strict`
If no import list is supplied, all possible restrictions are
assumed. (This is the safest mode to operate in, but is
sometimes too strict for casual programming.) Currently, there
are three possible things to be strict about: "subs", "vars",
and "refs".
The Camel, 3rd, says something very similar in it's chapter on pragmas.
Every other reference listed in the index hints at the same, with dozens
of sprinkled "maybe", "sometimes", "may", etc.
`perldoc perlstyle`
The most important thing is to run your programs under the -w
flag at all times. You may turn it off explicitly for particular
portions of code via the `$^W' variable if you must. You should
also always run under `use strict' or know the reason why not.
NB: "...or know the reason why not." Besides, the top of perlstyle
disclaims that these are only Larry's "guidelines" for maintainable code
not out-and-out rules.
And while anything I write larger than 50 lines (almost always) has this
pragma, there are times that 'use strict' disallows a feature you
attempt to use. Tom C. gave some examples in Cookbook that wouldn't
work under 'use strict'.
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. =)
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.
Flames will come, I'm certain. Knock yerselves out.
--
-Tim Hammerquist <timmy@cpan.org>
Millions long for immortality who do not know what
to do with themselves on a rainy Sunday afternoon.
-- Susan Ertz
------------------------------
Date: Tue, 05 Sep 2000 08:32:29 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: use strict: why?
Message-Id: <slrn8r9c8d.gu7.rgarciasuarez@rafael.kazibao.net>
Tim Hammerquist wrote in comp.lang.perl.misc:
>
>And while anything I write larger than 50 lines (almost always) has this
>pragma, there are times that 'use strict' disallows a feature you
>attempt to use. Tom C. gave some examples in Cookbook that wouldn't
>work under 'use strict'.
>
>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. =)
Fine. I'm not a 'use strict' zealot. But I found myself going crazy
maintaining large scripts and librairies written without 'use strict',
by a former C programmer (so you can imagine his style), with a lot of
global variables and no logic at all in librairies inclusion. Not
talking about bugs where someone has written $form where it should have
been %form or $from.
Not using 'use strict' is fine, as long as you're a skilled perl
programmer. You can even avoid using strict in medium-size projects if
you know how to manage namespaces. But 'use strict' usually improves
maintenability.
And don't forget that the 'no strict' pragma exists when you have to
disable 'use strict' in a section of your code.
--
Rafael Garcia-Suarez
------------------------------
Date: Tue, 05 Sep 2000 09:15:54 GMT
From: tim@degree.ath.cx (Tim Hammerquist)
Subject: Re: use strict: why?
Message-Id: <slrn8r9f52.2pm.tim@degree.ath.cx>
Rafael Garcia-Suarez <rgarciasuarez@free.fr> wrote:
> Fine. I'm not a 'use strict' zealot. But I found myself going crazy
> maintaining large scripts and librairies written without 'use strict',
> by a former C programmer (so you can imagine his style), with a lot of
> global variables and no logic at all in librairies inclusion. Not
> talking about bugs where someone has written $form where it should have
> been %form or $from.
Yeah, I've seen the code you're talking about. In fact, Macromedia's
Drumbeat provides ridiculous code of a similar sort; VB of course, but
bad programming style is universal, no?
> Not using 'use strict' is fine, as long as you're a skilled perl
> programmer. You can even avoid using strict in medium-size projects if
> you know how to manage namespaces. But 'use strict' usually improves
> maintenability.
And large programs would benefit greatly from this pragma. However,
many of the scripts I write for my home system (or that I need to ask a
question about) fit into the "casual" definition, an exception mentioned
in the Camel.
Which is my point: 'use strict' is not an absolute, merely a (strong)
recommendation in certain circumstances.
--
-Tim Hammerquist <timmy@cpan.org>
I passionately hate the idea of being with it, I think
an artist has always to be out of step with his time.
-- Orson Welles
------------------------------
Date: Tue, 05 Sep 2000 02:45:00 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: use strict: why?
Message-Id: <39B4C09C.2318E22B@stomp.stomp.tokyo>
Tim Hammerquist 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.
(snipped comments upon and quotes by Perl expert to not always use pragma hints)
Almost all of my programs range in size from one-hundred kilobytes to
one-hundred-fifty kilobytes, averaging four-thousand to five thousand
lines of code. All of my programs I type by hand, from scratch, never
use pragma hints and never use modules, save for LWP..Simple at times.
I do not work from a command line screen, all my programs are beta
tested on our web, right from the get go. I need no warnings nor
error messages to debug or fix my scripts despite writing scripts
of significantly large size, most likely larger than anyone here
ever writes or dreams of writing.
During development, if I make an error, I know instantly where to look
right to the line number and, most often know what error I made before
editing a program.
There is a reason for this talent; logical thinking. My scripts are
developed one step at a time, in module blocks. Each module being
tested before writing another module. This affords me an ability
to isolate problems to a specific range of code lines, most often
as stated, right to the very line before ever looking. Other times,
I will develop a module as a stand-alone script, with modules of
its own. A good example are my androids, specifically Roberta.
I keep Roberta online, privately, as a unique beta program for
ongoing development. She and myself test new ideas, new methods,
experiment and, resolve issues. Once complete, she is updated
into a large master program, right along with her lover, Robby.
Pragma hints, I suppose are good for green beginners. I dunno,
I learned Perl over the years, long before some mule splattered
Perl 5 upon our programming world. Suppose I am one of the lucky
people; I had to learn how to program rather than learn how to
use a mouse effectively for copy and paste. Beginners should
use pragma hints, they do help but, as I have said many times,
addiction to pragma hints makes lousy programmers.
My notion is, based on how anal all are about pragma hints,
this is newsgroup full of green beginners. Sure haven't read
any evidence anyone around here writes multi-thousand line
programs like I do, certainly not sans pragma hints and modules.
pfffttt... Perl 5 Cargo Cult, that's about all I read here.
Pragma hints are good for beginners and Perl 5 Cargo Cultists.
However, they ain't worth mule manure for real programmers.
So, there ya go, a troll response to your troll article.
> I like my code like my girlfriend: short, fun, sexy, and not anal.
I like my men intelligent, hard working and successful.
You boys enjoying my artificial Dr. Noam Chomsky program?
Amazing, only twelve lines of code to do that, setting aside
my four phrase arrays, which are quite small. Since posting
a link, maybe twenty-four hours back, you boys have racked
up one-thousand-three-hundred-twenty-seventy hits on this
program of mine, a program which took several months of
research to develop logical data flow and, ten minutes
worth of twelve lines of code to write, with no pragmas.
I will have to pay for CPU overhead this month, no doubt.
Incidently, D. Foy and Buttman, did you boys ever figure
out there are two definitions for CPU and, usage of this
expression "CPU" is context sensitive? Sure shutup about
that in a hurry. Odd for you to not to rant. This is a
hazard of becoming a Language Lawyer; illiteracy. Quite
the paradox, yes? Specialize in a technical language,
you lose your common day reading and writing skills.
Godzilla!
--
Dr. Kiralynne Schilitubi ¦ Cooling Fan Specialist
UofD: University of Duh! ¦ ENIAC Hard Wiring Pro
BumScrew, South of Egypt ¦ HTML Programming Class
------------------------------
Date: Tue, 05 Sep 2000 05:40:51 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: using the value of a variable for another varible's name?
Message-Id: <slrn8r91r0.3uj.tjla@thislove.dyndns.org>
I was shocked! How could Mark-Jason Dominus <mjd@plover.com>
say such a terrible thing:
>In article <slrn8r8nov.264.tjla@thislove.dyndns.org>,
>Gwyn Judd <tjla@guvfybir.qlaqaf.bet> wrote:
>>>It's exactly as fast.
>>
>>It's half as fast:
>
>You are combining unlike things. Obviously a regular variable access
>is faster than a hash lookup. But the store through the symbolic
>reference is exactly as fast as the store into the hash. You have
>added together the times for these two operations.
Where did you get that idea? I (and benchmark) beg to differ. Did you
test that assertion you made?
[gwyn@thislove:~]$ cat sym.pl
#!/usr/bin/perl -w
use strict;
use Benchmark;
my $day = 'monday';
my $monday;
my $temp;
my $ref = \$monday;
my %days;
timethese (1 << 19, {
'sym' => '${$day} = \'11 am\';',
'hash' => '$days{monday} = \'11 am\';',
'ref' => '${$ref} = \'11 am\';',
'var' => '$monday = \'11 am\';',
});
[gwyn@thislove:~]$ perl sym.pl
Benchmark: timing 524288 iterations of hash, ref, sym, var...
hash: 1 wallclock secs ( 1.16 usr + 0.01 sys = 1.17 CPU) @
448109.40/s (n=524288)
ref: 1 wallclock secs ( 0.78 usr + -0.01 sys = 0.77 CPU) @
680893.51/s (n=524288)
sym: 1 wallclock secs ( 0.78 usr + 0.00 sys = 0.78 CPU) @
672164.10/s (n=524288)
var: -1 wallclock secs ( 0.54 usr + 0.01 sys = 0.55 CPU) @
953250.91/s (n=524288)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
It's amazing the things you can do with duct tape. Sometimes I use it
instead of underwear.
-Dilbert (contributed by Nathan Poznick)
------------------------------
Date: Tue, 5 Sep 2000 15:45:34 +1100
From: "Troy Rasiah" <troyr@vicnet.net.au>
Subject: visited urls
Message-Id: <tT_s5.9332$cr3.264892@ozemail.com.au>
Hi There,
I'm not sure how to go about this problem but can someone
point me i nthe right direction. When i write a cgi script which pulls out
urls from a database, how can i make it so the visited link remains...well
visited.
ie....i'm using the Apache::Session Module and every time i create a new
session (log on) the links which i had visited previously have not
maintained their visited color status.
Does anyone know a work around this?
Thanks in advance
----------------------------------------------------------------------------
------------------
Troy Rasiah
Database/Web Developer
Vicnet
troyr@vicnet.net.au
----------------------------------------------------------------------------
----------------
------------------------------
Date: Mon, 4 Sep 2000 23:59:01 -0700
From: "George Furslin" <nobody@spamcop.net>
Subject: Re: Win98 com port - rookie needs help
Message-Id: <8p25no0i6h@enews1.newsguy.com>
Thanks, Peter. I think that is going to work fine. I was hoping for
something simpler, but it is Windows, after all.
GF
"Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com> wrote in message
news:8oo356$d503@intranews.bank.dresdner.net...
> Hi George,
>
> George Furslin schrieb in Nachricht <8onrr701i3a@enews4.newsguy.com>...
> >This ought to be easy. I am trying to perform the simple act of
> >writing a command to a Hayes modem, and reading the result.
>
> I have never used it but there is a Win32::SerialPort
> module which might help you.
> You will find it at
> http://www.activestate.com/packages/zips/Win32-SerialPort.zip
>
> Best regards,
>
> Peter Dintelmann
>
>
>
------------------------------
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 4225
**************************************
