[16077] in Perl-Users-Digest
Perl-Users Digest, Issue: 3489 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 27 06:05:26 2000
Date: Tue, 27 Jun 2000 03:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <962100308-v9-i3489@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 27 Jun 2000 Volume: 9 Number: 3489
Today's topics:
Re: Can XS or SWIG interface a perl script to Java subr <peter@accesss.com.au>
CGI Business Directory <robb@qnet.com>
Re: dbi oracle Select example <greendot@SPIRITONE.COM>
Re: dbi oracle Select example <rootbeer@redcat.com>
Executing Perl scripts from within a web browser <radar@jetstream.net>
file name and line number eastking@my-deja.com
Re: file name and line number <rootbeer@redcat.com>
hash and translation <ppo@infovista.fr>
Re: host lookup; gethostbyaddr <rootbeer@redcat.com>
how could I upload the files with a specified user and (TSOI_WING_SHING)
IIS5 & ActivePerl: No aspSamples work ! sachin_h@hotmail.com
Location of 'use strict' in a script <blah@nospam.com>
Re: Location of 'use strict' in a script (Abigail)
Re: Net::FTP not on CPAN <methabol@hem.passagen.se>
non-obfuscated RSA implementation? jlamport@calarts.edu
Re: Number of Unique Values (Abigail)
Re: Number of Unique Values <mdemello@pound.ruf.rice.edu>
Re: Number of Unique Values (Gwyn Judd)
Re: Number of Unique Values (Abigail)
OpenSSL/SSLeay problems help me <rob9428@swbell.net>
Pricelist... How to ? <major@chello.se>
Re: Server push problem <sami.maki@nokia.com>
Re: Simple regular expression question (jason)
Solution needed <tokyo@impcourt.org>
Re: Where is IO::Handle::error() defined? <rootbeer@redcat.com>
Re: Who's the man? You can be(ginner) <abe@ztreet.demon.nl>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 27 Jun 2000 15:10:29 +1000
From: "Peter G. Martin" <peter@accesss.com.au>
Subject: Re: Can XS or SWIG interface a perl script to Java subroutines ???
Message-Id: <39583745.2862CF0A@accesss.com.au>
gdpusch@NO.xnet.SPAM.com wrote:
>
> I have a complicated package of suffix-tree subroutines written in Java
> that I've just downloaded from DDJ, and would like to be able to call from
> a perl script. Can I do this using XS or SWIG? If so, does anyone know the
> URLs of any examples I could look at ???
Check out the JPL stuff Larry Wall originally developed for O'Reilly.
It's supposed to be included in core Perl 5.6.0, so maybe it's in
the new docs.
--
--peter@access.com.au -- Peter G. Martin, Tech writer
mobile: 04 08 249 113 Home: peterm@zeta.org.au
Home page: http://www.zeta.org.au/~peterm
"Regexes::Text as Numbers::Mathematics."
------------------------------
Date: Tue, 27 Jun 2000 00:55:38 -0700
From: "Robb Charlton" <robb@qnet.com>
Subject: CGI Business Directory
Message-Id: <39585c71@news.qnet.com>
Hello,
I'm looking for a cgi program that I once saw online. It's for creating
a directory of local businesses and letting people do keyword searches of
that data. It integrates with MS Access. Can anyone help?
Thanks,
Robb
------------------------------
Date: Mon, 26 Jun 2000 21:36:23 -0700
From: Robert <greendot@SPIRITONE.COM>
Subject: Re: dbi oracle Select example
Message-Id: <39582F47.92315125@SPIRITONE.COM>
I don't have the docs dbi or the language. I'm trying to decide if Perl is
the language I want to go with. Is there somewhere I can download the docs
from?
Thanks
Robert
Tom Phoenix wrote:
> On Sun, 25 Jun 2000, Robert wrote:
>
> > Does anyone have a simple dbi based Oracle select query example?
> > I would just like to see how you execute a select statement on an
> > oracle db.
>
> That sounds pretty basic. Isn't it covered adequately in the docs? Cheers!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 26 Jun 2000 22:29:00 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: dbi oracle Select example
Message-Id: <Pine.GSO.4.10.10006262228040.578-100000@user2.teleport.com>
On Mon, 26 Jun 2000, Robert wrote:
> I don't have the docs dbi or the language. I'm trying to decide if
> Perl is the language I want to go with. Is there somewhere I can
> download the docs from?
Well, you could just download everything you want. But much of the
documentation that (I think) you want is available through the CPAN search
engine.
http://search.cpan.org/
Enjoy!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 26 Jun 2000 22:35:35 -0700
From: "Dragonia Radar Freedom, C.S." <radar@jetstream.net>
Subject: Executing Perl scripts from within a web browser
Message-Id: <39583D27.2FB11CAE@jetstream.net>
I'm trying to get a simple script to run from within a web browser.
Here's the code:
test.html
----------------------------------
<html>
<form action="/d:/temp/test.pl" method="post">
<input TYPE="submit" VALUE="Test!">
</form>
</html>
----------------------------------
test.pl
----------------------------------
MAIN:
{
open (TEST, ">c:/test.txt");
print TEST "This is a test.\n";
close (TEST);
}
----------------------------------
<note that I'm now in Windows because I couldn't get this to work in
Linux Mandrake>
Here's what happens:
Netscape 4.73 Linux: Nothing
Bash Linus Mandrake: The file is created as desired
Netscape 4.73 Win2k: Nothing
IE 5: Open/Save File
DOS Prompt Win2k: The file is created as desired
In Windows, .pl files are associated with the perl command line
interpreter.
In Linux, I have checked the permissions on the directory where I
attempt to store the file. They're all rwx rwx rwx. Here's where I've
tried storing the file:
/tmp
/home/dragonia
/home/dragonia/tmp
----------------------------------
Any and all help would be greatly appreciated. I've been searching
FAQs, reading books, looking at sites trying to get this working for
about 11 hours now and I'm a bit frustrated at this point in time.
Please note that I've been using Linux for about 2 weeks now and am
still something of a newbie. In Windows, I could be considered
extremely advanced, but that's really not saying much.
------------------------------
Date: Tue, 27 Jun 2000 04:11:41 GMT
From: eastking@my-deja.com
Subject: file name and line number
Message-Id: <8j99hi$h98$1@nnrp1.deja.com>
Hello, every one.
I am writing a common-used perl script to write log
by "writelog" method.I want to know the file name in which the writelog
method was called,so as line number.How can I do it. Thank in advance.
for example
log.pl:
sub writelog {
$msg = shift
print LOGFILE $file.$line.$msg;
}
call.pl
1 writelog($msg);
in log.pl , How can I know $file="call.pl" and $line=1 ?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 26 Jun 2000 21:59:09 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: file name and line number
Message-Id: <Pine.GSO.4.10.10006262158410.578-100000@user2.teleport.com>
On Tue, 27 Jun 2000 eastking@my-deja.com wrote:
> I want to know the file name in which the writelog
> method was called,so as line number.
See the caller() function, documented in the perlfunc manpage. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 27 Jun 2000 11:38:25 +0200
From: "Pascal POTTIER" <ppo@infovista.fr>
Subject: hash and translation
Message-Id: <8j9su1$hou$1@reader1.fr.uu.net>
I'm sorry to as such a basic question, but i am not a Perl expert :(.
I have a hash with translations { "bread" => "pain" , "stupid" => "stupide"
, "Microsoft" => "split" } that i want to apply to a string.
My basic way of doing it is with foreach on the keys of the hash and then
with replacement (i need help on replacement too !!!)
Is there any other way more efficient as the hash and the string will be
very large ?
Thank you all,
Pascal.
------------------------------
Date: Mon, 26 Jun 2000 21:49:38 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: host lookup; gethostbyaddr
Message-Id: <Pine.GSO.4.10.10006262145170.578-100000@user2.teleport.com>
On Mon, 26 Jun 2000, Kevin Simmons wrote:
> I am using gethostbyaddr to lookup internet IP addresses to hostnames. I am
> processing many records and would like to be able to control the timeout and
> retry values such as can be done when using nslookup.
It looks to me as if that's possible with Net::DNS.
http://search.cpan.org/search?dist=Net-DNS
Whether you can do what you asked or not, you can use Net::DNS to do a
query in the background while other processessing is going on. So you
could issue several requests in parallel, rather than waiting for each one
to complete before continuing. That may be a useful solution as well.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 27 Jun 2000 09:45:26 GMT
From: wstsoi@ee.cuhk.hk (TSOI_WING_SHING)
Subject: how could I upload the files with a specified user and group?
Message-Id: <8j9t3m$sqf$1@eng-ser1.erg.cuhk.edu.hk>
As title, thanks.
------------------------------
Date: Tue, 27 Jun 2000 04:27:35 GMT
From: sachin_h@hotmail.com
Subject: IIS5 & ActivePerl: No aspSamples work !
Message-Id: <8j9af9$i06$1@nnrp1.deja.com>
Hi all ,
I have just tried installing ActivePerl on a Win2k machine
which has IIS5.0 installed . Now the WSH examples work just fine
but when I try launching any of the ASP samples then nothing works .
ActiveState does state that they know this to be a problem and
will fix it in an upcoming release . I was wondering if any one
knows of any workaround or an approximate date to when this fix will
be available .
Any help would be great since my project needs to be delivered on
a Win2000 platform itself .
Thanx in advance,
Sachin .
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 27 Jun 2000 11:22:32 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Location of 'use strict' in a script
Message-Id: <39587258.424494A4@nospam.com>
Hi,
Do you think that the 'use strict' clause should be the very first
statement of a script--i.e. before any other 'use' requirement--or that
it has to come after external module inclusions? In this case, what if
a required module does not follow the rules of "strict-ness"?
Best regards,
Marco
------------------------------
Date: 27 Jun 2000 05:42:17 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Location of 'use strict' in a script
Message-Id: <slrn8lgupm.ka1.abigail@alexandra.delanet.com>
Marco Natoni (blah@nospam.com) wrote on MMCDXCII September MCMXCIII in
<URL:news:39587258.424494A4@nospam.com>:
__
__ Do you think that the 'use strict' clause should be the very first
__ statement of a script--i.e. before any other 'use' requirement--or that
__ it has to come after external module inclusions? In this case, what if
__ a required module does not follow the rules of "strict-ness"?
It doesn't matter. "use strict;" has effects on the current lexical
scope. It does *NOT* propagate into scopes from any "use"d modules.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
------------------------------
Date: Tue, 27 Jun 2000 07:56:12 +0200
From: Dan Zetterstrom <methabol@hem.passagen.se>
Subject: Re: Net::FTP not on CPAN
Message-Id: <atfglsk5a617t11mbo4eem4f4ocmv7l6cp@4ax.com>
On Mon, 26 Jun 2000 11:40:48 -0700, "Gabe" <grichard@uci.edu> wrotc:
>Actually, you're wrong.
>
Actually he's right.
>I did take the time to go to the CPAN site, and I did type Net::FTP in the
>search field and I still did not discover that Net::FTP is part of the
>libnet bundle. In fact, I don't even know what "libnet bundle" is.
>
You did go to http://search.cpan.org/ and you did type in Net::Ftp,
right? This search gives you a direct link to libnet so it's pretty
hard to miss.
--
Tell me your dreams and I will crush them.
------------------------------
Date: Tue, 27 Jun 2000 07:18:44 GMT
From: jlamport@calarts.edu
Subject: non-obfuscated RSA implementation?
Message-Id: <8j9kga$oi7$1@nnrp1.deja.com>
First: does anyone know what's the deal with Crypt::RSA on CPAN? It's
listed at http://search.cpan.org/Catalog/Security/ but clicking the link
gets you a "Module 'Crypt::RSA' not found" message. When running CPAN
interactively from my shell account, "i Crypt::RSA" shows the usual sort
of information for a CPAN module, except that there's no CPAN_FILE
associated with it, so "install Crypt::RSA" does exactly nothing.
So, if Crypt::RSA is available anywhere: where?
Second: if Crypt::RSA is *not* available, are there any non-obfuscated
perl implementations of the RSA algorithm available? I'm aware of the
clever 2-5 line hacks available at http://www.cypherspace.org/~adam/rsa/
but... well, I'm trying to create an RSA module, and it's really hard to
turn stand-alone programs into usable modules when the programs are that
hackishly written. I mean, I'm sure if I spent a few hours (or maybe
days) with the annotated versions, I could figure it out, but it would be
sooooo much easier if there were some non-obfuscated code I could use
instead.
-jason
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 27 Jun 2000 00:05:47 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Number of Unique Values
Message-Id: <slrn8lgb2o.ka1.abigail@alexandra.delanet.com>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMCDXCII September MCMXCIII
in <URL:news:slrn8lg4aj.l54.tjla@thislove.dyndns.org>:
%% I was shocked! How could Abigail <abigail@delanet.com>
%% say such a terrible thing:
%% >Chris Sorensen (csorensen@uptimeresources.net) wrote on MMCDXCI September
%% >MCMXCIII in <URL:news:3957A7DD.B92D5201@uptimeresources.net>:
%% >
%% >Abigail
%% >--
%% >perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD
%% >0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0
%% >=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}fo
%% >!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
%%
%% ...prints out
%%
%% MMCDXCII September MCMXCIII
%%
%% What is the significance of this number? It (2492 September 1993)
%% doesn't make much sense to me.
You aren't the first to ask in this group. Nor the second or third.
Not even the tenth.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: 27 Jun 2000 04:04:01 GMT
From: Martin Julian DeMello <mdemello@pound.ruf.rice.edu>
Subject: Re: Number of Unique Values
Message-Id: <8j993h$i63$2@joe.rice.edu>
Gwyn Judd <tjla> wrote:
> MMCDXCII September MCMXCIII
> What is the significance of this number? It (2492 September 1993)
> doesn't make much sense to me.
From the alt.culture.usenet faq:
September
The time when college students return to school and start to post
stupid questions, repost MAKE MONEY FAST, break rules of
netiquette, and just generally make life on Usenet more difficult
than at other times of the year. Unfortunately, it has been
September since 1993. With the growing sensationalism surrounding
the "Information-Superhighway" in the United States, the current
September is likely to last into the next century.
Regarding the origin of this term, David DeLaney
(dbd@panacea.phys.utk.edu) wrote:
> The first recorded outbreak of this was Warren Burstein saying
> "It's *always* September, *somewhere* on the net" in response
> to a particularly Clueless outburst from Delphi.com on
> alt.folklore.urban, in fall 1993.
>
> Dave Fischer extended this, some time after that, to "1993 was
> The Year September Never Ended".
-- world.std.com/FAQ/Internet/usenet/alt.culture.usenet-faq.txt
--
Martin DeMello
------------------------------
Date: Tue, 27 Jun 2000 04:11:07 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Number of Unique Values
Message-Id: <slrn8lgafu.2cc.tjla@thislove.dyndns.org>
I was shocked! How could Abigail <abigail@delanet.com>
say such a terrible thing:
>Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMCDXCII September MCMXCIII
>in <URL:news:slrn8lg4aj.l54.tjla@thislove.dyndns.org>:
>%%
>%% MMCDXCII September MCMXCIII
>%%
>%% What is the significance of this number? It (2492 September 1993)
>%% doesn't make much sense to me.
>
>
>You aren't the first to ask in this group. Nor the second or third.
>Not even the tenth.
you mean it is in the FAQ?
--
Gwyn Judd (tjla@guvfybir.qlaqaf.bet)
My return address is rot13'ed
If it ain't broke, don't fix it. -- Bert Lantz
------------------------------
Date: 27 Jun 2000 02:01:05 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Number of Unique Values
Message-Id: <slrn8lghqu.ka1.abigail@alexandra.delanet.com>
Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMCDXCII September MCMXCIII
in <URL:news:slrn8lgafu.2cc.tjla@thislove.dyndns.org>:
[] I was shocked! How could Abigail <abigail@delanet.com>
[] say such a terrible thing:
[] >Gwyn Judd (tjla@guvfybir.qlaqaf.bet) wrote on MMCDXCII September MCMXCIII
[] >in <URL:news:slrn8lg4aj.l54.tjla@thislove.dyndns.org>:
[] >%%
[] >%% MMCDXCII September MCMXCIII
[] >%%
[] >%% What is the significance of this number? It (2492 September 1993)
[] >%% doesn't make much sense to me.
[] >
[] >
[] >You aren't the first to ask in this group. Nor the second or third.
[] >Not even the tenth.
[]
[] you mean it is in the FAQ?
No. But it's on dejanews.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: Tue, 27 Jun 2000 02:22:24 -0500
From: "Rob" <rob9428@swbell.net>
Subject: OpenSSL/SSLeay problems help me
Message-Id: <3GY55.688$NG.120500@nnrp2.sbc.net>
Hi, fairly new to perl and all this. I have to get SSLeay & OpenSSL
installed on my system. I Downloaded the tars and uncompressed. Now What? I
read through the readme files which lead into compiling it which i did and
it appears good but dont know how to make it run or interface with perl. Any
help would be greatly appreciated. Thanks.
------------------------------
Date: Tue, 27 Jun 2000 09:19:51 GMT
From: "Martin Jörgensen" <major@chello.se>
Subject: Pricelist... How to ?
Message-Id: <Xk_55.1031$WU.9868@nntp1.chello.se>
I am currently working on a site which will contain prices from lots of
computer hardware resellers worldwide. I therefore need an easy way to keep
the prices on the site updated.
What I need is this:
- The resellers should be able to edit their own prices (or better, a script
that reads from their page automatically)
- I want a top 10 of the prices, meaning the 10 cheapest.
- I want to do the whole database searchable.
Are there any scripts out there which will do this (or some of it) ? And
which language will do the better job ?
I will be getting a host which supports both cgi and asp...
Thanks.
Martin Jorgensen.
------------------------------
Date: Tue, 27 Jun 2000 06:14:21 GMT
From: "Sami Maki" <sami.maki@nokia.com>
Subject: Re: Server push problem
Message-Id: <1DX55.4182$AM5.50953@news1.nokia.com>
It was the same case with IWS. Once I added that printing of blank chars to
my script it started to work. Many thanks to you Thomas! Here is the fixed
version of the script:
$| = 1;
print "$ENV{'SERVER_PROTOCOL'} 200 OK\n";
print "Server: $ENV{'SERVER_SOFTWARE'}\n";
print "Content-type: multipart/x-mixed-replace;boundary=ARandomString\n\n";
# Begin sending characters
print "--ARandomString\n";
for ($loop = 1; $loop <= 5; $loop++)
{
print "Content-type: text/plain\n\n";
print "$loop\n";
for ($i = 0;$i < 10000;$i++) {print " ";} # New stuff
print "\n--ARandomString\n";
sleep (1);
}
exit (0);
thoma wrote in message <8j805g$hrr$1@nnrp1.deja.com>...
>I had the same problem working with IIS. I had to send in 512 bytes
>blank chars to get rid of the buffering. Following the code I used:
>
>print STDOUT "<p>Data transfer process has been started...<br>";
>STDOUT->flush;
>#Following is the voodoo to flush the IIS buffer, MS sucks.
>#The previous command would have been enough in a logical world.
>for ($i = 0;$i < 512;$i++) {print " ";}
>STDOUT->flush;
>
>I don't if this will help you.
>
>Regards
>Thomas.
>In article <3PJ55.5447$oL4.109990@news2.nokia.com>,
> "Sami Maki" <sami.maki@nokia.com> wrote:
>> Hi,
>>
>> I have this "push" related problem that server will execute entire
>Perl
>> script before printing anything to web browser. Are there some
>> configurations what need to be set on server side before it works?
>Here is
>> the script what I'm using (it works on Apache at least but not on
>> iPlanet-WebServer-Enterprise/4.1). Thanks.
>>
>> $| = 1;
>> print "$ENV{'SERVER_PROTOCOL'} 200 OK\n";
>> print "Server: $ENV{'SERVER_SOFTWARE'}\n";
>> print "Content-type: multipart/x-mixed-
>replace;boundary=ARandomString\n\n";
>>
>> # Begin sending characters
>> print "--ARandomString\n";
>> for ($loop = 1; $loop <= 5; $loop++)
>> {
>> print "Content-type: text/plain\n\n";
>> print "$loop\n";
>> sleep (1);
>> print "\n--ARandomString\n";
>> }
>> exit (0);
>>
>> BR, Sami
>>
>>
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Tue, 27 Jun 2000 07:55:26 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Simple regular expression question
Message-Id: <MPG.13c2fb2b46abc0b0989752@news>
Kenny Lim writes ..
>ie.
>
>{B2165B0A-9D18-11d3-BA27-006008AF680E}|{BBBDDE80-488B-11D4-85D7-00105AE3A355
>}
>
>$search = {B2165B0A-9D18-11d3-BA27-006008AF680E}
>$replace = {BBBDDE80-488B-11D4-85D7-00105AE3A355}
>
>So far, I am only able to retrieve the 1st category of the id contents and
>not the second.
>
>Snippets of my code enclosed :
>
>#=========================================================================
>
>open (INIT, "<report.txt") or die "Could not open $orig: $!";
>while (<INIT>)
> {
>
> if
>(m/{([\w]{8})+\-([\w]{4})+\-([\w]{4})+\-([\w]{4})+\-([\w]{12})}|{([\w]{8})+\
>-([\w]{4})+\-([\w]{4})+\-([\w]{4})+\-([\w]{12})}/ig)
> {
the pipe character (|) is a special character in Perl's regex (and most
regexes) .. so it needs to be escaped
perldoc perlre
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Mon, 26 Jun 2000 23:10:22 -0700
From: Tokyo Rose Butler <tokyo@impcourt.org>
Subject: Solution needed
Message-Id: <39584545.76E8FBA@impcourt.org>
Hello there,
I work with a non-profit organization and we're looking for a solution
to one of our problems. Our web site lists our board members and our
chapter's individual information. We're looking for a way to allow each
of our board members and our chapters to update their own information by
just filling in a form. The information they fill in the form will then
automatically update the information that comes online when someone
requests information for that chapter or board member. It would also be
nice to be able to allow our members to search online for specific dates
for which our chapters are holding events, for example, what's happening
in the month of January 2001. Is there such a program out there that is
affordable? Thank you.
Kelvin
------------------------------
Date: Mon, 26 Jun 2000 21:27:56 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Where is IO::Handle::error() defined?
Message-Id: <Pine.GSO.4.10.10006262124330.578-100000@user2.teleport.com>
On Tue, 27 Jun 2000, Francis Litterio wrote:
> So clearly, loading package IO::Handle causes that method to be
> defined, but where?
It's dynamically loaded from IO. If you get the perl source distribution,
look in the ext/IO directory for the source. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 27 Jun 2000 11:48:27 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: Who's the man? You can be(ginner)
Message-Id: <4jtglsc935rehbnu17gi130nim4tjbjg33@4ax.com>
On Mon, 26 Jun 2000 22:11:44 GMT, 8inches_manmeat@my-deja.com wrote:
> Hi,
hi,
> I need a little help with perl. If you have any insight for me that
> would be cool. Thanks.
>
> I have a text file that has a bunch of email addresses
...
>
> For each 'foo.bar@domain.net' I want 'Foo Bar'. In other words, for
> 'mike.smith@hotmail.com' I want 'Mike Smith'
If these addresses are all in _that_ format:
my $email = 'mike.smith@hotmail.com';
my $name = join ' ',
map $_ = "\u$_" => $email =~ /^(.+)\.(.+)@/;
print "$email -> $name\n";
--
Good luck,
Abe
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3489
**************************************
