[12283] in Perl-Users-Digest
Perl-Users Digest, Issue: 5883 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 4 03:07:16 1999
Date: Fri, 4 Jun 99 00:00:21 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 4 Jun 1999 Volume: 8 Number: 5883
Today's topics:
Re: "cat"-ing three files into three files. (Ronald J Kimball)
Re: capture the output from screen?? <ppjohn@ncs.com.sg>
Error compiling 5.00503 on irix 6.3 <rutz@iit.uni-miskolc.hu>
I don't understand this warning: <jmschwa@airmail.net>
Re: Indenting closing labels for here documents (Tad McClellan)
Re: Indenting closing labels for here documents (Ronald J Kimball)
Re: Indenting closing labels for here documents <uri@sysarch.com>
Re: know Perl to maintain Perl (was: Re: I pass an arra (Ronald J Kimball)
Looking for password script w/timed access restrictions (Brian Browning)
Re: mail problems... still :) <office@asc.nl>
Re: mail problems... still :) <office@asc.nl>
Need help to File Upload in perl ! <rangagv@compucomtech.com>
Re: Perl Objects (Tommi Niemi)
Re: Question about regexp's <fkamardean@email.msn.com>
Re: Question about regexp's (Tad McClellan)
Re: Ridicule ? (Re: String extraction problem - please npolonsk@hotmail.com
Script to cause web page to print? (Brian Browning)
Re: simple newbie problem (Tad McClellan)
Re: simple newbie problem <drifter888@hotmail.com>
Re: String extraction problem - please help? npolonsk@hotmail.com
Re: The artistic license and perl: (Andrew M. Langmead)
Re: The artistic license and perl: <rra@stanford.edu>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 4 Jun 1999 01:07:05 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: "cat"-ing three files into three files.
Message-Id: <1dsultx.1xnqke4qj1vmkN@[207.60.170.185]>
Hasanuddin Tamir <hasant@trabas.co.id> wrote:
> Can't remember where I read this, but it said something like,
> "if you're going to use other than simple scalar as filehandle
> variable, you have to put it in curly brace.."
>
> close { $fh{$fname} } or die "Can't close: $!";
Oh, that was very helpful.
#!/usr/local/bin/perl
close { $fh{$fname} } or die "Can't close: $!";
__END__
Not a GLOB reference at - line 1.
You may be referring to the ambiguity between <> as the input operator
and <> as the globbing operator, but that has absolutely nothing to do
with close().
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny because it's true ... and vice versa."
------------------------------
Date: Fri, 04 Jun 1999 13:13:44 +0800
From: John Paopeng <ppjohn@ncs.com.sg>
To: Fadel <fkamardean@email.msn.com>
Subject: Re: capture the output from screen??
Message-Id: <37576088.24C44B1F@ncs.com.sg>
Fadel wrote:
>
> just use the normal redirection output ">" when you execute the ping command:
> the code would look like :
> system("ping my.server.com >c:\\ip.txt");
>
Hi
Yeap... I did that also but I just curious whether or not there is
another
way around to do this as I don't want to redirect to the file. I just
some how
want to capture it from screen(monitor) directly.
Regards,
John
--
=========================================================================
mailto:ppjohn@ncs.com.sg
PGP key: http://www.nai.com/products/security/public_keys/lookup_key.asp
Home page: http://www.geocities.com/TheTropics/Island/5251/
==========================================================================
------------------------------
Date: Fri, 04 Jun 1999 06:05:04 +0200
From: Antal Rutz <rutz@iit.uni-miskolc.hu>
Subject: Error compiling 5.00503 on irix 6.3
Message-Id: <37575070.41C6@iit.uni-miskolc.hu>
I've got an IRIX 6.3 box. I wanted to compile PERL 5.00503 with
gcc 2.8.1 but I got the following error:
/usr/bin/ar rcu libperl.a perl.o gv.o toke.o perly.o op.o
regcomp.o dump.o util.o mg.o byterun.o hv.o av.o run.o pp_hot.o sv.o
pp.o scope.o pp_ctl.o pp_sys.o doop.o doio.o regexec.o taint.o deb.o
universal.o globals.o perlio.o
gcc -L/usr/local/lib -o miniperl miniperlmain.o libperl.a -lm
./miniperl -w -Ilib -MExporter -e 0 || make minitest
./miniperl configpm tmp
Use of uninitialized value at configpm line 339, <GLOS> chunk 2.
Use of uninitialized value at configpm line 339, <GLOS> chunk 3.
Use of uninitialized value at configpm line 339, <GLOS> chunk 4.
[...] (Hundreds of lines I think up to 443)
Any suggestions?
Thanks in advance
--
--Antal Rutz
------------------------------
Date: Fri, 04 Jun 1999 00:01:45 -0500
From: Josh Martel <jmschwa@airmail.net>
Subject: I don't understand this warning:
Message-Id: <E53168E01BAD1FB9.A1A060B4BEDA3F44.6F7E89B043948699@lp.airnews.net>
I'm working on a simple survey CGI. When I run it "perl -w survey.cgi"
just to test it, I
get the warning below (among other, expected, output) I get this warning
a lot, actually, in all the perl programs I have written so far. I come
from a solid C background, which is probably what's messing me up.
Here's the output:
Use of uninitialized value at survey.cgi line 20.
Use of uninitialized value at survey.cgi line 20.
Use of uninitialized value at survey.cgi line 20.
...
The thing I don't understand is that it isn't an uninitialized value.
Here is the code from
line 19:
09:my %CONF=();
10:my %VARS=();
11:my $key="";
12:my $val="";
13:
14:open CONFFILE, '< survey_cgi.conf' or Death "Unable to open CGI
configuration";
15:my @confbuffer = <CONFFILE>;
16:close CONFFILE;
17:foreach $_ (@confbuffer) {
18: chomp;
19: ($key, $val) = split (/\s*=\s*/);
20: if ($key =~ m/inputfield/) {
21: ($key, $val) = split (/:/,$key, 2);
22: $key = "var:".$key;
23: $VARS{$key} = $val;
24: }
25: else {
26: $CONF{$key} = $val;
27: }
28:}
I have also tried not including lines 11 and 12, and instead prefixing
line 19 with "my ". If I just do "if ($key)" for line 18, I get the
same thing. I am using "use strict" at the top of the file.
I get this same warning, later on in the program:
32: my $buffer="";
33: read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
any hints/pointers/flames?
/Josh Martel
jmschwa@airmail.net
------------------------------
Date: Thu, 3 Jun 1999 19:03:42 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Indenting closing labels for here documents
Message-Id: <ek17j7.cni.ln@magna.metronet.com>
George Jempty (jb4mt@hotmail.com) wrote:
: Some one told me that the latest issue of the Perl Journal included info on
: a work around for indenting closing labels for here documents.
There is info on that already on your hard disk somewhere...
Perl FAQ, part 4:
"Why don't my <<HERE documents work?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 4 Jun 1999 01:07:07 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Indenting closing labels for here documents
Message-Id: <1dsun3q.18y5ipfs4xb44N@[207.60.170.185]>
George Jempty <jb4mt@hotmail.com> wrote:
> Some one told me that the latest issue of the Perl Journal included info on
> a work around for indenting closing labels for here documents. Well I
> subscribed to the online version and used the search utility and could not
> find the information. Can anyone either tell me exactly where it is and in
> which issue of the Perl Journal, or tell me what the solution is.
I don't recall whether I saw it in the Perl Journal, but here you go.
I've indented the contents of the here-doc as well.
($text = <<' EOT') =~ s/^ {4}//;
This here-doc is indented by four spaces.
EOT
# make sure you get the whitespace right!
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 04 Jun 1999 01:28:03 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Indenting closing labels for here documents
Message-Id: <x7pv3ca61o.fsf@home.sysarch.com>
>>>>> "RJK" == Ronald J Kimball <rjk@linguist.dartmouth.edu> writes:
RJK> George Jempty <jb4mt@hotmail.com> wrote:
>> Some one told me that the latest issue of the Perl Journal included info on
>> a work around for indenting closing labels for here documents. Well I
>> subscribed to the online version and used the search utility and could not
>> find the information. Can anyone either tell me exactly where it is and in
>> which issue of the Perl Journal, or tell me what the solution is.
RJK> I don't recall whether I saw it in the Perl Journal, but here you go.
RJK> I've indented the contents of the here-doc as well.
RJK> ($text = <<' EOT') =~ s/^ {4}//;
RJK> This here-doc is indented by four spaces.
RJK> EOT
RJK> # make sure you get the whitespace right!
also there is a lot on this topic in the perl cookbook.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Fri, 4 Jun 1999 01:07:06 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: know Perl to maintain Perl (was: Re: I pass an array...)
Message-Id: <1dsumz2.iorgs510fsvd7N@[207.60.170.185]>
Greg Bacon <gbacon@itsc.uah.edu> wrote:
> Would you write software documentation in a certain way because it
> would make maintenance easier for someone who doesn't know English?
If I were planning to distribute my software to people who don't know
English, yes, of course I would.
What is wrong with making Perl code accessible?
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
perl -le 'print "Just another \u$^X hacker"'
------------------------------
Date: Fri, 04 Jun 1999 06:52:00 GMT
From: bbrowning@northpolemedia.com (Brian Browning)
Subject: Looking for password script w/timed access restrictions
Message-Id: <kIK53.46221$75.34886@news.rdc1.ab.wave.home.com>
I am looking for a password script that will only allow visitors to access a
protected part of my site once a week. Any suggestions of where I might find
such a script would be greatly appreciated.
Brian Browning
bbrowning@home.com
------------------------------
Date: Fri, 4 Jun 1999 08:28:48 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: Re: mail problems... still :)
Message-Id: <7j7rpm$rtu$1@zonnetje.NL.net>
i don't use module x because my isp only has 2 modules installed , cpan db
and some other db variant..
they we're stupid enough to not know where perl was on there server , so i
gave up expecting help from them ..
Fred Ruffet heeft geschreven in bericht
<7j6b6a$ht0$1@gatekeeper.ornano.kapt.com>...
>Really, I don't understand why you don't use the MIME::Lite module...
>
>It's so simple. Imagine you want to send a mail in html format, and that
all
>your html code is stored in a variable called $htmltext (you may have read
>this html code in a file for example). Then, to send a mail, you only do :
>
>$msg = new MIME::Lite
> From => 'you@yourserver',
> To => 'him@hisserver',
> Subject => 'whatitdealwith',
> Encoding => 'base64',
> Data => $htmltext;
>
>$msg->attr("content-type" => "text/html"); # this line is not in the
>declaration part of the object, because I didn't find the way of doing it,
>even in the perldoc you hate so much :-) (Yes, I read your news...)
>
>$msg->send;
>
>...And it's done !
>I find it more beautiful than all your "print".
>MIME::Lite is available on the CPAN pages
>http://www.perl.com/perl/info/cpan_modules.html
>
>Regards,
>
>Fred
>
>Bastiaan S van den Berg a icrit dans le message
><7j64qc$qmm$1@zonnetje.NL.net>...
>>hiya
>>
>>i've got this program running like a breeze now , but unfortunately , i
>>can't seem to recieve mail from it..
>>
>>i've invested almost 3/4 hours into this program today , and i still can't
>>see why it can't mail ..
>>
>>plz , there must be some perl-guru's still alive around this time ..
>>could you take a look at it , and suggest changes , or rewrite what you
>>think needs to be done ..
>>
>>tnx!!
>>buZz
>>
>>btw. don't mind the string values , they're in dutch :)
>>
>>-=[code]=-
>>
>>$sendmail = "\usr\bin\sendmail"
>>
>>open (MAIL, "|$sendmail -oi -t") || die ("Content-Type: text/html
>>\n\n<html><body>Error opening pipe to $sendmail: $!\n</body></html>\n");
>>print MAIL ("To: office\@asc.nl\n",
>> "Subject: [Site] Contactformulier.\n");
>>print MAIL "\n\n";
>>print MAIL "-=-=-=-\n";
>>print MAIL "Bedrijf : $bedrijf\n" if defined $bedrijf;
>>print MAIL "Contactpersoon : $contact\n" if defined $contact;
>>print MAIL "Geslacht Contactpersoon : $geslacht\n" if defined $geslacht;
>>print MAIL "Straat : $straat\n" if defined $straat;
>>print MAIL "Postcode : $postcode\n" if defined $postcode;
>>print MAIL "Plaats : $plaats\n" if defined $plaats;
>>print MAIL "Email : $client_email\n" if defined $client_email;
>>print MAIL "Telefoon nummer : $tel_nummer\n" if defined $tel_nummer;
>>print MAIL "Fax nummer : $fax_nummer\n" if defined $fax_nummer;
>>print MAIL "Ik wil gebeld worden voor een afspraak\n" if defined $belme;
>>
>>print MAIL "\n-=-=-=-\n";
>>
>>print MAIL "Verder commentaar :\n$comments\n" if defined $comments;
>>print MAIL "\n\n";
>>
>>print MAIL "mvg. Uw website.\n";
>>
>>close(MAIL);
>>open (EIND,"dank.htm");
>>print "Content-type:text/html\n\n";
>>while ($regel=<EIND>) {print "$regel\n";}
>>close(EIND);
>>
>>-=[code ends]=-
>>
>>
>>
>>
>
>
------------------------------
Date: Fri, 4 Jun 1999 08:32:12 +0200
From: "Bastiaan S van den Berg" <office@asc.nl>
Subject: Re: mail problems... still :)
Message-Id: <7j7s00$s4t$1@zonnetje.NL.net>
>> $sendmail = "\usr\bin\sendmail"
>> ^^^^^^^^^^^^^^^^^
>
>Whats that supposed to be - the most usual place for sendmail is in
>/usr/lib/sendmail - you had better ask your ISP - as we have no way of
>knowing.
ah tnx
>You also appear to have ignored everything else I said about your program
>yesterday - so I think I'll just ignore your questions in future.
yeah , you said : 'read this , that , goto this site and read more'
nothing else..
cul8r
buZz
"why are all perl monglers either young kids or grumpy old men?" , my
girlfriend , 7am this morning
------------------------------
Date: Fri, 04 Jun 1999 12:10:45 +0530
From: rangagv <rangagv@compucomtech.com>
Subject: Need help to File Upload in perl !
Message-Id: <375774ED.378F8346@compucomtech.com>
Hi!
I am trying to provide a facility for uploading doc files from my
website using perl!
i have a fair knowledge about perl.Can anyone help me and guide me how
to do it!
Thanks in advance!
GVR
------------------------------
Date: 4 Jun 1999 04:04:00 GMT
From: tniemi@paju.oulu.fi (Tommi Niemi)
Subject: Re: Perl Objects
Message-Id: <7j7j7g$hdh$1@ousrvr3.oulu.fi>
In comp.lang.perl.misc Tom Phoenix <rootbeer@redcat.com> wrote:
> I'm not certain, but you may be thinking about threading (or maybe
> forking). These don't really have anything to do with object-oriented
> programming, though. You can find information on how to implement these
> via Perl in the Perl documentation - but you should probably find a good
> book on advanced programming to learn what those techniques are really
> doing.
> Cheers!
Thanks..I was just curious if I there's any possible to do that with objects (...I have
already done that with threads ).
-Tommi
------------------------------
Date: Fri, 4 Jun 1999 00:00:53 -0400
From: "Fadel" <fkamardean@email.msn.com>
Subject: Re: Question about regexp's
Message-Id: <eIxjs7jr#GA.321@cpmsnbbsa03>
or try to escape it with "\"
James Faircloth wrote in message <37572796@news3.newsfeeds.com>...
Given the following program:
=20
$found =3D 0;
$i =3D "test?test";
$search =3D "?";
=20
if ($i =3D~ /$search/i) {
$found =3D 1;
}
=20
print "$found\n";
=20
I get the following error:
=20
# /?/: ?+*{} follows nothing in regexp at argh.pl line 5.
=20
=20
Anyone have a good idea on how to search the string for items that =
may be
regexp keywords?
=20
I may need to search the string for a "*" also... and I can't find =
anything
to help me in determining what to do.
=20
If you do reply, could you email me a copy? I may miss it =
otherwise.
=20
James Faircloth
james@yahoo.com
=20
=20
=20
=20
=20
=20
-----------=3D=3D Posted via Newsfeeds.Com, Uncensored Usenet News =
=3D=3D----------
http://www.newsfeeds.com The Largest Usenet Servers in the =
World!
------=3D=3D Over 73,000 Newsgroups - Including Dedicated Binaries =
Servers =3D=3D-----
------------------------------
Date: Thu, 3 Jun 1999 19:06:27 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Question about regexp's
Message-Id: <jp17j7.cni.ln@magna.metronet.com>
RABM@prodigy.net wrote:
: the \Q is quote (disable) pattern metacharacters till \E. See perldoc
: perlre for more details.
It backslashes more than just the pattern metacharacters.
It does all non-alphanumeric characters, whether they are
meta or not.
See perldoc -f quotemeta for more details.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 04 Jun 1999 02:46:54 GMT
From: npolonsk@hotmail.com
Subject: Re: Ridicule ? (Re: String extraction problem - please help)
Message-Id: <7j7emr$12r$1@nnrp1.deja.com>
> Your post appears to be a followup to that of David Cassell although
> you do not quote his post. I dont think anyone in this thread has
ridiculed
> anyone. But I think you miss the point here - the whole point of
UseNet
> is *not* to 'ask seemingly stupid questions' as is pointed out in
regular
> postings in news.announce.newusers - this group like many others has
a FAQ
> and a poster is supposed to have the courtesy of attempting to answer
their
> question in there (and the other documentation) before posting.
I'm terribly sorry. I generally only search the UseNet when I need an
answer to a question. I'll generally try to answer any questions that I
might be able to answer and then I'll ask mine. I don't have time to
read the newsgroup as frequently as I would like, let alone follow a
newsgroup about the newsgroups. I just wanted to help the guy out, is
that so wrong?
That's all, thanks for enlightening me to the purpose of the usenet. :-)
--Nathan
In article <3756a822@newsread3.dircon.co.uk>,
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> npolonsk@hotmail.com wrote:
> >
> > Finally, I don't like the idea of ridiculing someone for asking a
> > question, no matter how stupid it may seem. The whole point of the
> > usenet is to share information and ask seemingly stupid questions.
> >
>
> Your post appears to be a followup to that of David Cassell although
> you do not quote his post. I dont think anyone in this thread has
ridiculed
> anyone. But I think you miss the point here - the whole point of
UseNet
> is *not* to 'ask seemingly stupid questions' as is pointed out in
regular
> postings in news.announce.newusers - this group like many others has
a FAQ
> and a poster is supposed to have the courtesy of attempting to answer
their
> question in there (and the other documentation) before posting.
>
> /J\
> --
> Jonathan Stowe <jns@gellyfish.com>
>
>
--
------------------
Nathan Polonski
Input Support Engineer
NewsEdge Corporation
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 04 Jun 1999 06:55:49 GMT
From: bbrowning@northpolemedia.com (Brian Browning)
Subject: Script to cause web page to print?
Message-Id: <VLK53.46222$75.34886@news.rdc1.ab.wave.home.com>
I am trying to develop a script that will print out the contents of a file, or
a web page when the website visitor clicks on a print button on my website.
Is this possible? Further, I would like the window to close, when the push
button is activated.
I greatly appreciated any and all suggestions.
Brian Browning
bbrowning@home.com
------------------------------
Date: Thu, 3 Jun 1999 19:08:49 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: simple newbie problem
Message-Id: <1u17j7.cni.ln@magna.metronet.com>
Drifter (drifter888@hotmail.com) wrote:
: I've been looking at many tutorials on regular expressions
Uhh, OK, if you say so.
: and i can't seem
: to figure out how to change only the first letter of a variable from
: lowercase to uppercase.
: can anyone help me out? im sure it will only take you a minute
You should check the Perl FAQ before posting to the
Perl newsgroup you know.
Perl FAQ, part 4:
---------------
=head2 How do I capitalize all the words on one line?
To make the first letter of each word upper case:
---------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 4 Jun 1999 00:39:14 -0700
From: "Drifter" <drifter888@hotmail.com>
Subject: Re: simple newbie problem
Message-Id: <UHI53.370$Qc.3488@newsfeed.slurp.net>
.
Tad McClellan <tadmc@metronet.com> wrote in message
1u17j7.cni.ln@magna.metronet.com...
>Drifter (drifter888@hotmail.com) wrote:
>
>: I've been looking at many tutorials on regular expressions
>
>
> Uhh, OK, if you say so.
>
As a matter of fact, i do
>
>: and i can't seem
>: to figure out how to change only the first letter of a variable from
>: lowercase to uppercase.
>
>: can anyone help me out? im sure it will only take you a minute
>
>
> You should check the Perl FAQ before posting to the
> Perl newsgroup you know.
>
>
>
> Perl FAQ, part 4:
>
>---------------
>=head2 How do I capitalize all the words on one line?
>
>To make the first letter of each word upper case:
>---------------
>
>
>--
> Tad McClellan SGML Consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
Thank you very much. from now on i will be sure to check the FAQ before
posting and im sorry if i have offended you with my newbie question
--
Drifter
~
The softest stuff in the world
Penetrates quickly the hardest;
Insubstantial, it enters
Where no room is
TAO TE CHING
------------------------------
Date: Fri, 04 Jun 1999 02:48:18 GMT
From: npolonsk@hotmail.com
Subject: Re: String extraction problem - please help?
Message-Id: <7j7epf$13f$1@nnrp1.deja.com>
Thanks for the tip Larry. I knew there had to be a better way than all
this \/\/\/\ crap!
--Nathan
In article <MPG.11c04dbcf452bd97989b62@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> In article <7j4r6s$4dc$1@nnrp1.deja.com> on Thu, 03 Jun 1999 03:01:51
> GMT, npolonsk@hotmail.com <npolonsk@hotmail.com> says...
> ...
> > ($month, $number) = ($line[0]=~ /
\/usr\/home\/avert\/www\/cgi\/archive_
> > (\d{2})\/(\w{3}).+/im);
> ...
> > I'm sure that someone else would do it another way, but this is the
> > most readable way that I could concieve to do it.
>
> ($month, $number) =
> $line[0]=~ m%/usr/home/avert/www/cgi/archive_(\d{2})\/(\w{3}).+%
i;
>
> is a lot more readable. You have a bad case of LTS (Leaning
Toothpick
> Syndrome). In the tutorial that David Cassell pointed out in the
> message you responded to, this is described as 'making mountains'.
>
> I also took out the /m modifier, which affects the interpretation of
^
> and $ only.
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Company
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
>
--
------------------
Nathan Polonski
Input Support Engineer
NewsEdge Corporation
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 4 Jun 1999 04:29:00 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: The artistic license and perl:
Message-Id: <FCsCGC.Ezo@world.std.com>
Greg Bartels <gbartels@xli.com> writes:
>the question is:
>"how do keep perl open source, encouraging profit-based companies
>to develop extensions and return it to open-source, and prevent
>the language from forking?"
No matter the virtues or deficiencies of the Artistic License, this is
entirely antithetical to its spirit.
The Artistic License specifically allows proprietary extensions, and
specifically allows forking. Its sole purpose seems to be to allow
Larry final control (one could say artistic control) on what gets
called Perl.
The license gives you an amazing amount of flexibility if you pick any
name other than "perl" for the final executable file.
--
Andrew Langmead
------------------------------
Date: 03 Jun 1999 23:07:47 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: The artistic license and perl:
Message-Id: <ylyai0birw.fsf@windlord.stanford.edu>
Andrew M Langmead <aml@world.std.com> writes:
> The Artistic License specifically allows proprietary extensions, and
> specifically allows forking. Its sole purpose seems to be to allow Larry
> final control (one could say artistic control) on what gets called Perl.
And the holes in even just that provision are big enough to drive a truck
through.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 5883
**************************************
