[8559] in Perl-Users-Digest
Perl-Users Digest, Issue: 2176 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 25 01:08:20 1998
Date: Tue, 24 Mar 98 22:00:34 -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 Tue, 24 Mar 1998 Volume: 8 Number: 2176
Today's topics:
Re: $0: which OSes? <andrew@erlenstar.demon.co.uk>
Re: 'a2p' for WinNT? (Mike King)
Copy file command. tufgar@golden.net
Re: crypt paranoia ? <arunas@a!nm.org>
Re: Date::Manip problem <zenin@archive.rhps.org>
Re: Going Rates for PERL Programming??? <fp@pmpcs.com>
Re: Going Rates for PERL Programming??? (Jim Michael)
Re: Going Rates for PERL Programming??? <zenin@archive.rhps.org>
Re: hard reference, variable names ? (Jason Gloudon)
Re: how to assign unix command options in perl <fscholz@wv.mentorg.com>
How to debug multiprocessing perl script with perl -d <long@gb.com.cn>
How to uninstall <doug@ccinet.com>
How to use POD (Plain Old Documentation) <lloyd@morpheme.com>
Re: How to use POD (Plain Old Documentation) (Abigail)
Re: IIS, PERL, CGI <sowmaster@juicepigs.com>
Re: Interpolating into a variable? How to? (Jason Gloudon)
Re: Is there a "Newsgroup" for Newbies to Perl? (Mike Stok)
Re: Is this wise way to do this? (Jason Gloudon)
looking for a piece of code <jamdiaz@klaskycsupo.com>
Re: looking for a piece of code <jwb79@mail.idt.net>
Re: looking for a piece of code <rjk@coos.dartmouth.edu>
Re: Need some help converting a string into an array <fscholz@wv.mentorg.com>
Perl copy? <dbltall9@sprynet.com>
Re: precedence problem <fscholz@wv.mentorg.com>
PROPOSAL: The Perl Dictionary <efinch@vais.net>
Re: PROPOSAL: The Perl Dictionary (Nathan V. Patwardhan)
Re: Send Joke Script Help! (Abigail)
Re: Send Joke Script Help! (Iain Chalmers)
Re: WEB Based E-mail Reader. <atstarr@negia.net>
Re: what is wrong with being a novice ?? (Georg Bauer)
Re: Why hasn't there been a vote on moderating cplm yet <birgitt@order.booktraders.com>
Re: {block} orinted <FILE> descriptors (Jason Gloudon)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Mar 1998 03:36:06 +0000
From: Andrew Gierth <andrew@erlenstar.demon.co.uk>
Subject: Re: $0: which OSes?
Message-Id: <871zvrh26x.fsf@erlenstar.demon.co.uk>
>>>>> "Mark" == Mark W Schumann <catfood@apk.net> writes:
> In article <kozDxdO00YUq1oods0@andrew.cmu.edu>,
> Gautam Srikanth <morpheus+@andrew.cmu.edu> wrote:
>> Linux is the only system I tried where a program's ps entry matched
>> changes in $0.
Mark> AIX 4.1 and 4.2 do this too.
Mark> AT&T SVR4.3 doesn't.
Rule of thumb: assigning to $0 works for BSDish Unixes, and fails for
SysVish ones. On some systems changes to $0 are visible via
/usr/ucb/ps but not via /usr/bin/ps.
It's a question of where ps gets its information. The SysV approach is
to get the command line from a copy stored in kernel space at the time
of the exec; this isn't changeable by the process (other than by
performing another exec). On BSD the approach is to peek into the
process address space and look at the values of argv[] as stored on
the process stack (and which can therefore be overwritten).
--
Andrew.
------------------------------
Date: Wed, 25 Mar 1998 02:40:10 GMT
From: m.king.garbage@praxa.garbage.com.au (Mike King)
Subject: Re: 'a2p' for WinNT?
Message-Id: <35186e76.162006533@news.ozemail.com.au>
Look at the MKS toolkit
http://www.mks.com/
On Tue, 24 Mar 1998 11:53:59 -0800, Les Hartzman <lesh@sdinc.com>
wrote:
>I've installed the latest version of Perl from the CPAN site, but there
>is no 'a2p' utility. Does one exist yet, or is the code available for
>building?
>
>TIA,
>
>Les
>
>--
>=======================================================================
>Les Hartzman "Those that don't read have no
>lesh@sdinc.com advantage over those that can't", Mark Twain
>
>
------------------------------
Date: Tue, 24 Mar 1998 21:30:10 -0500
From: tufgar@golden.net
Subject: Copy file command.
Message-Id: <35186C32.91198B45@golden.net>
Hi,
Is there an actual command to copy or move files or do you have to
write a small program?
Thanks in Advance.
------------------------------
Date: Tue, 24 Mar 1998 19:33:45 -0700
From: "Arunas Salkauskas" <arunas@a!nm.org>
Subject: Re: crypt paranoia ?
Message-Id: <35186b7b.0@news.cadvision.com>
I would have thought that it was the US government that was paranoid about
exporting encryption...
- Arunas
Webmaster wrote in message <35184D09.91D9B3FB@fccjmail.fccj.cc.fl.us>...
>*/chebs wrote:
>
>> I've been trying to use crypt on a win95 system and keep getting
>> errors.
> It is my understanding that Win95/NT is paranoid, not you :-)
>You should be able to swipe a copy from your local CPAN.
>(aka www.perl.com/CPAN)
>
>HTH,
>Sneex
>
------------------------------
Date: 25 Mar 1998 02:10:22 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: Date::Manip problem
Message-Id: <890792194.228215@thrush.omix.com>
David Walford <davewal@echo.engr.sgi.com> wrote:
: I am getting this error when I try and install and use Date::Manip
: Can't locate IO/File.pm in @INC at
: /usr/freeware/lib/perl5/site_perl/Date/Manip.pm line 129.
IO::File is in the current standard lib for perl version 5.004
and higher.
It sounds like you have one or more of:
a) Broken new perl install that didn't include IO::File
b) Old version of perl (< 5.004) that didn't include IO::File
c) Did not install Date::Manip correctly, as the "make test" should
have blown chunks with the same error. -Unless it doesn't at the
least have a load test, which is then a bug in the Date::Manip
distribution.
You can get a copy of IO and IO::File off of CPAN, or better yet
upgrade your perl.
: I am building an online calendar, is there another library that you'd recommend
: to manipulate the dates?
Date::Calc, but you may have other problems if you don't fix your
perl. Check under the Date section of CPAN for other options that
may have been developed.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Tue, 24 Mar 1998 18:57:10 -0500
From: "Peter Perchansky" <fp@pmpcs.com>
Subject: Re: Going Rates for PERL Programming???
Message-Id: <6f9ns7$20o$1@usenet45.supernews.com>
Greetings Richard:
Richard Bellavance wrote in message <6f8h9t$ntp@ocean.CAM.ORG>...
>In article <6f6or3$o0s$2@usenet44.supernews.com>,
>Peter Perchansky <fp@pmpcs.com> wrote:
>>
>>What I question is the pricing disctinction between tweeking another
>>person's code and writing custom code.
>>
>>If it is the same programmer, why is their time worth less when tweaking?
>
>Some people make a distinction between simple programming and designing an
>application.
>
>Richard, one of those people :-)
So your time is worth less when you are trying to modify some one else's
code --- whose coding style (good or bad) may be drastically different than
your own?
And tweaking another person's code is simple?
--
===========================================================
Peter Perchansky, Computer Consultant & Microsoft FrontPage MVP
Dynamic Net, Inc. DBA PMP Computer Solutions
Providing Dynamic Databases, Design, & Electronic Commerce Solutions
FrontPage Web Hosting at http://www.pmpcs.com/services/fpwebhosting.htm
FrontPage Support http://www.pmpcs.com/support/frontpage.htm
------------------------------
Date: Wed, 25 Mar 1998 02:17:53 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: Going Rates for PERL Programming???
Message-Id: <genepoolEqCrpt.5Lx@netcom.com>
Peter Perchansky (fp@pmpcs.com) wrote:
: And tweaking another person's code is simple?
Tweaking (BEFORE):
#======= Enter your email address below ========
$email = '';
Tweaking (AFTER):
#======= Enter your email address below ========
$email = 'president@whitehouse.gov';
------------------------------
Date: 25 Mar 1998 03:17:38 GMT
From: Zenin <zenin@archive.rhps.org>
Subject: Re: Going Rates for PERL Programming???
Message-Id: <890796230.611219@thrush.omix.com>
Jim Michael <genepool@netcom.com> wrote:
: Tweaking (BEFORE):
: Tweaking (AFTER):
>snip<
You're assuming (danger) that the code you're tweaking is actually
well written, commented, documented, etc. You're either living a
charmed life, or you're vary delusioned...
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: Wed, 25 Mar 1998 02:34:39 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: hard reference, variable names ?
Message-Id: <slrn6hgr7b.gfi.jgloudon@manitoba.bbn.com>
Phil R Lawrence <prl2@lehigh.edu> wrote:
- BIG CHOP -
><snip...>
>foreach $coll (@coll_codes) {
> foreach $offer (@offer_codes) {
> foreach $sex ('M', 'F') {
Create Hard references here:
foreach $sex (\%M, \%F) {
> $sth->execute("$offer", "$coll", "$sex")
This may need change to use the reference $sex instead.
> or die $DBI::errstr;
> $sex{$offer} = $sth->fetchrow_array;
> $sex{$offer} = ($sex{$offer}) ? "$sex{$offer}" : 0;
and replace $sex{$offer} with $sex->{$offer} as in :
$sex->{$offer} = ($sex->{$offer}) ? "$sex->{$offer}" : 0;
--
Jason Gloudon
------------------------------
Date: Tue, 24 Mar 1998 16:41:04 -0800
From: Frank Scholz <fscholz@wv.mentorg.com>
Subject: Re: how to assign unix command options in perl
Message-Id: <351852A0.70584CE4@wv.mentorg.com>
I agree, don't do system calls if you don't have too! Here is
another way of implementing 'date -u +%B'. It's not as elegant,
but it will give you complete month names.
$date = ('January', 'February', 'March',
'April', 'May', 'June',
'July', 'August', 'September',
'October', 'November', 'December')[gmtime[4]];
- Frank
schwern@starmedia.net wrote:
>
> Continuing the Anti-System-Call Crusade...
>
> $month = (split(' ', gmtime, 3))[1];
>
> Locale dependent, too. :) There's probably a much better way to do that, but
> I can't think of it right now.
>
> In article <6ek5jt$17g@ccshst05.uoguelph.ca>,
> ljairath@wright.aps.uoguelph.ca (Lalit Jairath) wrote:
> >
> > Hi all,
> >
> > how can i assign unix command options in perl?
> >
> > i do the following:
> >
> > $_ = `date -u +%B`;
> > print;
> >
> > it does not work. it just prints B.
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Wed, 25 Mar 1998 13:22:27 +0800
From: Long Xue <long@gb.com.cn>
Subject: How to debug multiprocessing perl script with perl -d
Message-Id: <35189492.6BB2E575@gb.com.cn>
Hi,all
I want to know more about multiprocessing in perl. I write a very small
script like this:
#!/usr/local/bin/perl
$pid=fork;
if ($pid==0) { # child process
print "I'm child\n";
exit(1);
}
wait;
print "I'm parent\n";
when I debug the script,it displays:
$ perl -d debug.pl
Loading DB routines from perl5db.pl version 1.01
Emacs support available.
Enter h or `h h' for help.
main::(debug.pl:2): $pid=fork;
DB<1> s
main::(debug.pl:3): if ($pid==0) {#child process
Forked, but do not know how to change a TTY.
Define $DB::fork_TTY or get_fork_TTY().
DB<1> main::(debug.pl:3): if ($pid==0) {#child process
DB<1>
How can I do to know the running situation of not only parent process
but also child process ?
Thank you in advance.
long xue
long@gb.com.cn
------------------------------
Date: Wed, 25 Mar 1998 03:29:54 GMT
From: "Doug Evans" <doug@ccinet.com>
Subject: How to uninstall
Message-Id: <SS_R.35$G41.322763@katana>
The Faq, associated wit h Standard Perl Distribution says there is an
uninstall.bat file, for uninstalling, perl5.00402-bindist04..10-...
I have tried every way I can think of, to find that .bat file, to no avail.
Can someone tell me where it is hidden?
Thanks,
Doug
------------------------------
Date: Tue, 24 Mar 1998 19:41:30 -0800
From: Lenny Bruce Lee <lloyd@morpheme.com>
Subject: How to use POD (Plain Old Documentation)
Message-Id: <35187CEA.2C26FBD7@morpheme.com>
I am trying to find pointers to the use of POD (Plain Old Documentation)
to embed the documentation in perl code. What are recommendations of
sites or documents of benefit?
thanks,
-lloyd
--
Humor is just another defense against the universe. -Mel Brooks
------------------------------
Date: 25 Mar 1998 04:35:21 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How to use POD (Plain Old Documentation)
Message-Id: <6fa1i9$674$2@client2.news.psi.net>
Lenny Bruce Lee (lloyd@morpheme.com) wrote on MDCLXVII September MCMXCIII
in <URL: news:35187CEA.2C26FBD7@morpheme.com>:
++ I am trying to find pointers to the use of POD (Plain Old Documentation)
++ to embed the documentation in perl code. What are recommendations of
++ sites or documents of benefit?
There's a manpage. It's name is, surprise, surprise: perlpod.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle 'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Additional/s) [0]'
------------------------------
Date: Tue, 24 Mar 1998 20:48:14 -0500
From: Bob Trieger <sowmaster@juicepigs.com>
To: Steve Linberg <linberg@literacy.upenn.edu>
Subject: Re: IIS, PERL, CGI
Message-Id: <3518625E.7968@juicepigs.com>
Steve Linberg wrote:
>
> In article <351716E4.156F3BCF@flex.net>, Gerald Hurst <ghurst@flex.net> wrote:
>
> > ...I've got PERL 5.00404 working with NT
> > 4.0 and IIS...
>
> You do? Where did you get it? Did you build it yourself? Last I heard,
> 5.004+ wasn't available for NT yet.
I have been using 5.004_02 for atleast 3 or 4 months now. I picked up
the binary on perl.com and it says it was compiled Aug 9, 1997.
Good luck,
Bob Trieger
sowmaster@juicepigs.com
------------------------------
Date: Wed, 25 Mar 1998 02:11:21 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: Interpolating into a variable? How to?
Message-Id: <slrn6hgprl.gfi.jgloudon@manitoba.bbn.com>
Keith G. Murphy <keithmur@mindspring.com> wrote:
....introductory preamble
>For example:
>
>$planet = 'World';
>$greeting = <STDIN>; # $nice now is 'hello $planet/n'
>
>How to do:
>
>$greeting = interpolate($greeting);
>
>and end up with 'Hello World'?
>
>I've seen a solution involving sprintf, which seems to work fine. Is
>there a simpler or more recommended way? Haven't seen it in the docs.
eval "qq($greeting)";
Caveats : $greeting can't contain ')', and others I can't think of.
--
Jason Gloudon
------------------------------
Date: 25 Mar 1998 02:42:35 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <6f9qur$ga6@news-central.tiac.net>
In article <6f98tj$s4r$1@client2.news.psi.net>,
Abigail <abigail@fnx.com> wrote:
>Very much true. However, this groups is about electro-magnetism and
>the pysics of how the VCR and tape interact - it's not about the
>buttons on the VCR.
>From a quick scan of this group it seems that most of the content of the
group is talking about what's in the group which is at best marginally
useful for both engineers & "mere" users.
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Wed, 25 Mar 1998 02:44:57 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: Is this wise way to do this?
Message-Id: <slrn6hgrqm.gfi.jgloudon@manitoba.bbn.com>
Joonas Timo Taavetti Kekoni <jkekoni@cc.hut.fi> wrote:
>Is there a standard way to find out wheter or not a $scalar is a \reference?
>I Think the following could get broken if internal structure changes...
Clearly you haven't read `man perlref`, to obtain the necessary clues.
The XXX() operator may be used to determine what type of
^^^- Perhaps you'll read man perlref now
thing the reference is pointing to. See the perlfunc
manpage.
--
Jason Gloudon
------------------------------
Date: Tue, 24 Mar 1998 18:14:49 -0700
From: Jamie Diaz <jamdiaz@klaskycsupo.com>
Subject: looking for a piece of code
Message-Id: <35185A89.5E17@klaskycsupo.com>
I am trying to do something in perl ,
I have a directory with a bunch of files with the name's of
final-0146.sgi to final-0506.sgi in sequence.
I am trying to rename them to Z-bg.1.sgi to Z-bg-361.sgi..in sequence
Is there an easy perl solution?
thanks jaime
------------------------------
Date: 25 Mar 1998 05:09:07 GMT
From: "jim babbington" <jwb79@mail.idt.net>
Subject: Re: looking for a piece of code
Message-Id: <01bd57ab$58639fb0$6488fdc7@dixon>
> I have a directory with a bunch of files with the name's of
> final-0146.sgi to final-0506.sgi in sequence.
>
> I am trying to rename them to Z-bg.1.sgi to Z-bg-361.sgi..in sequence
What I would do.....
Read all files matching "final-*" - push them in to an @array.
Then, sort the array.
Then using the subscript + 1 determine the new name. then rename them.
All functions I use here are in the perldoc, so a code example would just
be
writing the program for you.
> Is there an easy perl solution?
Nothing's easy, however, just try to shoot for "possible" :->
Happy coding,
Jim
------------------------------
Date: Wed, 25 Mar 1998 00:14:38 -0500
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
To: jamdiaz@klaskycsupo.com
Subject: Re: looking for a piece of code
Message-Id: <351892C1.E3B2B05A@coos.dartmouth.edu>
[posted and mailed]
Jamie Diaz wrote:
>
> I have a directory with a bunch of files with the name's of
> final-0146.sgi to final-0506.sgi in sequence.
>
> I am trying to rename them to Z-bg.1.sgi to Z-bg-361.sgi..in sequence
^ ^
Dot or dash? Make up your mind. :-)
opendir(DIR, $directory) or die "Unable to open directory $directory: $!\n";
@files = grep { /final-\d+\.sgi/ } <DIR>;
$i = 1;
foreach (sort @files) {
rename("$directory/$_", "$directory/Z-bg-$i.sgi") or
die "Unable to rename $_: $!\n";
$i++;
}
Or, to make sure you start at the end of an existing sequence:
opendir(DIR, $directory) or die "Unable to open directory $directory: $!\n";
@files = <DIR>;
$i = 1;
foreach (@files) {
if (/^Z-bg-(\d+)\.sgi$/) {
$i = $1 if $1 > $i;
}
}
@files = grep { /final-\d+\.sgi/ } @files;
$i = 1;
foreach (sort @files) {
rename("$directory/$_", "$directory/Z-bg-$i.sgi") or
die "Unable to rename $_: $!\n";
$i++;
}
--
_ / ' _ / - aka - rjk@coos.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: Tue, 24 Mar 1998 17:11:09 -0800
From: Frank Scholz <fscholz@wv.mentorg.com>
To: Mark P Stackhouse <stackhou@elk.cray.com>
Subject: Re: Need some help converting a string into an array
Message-Id: <351859AD.53B5BCA8@wv.mentorg.com>
Without some examples, it's hard to tell what you're doing,
but here I go anyway...
If you have a common delimiter between your fields, use 'split'.
$foo = 'a b c'; # space-deliminated string
@bar = split( / /, $foo ); # split on space and save
# @bar = ( 'a', 'b', 'c' )
If you don't have a common delimiter but you have a common format,
use an RE.
$foo = 'a1bcd3'; # char,num,char,char,char,num
$foo =~ /^(\w\d)(\w\d)(\w\d)$/; # put known pattern in $1...
@bar = ( $1, $2, $3 ); # save 1st, 2nd, 3rd match
- Frank
Mark P Stackhouse wrote:
>
> I've spent the last several hours reading on both Scalars and Arrays in
> Learning Perl. I've also look in perldata, perllol, and perlfaq4. I
> found some neat stuff but not exactly what I was looking for.
>
> I have successfully openned a file and written it into an array. I have
> also "squeezed" each array element to remove extra spaces and tabs. Now
> I need to convert each element into its own array so that I can query on
> the first and last elements. If I can convert strings to arrays, I can
> do the rest. If it's not too much trouble, please explain the process,
> I don't want to just paste code without knowing what I'm doing :-)
>
> --
> Mark Stackhouse
> x64704
>
> *********************************************************
> *
> * Senior Electrical-Mechanical Technician
> * Homepage - http://wwwmfg.cray.com/~stackhou
> * E-mail - stackhou@elk.cray.com
> *
> * Off site homepage - http://www.execpc.com/~stackhou
> *
> * Home E-mail - stackhou@execpc.com
> *
> * "The best things in life aren't things"
> *
> *********************************************************
------------------------------
Date: 25 Mar 1998 04:44:52 GMT
From: "Peter Hawkins" <dbltall9@sprynet.com>
Subject: Perl copy?
Message-Id: <01bd57a8$a94f2320$92e3aec7@home>
I'm new to perl.
Problem: I see lots of file handling functions except for "file copy".
Question: What is the common method for copying files in perl? I can't
believe there is not a function for doing this. I'm on Solaris.
Thanks,
Pete
--
Save the Salmon!
------------------------------
Date: Tue, 24 Mar 1998 16:46:01 -0800
From: Frank Scholz <fscholz@wv.mentorg.com>
Subject: Re: precedence problem
Message-Id: <351853C9.5CDBB4F6@wv.mentorg.com>
Jason Gloudon wrote:
>
> In article <350D8A07.D541672F@bellsouth.net>, Michael Lepine wrote:
> >I am using the following line of code in a script that I wrote ( it is a
> >very trivial line ):
> >
> >`mv $Temp_File $Update_File` or die "Cannot
> >move\n$Temp_File\n\tTO\n$Update_File\n";
You should use the 'rename()' function instead of `mv ...`:
rename( "$Temp_File", "$Update_File" ) or die( "Spew!\n" );
- Frank
>
> You should try printing the return value of a `mv something somewhere`.
>
> Jason Gloudon
------------------------------
Date: Tue, 24 Mar 1998 22:09:56 -0500
From: Ed Finch <efinch@vais.net>
Subject: PROPOSAL: The Perl Dictionary
Message-Id: <35187584.F3740951@vais.net>
Perl is going to take over the world. Therefore, the word perl and its
derivitives are going to become part of everyday speech, just as "dude"
is now. I propose the Perl Dictionary in order to establish - for those
unfortunate enough not to know about perl - the proper use of the word.
Sample entries:
perlify (perl-i'fy), verb - 1) The process of converting an existing
program or script into perl, for the obvious reasons. 2) The process of
improving any person, place or thing by the addition of perl.
perlification (perl-i-fi-ca'tion), noun - The superior result gained
from the act of perlifying.
perilified (perl-i'fied), past tense verb - E.g., "I perlified gcc and I
get the tightest code ever".
More entries, anyone?
Ed
------------------------------
Date: 25 Mar 1998 04:45:39 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: PROPOSAL: The Perl Dictionary
Message-Id: <6fa25j$i78@fridge.shore.net>
Ed Finch (efinch@vais.net) wrote:
: Perl is going to take over the world. Therefore, the word perl and its
: derivitives are going to become part of everyday speech, just as "dude"
: is now. I propose the Perl Dictionary in order to establish - for those
There's something of a Perl dictionary/glossary in the back of PP2; a
great start me thinks.
--
Nathan V. Patwardhan
------------------------------
Date: 25 Mar 1998 02:04:34 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Send Joke Script Help!
Message-Id: <6f9oni$991$3@client3.news.psi.net>
j0kemaster@aol.com (j0kemaster@aol.com) wrote on MDCLXVII September
MCMXCIII in <URL: news:6f9n2t$3ft$1@nnrp1.dejanews.com>:
++ I am working on a joke site and i would like
++ to have a cgi script were a person reading the
++ joke can send the joke and a message they
++ entered to the specified e-mail address. If
++ someone can script it for me or tell me where
++ to find it I would greatly appreciate it!
This is not a gimme, gimme, gimme group.
Hire a programmer if you need a complete program. And no, placing
a job ad here is considered inappropriate.
Abigail
--
perl -we '%_ = map {local $_ = $_; y/a-z/n-za-m/; ($_, $_)} @_ = map {lc} <>;
print grep {$_{$_}} @_' < /usr/dict/words
------------------------------
Date: Wed, 25 Mar 1998 13:28:57 +1000
From: bigiain@mightymedia.com.au (Iain Chalmers)
Subject: Re: Send Joke Script Help!
Message-Id: <bigiain-ya02408000R2503981328570001@news.ozemail.com.au>
j0kemaster@aol.com wrote:
> I am working on a joke site and i would like
> to have a cgi script were a person reading the
> joke can send the joke and a message they
> entered to the specified e-mail address.
i dunno about that, but Randal posted a good joke script in another thread
earlier today:
> Wef> How do these rates compare....????
>
> my $compare = "45/hour" <=> "100/hour";
> print "looks like 45/hour is ",
> ("less than","equal","greater than")[$compare + 1],
> " 100/hour\n";
well, it made me laugh...
Iain Chalmers
bigiain@mightymedia.com.au
------------------------------
Date: Tue, 24 Mar 1998 20:23:51 -0500
From: Andrew Starr <atstarr@negia.net>
Subject: Re: WEB Based E-mail Reader.
Message-Id: <atstarr-2403982023510001@enews.newsguy.com>
In article <6f8djv$tp9$1@nnrp1.dejanews.com>,
jglopez@javercol.javeriana.edu.co wrote:
> Does anyone know were can I get an Email that let me read my mail by WEB, I
> don't need special features, just read my POP account mail :).
http://www.eudoramail.com lets you enter multiple pop accounts for it
to check (and will leave mail on the server for normal downloading
later).
ObPerl: You can install your own Perl/CGI pop3/smtp-via-web client:
http://www.endymion.com/portfolio/software/scripts/mailman.htm
--
Andrew Starr <http://www.amherst.edu/~atstarr>
Eudora Info: <http://www.ka.net/eudora> FAQs: <http://www.faqs.org/faqs>
Free notification of software updates: (I don't make money from this.)
<http://www.versions.com/a_referrers/Andrew_Starr/Andrew_Starr.html>
------------------------------
Date: Tue, 24 Mar 1998 23:04:06 GMT
From: gb@hugo.westfalen.de (Georg Bauer)
Subject: Re: what is wrong with being a novice ??
Message-Id: <1d6f6ek.4kq1l1goe5vnN@hugo.westfalen.de>
DRS <simpsond@tig.com.au> wrote:
> What is wrong with it is that the vast majority of people - especially
> newbies - are not using UNIX.
Ok. What's wrong with perldoc perlfaq?
And don't talk about UNIX now. This works with all Perl versions I
worked with, except the Mac - there you have to use Shuck. And yes, it
works with win32, too. I am very seldom in the happy situation to use
Perl on a UNIX box.
bye, Georg
--
http://www.westfalen.de/hugo/
------------------------------
Date: Tue, 24 Mar 1998 22:07:26 -0500
From: Birgitt Funk <birgitt@order.booktraders.com>
Subject: Re: Why hasn't there been a vote on moderating cplm yet ?
Message-Id: <351874EE.EEF95889@order.booktraders.com>
John Stanley wrote:
>
> In article <3518164B.24E66EF9@order.booktraders.com>,
> Birgitt Funk <birgitt@order.booktraders.com> wrote:
>
> You are discussing this in the wrong group, but hey, why not?
>
I apologize, I was hesitating to post my question here, but
was not sure where else to go with it. I don't read any other
news groups.
Thanks for pointing me in the right direction. Anything in
response to your address.
Birgitt Funk
------------------------------
Date: Wed, 25 Mar 1998 02:22:17 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: {block} orinted <FILE> descriptors
Message-Id: <slrn6hgqg6.gfi.jgloudon@manitoba.bbn.com>
Joonas Timo Taavetti Kekoni <jkekoni@cc.hut.fi> wrote:
>How can i make a rutine recursive structure so that i can use different
>file in diffrent step. I have only found an (ugly?) workaround.
>The filedescriptors seem to default global and I can't change it.
>
>I can't declare my <INFILE> it is not the way it goes.
>--- this looks horrible workaround, Is there a better way for doing that?---
Try Looking at IO::Handle and IO::FileHandle for simple ways to create
passable filehandles.
--
Jason Gloudon
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.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 2176
**************************************
