[12660] in Perl-Users-Digest
Perl-Users Digest, Issue: 69 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 7 19:07:21 1999
Date: Wed, 7 Jul 1999 16:01:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 7 Jul 1999 Volume: 9 Number: 69
Today's topics:
Re: better way for substitute (Abigail)
Re: Carriage returns (Abigail)
data structure to emulate pointers <sun_tong_nospam@zdnetmail.com>
Re: data structure to emulate pointers <upsetter@ziplink.net>
Re: I need to hide the source (Abigail)
Re: I need to hide the source (Abigail)
Re: I need to hide the source (Abigail)
line discipline for perl? dougd@shieldsbag.com
Re: My last hope (Greg Andrews)
My Own Perl Library Setup <alex@exbook.com>
Newbie Question <akmink@worldnet.att.net>
Re: Out of Memory Error (Ilya Zakharevich)
Re: Out of Memory Error (Anno Siegel)
Re: Passing Environment Variable back to parent process <cassell@mail.cor.epa.gov>
Perl program exist after exec command... (Sai Chimakurty)
Re: Question: Good Project? <anonymous@web.remarq.com>
Re: regex to eat all html tags (or check your faqs, Jac <revjack@radix.net>
Re: regex to eat all html tags (or check your faqs, Jac (Abigail)
Re: regex to eat all html tags (or just the faqs, maam) (Abigail)
Re: regex to eat all html tags (Abigail)
Re: Summing Array to Hash elements <cassell@mail.cor.epa.gov>
Re: Webpages and Perl-Couple of Questions (Abigail)
Weird /x regexps <hiller@email.com>
Re: Weird /x regexps (Martien Verbruggen)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Jul 1999 17:37:06 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: better way for substitute
Message-Id: <slrn7o7ljs.ued.abigail@alexandra.delanet.com>
Norman Frech (frech@primary.net) wrote on MMCXXXVI September MCMXCIII in
<URL:news:01bec896$71a15280$515c7bc7@frechn-nb>:
() I am looking for a better, more compact way of doing the following:
()
() $buf =~ s/\000/ /g;
() $buf =~ s/\001/ /g;
() $buf =~ s/\002/ /g;
() $buf =~ s/\003/ /g;
() $buf =~ s/\004/ /g;
() $buf =~ s/\005/ /g;
() $buf =~ s/\006/ /g;
() $buf =~ s/\007/ /g;
() $buf =~ s/\008/ /g;
() $buf =~ s/\009/ /g;
() $buf =~ s/\010/ /g;
() $buf =~ s/\011/ /g;
()
Use a smaller font.
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 7 Jul 1999 17:39:24 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Carriage returns
Message-Id: <slrn7o7lo6.ued.abigail@alexandra.delanet.com>
Anders Thorsby (artsoft@danbbs.dk) wrote on MMCXXXVI September MCMXCIII
in <URL:news:TgMg3.356$HY5.645@news.get2net.dk>:
::
:: Greg Bacon <gbacon@itsc.uah.edu> wrote in message
:: news:7m01s8$7me$1@info2.uah.edu...
::
:: > $textarea =~ s/\s+/ /g;
::
:: \s is blanks
:: use \n for new-lines
Are your newlines solid green blocks?
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=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 07 Jul 1999 17:57:34 -0400
From: * Tong * <sun_tong_nospam@zdnetmail.com>
Subject: data structure to emulate pointers
Message-Id: <3783CD4E.36A1D1A@zdnetmail.com>
Hi,
I searched in CPAN for codes in perl for tree handling. there are
something there, but none of them provide the abstract tree function
(not for special purpose like directory or C codes).
So I think I should write it myself. Before I move on, I'd like to ask
your advise on how to set the data structure for nodes. Perl doesn't
have pointers as C does, so what if I really need the pointer.
Is this a question that is too difficult so that no one ever write
abstract tree module?
Thank!
--
remove _nospam to reply.
------------------------------
Date: Wed, 07 Jul 1999 22:45:18 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: data structure to emulate pointers
Message-Id: <2MQg3.1161$6M6.368740@news.shore.net>
* Tong * <sun_tong_nospam@zdnetmail.com> wrote:
: I searched in CPAN for codes in perl for tree handling. there are
: something there, but none of them provide the abstract tree function
: (not for special purpose like directory or C codes).
I think you want to look into what Perl calls "references." They're
similar to C pointers. Read perlref and perllol from the perl
documentation and that should help explain if what you want to do is
possible in Perl.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: 7 Jul 1999 17:29:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: I need to hide the source
Message-Id: <slrn7o7l66.ued.abigail@alexandra.delanet.com>
rdosser@my-deja.com (rdosser@my-deja.com) wrote on MMCXXXVI September
MCMXCIII in <URL:news:7lvsff$fuo$1@nnrp1.deja.com>:
'' Odd request here - I need to write a script in perl, but somehow encrypt
'' or encapsulate the source in a binary so that other users on the host -
'' including root - cannot read it.
I suggest you take a hot poker and start poking out eyes. Starting
with those who have uid 0.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 7 Jul 1999 17:32:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: I need to hide the source
Message-Id: <slrn7o7lb6.ued.abigail@alexandra.delanet.com>
rdosser@my-deja.com (rdosser@my-deja.com) wrote on MMCXXXVI September
MCMXCIII in <URL:news:7m09vd$m44$1@nnrp1.deja.com>:
``
`` I should have explained more: I'm trying to conceal a decryption
`` algorithm for confidential data.
And you don't trust root? Buhahhahhahahhahaa. That's stupid.
Find a root who you can trust.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 7 Jul 1999 17:35:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: I need to hide the source
Message-Id: <slrn7o7lh9.ued.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCXXXVI September MCMXCIII
in <URL:news:3785b3db.1840536@news.skynet.be>:
'' rdosser@my-deja.com wrote:
''
'' >Odd request here - I need to write a script in perl, but somehow encrypt
'' >or encapsulate the source in a binary so that other users on the host -
'' >including root - cannot read it.
'' >
'' >Any thoughts?
''
'' rm -f script.pl
''
'' The only bug is that the script no longer runs.
''
That's why
> script.pl
is much better. The script remains runnable, but for everyone else, it
looks like there are no characters in the file. Noone will expect a
very very secret program in the file!
Abigail
--
sub J::FETCH{Just }$_.='print+"@{[map';sub J::TIESCALAR{bless\my$J,J}
sub A::FETCH{Another}$_.='{tie my($x),$';sub A::TIESCALAR{bless\my$A,A}
sub P::FETCH{Perl }$_.='_;$x}qw/J A P';sub P::TIESCALAR{bless\my$P,P}
sub H::FETCH{Hacker }$_.=' H/]}\n"';eval;sub H::TIESCALAR{bless\my$H,H}
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 07 Jul 1999 22:15:24 GMT
From: dougd@shieldsbag.com
Subject: line discipline for perl?
Message-Id: <7m0jhh$qbh$1@nnrp1.deja.com>
I'm working on a project for accessing a network serial box via perl.
I have the i/o redirection working, but need a line discipline layer
between my socket fd and the streams for stdio. I found documentation
on opening a pseudo tty driver and getting a master/slave file
descriptor to them. From that point they used a i_push ioctl function
to load a line discipline modules for handling ioctl termio call. Is
there a similar module/functionality for perl? Thanks.
--
Doug Dahlke
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 7 Jul 1999 15:02:32 -0700
From: gerg@shell.ncal.verio.com (Greg Andrews)
Subject: Re: My last hope
Message-Id: <7m0ipo$77h$1@shell1.ncal.verio.com>
JJ353@webtv.net (J. J. Goodrich) writes:
>Its not javascript its perl...What it does is somehow the PERL script
>reads something about the user and when that user visits the page it
>says the time for that user according to his time zone....
>
>Ive been trying to fiogure this one out for a week and i havent come up
>with anything....
>
Sounds more like a question for the www newsgroups.
My guess is that the script asks the browser to create a cookie,
and then retrieves the cookie. The cookie name or contents have
the current time encoded in the browser's local time zone.
-Greg
------------------------------
Date: 7 Jul 1999 22:41:35 GMT
From: "Alex" <alex@exbook.com>
Subject: My Own Perl Library Setup
Message-Id: <01bec8c9$dd2b59a0$258eb987@il0015jtampc>
Hi Everyone,
How can I have my own perl Library setup in my cgi-bin directory?
I want to use the LWP.
where I can find this kind of information? But if you willing to
teach me in newsgroup, I appreciate so much!
-Alex
------------------------------
Date: Wed, 7 Jul 1999 17:21:45 -0500
From: "Adrian Mink" <akmink@worldnet.att.net>
Subject: Newbie Question
Message-Id: <3783d214@news.usenetnews.org>
Hello,
I'm running Active Perl Build 517 and have a simple question. I'm
writing a script to weed bad email addresses out of a list and am looking
for a way to do a simple comparison against what the basic email address
should look like. (We have a lot of people who enter their address in
compleatly wrong, I'd like to weed them out.)
I was thinking of just comparing the address in question against a
pattern using wildcards ($email == something@something.something) but cannot
seem to figure out how to do this. Can someone help? Thanks. I am very new
to Perl and will appreciate any help. Thanks.
--
Adrian Mink
akmink@worldnet.att.net
------------------------------
Date: 7 Jul 1999 22:23:38 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Out of Memory Error
Message-Id: <7m0k1a$d26$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Anno Siegel
<anno4000@lublin.zrz.tu-berlin.de>],
who wrote in article <7m0fvb$4b5$1@lublin.zrz.tu-berlin.de>:
> Chaudhry, Asad [CAR:VC13:EXCH] <vc13stu1@americasm01.nt.com> wrote in
> comp.lang.perl.misc:
> >Hi,
> >
> >When I try to parse a file larger than 5 MB into a collection of perl
> >data structures I get an 'out of memory' error. Is there a physical
> >limitation within perl on the amount of data that can be read in or
> >processed?
>
> You're touching one of Perl's points of honor. No, there isn't such
> a limitation.
No, the poster touches one of Perl's points of shame. Creating
structures in Perl results in memory consumption of orders which may
easily be in 20..200 range - comparing to the amount of "raw" data.
Switching to Perl's malloc may help - but w.r.t the size a tiny bit only.
Ilya
P.S. However, note that this shameful point is mpt that often
relevant with contemporary hardware. Having data not
"structurized", but kept in long strings and processed by RExen
may help too.
------------------------------
Date: 7 Jul 1999 22:56:52 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Out of Memory Error
Message-Id: <7m0lvk$4go$1@lublin.zrz.tu-berlin.de>
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote in comp.lang.perl.misc:
>[A complimentary Cc of this posting was sent to Anno Siegel
><anno4000@lublin.zrz.tu-berlin.de>],
>who wrote in article <7m0fvb$4b5$1@lublin.zrz.tu-berlin.de>:
>> Chaudhry, Asad [CAR:VC13:EXCH] <vc13stu1@americasm01.nt.com> wrote in
[is there a limitation on perl's memory consumption]
>> You're touching one of Perl's points of honor. No, there isn't such
>> a limitation.
>
>No, the poster touches one of Perl's points of shame. Creating
>structures in Perl results in memory consumption of orders which may
>easily be in 20..200 range - comparing to the amount of "raw" data.
That much? Whoda thunk!
While I never measured that factor, I'd have expected something like
5 or 10, assuming the basic scalars fit in a word or two.
Anno
------------------------------
Date: Wed, 07 Jul 1999 15:01:49 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Passing Environment Variable back to parent process
Message-Id: <3783CE4D.15B9041E@mail.cor.epa.gov>
Sam Weatherhead wrote:
>
> When my perl script gets called from within a batch file, or
> from within the NT shell, it sets an environment variable. However,
> the environment variable set isn't reflected in the parent process that
> called it. Is there a way to have the changes made in the script get
> reflected back to the process that called it? I can't find anything except
> a brief mention of this in perlfaq8.
Since you read the FAQ, you deserve some help. For the moment,
you're stuck with me, though. :-)
As it says in the FAQ, your Perl program is a child of your batch
file. You can't make changes in the child process which stick
to the parent. That means that you have several options:
[1] write the info to a file, then let the parent read it.
[2] make changes in the registry (nasty!) using win32::Registry .
[3] re-write your code so the environment variable is used
in the same process in which it is created.
I would opt for #3 . Take a look at pl2bat.bat and you'll see
that you can turn your Perl scripts into functional .bat
files which can be run from the command line (or wherever).
In this way you may be able to dodge the bullet.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 7 Jul 1999 21:56:29 GMT
From: saic@shirdi.corp.sun.com (Sai Chimakurty)
Subject: Perl program exist after exec command...
Message-Id: <7m0ied$lp1$2@corpnews1.Corp.Sun.COM>
Hi,
I am in a process of finding PID through perl program and then
issue the PID to the following statements. But the program is
exiting after "exec" command in the program.
I have written the program like this.
#!/usr/dist/share/perl,v5.003/5bin.sun4/perl -w
use strict;
use English;
use File::Basename;
use FileHandle;
my $basename;
$basename = basename("$PROGRAM_NAME", "");
if (scalar @ARGV != 1)
{
die "Usage: $basename Concurrent Manager\n";
}
my $ccmgr_name = shift @ARGV;
if (! defined $ccmgr_name)
{
die "Usage: $basename Concurrent Manager\n";
}
# Program is aborting after this line..............
exec "ps -ef |grep -i $ccmgr_name";
# I want program to be inside so I can continue giving the inputs etc...
..
print ("Enter PID number to check \n");
my $pid = <STDIN>;
print "Parent Pid is: $pid\n";
.....
......
Can any one please help me out with this. Thanks a lot in advance.
Thanks & Regards,
Sai Chimakurty Email:Sai.Chimakurty@Sun.com
*******************************************************************
------------------------------
Date: Wed, 07 Jul 1999 14:57:54 -0800
From: Ashish Kadakia <anonymous@web.remarq.com>
Subject: Re: Question: Good Project?
Message-Id: <931388276.12222@www.remarq.com>
Chain means the relation between "A" and "C";
This one is good to explain how the thoughts are organized
within our mind.
When I ask what's the relation between a and e it can show
all the possible paths. That's the goal.
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: 7 Jul 1999 22:12:11 GMT
From: revjack <revjack@radix.net>
Subject: Re: regex to eat all html tags (or check your faqs, Jack.)
Message-Id: <7m0jbr$23s$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
Eric The Read explains it all:
:sethr@crocker.com writes:
:> Back from perl.com. Couldn't find the faq there either. Seth
:Then, I beg of you, leave Perl alone, and go back to whatever job you had
:before you tried to start programming. If your reading comprehension
:really is poor enough that you can't determine that a hypertext link
:clearly labeled "FAQs" will take you to the FAQ, then you are surely
:unable to profit from any help anyone here could possibly give you.
Is there any reason the questions in /newdocs/pod/perlfaq.html aren't
hyperlinked to the answers? Seems like a good opportunity to exploit the
wonderful power of HTML.
------------------------------
Date: 7 Jul 1999 17:17:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: regex to eat all html tags (or check your faqs, Jack.)
Message-Id: <slrn7o7kf1.ued.abigail@alexandra.delanet.com>
sethr@crocker.com (sethr@crocker.com) wrote on MMCXXXVI September
MCMXCIII in <URL:news:7m0dhd$nnh$1@nnrp1.deja.com>:
__ Back from perl.com. Couldn't find the faq there either. Seth
You mean, the letters "FAQs" on the front page of www.perl.com
didn't show up on your screen?
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 7 Jul 1999 17:15:01 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: regex to eat all html tags (or just the faqs, maam)
Message-Id: <slrn7o7kad.ued.abigail@alexandra.delanet.com>
sethr@crocker.com (sethr@crocker.com) wrote on MMCXXXVI September
MCMXCIII in <URL:news:7m09gl$lsf$1@nnrp1.deja.com>:
** Read the faq? What a great idea. Wish I had thought of it, but never
** mind. I thought I'd do just what you suggested and check out the one on
** my hard drive. The one that came with a my version of Active State Perl.
** But,oh, no! That faq wasn't included.
Then you don't have Perl installed correctly. From the ActiveState
web site:
Please be sure to read the online documentation included with
every copy of ActivePerl, which includes the Perl FAQ, Perl for
Windows 32 FAQ, and futher technical information about the Win32
port.
[http://www.activestate.com/ActivePerl/]
Abigail
--
"Well, you know, NT just crashes too often."
// Our CEO explaining why the NT port of our software was discontinued.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 7 Jul 1999 17:06:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: regex to eat all html tags
Message-Id: <slrn7o7jqc.ued.abigail@alexandra.delanet.com>
Daniel Grisinger (dgris@moiraine.dimensional.com) wrote on MMCXXXVI
September MCMXCIII in <URL:news:m3ogho8p1q.fsf@moiraine.dimensional.com>:
|| abigail@delanet.com (Abigail) writes:
||
|| <snip `I need an html parsing regex'>
||
|| > Well, the first is impossible - see the FAQ.
||
|| I don't think that this is true anymore. Looking over the
|| regex changes Ilya has made leads me to believe that all of
|| the necessary machinery is in place and that creation of the
|| appropriate regex is now A Simple Matter of Programming. :-)
Good. I'd like to see that regex. It has of course to do entities
defined in the document and nested marked sections, be them CDATA,
RCDATA or PCDATA correctly. ;)
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 07 Jul 1999 15:57:59 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: wired2000@my-deja.com
Subject: Re: Summing Array to Hash elements
Message-Id: <3783DB77.2C0A325D@mail.cor.epa.gov>
[courtesy e-mail sent also, unless address munged]
wired2000@my-deja.com wrote:
>
> Hi,
>
> I have an array that stores a list of unknown keywords (see below) and
> I would like to convert this array to a hash table which stores the
> total number of occurances in the array.
>
> [example snipped]
You'll be pleased to know that the answer to your problem is in
the FAQ. That's right, the Perl FAQ which came with your
install of Perl. [If you're depending on your ISP's install,
do yourself a favor and download a free copy of Perl so you'll
at least have the FAQ and extensive docs.]
Use perldoc with 'unique' as your keyword [you do have perldoc,
right?]. Or just go to perlfaq4 and look for the entry headed:
"How can I extract just the unique elements of an array?"
> As well, after the new data structure has been done, I need an easy way
> to go through all keys in the hash and report them to the user.
Okay, *now* a foreach on the keys of your hash will work.
> I'm not quite sure how to do the unique scan, especially because I
> don't know what the keywords are at runtime. Normally I would do a
> foreach, but the problem is I don't know how to insert data into the
> hash when I don't know what the keys are upfront. Anyone have any
> suggestions or sample code would be greatly appreciated.
Perl autovivifies. You don't need to know in advance what the
keywords are, or how many of them will be coming, or how large
the counts will get. Trust Perl.
If you really don't feel like you've grokked hashes yet, you
may want to read the perldata page that comes with Perl. If
that's too much, start with this Perl tutorial:
http://www.netcat.co.uk/rob/perl/win32perltut.html
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
Nothing personal, Charles, but I'm really getting sick of
that slogan. Not that there's anything you can do about my
problem.
HAND,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 7 Jul 1999 17:19:24 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Webpages and Perl-Couple of Questions
Message-Id: <slrn7o7kil.ued.abigail@alexandra.delanet.com>
Uri Guttman (uri@sysarch.com) wrote on MMCXXXVI September MCMXCIII in
<URL:news:x7pv24tklc.fsf@home.sysarch.com>:
'' >>>>> "A" == Abigail <abigail@delanet.com> writes:
''
'' A> BTDTDNGTTS.
''
'' ok, i give up. what does that mean? i think it starts with "but that
'' doesn't".
Been There, Done That, Did Not Get The T-Shirt.
HTH. HAND.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 07 Jul 1999 22:29:03 GMT
From: Jordan Hiller <hiller@email.com>
Subject: Weird /x regexps
Message-Id: <3783D4B1.EA3B5006@email.com>
Can someone explain why this works:
m/^([A-Z]{3,5})([+-]?\d{1,2}\:?\d{0,2})([a-z]{0,5})\s+(.*)$/i;
But not this:
m/^([A-Z]{3,5}) # comment
([+-]?\d{1,2}\:?\d{0,2}) # comment
([a-z]{0,5}) # comment
\s+ # comment
(.*)$/ix; #comment
The second gives several syntax errors as well as "backslash found where
operator expected".
Thanks,
Jordan Hiller (hiller@email.com)
JavaScript and Perl programs for
making online tests and quizzes:
http://web-shack.hypermart.net/quiz.html
------------------------------
Date: Wed, 07 Jul 1999 22:58:28 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Weird /x regexps
Message-Id: <oYQg3.40$RX3.2848@nsw.nnrp.telstra.net>
In article <3783D4B1.EA3B5006@email.com>,
Jordan Hiller <hiller@email.com> writes:
> Can someone explain why this works:
>
> m/^([A-Z]{3,5})([+-]?\d{1,2}\:?\d{0,2})([a-z]{0,5})\s+(.*)$/i;
>
> But not this:
>
> m/^([A-Z]{3,5}) # comment
> ([+-]?\d{1,2}\:?\d{0,2}) # comment
> ([a-z]{0,5}) # comment
> \s+ # comment
> (.*)$/ix; #comment
Both work fine for me on perl 5.004_04 and 5.005_02. Which version are
you trying this on? Is this the exact code you are trying to compile?
Martien
--
Martien Verbruggen |
Interactive Media Division | That's funny, that plane's dustin'
Commercial Dynamics Pty. Ltd. | crops where there ain't no crops.
NSW, Australia |
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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 V9 Issue 69
************************************
