[11071] in Perl-Users-Digest
Perl-Users Digest, Issue: 4671 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jan 16 21:04:17 1999
Date: Sat, 16 Jan 99 18:00:19 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 16 Jan 1999 Volume: 8 Number: 4671
Today's topics:
Re: A plea for less goofy signature files! <dave@icepop.demon.co.uk>
Re: A plea for less goofy signature files! <gwynne@utkux.utk.edu>
Re: A plea for less goofy signature files! (Ronald J Kimball)
Re: A plea for less goofy signature files! (I R A Aggie)
Re: A plea for less goofy signature files! (Tad McClellan)
Downloading <sergio.dumont@mail.telepac.pt>
Re: Downloading <ijp@thornlea.force9.co.uk>
File Upload. <alexb@ipwiz.com>
Re: File Upload. <ijp@thornlea.force9.co.uk>
Free Perl enabled CGI Webhosting Service info_graffiti@my-dejanews.com
Help with a TLD search program <skitt@massed.net>
Re: HELP: Writing Date/Time to Log (Tad McClellan)
INSTALLING PERL ON REMOTE SERVER (ToNiC0010)
Is perlcc installed by default with 5.004_04 ? (avm)
Keyword search notification scripts <alfred@sperio.com>
Re: Looking for CGI modules (Tad McClellan)
PalmPerl, Perl on the 3Com Palm Pilot. chad@vcn.net
Re: Removing spaces from arrays... <aqumsieh@matrox.com>
Re: Removing spaces from arrays... <rick.delaney@home.com>
Re: Removing spaces from arrays... (Ronald J Kimball)
Re: Treating Strings as FILEHANDLES <rick.delaney@home.com>
Re: Treating Strings as FILEHANDLES <rick.delaney@home.com>
Re: Treating Strings as FILEHANDLES (Ronald J Kimball)
Re: Treating Strings as FILEHANDLES (Tad McClellan)
Veritas Quota support (John F Bell)
Re: Which Perl reference book? <aqumsieh@matrox.com>
Re: Win98 Perl? <jhi@alpha.hut.fi>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 16 Jan 1999 23:18:37 +0000
From: David Robinson <dave@icepop.demon.co.uk>
Subject: Re: A plea for less goofy signature files!
Message-Id: <6CnmSBAN5Ro2EwWH@icepop.demon.co.uk>
Just another Perl Hacker
Do I get a prize?
In article <bV5o2.6369$yt4.21067@typhoon-sf.pbi.net>, Snowhare
<snowhare@devilbunnies.org> writes
>
>Nothing above this line is part of the signed message.
>
>In article <77qo3u$lq7@journal.concentric.net>,
>Phlip <new_email@see.web.page> wrote:
>>Newsgroupies
>>
>>Perl users, for some reason moreso than for other languages, like to
>>invent strings of nonsense that vaguely resemble source code and put
>>them in their signature files, like this:
>>
>> (open 0),$_=<0>,s,.*-+ ,,,chop;for(split?@*?){($$_++or$}=$_,y,
>> y \,y,<STDIN>,,eval"sub $_ {print'$}'}"),y,} \,},>STDOUT,,&$_}
>>
>>That practice is not in the Open Source Software movement's best
>>interests.
>>
>>"The Cause" - beating the commercial idiots at their own game, in
>>our spare time, and for free - depends on the QA format of public
>>fora to answer questions which are then warehoused; in DejaNews or
>>in each list server's archives. But signature files like this jam
>>the search engines with smug false hits!
>
>Have you ever tried *running* one of those signatures (hint1)?
>Doing searches on keywords from computer languages is stupid
>anyhow (hint2) - you will get virtually nothing but out of
>context source code fragments and mis-hits on common english
>words (which oddly are used a lot in computer languages).
>
>my $name=join('',reverse(split(//,'Benjamin "Snowhare" Franz')));
>$_='024e046b794c446f25423a6375477d6c14450a39447a07637e';
>s/(..)/push(@ARGV,hex($1))/eg;while($_=chop $name){
>$_=ord^shift;$_+=$a;$_%=108;print chr(($a=$_)+10)}
>
--
David Robinson
------------------------------
Date: Sat, 16 Jan 1999 19:07:39 -0500
From: "Robert Gwynne" <gwynne@utkux.utk.edu>
Subject: Re: A plea for less goofy signature files!
Message-Id: <77ra2u$iqc$1@gaia.ns.utk.edu>
What would we do without Abigail's signatures? Sometimes, they're the best
part of c.l.p.m. They're instructive if you can figure them out. Let the
subscribers to c.l.p.m. decide what they want included or excluded.
It seems that Phlip, on evidence of the content of politizen.com, is another
right winger who wants to dictate what people do and say. Let him chew on my
signature for a while.
Robert Gwynne
Speech Communication
University of Tennessee, Knoxville
***********************************
Liberalism has always derived its authority and persuasiveness from a vision
of human nobility, from the idea that our dignity is derived from the
exercise of moral choice. Moral absolutism fears this act of choice and
fears the freedom required by the act of choosing.
Liberalism depends, ultimately, on faith in human choosing, and a liberal
revival depends on recovering the inspiration of this central conviction.
Michael Ignatieff
------------------------------
Date: Sat, 16 Jan 1999 19:22:09 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: A plea for less goofy signature files!
Message-Id: <1dlqmft.1ku059b104v3r4N@bay1-500.quincy.ziplink.net>
Phlip <new_email@see.web.page> wrote:
> Newsgroupies
>
> Perl users, for some reason moreso than for other languages, like to
> invent strings of nonsense that vaguely resemble source code and put
> them in their signature files, like this:
>
> (open 0),$_=<0>,s,.*-+ ,,,chop;for(split?@*?){($$_++or$}=$_,y,
> y \,y,<STDIN>,,eval"sub $_ {print'$}'}"),y,} \,},>STDOUT,,&$_}
That *is* source code. It may look like nonsense to you, but that's
what makes it fun.
Granted, you omitted two lines. Tsk tsk! Here is the full source code:
#!/usr/bin/perl -w -- Just another Perl hacker,
(open 0),$_=<0>,s,.*-+ ,,,chop;for(split?@*?){($$_++or$}=$_,y,
y \,y,<STDIN>,,eval"sub $_ {print'$}'}"),y,} \,},>STDOUT,,&$_}
# Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
The first line is required to get the desired output. The last line is
the actual signature.
> That practice is not in the Open Source Software movement's best
> interests.
Forgive me... I seem to have misplaced my memo from the Open Source
Software movement detailing approved signature files. Would you mind
reiterating the guidelines on creating an accepted signature?
> "The Cause" - beating the commercial idiots at their own game, in
> our spare time, and for free - depends on the QA format of public
> fora to answer questions which are then warehoused; in DejaNews or
> in each list server's archives. But signature files like this jam
> the search engines with smug false hits!
Aw, I'm cryin' my heart out here. If you're getting false hits, then
you need to refine your search.
I feel so terrible... My signature file must be playing havoc with
people researching languages, rodents, and ontology!
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 16 Jan 1999 20:12:41 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: A plea for less goofy signature files!
Message-Id: <fl_aggie-1601992012410001@aggie.coaps.fsu.edu>
In article <77ra2u$iqc$1@gaia.ns.utk.edu>, "Robert Gwynne"
<gwynne@utkux.utk.edu> wrote:
+ right winger who wants to dictate what people do and say.
Please keep your politics out of this forum.
James - hint: the "left wing" has just as many, if not more who'd be
plenty happy to "re-educate" people who have "incorrect" opinions
------------------------------
Date: Sat, 16 Jan 1999 19:08:32 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: A plea for less goofy signature files!
Message-Id: <g6dr77.o9p.ln@magna.metronet.com>
Phlip (new_email@see.web.page) wrote:
: Perl users, for some reason moreso than for other languages, like to
: invent strings of nonsense that vaguely resemble source code and put
It is not nonsense.
It does not merely _resemble_ source code, it _is_ source code.
It runs fine and produces sensible output
(Usually "just another perl hacker").
Come back when you know what you're talking about.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 16 Jan 1999 23:20:18 +0000
From: Sergio Dumont <sergio.dumont@mail.telepac.pt>
Subject: Downloading
Message-Id: <36A11EB2.6947@mail.telepac.pt>
Hi
Can anybody tell me how can I send a file - a zip file, for example -
from my http or ftp server to a client who clicked a link on a web page
?
You know, like in download.com, for instance.
What instructions should I include on my PERL5 code ? And for uploading
as well ?
Thanks
Sergio
------------------------------
Date: Sun, 17 Jan 1999 00:45:28 -0000
From: "Ian" <ijp@thornlea.force9.co.uk>
Subject: Re: Downloading
Message-Id: <Wpao2.3521$dh1.1196@wards>
if i understand you correctly, the first part is easy.. just output a
hyperlink as part of the document e.g.
<a href="http://path/to.file">File </a>
as for the upload bit, i think that the module cgi.pm has support for the
uploading facility. (it is possible the long way, but cgi.pm makes life so
much easier).
HTH
Ian
Sergio Dumont wrote in message <36A11EB2.6947@mail.telepac.pt>...
>Hi
>
>Can anybody tell me how can I send a file - a zip file, for example -
>from my http or ftp server to a client who clicked a link on a web page
>?
>
>You know, like in download.com, for instance.
>
>What instructions should I include on my PERL5 code ? And for uploading
>as well ?
>
>Thanks
>Sergio
------------------------------
Date: Sat, 16 Jan 1999 18:25:06 -0500
From: "Alex Blyumenkrants" <alexb@ipwiz.com>
Subject: File Upload.
Message-Id: <77r718$eg8$1@winter.news.rcn.net>
Hi!
I have the following problem:
i need to upload a file from an Html,
if i use type="file"
what should i do to save this file in my Cgi?
Thank You,
Alex
------------------------------
Date: Sun, 17 Jan 1999 00:46:26 -0000
From: "Ian" <ijp@thornlea.force9.co.uk>
Subject: Re: File Upload.
Message-Id: <Pqao2.3522$dh1.1163@wards>
mote sure if this is any use, but i think that CGI.pm has support to make
file uploads easier, take a look at the docs, it may be relevant..
Ian
Alex Blyumenkrants wrote in message <77r718$eg8$1@winter.news.rcn.net>...
>Hi!
>
>I have the following problem:
>
>i need to upload a file from an Html,
>if i use type="file"
>what should i do to save this file in my Cgi?
>
>
>Thank You,
>Alex
>
>
------------------------------
Date: Sun, 17 Jan 1999 01:00:14 GMT
From: info_graffiti@my-dejanews.com
Subject: Free Perl enabled CGI Webhosting Service
Message-Id: <77rcmq$dj2$1@nnrp1.dejanews.com>
Free Perl enabled CGI accounts for anyone and everyone are now available from
Graffiti.net. For information on how to obtain an account at no cost and in
about three minutes, take a look at http://www.CGIrealms.com or
http://www.graffiti.net (under web hosting, option CGI)
CGI Realms, a service provided by Graffiti.net, offers Webhosting enabled CGI
accounts at no cost whatsoever. Use these CGI accounts in conjunction with web
hosting (provided by Graffiti.net OR by an outside agency). There are no costs
involved, no spam (now or later), and you dont even need commitment (apart
from being a law-abiding citizen).
www.cgirealms.com
www.graffiti.net
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sat, 16 Jan 1999 19:46:07 -0800
From: "Bill Skitt" <skitt@massed.net>
Subject: Help with a TLD search program
Message-Id: <77rbmh$8s5$1@winter.news.rcn.net>
Hello. I am reasonably new to perl and trying to write a program that
searches a database of country codes. The database file is in the form of
extension=country (example: com=United States Commercial). Im not quite sure
what the logic behind a program like this is like. If anyone can help me
brainstorm or throw some snippets of code at me it is greatly appreaciated.
Since I am new to newsgroups, please email skitt@massed.net rather than
posting a response.
------------------------------
Date: Sat, 16 Jan 1999 19:34:41 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: HELP: Writing Date/Time to Log
Message-Id: <hner77.o9p.ln@magna.metronet.com>
Stephen Bucholtz (bucholtz@erols.com) wrote:
: Below is a block of code I use to create the Date/Time.. When I use
: printf, it writes fine to the screen, but How do I get this to write to
: my log?
By giving a filehandle argument.
: open(LogFile, ">$RealMonth $DayOfMonth $Year.log")||("Log file did
: not open!\n");
You can get helpful info from your OS (eg: "Permission denied",
"No such file", etc...) by printing the $! special variable
in your diagnostic message.
You should also include the name of the file that you were
trying to open.
You should also put some delimiters around the filename in case
there is leading/trailing whitespace in it:
You should also call a function such as die() to output all of
that stuff. Your attempted diagnostic message will not generate
any output...
Perl convention is to use upper case for filehandles.
So:
open(LOGFILE, ">$RealMonth $DayOfMonth $Year.log") ||
die "could not open '$RealMonth $DayOfMonth $Year.log' $!";
Putting spaces in filenames is cumbersome too...
: print "The following Log File was created: $RealMonth $DayOfMonth
: $Year.log\n";
: printf('%02d:%02d:%02d %02d/%02d/%02d', $Hour, $Minute, $Second,
: $RealMonth,
: $DayOfMonth, $Year);
Let's go look up printf() in the aforementioned documentation
('perlfunc' in this case):
-----------------------
=item printf FILEHANDLE FORMAT, LIST
=item printf FORMAT, LIST
Equivalent to C<print FILEHANDLE sprintf(FORMAT, LIST)>, except that C<$\>
(the output record separator) is not appended. The first argument
of the list will be interpreted as the C<printf()> format. If C<use locale> is
in effect, the character used for the decimal point in formatted real numbers
is affected by the LC_NUMERIC locale. See L<perllocale>.
-----------------------
So
printf "%blah", $sumthin;
prints to STDOUT (often the screen)
printf LOGFILE "%blah", $sumthin;
prints to your logfile.
: I normally program in VB but my boss hands me a Perl book on Monday and
: says I need an app in two weeks. So this is the first time I've ever
: looked at Perl.
Find out where the hundreds of pages of documentation that
come with the perl distribution got installed on your system.
Use them frequently.
Use the -w switch on every single program that you write.
(see the 'perlrun' documentation)
Really.
Every program.
Good luck!
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 16 Jan 1999 23:38:26 GMT
From: tonic0010@aol.com (ToNiC0010)
Subject: INSTALLING PERL ON REMOTE SERVER
Message-Id: <19990116183826.24061.00002413@ng12.aol.com>
Hi
It looks as though there is a hopelessly outdated version of Perl installed on
a remote server that I am using...
Can someone run me through how I can upgrade the Perl binary without crashing
the server (as the website running is CGI dependent)...
I presume the Perl.exe is the file called 'ls' located in the /bin directory,
can someone correct me if I'm wrong ?
------------------------------
Date: 17 Jan 1999 01:48:14 GMT
From: avm@best.com (avm)
Subject: Is perlcc installed by default with 5.004_04 ?
Message-Id: <avm-2908561806160001@avm.vip.best.com>
Is perlcc installed by default with 5.004_04 ?
My ISP uses FreeBSD, and perlcc is installed, in /usr/local/bin.
It seems to work very well so far.
At home I have RedHat Linux 5.1 with the same version of perl 5.004_04.
But perlcc was not installed by default. Does it have to be installed separately from CPAN, or are there Linux specific problems with it?
TIA.
------------------------------
Date: Sat, 16 Jan 1999 18:25:09 -0500
From: Alfred Tay <alfred@sperio.com>
Subject: Keyword search notification scripts
Message-Id: <36A11FD5.7568041@sperio.com>
Is it possible to let my users search and then opt for a auto
notification by email wHenever the search is satisfied over a period of
time?
Alfred Tay
Art Coordinator
SPERIO.com - Virtual Arts Archive
http://www.sperio.com/
------------------------------
Date: Sat, 16 Jan 1999 19:36:51 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Looking for CGI modules
Message-Id: <jrer77.o9p.ln@magna.metronet.com>
spadesmcgee@my-dejanews.com wrote:
: I'm guessing
: there are modules available for what I want to do (it's only been done like a
: billion times), but where do I start?
http://www.perl.com/CPAN
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 16 Jan 1999 23:53:26 GMT
From: chad@vcn.net
Subject: PalmPerl, Perl on the 3Com Palm Pilot.
Message-Id: <77r8pj$ae0$1@nnrp1.dejanews.com>
Well, not exactly. Unless you consider telneting into your lunix computer
and writing a Perl program with your Palm Pilot to be PalmPerl. It is to me,
i use my palm to telnet and write perl. however, i want to create a abv.
ver. of the perl lang. so i don't have to type so much, or 'giraffe', if you
know what i mean. Anyway, is there anyone else out there with simular
interests in helping me develop this?
-chad
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sat, 16 Jan 1999 15:15:40 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Removing spaces from arrays...
Message-Id: <x3yaezjvus3.fsf@tigre.matrox.com>
"Allan M. Due" <allan@due.net> writes:
> :# First splits the line on whitespace (empty regex in split)
> :# The joins the splitted array with a | between each entry and prints the
> :# line
> :
> :print join('|', split(//,$line));
>
> That splits on every character. Testing is a good thing <g>.
> s{//}{' '};
> or
> s{//}{" "};
>
> either will split on white space.
Actually, either will split on a *space character*. They will not
split on \t or \n characters, which *are* white spaces.
split /\s+/, $line;
I agree about the testing bit though.
------------------------------
Date: Sat, 16 Jan 1999 23:52:10 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Removing spaces from arrays...
Message-Id: <36A127F8.25DA4560@home.com>
[posted & mailed]
Ala Qumsieh wrote:
>
> "Allan M. Due" <allan@due.net> writes:
>
> > :print join('|', split(//,$line));
> >
> > That splits on every character. Testing is a good thing <g>.
> > s{//}{' '};
> > or
> > s{//}{" "};
> >
> > either will split on white space.
>
> Actually, either will split on a *space character*. They will not
> split on \t or \n characters, which *are* white spaces.
Yes they will.
> split /\s+/, $line;
This is hardly ever wanted.
> I agree about the testing bit though.
Then why not test before making such a claim?
perldoc -f split
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 16 Jan 1999 19:22:10 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Removing spaces from arrays...
Message-Id: <1dlqnx9.9qtetrgw9wnyN@bay1-500.quincy.ziplink.net>
[posted and mailed]
Ala Qumsieh <aqumsieh@matrox.com> wrote:
> > That splits on every character. Testing is a good thing <g>.
> > s{//}{' '};
> > or
> > s{//}{" "};
> >
> > either will split on white space.
>
> Actually, either will split on a *space character*. They will not
> split on \t or \n characters, which *are* white spaces.
*Bzzzzzzzzzt!!!* split(" ") will split on whitespace, just as Allan
said.
> split /\s+/, $line;
>
> I agree about the testing bit though.
Then why didn't you test your assertion before you posted it?
perlfunc:
split /PATTERN/,EXPR,LIMIT
split /PATTERN/,EXPR
split /PATTERN/
split
[...]
As a special case, specifying a PATTERN of space (' ') will split on
white space just as split with no arguments does. Thus, split(' ')
can be used to emulate awk's default behavior, whereas split(/ /)
will give you as many null initial fields as there are leading
spaces. A split on /\s+/ is like a split(' ') except that any
leading whitespace produces a null first field. A split with no
arguments really does a split(' ', $_) internally.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 16 Jan 1999 22:58:23 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Treating Strings as FILEHANDLES
Message-Id: <36A11B65.CD1388DC@home.com>
Rick Delaney wrote:
>
> while ( $string =~ /^(.*)$/gm ) {
>
> I'm having trouble coming up with a clean way to retain the newlines,
> though.
Okay, this is what I've come up with if anyone's still interested. This is a 5.005 solution only, but at least I learned something. It can easily be modified to not use $&, but I've left it in for
clarity.
#!/usr/bin/perl -w
$string{without} = "Line 1\n\nLine 3";
$string{with} = "$string{without}\n";
for $x (keys %string) {
print "\n$x:\n";
while ( $string{$x} =~ /(.)*(?(1)\n?|\n)/g ) {
print "$&SEPARATOR\n";
}
}
This gives the desired:
with:
Line 1
SEPARATOR
SEPARATOR
Line 3
SEPARATOR
without:
Line 1
SEPARATOR
SEPARATOR
Line 3SEPARATOR
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 16 Jan 1999 23:05:18 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Treating Strings as FILEHANDLES
Message-Id: <36A11D04.3BD7C584@home.com>
My apologies if anyone sees this twice. I cancelled and reposted.
Rick Delaney wrote:
>
> while ( $string =~ /^(.*)$/gm ) {
>
> I'm having trouble coming up with a clean way to retain the newlines,
> though.
Okay, this is what I've come up with if anyone's still interested. This
is a 5.005 solution only, but at least I learned something. It can
easily be modified to not use $&, but I've left it in for clarity.
#!/usr/bin/perl -w
$string{without} = "Line 1\n\nLine 3";
$string{with} = "$string{without}\n";
for $x (keys %string) {
print "\n$x:\n";
while ( $string{$x} =~ /(.)*(?(1)\n?|\n)/g ) {
print "$&SEPARATOR\n";
}
}
This gives the desired:
with:
Line 1
SEPARATOR
SEPARATOR
Line 3
SEPARATOR
without:
Line 1
SEPARATOR
SEPARATOR
Line 3SEPARATOR
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 16 Jan 1999 19:22:12 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Treating Strings as FILEHANDLES
Message-Id: <1dlqo65.5x2270m3geh9N@bay1-500.quincy.ziplink.net>
Rick Delaney <rick.delaney@home.com> wrote:
> > > I'm having trouble coming up with a clean way to retain the
> > > newlines, though.
> >
> > while ( $string =~ /^(.*(?:$)\n?)/gm ) {
>
> This has the same problem as Tad's, but only if the string *has* a
> newline on the end.
Dang... I'm out of ideas.
> And it doesn't work at all under 5.005.
I can only assume that it is a bug in 5.005. None of the regex features
used should have changed between 5.004 and 5.005.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 16 Jan 1999 19:14:34 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Treating Strings as FILEHANDLES
Message-Id: <qhdr77.o9p.ln@magna.metronet.com>
Rick Delaney (rick.delaney@home.com) wrote:
: [posted & mailed]
: Tad McClellan wrote:
: >
: > Rick Delaney (rick.delaney@home.com) wrote:
: >
: > : while ( $string =~ /^(.*)$/gm ) {
: > : I'm having trouble coming up with a clean way to retain the
: > : newlines, though.
: >
: > while ( $string =~ /(.*\n?)/g ) {
: I tried this too which has the same problem of the null pattern matching
: twice (at the last record in this case).
If matching null strings is a problem, howsabout we just
rewrite it so that it can't match 'em?
while ( $string =~ /(.*\n|.+\n?)/g ) {
'zat do it?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 17 Jan 1999 01:02:14 GMT
From: jfbell@news.cs.utah.edu (John F Bell)
Subject: Veritas Quota support
Message-Id: <77rcqm$7eo$1@coward.cc.utah.edu>
Hello-
Has anyone modified the Quota-1.2.2 module to support the veritas file
system (which uses commands like vxedquota)? I could not get it to work
without seg faulting.
Thanks,
John Bell
--
----------------------------------------------------------------------
John F. Bell EMAIL: jfbell@eng.utah.edu
College of Engineering Facility URL: http://www.eng.utah.edu/~jfbell
CADE Lab Operator, Univ of Utah WORK: 801.581.7551
----------------------------------------------------------------------
------------------------------
Date: Sat, 16 Jan 1999 14:35:30 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Which Perl reference book?
Message-Id: <x3ybtjzvwn1.fsf@tigre.matrox.com>
"AE Meza" <aem@netzero.net> writes:
>
> What about Perl 5 Interactive Course by Jon Orwant? Is it a good book for
> learning perl? Anybody used it?
>
I have it on my desk. It was a excellent learning tool for me,
especially that it contains problems after each chapter (solutions are
also provided). Note: I read it after reading the Llama and before
reading the Camel.
It's only disadvantage (from my point of view) is the large number of
typos. Jon assured me that almost all of the typos were due to the
publisher. Nevertheless, it contains a large number of good examples
that were very helpful.
I do recommend it.
Ala
------------------------------
Date: 17 Jan 1999 01:41:31 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: Win98 Perl?
Message-Id: <oee4spq945w.fsf@alpha.hut.fi>
http://www.cpan.org/ports/
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
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 4671
**************************************
