[11015] in Perl-Users-Digest
Perl-Users Digest, Issue: 4615 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 10 23:01:53 1999
Date: Sun, 10 Jan 99 20:00:17 -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 Sun, 10 Jan 1999 Volume: 8 Number: 4615
Today's topics:
ActiveState Perl Package Manager problem. <duraip@extendsys.com>
Re: Browser History with Perl <jamesht@idt.net>
Re: BUG: getpwnam()? - Perl shipped with RedHat5.2 (M.J.T. Guy)
Re: Can't get any message in newsgroup (Martien Verbruggen)
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <tekennedy@usa.net>
Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! <tekennedy@usa.net>
Displaying and entering data for drop down boxs <hotdogboy@Icdc.com>
Re: eliminating lines with no data <uri@home.sysarch.com>
Re: Extended version of "hex" (M.J.T. Guy)
Newbie: Recursive data structure with recursive subrout <root@gate.gate.net>
NT/Perl Extensions <administrator@arkmola.net>
Re: NT/Perl Extensions <jamesht@idt.net>
Re: Objects and Methods and Refs - Oh My! <jamesht@idt.net>
PERL information... <dstern@i.am>
Re: PERL information... <design@raincloud-studios.com>
Perl Script problems <frankhale@worldnet.att.net>
Re: Perl Script problems (M.J.T. Guy)
Re: Prefilling a form - how to? <jamesht@idt.net>
Re: Rambling through hash.... <jamesht@idt.net>
Using PerlScript with MS Personal Web Server (ASP) <praveen@stones.com>
Re: Verify an email address (M.J.T. Guy)
Re: Verify an email address (M.J.T. Guy)
Re: Verify an email address (David Formosa (aka ? the Platypus))
Re: You what ? (was Re: CONCLUSIVE PROOF: Jesus *is* Ki (Joseph Hertzlinger)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 10 Jan 1999 19:08:35 -0700
From: "PJ Durai" <duraip@extendsys.com>
Subject: ActiveState Perl Package Manager problem.
Message-Id: <369a3ddf.0@news.hkc.net>
Hello people,
When I try to use the PPM stuff in my win 98 (perl AS build 509), the search
command works ( it manages to pull loads of package names off the
internet.).
But when I say "install Tk" it breaks with
no element found at line 1, column 0, byte -1 at
C:\PERL\site\lib/XML/Parser.pm
line 117
Same error if I use "verify" command.
Any ideas ?
Appreciate your time.
pj
------------------------------
Date: Sun, 10 Jan 1999 20:11:04 -0500
From: jamesht <jamesht@idt.net>
To: Bob Tate <btate@primary.net>
Subject: Re: Browser History with Perl
Message-Id: <36994FA8.349F3531@idt.net>
Hello,
Netscape doesn't make it easy to view the details of the browser history.
What you should try doing instead is viewing $ENV{'HTTP_REFERER'}. This will
tell you the last place they were, if it's defined. Anything prior to that is
pretty much considered none of your business, and should be treated that way.
hth
James
------------------------------
Date: 11 Jan 1999 01:40:43 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: BUG: getpwnam()? - Perl shipped with RedHat5.2
Message-Id: <77bkqr$bqc$1@pegasus.csx.cam.ac.uk>
DumbKid <dumbkid@ix.netcom.com> wrote:
>
>I have install RedHat5.2 in both Intel and Alpha machines.
>I have no way to get the "realname" of the users in /etc/passwd
>file using Perl5.005m4-1
For reasons known only to RedHat, they shipped release 5.2 with an
unsupported, unreleased development version of Perl. It has various
problems. I don't know if this is one of them, but before proceeding
further, install a released version of Perl from CPAN.
Mike Guy
------------------------------
Date: Mon, 11 Jan 1999 01:53:22 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Can't get any message in newsgroup
Message-Id: <mQcm2.172$Co2.7228@nsw.nnrp.telstra.net>
[Posted and emailed]
In article <3699380C.ABBCDEED@xs4all.nl>,
Frank de Bot <debot@xs4all.nl> writes:
> This is a multi-part message in MIME format.
Don't do this. Usenet is a plain text medium.
Both HTML and Vcards have no function here. Please configure your
browser not to send either.
> This is the Final attempt to post a message in this newsgroup. (I've
> send several mails and none of them showed up)
There are groups specifically for testing these things. They have
'test' somewhere at the end of their name.
[SNIP of 10 line signature]
It is generally considered bad practice to have a signature of more
than 4 lines. Since yours contains a lot of irrelevant material, as
well as unnecessary blank lines, I suggest you rewrite it.
If you're new to Usenet, I suggest you visit the
news.announce.newusers group, and read some of the stuff about usenet
etiquette.
HTH,
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | We are born naked, wet and hungry. Then
Commercial Dynamics Pty. Ltd. | things get worse.
NSW, Australia |
------------------------------
Date: Sun, 10 Jan 1999 18:18:54 -0600
From: "Slick69" <tekennedy@usa.net>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <77bl5h$dq1$2@ionews.ionet.net>
I'm Roman Catholic......but I still find this one rather
creative............
I've never heard it before...........
--
=) =) =) =) =)
Ed
FUCAUFLED wrote in message <19990110044749.01577.00007424@ng36.aol.com>...
>
>"It sure seems fitting that your entire religion is based on worshiping a
dead
>jew on a stick"
>
> - Ron Kuby
>
>
------------------------------
Date: Sun, 10 Jan 1999 18:17:42 -0600
From: "Slick69" <tekennedy@usa.net>
Subject: Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ! ! !
Message-Id: <77bl5g$dq1$1@ionews.ionet.net>
WRONG ANSWER, BUB!
I was in the Navy for time, and let me tell you now, I experienced hell
firsthand...........
--
=) =) =) =) =)
Ed
duz wrote in message ...
>
>that and there is no hell
>
>Porky wrote in message <77aekm$hpd$1@comet3.magicnet.net>...
>> Man! You are so lucky that Jesus is not vindictive. Otherwise you
will
>>have "Hell to Pay"!
>>
>>
>
>duz
>-
>http://listen.to/duz
>http://thinker.findhere.com
>icq:19173887
>**** TO GET MY EMAIL ADDRESS YOU MUST VISIT MY PAGE ****
>
>{hey spammers here's some meat}
>
>uce@ftc.gov
>wkennard@fcc.gov
>sness@fcc.gov
>hfurchtg@fcc.gov
>mpowell@fcc.gov
>gtristan@fcc.gov
>
>
>
>
>
------------------------------
Date: Sun, 10 Jan 1999 18:59:37 -0500
From: "Alan Copeland" <hotdogboy@Icdc.com>
Subject: Displaying and entering data for drop down boxs
Message-Id: <77beop$92d$1@remarQ.com>
I've got a dill of a pickle in the database program i'm writing. Here what
I wanted: I have a file with the names of book genres, sepereatae by commas
(e.g. comedy,young adult,fiction) Then I wanted a function to read these
and put them in a drop down box for selection. Here was what I wrote:
$genres = "/data/genre.dat";
print "<html>\n<head><title> Database</title></head>\n";
print "<body>\n";
print "Please select a Genre\n";
print "<SELECT NAME = \"field\">\n";
{
open (GENRE, "$genres");
while (<GENRE>)
{$storytypes = $_; }
close (GENRE);
@split_storytypes = split (/\,/, $storytypes);
}
$count=0;
foreach $split_storytypes (@split_storytypes)
{
print "<OPTION value =\"$count\">$split_storytypes\n";
$count++;
}
print "</select>\n";
print "</html, etc, etc, etc>"
I belived that should work, but it dosn't for some reason. In the source for the output, I get and <OPTION VALUE = 0> but nothing else. No error messages or nothing.
I also wanted people to be able to add there own items to the file I used this:
print "or add a new one\n";
print "<p><INPUT type=\"text\" name=\"newgenre\">\n";
print "<INPUT type=\"submit\" name=\"addgenre\" value=\"Add\">\n";
{
open (GENRES, ">>$genres");
print GENRES "$newgenre\n";
close (GENRES);
print "The item was added to the index";
}
This dosn't work either. No error messages. It runs, displays the "item was added to the index" message, but when I open the file, it is not there.
What is up with these two functions? I poured over them for hours, and can't really see anything thats going funky. I suppose once some outside eyes see it, they will spot a flaw and immediatly and point me true. Any help would be gladly accepted.
Alan
(Hotdogboy@icdc.com)
------------------------------
Date: 10 Jan 1999 19:14:38 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: eliminating lines with no data
Message-Id: <x7ww2uis29.fsf@home.sysarch.com>
>>>>> "ICF" == Ion Chalmers Freeman <ion@aroma.com> writes:
ICF> A.,
ICF> OK. I wrote one that works:
ICF> my $line; my $filename = "C:/junk.txt";
ICF> open IN, $filename or die "Cannot read $filename: $!";
ICF> @lines = <IN>;@lines = @lines[10,17];#get lines ten and seventeen
ICF> grep(s/-|\n//g,@lines); #without newlines or hyphens
uncool to use grep in a void context. better as
foreach (@lines) {s/-|\n//g}
or in 5.005
s/-|\n//g foreach @lines ;
but deleting chars is much simpler and faster with tr
tr/-\n//d foreach @lines ;
ICF> for $line(@lines){ #get the lines ten and seventeen in sequence
ICF> if ($line){ #test if the variable has any content -- this test will fail
ICF> if there was no line seventeen
ICF> print 978, $line, "\n"; #print each line preceded by '978' and
you never chomp the line so you will have 2 newlines. i kept this
behavior below.
this is a nice effort but can be improved a fair amount. have you ever
heard of $.? also you should know about next and loops. you use 4
separate loops here
@lines = <IN>;@lines = @lines[10,17];#get lines ten and seventeen
1 2
grep(s/-|\n//g,@lines);
3
for $line(@lines){
4
why not use one loop and skip the lines when they fail:
while( <IN> ) {
next unless $. == 10 || $. == 17 ;
# skip lins with all - or empty. $ will match before the trailing \n
next unless /^-*$/ ;
print "978$_\n" ;
}
1 loop and 4 lines of code (you could merge the next statements if you wish).
simple and easy to understand.
just reverse how you think about processing lines from positive logic to
negative. perl loves this type of design.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 11 Jan 1999 01:50:04 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Extended version of "hex"
Message-Id: <77blcc$c6k$1@pegasus.csx.cam.ac.uk>
In article <369504BA.19E73E92@ngb.se>, Staffan Liljas <staffan@ngb.se> wrote:
>
>This should work (though I haven't tried it). I dont know what the
>ordinary perl limit is on ints, so maybe you have to use some module for
>larger integers. The number 0xFFF1FFF2FFF3FFF4 is around 2^64, i.e.
>10^22, and I don't know what perls limit is. Check CPAN.
Perls limits are platform dependent. If a number is too large to be
stored in an integer, Perl automatically uses a float instead.
But on most platforms, floats have only 53 significant bits, so you'll
lose the less significant bits of that number.
You probably need to investigate the built-in module Math::BigInt,
or one of the more exotic things on CPAN.
Mike Guy
------------------------------
Date: Sun, 10 Jan 1999 21:15:38 -0500
From: <root@gate.gate.net>
Subject: Newbie: Recursive data structure with recursive subroutine.
Message-Id: <Pine.LNX.3.96.990110204454.268A-100000@gate.gate.net>
I am fairly new to perl, and completely new to comp.lang.perl.misc. I
have recently undertaken a most demanding (for me at least) perl project.
It involves a program which parses a text file and produces a recursive
data structure from the data contained in this file. The data structure is
an array of hashes. These hashes contain several scalars as well as an
array. However, the hash can also, under certain conditions, contain
another array, namely the same highest level array previously
mentioned. This recursion might continue for a great number of levels,
depending on what is contained in the input text file.
The highest level array is produced by a subroutine. I need to know how to
call this subroutine and what the subroutine should return. I know the
solution involves references of some sort. Currently I am approaching the
problem from this direction:
$TopLevelArray[$indexnum] = createsub ();
sub createsub
{
my (%localhash,$localindexnum);
while (<INPUTFILE>) { #continue reading through text file
do something to fill in %localhash;
if (certain conditions) {
$localhash{$TopLevelArray[$localindexnum]} = createsub ();
}
return %localhash;
}
}
Needless to say, this code doesn't work. I suspect that the problem lies
with the two subroutine calls. I would like for createsub to return a hash
which becomes one element of $TopLevelArray. Furthermore, createsub should
be able to call itself in order to fill one of the keys of the hash with
another $TopLevelArray-like construct. Specifically, one key of the hash
contains an array. createsub calls itself to fill one element of this
array with another hash. You might be wondering why the hash is to contain
an array, instead of another hash directly. After the first element of the
lower level array is filled with a hash, more elements may be filled with
yet more hashes after the child createsub reports back to the parent
createsub. OR the child createsub may spawn children createsubs of its
own.
I apologize for the rather long-winded posting, but I wanted to be as
clear and explicit as possible. I thank in advance all those that reply.
------------------------------
Date: Sun, 10 Jan 1999 17:58:40 -0600
From: "Bo Clower" <administrator@arkmola.net>
Subject: NT/Perl Extensions
Message-Id: <77bes9$moq$1@remarQ.com>
I need to load the latest Perl extensions on my NT 4.0 server. I am running
iis 3.0 and have never dealt w/ Perl. Where can I get them and how do I
install them. Please help.
Bo Clower
administrator@arkmola.net
------------------------------
Date: Sun, 10 Jan 1999 19:54:03 -0500
From: jamesht <jamesht@idt.net>
To: Bo Clower <administrator@arkmola.net>
Subject: Re: NT/Perl Extensions
Message-Id: <36994BAB.9F1A7E29@idt.net>
Hello,
www.activestate.com
By the way, why are you still running iis 3.0? The version 4 upgrade is 'free'
from you know who.
James
------------------------------
Date: Sun, 10 Jan 1999 19:51:27 -0500
From: jamesht <jamesht@idt.net>
To: phraktyl@home.com
Subject: Re: Objects and Methods and Refs - Oh My!
Message-Id: <36994B0F.FC2C47E4@idt.net>
Hello,
Interesting problem. It sounds an awful lot like the Strategy pattern from
the Gang of Four book (Design Patterns).
Without knowing more about your specific problem, here's my best guess:
1) I'd use an object reference instead of a reference to a subroutine. This
will give you more flexibility later on. You can then write different
classes which will all have a method called logger. Later, if you want to
extend the behavior, you'll be able to write another routine in that object.
2) $self->logger; is fine. even shift->logger; or so I've seen. If you're
going to use an object ref instead of a method ref, say this:
$self->logger->logger;
3) Use an object if you think that you want to extend the functionality
later. It's more flexible. One object per strategy (log to Oracle, log to
textfile, log across the network, etc...) If you want to store the config
variables in a textfile, that's fine if you're the only person who might
ever run it, and only on that machine. Otherwise, I'd advise you to load the
configuration within the script, in the object's constructor:
$thing = new Class(blah => blah, etc => etc);
This way, you won't have your code in different places, where it could get
lost or out of sync. Another thing you could do to make it easier for
yourself is to use default configurations (in other words, keep the config
in the object itself, but not etched in stone):
sub new {
my $class = shift;
#
# Here, we'll accept the argument if there is one, otherwise use the
default.
#
my $arg = @_[0] or new Config;
$self = {};
$self->{'config'} = $arg;
bless($self, $class);
return $self;
}
Like I said, I don't know much about what you're trying to do, but I think
that this advice should stand up under most circumstances.
hth,
James
------------------------------
Date: Mon, 11 Jan 1999 00:36:41 -0500
From: "Danny Stern" <dstern@i.am>
Subject: PERL information...
Message-Id: <77bo0p$onb$1@winter.news.rcn.net>
Can someone point me to a good PERL tutorial or example library on the web?
Thanks. Please e-mail me it as well, if possible.
dstern@i.am
------------------------------
Date: 11 Jan 1999 03:24:38 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: PERL information...
Message-Id: <77bqtm$qpo@bgtnsc02.worldnet.att.net>
Danny Stern wrote in message
<77bo0p$onb$1@winter.news.rcn.net>...
>Can someone point me to a good PERL tutorial or example library
on the web?
>Thanks. Please e-mail me it as well, if possible.
>dstern@i.am
Although a book, the Camel book "Learning Perl" really seems
popular around these parts. I started in other ways, but found
it to be the most helpful in getting started right.
Chapter 1, A Stroll Through Perl is a good starting point to the
basics of the Language, IMO.
If you look around, I'm sure it is duplicated on the Web
somewhere.
CT
------------------------------
Date: 11 Jan 1999 00:58:04 GMT
From: Frank Hale <frankhale@worldnet.att.net>
Subject: Perl Script problems
Message-Id: <36994D19.B2AB453A@worldnet.att.net>
I have a perl script which starts my internet connection in Linux. It
works for root but gives the following error when executed by a user.
Insecure $ENV{BASH_ENV} while running setuid at /usr/local/bin/ppp-on
line 32.
Here is the code that pertains to the error.
$command="/usr/sbin/pppd name \"".$NAME."\"".
" -d connect \'/usr/sbin/chat -t 45 -v ABORT BUSY \"\" ATDT".
$PHONE." CONNECT \"\"\' ".$MODEM.
" 115200 noipdefault modem defaultroute crtscts";
$ENV{'PATH'} = ''; # Make $ENV{'PATH'} untainted
system($command);
What is wrong with it that would make it not able to execute as a user?
Thanx....
--
From: Frank Hale
Email: frankhale@worldnet.att.net
ICQ: 7205161
Homepage: http://members.xoom.com/frankhale/
Jade: http://jade.netpedia.net/
------------------------------
Date: 11 Jan 1999 01:37:12 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Perl Script problems
Message-Id: <77bkk8$bnt$1@pegasus.csx.cam.ac.uk>
Frank Hale <frankhale@worldnet.att.net> wrote:
>I have a perl script which starts my internet connection in Linux. It
>works for root but gives the following error when executed by a user.
>
>Insecure $ENV{BASH_ENV} while running setuid at /usr/local/bin/ppp-on
>line 32.
Whenever you get an error message from Perl which you don't fully
understand, your first step should be to look it up in "perldoc perldiag".
Here, I'll do it for you:
Insecure $ENV{%s} while running %s
(F) You can't use system(), exec(), or a piped open in a
setuid or setgid script if any of $ENV{PATH}, $ENV{IFS},
$ENV{CDPATH}, $ENV{ENV} or $ENV{BASH_ENV} are derived
from data supplied (or potentially supplied) by the
user. The script must set the path to a known value,
using trustworthy data. See the perlsec manpage.
If you're playing around with setuid scripts, you're living very
dangerously unless you have read and understand perlsec thoroughly,
so you understand why Perl thinks it's a good idea to harass you like this.
In particular, it tells you that you can probably deal with your
particular problem with
delete $ENV{BASH_ENV};
but there are probably lots of other security related things you need to do.
Mike Guy
------------------------------
Date: Sun, 10 Jan 1999 19:19:14 -0500
From: jamesht <jamesht@idt.net>
To: n2zen@concentric.net
Subject: Re: Prefilling a form - how to?
Message-Id: <36994382.C77FE30E@idt.net>
Hello,
I think that the easiest way to do this is to create an html page stored
on your local machine which holds the form, already filled in, and that
has a javascript which would onload="document.forms[0].submit();" Then
you bookmark it.
Perl is unnecessary for this. It's childsplay. Mail me if you need any
help with this.
James
------------------------------
Date: Sun, 10 Jan 1999 19:25:48 -0500
From: jamesht <jamesht@idt.net>
To: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: Rambling through hash....
Message-Id: <3699450C.F3F76AE4@idt.net>
Hello,
Looks ok to me, but I'd use ``$rm_data{$item}'' instead of ``rm_data{$item}''. The keys will be 'out of order' for reasons of efficiency.
Use 'sort' to arrange them - (sort keys %whatever).
James
------------------------------
Date: Sun, 10 Jan 1999 22:23:40 -0500
From: Praveen <praveen@stones.com>
Subject: Using PerlScript with MS Personal Web Server (ASP)
Message-Id: <36996EBC.A7B98B89@stones.com>
Tryin to use PerlScript in ASP pages on personal web server. NT
workstation4.0.
ActivePerl 509. I 've an asp page :
<%@ LANGUAGE=PerlScript %>
<HTML>
<BODY>
<% $Response->Write ("HELLO"); %>
</BODY>
</HTML>
It gives me following error in the web browser :
$Response->writeblock(0); $Response = $main::Response; error '80004005'
Can't call method "writeblock" on an undefined value.
?
Any help ??
------------------------------
Date: 11 Jan 1999 00:48:22 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Verify an email address
Message-Id: <77bhom$9jp$1@pegasus.csx.cam.ac.uk>
Allan M. Due <due@murray.fordham.edu> wrote:
>From the FAQ
>_____
>Many are tempted to try to eliminate many frequently-invalid email addresses
>with a simple regexp, such as /^[\w.-]+\@([\w.-]\.)+\w+$/.
>_________
>Except the regexp above does not work for even something simple like
>name@domain.tdl
You're quite right. There's an obvious typo -- missing +.
The regexp should read
/^[\w.-]+\@([\w.-]+\.)+\w+$/
>FAQ version:
>/^[\w.-]+\@([\w.-]\.)+\w+$/
>
>works:
>/^[\w.-]+\@[\w.-]+\.\w+$/
That will accept invalid things like a@x..y .
>and do we really need to escape the @ in this case?
In general, it's a good idea to escape it, as @ is a special character
in regexen, and @( is a valid array. But in fact, by an
(AFAIK undocumented) special case, it happen to work in this case.
The reason is that there is a special case for $/, $( and $), where the $
is _not_ regarded as starting a variable name. And it seems this
special dispensation also applies to @/, @( and @). I certainly
wouldn't rely on it staying like that.
Mike Guy
------------------------------
Date: 11 Jan 1999 00:59:02 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Verify an email address
Message-Id: <77bicm$a0j$1@pegasus.csx.cam.ac.uk>
M.J.T. Guy <mjtg@cus.cam.ac.uk> wrote:
>Allan M. Due <due@murray.fordham.edu> wrote:
>
>You're quite right. There's an obvious typo -- missing +.
>The regexp should read
>
> /^[\w.-]+\@([\w.-]+\.)+\w+$/
>
>>FAQ version:
>>/^[\w.-]+\@([\w.-]\.)+\w+$/
>>
>>works:
>>/^[\w.-]+\@[\w.-]+\.\w+$/
>
>That will accept invalid things like a@x..y .
Ooops. After posting that, I realise that the "corrected" FAQ regexp
also has that defect. Make it
/^[\w.-]+\@([\w-]+\.)+\w+$/
Mike Guy
------------------------------
Date: 11 Jan 1999 01:52:18 GMT
From: dformosa@zeta.org.au (David Formosa (aka ? the Platypus))
Subject: Re: Verify an email address
Message-Id: <slrn79imai.5cc.dformosa@godzilla.zeta.org.au>
In article <77bhom$9jp$1@pegasus.csx.cam.ac.uk>, M.J.T. Guy wrote:
[...]
>>works:
>>/^[\w.-]+\@[\w.-]+\.\w+$/
>
>That will accept invalid things like a@x..y .
And reject valid things like
postmaster@[127.0.0.1]
--
Please excuse my spelling as I suffer from agraphia. See
http://www.zeta.org.au/~dformosa/Spelling.html to find out more.
How to win arguments on usenet http://www.zeta.org.au/~dformosa/usenet.html
------------------------------
Date: 11 Jan 1999 02:00:01 GMT
From: jhertzli@ix.netcom.com(Joseph Hertzlinger)
Subject: Re: You what ? (was Re: CONCLUSIVE PROOF: Jesus *is* King of the Jews ...)
Message-Id: <77blv1$9r0@dfw-ixnews6.ix.netcom.com>
In <77ahtn$ud$1@gellyfish.btinternet.com> Jonathan Stowe
<gellyfish@btinternet.com> writes:
><snip possibly the *most* OT if not provocative post ever>
>
>I would draw your attention to various interesting elements of this
post.
>
>A) Anonymous posting
>
>B) Bizarre crossposting
>
>C) The extra groups in the followups
>
>Of course the poster could possibly used Perl in his 'calculations'.
Matthew 7:6 Give not that which is holy unto the dogs, neither cast ye
your perls before swine...
------------------------------
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 4615
**************************************
