[16284] in Perl-Users-Digest
Perl-Users Digest, Issue: 3696 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 17 18:10:38 2000
Date: Mon, 17 Jul 2000 15:10:26 -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: <963871826-v9-i3696@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 17 Jul 2000 Volume: 9 Number: 3696
Today's topics:
Help Wanted <bbkling@earthlink.net>
Re: how to convert "1.2.3.10" to "01020310"? (Abigail)
Re: Interfacing Perl with MIME : help needed (Abigail)
Re: metrics again, please read the reformulated questio (Abigail)
Need help with a regular expression <pobbard@hotresponse.com>
Re: Need help with a regular expression (Cameron Kennedy)
Re: Need help with a regular expression (Greg Bacon)
Re: Need help with a regular expression <samay1NOsaSPAM@hotmail.com.invalid>
Re: Need help with a regular expression <UlleAckermann@t-online.de>
Re: Need help with a regular expression <pobbard@hotresponse.com>
Re: Net::Smtp problems (Abigail)
Re: Net::Smtp problems (Logan Shaw)
Re: Newbie needs help! (jason)
newbie: incrementing the value of a byte <kermit23@raegunne.com>
Re: newbie: incrementing the value of a byte (Eric Bohlman)
Re: newbie: incrementing the value of a byte <makarand_kulkarni@my-deja.com>
NT4 can't create file in cgi-bin hacktic@my-deja.com
pass change lunatyc00@my-deja.com
Re: pass change <jbroz@yperite.demon.co.uk>
Passing and using multidimensional array references bchodo@my-deja.com
Re: Passing and using multidimensional array references <lauren_smith13@hotmail.com>
Re: Perl can't add ! (Abigail)
Re: Perl Expert? I need help! <akurczyn@usa.net>
Re: Perl Expert? I need help! (Greg Snow)
Re: Perl Expert? I need help! (Abigail)
Re: PERL IDES (Jennifer Moter)
Re: perl makemaker tutorial <trent.mankelow@unisys.com>
Re: Perl on irc (Abigail)
Re: PRINTing " "" " (Abigail)
Re: PRINTing " "" " (Abigail)
Re: PRINTing " "" " <lr@hpl.hp.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Jul 2000 18:16:51 GMT
From: Bob Kling <bbkling@earthlink.net>
Subject: Help Wanted
Message-Id: <39734D40.DAC9B62A@earthlink.net>
Programmer Needed Full Time: Work at Home
Ideal person would be strong in Perl, with some Java, and some SQL.
Server admin skills a big plus; Unix and some NT
-------
Also it would be a super help if anyone reading this could tell me if
there is a job posting service that has a "work at home" job section?
All the prominant job sites do not have this category. Thank you very
much.
Bob
bob@tokensystems.com
------------------------------
Date: 15 Jul 2000 20:08:45 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: how to convert "1.2.3.10" to "01020310"?
Message-Id: <slrn8n209o.ibq.abigail@alexandra.delanet.com>
Jim Mauldin (mauldin@netstorm.net) wrote on MMDX September MCMXCIII in
<URL:news:3970F51A.CC6CFCA4@netstorm.net>:
** jason wrote:
**
** > ethan wrote ..
** > >Hope there someone who can help me with this. I am new to PERL and am
** > >facing the problem of convert a string of "2.1.3.14" format
** > >to "02010314" format.
** >
** > printf '%02d%02d%02d%02d' => split /\./ => '2.1.3.14';
**
** Or even
** printf '%02d' x 4 , split /\./ , '2.1.3.14';
Yeah, but that still requires you to count by hand.
map {printf "%02d" => $_} split /\./ => '2.1.3.14';
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: 16 Jul 2000 01:16:29 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Interfacing Perl with MIME : help needed
Message-Id: <slrn8n2ian.ibq.abigail@alexandra.delanet.com>
Bo (bo@bo.com) wrote on MMDXI September MCMXCIII in
<URL:news:8kr8gj$k54$1@slb7.atl.mindspring.net>:
`` We have a user who needs to send web-based mail in *plain-text*
`` format, WHILE attaching .jpeg images to the messages, which would seem
`` to involve MIME. Can this be done with Perl scripts and how?
Yes. It's simple:
#!/opt/perl/bin/perl -w
use strict;
print while <__DATA__>;
__DATA__
... plain text ...
... mime crap ...
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]+Addition/s) [0]'
------------------------------
Date: 14 Jul 2000 04:25:03 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: metrics again, please read the reformulated question
Message-Id: <slrn8mtkkb.dun.abigail@alexandra.delanet.com>
Nadim Khemir (nkh@cpen.com) wrote on MMDVIII September MCMXCIII in
<URL:news:396dad1e.0@d2o68.telia.com>:
&& >Can someone point me to some metric scripts ?
&& >MacCabbe
&& >halstead
&&
&& thank to all that send me script converting inches to whatever.
&&
&& The question is " Where can I find SOFTWARE Metrics ?". Mccabe conplexity,
&& halstead volume, fan-in-out,ELOC, ...
&&
&& language used C, C++.
&&
&& or some link to a C/C++ lexer,parser the rest I can manage myself.
&&
And the relevance to Perl is... ?
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: Mon, 17 Jul 2000 14:36:57 -0400
From: "Philip P. Obbard" <pobbard@hotresponse.com>
Subject: Need help with a regular expression
Message-Id: <ziIc5.47696$MT.1573726@news-west.usenetserver.com>
Hi all,
I've got a string that can look like this:
stuff&hr_id=55&pub_id=2121
or
somestuff&hr_id=125&pub_id=21290
or
otherstuff&hr_id=98336&pub_id=213
I'm trying to use a regex to pull out the value of hr_id. (Nope, I can't use
the CGI object here).
I'm trying the following:
$link = "otherstuff&hr_id=98336&pub_id=213";
if ($link =~ m/hr_id=(.*)[$|&]/) {
$hr_id = $1;
warn "we got an hr_id of $hr_id";
}
...but $hr_id keeps coming out as "98336&pub_id=213" or "125&pub_id=21290",
when it should be devoid of the "&pub_id=21290" nonsense.
Any ideas? Thanks in advance for any assistance.
--Philip
------------------------------
Date: Mon, 17 Jul 2000 11:42:15 -0800
From: kenned57@NoSpam.edu (Cameron Kennedy)
Subject: Re: Need help with a regular expression
Message-Id: <kenned57-1707001142150001@alexthinkpad.salk.edu>
In article <ziIc5.47696$MT.1573726@news-west.usenetserver.com>, "Philip P.
Obbard" <pobbard@hotresponse.com> wrote:
> Hi all,
>
> I've got a string that can look like this:
> stuff&hr_id=55&pub_id=2121
> Any ideas? Thanks in advance for any assistance.
>
($hr_id)=$link=~m/hr_id=(\d+)/;
Cameron
------------------------------
Date: Mon, 17 Jul 2000 18:53:36 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: Need help with a regular expression
Message-Id: <sn6lhgkco53135@corp.supernews.com>
In article <ziIc5.47696$MT.1573726@news-west.usenetserver.com>,
Philip P. Obbard <pobbard@hotresponse.com> wrote:
: I've got a string that can look like this:
: stuff&hr_id=55&pub_id=2121
: or
: somestuff&hr_id=125&pub_id=21290
: or
: otherstuff&hr_id=98336&pub_id=213
:
: I'm trying to use a regex to pull out the value of hr_id. (Nope, I can't use
: the CGI object here).
my %info;
for (split /&/, $str) {
if (/^(.+?)(?:=(.*))?$/) {
$info{$1} = ($2 || 0);
}
}
my $hr_id = $info{hr_id};
Greg
--
As an adolescent I aspired to lasting fame, I craved factual certainty, and
I thirsted for a meaningful vision of human life -- so I became a scientist.
This is like becoming an archbishop so you can meet girls.
-- Matt Cartmill
------------------------------
Date: Mon, 17 Jul 2000 11:55:27 -0700
From: Samay <samay1NOsaSPAM@hotmail.com.invalid>
Subject: Re: Need help with a regular expression
Message-Id: <1bc0334e.79845577@usw-ex0104-031.remarq.com>
I suggest use .*? instead of .* in your regex..
Read more about regex..
the \d+ as suggested by different author is also a good and
better solution if your hr_id is always some integer number..
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Mon, 17 Jul 2000 19:55:40 +0200
From: Ulrich Ackermann <UlleAckermann@t-online.de>
Subject: Re: Need help with a regular expression
Message-Id: <3973489C.10397346@t-online.de>
"Philip P. Obbard" wrote:
>
> Hi all,
>
> I've got a string that can look like this:
> stuff&hr_id=55&pub_id=2121
> or
> somestuff&hr_id=125&pub_id=21290
> or
> otherstuff&hr_id=98336&pub_id=213
>
> I'm trying to use a regex to pull out the value of hr_id. (Nope, I can't use
> the CGI object here).
>
> I'm trying the following:
> $link = "otherstuff&hr_id=98336&pub_id=213";
>
> if ($link =~ m/hr_id=(.*)[$|&]/) {
> $hr_id = $1;
> warn "we got an hr_id of $hr_id";
> }
>
> ...but $hr_id keeps coming out as "98336&pub_id=213" or "125&pub_id=21290",
> when it should be devoid of the "&pub_id=21290" nonsense.
>
> Any ideas? Thanks in advance for any assistance.
This is because the * is greedy, that means it takes as much as it can.
The first try will let him go till the end. The $ in your [$|&] part
means, when mentioned as the last sign of the regex, the end of the
string. Well the regex is at the end of the string, so a match is found
(everything from the hr_id= until the end and that's it.
If there are only numbers following the hr_id= you can use
/hr_id=(\d*)/
If you need everything until the next & it may be better to use
/hr_id=([^&]*)/
For more detailed info:
perldoc regex or the book "Mastering regular Expressions" by Jeffrey E.
Friedl (a must).
HTH
Ulrich
PS: If the |-sign in your square brackets should mean 'or': just leave
it away.
------------------------------
Date: Mon, 17 Jul 2000 16:49:47 -0400
From: "Philip P. Obbard" <pobbard@hotresponse.com>
Subject: Re: Need help with a regular expression
Message-Id: <4fKc5.47959$MT.1597927@news-west.usenetserver.com>
Thanks everyone - talk about fast responses! I really appreciate it,
especially the added detail on why my original code wasn't working.
best regards,
Philip
------------------------------
Date: 16 Jul 2000 01:17:52 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Net::Smtp problems
Message-Id: <slrn8n2ida.ibq.abigail@alexandra.delanet.com>
deno (jdNOjdSPAM@syncon.ie.invalid) wrote on MMDXI September MCMXCIII in
<URL:news:0e990fca.4de9b34e@usw-ex0105-036.remarq.com>:
||
||
|| Any1 had any problems with net::smtp ?
||
|| the following only works 25% of the time
||
|| use Net::SMTP;
||
|| $smtp = Net::SMTP->new('192.168.0.99', Timeout => 30);
||
|| print $smtp->banner,"\n";
|| $smtp->quit;
||
||
|| when it fails it returns the following error
||
|| "Can't call method "banner" on an undefined value at banner.txt
|| line 8."
What do you think the value of $smtp is when the connection fails?
Never blindly assume connections are going to succeed.
Abigail
--
$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};
$\=$/;q<Just another Perl Hacker>->();
------------------------------
Date: 17 Jul 2000 16:05:41 -0500
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Net::Smtp problems
Message-Id: <8kvsf5$nae$1@provolone.cs.utexas.edu>
In article <MPG.13dcd911e03686cb9896c3@news>,
jason <elephant@squirrelgroup.com> wrote:
>deno wrote ..
>>See the original question which started the topic and you'll see
>>the script.
>
>read up on how usenet works and you'll realise that not everyone will
>necessarily HAVE the original question which started the topic
Your news server doesn't keep articles for at least two days? If it
did, you'd have that article.
Of course, it helps to have a threaded newsreader so you can get to
that article easily...
- Logan
------------------------------
Date: Mon, 17 Jul 2000 22:01:09 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: Newbie needs help!
Message-Id: <MPG.13de1f76663240669896d5@news>
Bart Lateur wrote ..
>Jim Mauldin wrote:
>
>>> >($link, $descr) = /\[(.*?)]/g;
>>> >
>>> Yes, but then you'll get the brackets included in $link and
>>> $descr.
>>>
>>
>>Not so. perldoc perlop, and try it on $_ = "[www.perl.org]\t[A Perl site]";
>>It only returns what's inside the ( ) after matching the whole expression.
>
>Aren't people paying attention, or what?!?!
>
>Keith simple pointed out that if you drop the parents in the above,
>
> ($link, $descr) = /\[.*]/g;
>
>*then* the square brackets will be included in the results, just as with
>
> ($link, $descr) = /(\[.*])/g;
it is you Bart who's not paying attention .. Jim originally had
($link, $descr) = (/\[(.*?)]/g);
^ ^...these parens were dropped
and he dropped the surrounding parens with the comment that the LHS
provides the list context .. then Keith misunderstood thinking that he
was intending on dropping the capturing parens inside the regex .. which
he never was
sheesh ;)
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Mon, 17 Jul 2000 21:02:40 +0100
From: "Revd. Kermit" <kermit23@raegunne.com>
Subject: newbie: incrementing the value of a byte
Message-Id: <8kvoek$r95$1@uranium.btinternet.com>
I am using read to read in a byte from a file, but if I can't work out how
to increment the value of the byte rather than the ascii representation of
it.
thanks to anyone that responds.
Ian Barber
------------------------------
Date: 17 Jul 2000 21:16:38 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: newbie: incrementing the value of a byte
Message-Id: <8kvt3m$trq$3@slb0.atl.mindspring.net>
Revd. Kermit (kermit23@raegunne.com) wrote:
: I am using read to read in a byte from a file, but if I can't work out how
: to increment the value of the byte rather than the ascii representation of
: it.
The ord() and chr() functions are what you need; read about them in perlfunc.
------------------------------
Date: Mon, 17 Jul 2000 13:58:00 -0700
From: Makarand Kulkarni <makarand_kulkarni@my-deja.com>
To: "Revd. Kermit" <kermit23@raegunne.com>
Subject: Re: newbie: incrementing the value of a byte
Message-Id: <39737358.DDB233B@my-deja.com>
> I am using read to read in a byte from a file, but if I can't work out how
> to increment the value of the byte rather than the ascii representation of
> it.
use the "use bytes" pragma if you are using perl 5.6
------------------------------
Date: Mon, 17 Jul 2000 19:17:53 GMT
From: hacktic@my-deja.com
Subject: NT4 can't create file in cgi-bin
Message-Id: <8kvm4d$791$1@nnrp1.deja.com>
Hi all,
On a NT4 server where I only have FTP access, I tried to create a file
in the cgi-bin with a Perl script, but it returns the msg that it can't
make the file.
#!perl
open(FP, ">test.txt")||print("Can't make file.");
print FP ("this is a test");
close(FP);
print "Hello world!";
I thought it might be some restriction set on the scripts directory by
the IIS. So I thought to write the text file in the root directory or a
parent directory with one of the following.
open(FP, ">\\test.txt")||print("Can't open file.");
open(FP, ">..\\test.txt")||print("Can't open file.");
I had no success. Any idea what I'm doing wrong? Or is de server set
not to read/write to HD with scripts (if this is possible)? Maybe it's
some NTFS thing? On my own NT4 it works fine, but I'm using FAT.
Hope that somebody can help me ... first time I develop on NT and need
to demostrate to a client very soon.
Regards;
-Mark-
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 17 Jul 2000 19:42:31 GMT
From: lunatyc00@my-deja.com
Subject: pass change
Message-Id: <8kvnj8$bk6$1@nnrp2.deja.com>
I'm trying write a cgi script to allow users on a Unix system to change their
passes via the web. I'm looking for some help with this. Any takers? Any
advice?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 17 Jul 2000 21:49:57 +0100
From: jb <jbroz@yperite.demon.co.uk>
Subject: Re: pass change
Message-Id: <39737175.1592A201@yperite.demon.co.uk>
lunatyc00@my-deja.com wrote:
>
> I'm trying write a cgi script to allow users on a Unix system to change their
> passes via the web. I'm looking for some help with this. Any takers? Any
> advice?
post in comp.infosystems.www.authoring.cgi (i think that's the name of
the group, check to be sure)
------------------------------
Date: Mon, 17 Jul 2000 20:39:05 GMT
From: bchodo@my-deja.com
Subject: Passing and using multidimensional array references
Message-Id: <8kvqt6$b5o$1@nnrp1.deja.com>
I have a large array that I want to pass to a subroutine. I passed the
reference (\@array) to keep from having to pass the array, but now I'm
having trouble accessing individual elements in the file (i.e.)
I thought that I could do:
.
.
.
prog(\@array);
sub prog {
my @array = shift;
my $array;
# get element 2,5 of array
print "This is element 2,5:" . $$array[2][5];
return;
but it doesn't work. What am I doing wrong?
Thanks for your help
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 17 Jul 2000 14:45:41 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: Passing and using multidimensional array references
Message-Id: <8kvuo5$l45$1@brokaw.wa.com>
<bchodo@my-deja.com> wrote in message news:8kvqt6$b5o$1@nnrp1.deja.com...
> I have a large array that I want to pass to a subroutine. I passed the
> reference (\@array) to keep from having to pass the array, but now I'm
> having trouble accessing individual elements in the file (i.e.)
> I thought that I could do:
> .
> prog(\@array);
>
> sub prog {
> my @array = shift;
my $arrayref = shift;
> my $array;
Unnecessary.
> # get element 2,5 of array
> print "This is element 2,5:" . $$array[2][5];
> return;
You aren't getting an array when you shift @_. Avoid using the same names
for different variables: @array != $array.
Lauren
------------------------------
Date: 15 Jul 2000 06:12:06 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Perl can't add !
Message-Id: <slrn8n0f91.ibq.abigail@alexandra.delanet.com>
Stuart Horner (stuart@unidev.com) wrote on MMDX September MCMXCIII in
<URL:news:NUVb5.16320$EQ3.572715@news-east.usenetserver.com>:
__ I'm having a Perl adding error!
No, you don't. Now go read the FAQ and find out why you get this
behaviour.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: Mon, 17 Jul 2000 13:06:35 -0500
From: "Alejandro Kurczyn" <akurczyn@usa.net>
Subject: Re: Perl Expert? I need help!
Message-Id: <39734b14_2@excalibur.gbmtech.net>
"Scott McGerik" <scottlm@visi.com> escribió en el mensaje
news:walc5.1314$6E.225840@ptah.visi.com...
> How many times are you going to post this article? This is the third
> posting of this article that I have seen.
I don't know what's going on the NNTP server, I only posted it once.
Please accept my apologies.
regards,
Alejandro
------------------------------
Date: 17 Jul 2000 18:40:14 GMT
From: snow@statsci.com (Greg Snow)
Subject: Re: Perl Expert? I need help!
Message-Id: <8kvjue$7ej$1@junior.statsci.com>
In article <CNGb5.399$Ew5.9130@news6-win.server.ntlworld.com>,
Cal Henderson <cal@iamcal.com> wrote:
>
>"Bernard El-Hagin" <bernard.el-hagin@lido-tech.net> wrote...
>:
>: #!/usr/bin/perl -w
>: use strict;
>:
>: my $a = "My name is Sylvain";
>: $a =~ s/\s+//g;
>: $a =~ s/^(.{8}).*$/$1/;
>:
>: print $a;
>
>can this be done in a single reg ex?
my $a = "My name is Sylvain";
$a =~
s/(\S)\s*(\S)\s*(\S)\s*(\S)\s*(\S)\s*(\S)\s*(\S)\s*(\S).*/$1$2$3$4$5$6$7$8/s;
print $a;
But I think that the other methods suggested are probably better in most
cases.
--
-------------------------------------------------------------------------------
Gregory L. Snow | Inertia makes the world go round,
(Greg) | Love makes the trip worth taking.
gsnow@splus.mathsoft.com |
------------------------------
Date: 16 Jul 2000 10:29:08 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Perl Expert? I need help!
Message-Id: <slrn8n3imt.ibq.abigail@alexandra.delanet.com>
Alejandro Kurczyn (akurczyn@usa.net) wrote on MMDXI September MCMXCIII in
<URL:news:39716dd1_2@excalibur.gbmtech.net>:
-- From: "Tad McClellan" <tadmc@metronet.com>
-- >
-- > What is "better" depends on what you want to optimize.
-- >
-- >
-- > Speed?
-- >
-- > Size of source code?
-- >
-- > Size of executable?
-- >
-- > Memory usage?
-- >
-- > Disk usage?
-- >
-- > Development time?
-- >
-- > Maintenance time?
-- >
-- >
-- >
-- > For code that I post, you can nearly always assume the last one there.
--
--
-- OK, can you give any light on the other ones? Myself I prefer good
-- performance (that's a function of Speed, I/O, and Memory).
If it's speed & memory that are your prime requisites, then what on earth
are you doing in this group?
You should be going to comp.lang.c.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
------------------------------
Date: 14 Jul 2000 18:10:09 EDT
From: jmoter@1viewnetwork.com (Jennifer Moter)
Subject: Re: PERL IDES
Message-Id: <396f66a3.246829431@news.concentric.net>
Try Lemmy:
its an inexpensive vi emulation with modifiable syntax coloring
available highlighters are perl, java, c, c++, sql, pascal, html,...
as well as shell out to your OS.
and no, I don't work for the owner - I just *really* like this editor
http://www.softwareonline.org/lemmy41.html
jennifer
On Fri, 14 Jul 2000 14:44:07 -0600, "Robin Bank" <rbank@csf.edu>
wrote:
>Anyone know any good PERL IDEs for Win98, I'm sick of notepad, and I need to
>be able to rapidly develop perl.
>
>Thanks,
>Robin
>
>
Jennifer Moter
Sr QA Engineer
Electronic Bill Payment & Presentment
Digital Insight
jmoter@1viewnetwork.com
------------------------------
Date: Tue, 18 Jul 2000 09:21:15 +1200
From: "Trent Mankelow" <trent.mankelow@unisys.com>
Subject: Re: perl makemaker tutorial
Message-Id: <8kvtb8$kvd$1@mail.pl.unisys.com>
What I'm trying to do is a little unusual though, and the Makefile.PLs that
I've looked at haven't been much help. I basically want to abuse the
Makefile concept by using it to install several scripts (including shell
scripts, javascript, etc), modules, and images as well as creating a
directory structure to place these into. I've had a look at CPAN for
something of this sort (an Installer module?) but can't find anything apart
from ExtUtils::MakeMaker, which I've found difficult to use for this
purpose.
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:8kv16s$evc$1@lublin.zrz.tu-berlin.de...
> Trent Mankelow <trent.mankelow@unisys.com> wrote in comp.lang.perl.misc:
> >Does anyone know of a good ExtUtils::MakeMaker tutorial with lots of
> >examples?
>
> I don't know of any such tutorial, but examples are easy to come by.
> Most modules on CPAN contain one.
>
> Anno
------------------------------
Date: 14 Jul 2000 17:07:23 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: Perl on irc
Message-Id: <slrn8mv19m.dun.abigail@alexandra.delanet.com>
Kiel Stirling (taboo@doofa.net) wrote on MMDVIII September MCMXCIII in
<URL:news:396e0f8d_3@nexus.comcen.com.au>:
//
// Any idea's on good perl irc channels?
#teensex
Abigail
--
split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
------------------------------
Date: 14 Jul 2000 17:05:52 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: PRINTing " "" "
Message-Id: <slrn8mv16r.dun.abigail@alexandra.delanet.com>
Jürgen Exner (juex@deja.com) wrote on MMDIX September MCMXCIII in
<URL:news:396f5258@news.microsoft.com>:
}}
}} - Do you also object to \n, \t, and their cousins? They are exactly the
}} same. Explicit newlines are not allowed in strings. Therefore you need a
}} different way to denote them. Explicit double quotes are not allowed in
}} strings. Therefore you need a different way to denote them. Why would you
}} want to tread a double quote differently then a newline?
Only language designers who can't parse their way out of a paper bag,
or who are truely evil and like to torment the programmer forbid
newlines in a string.
Perl, of course, allows newlines in strings.
Abigail
--
print v74.117.115.116.32;
print v97.110.111.116.104.101.114.32;
print v80.101.114.108.32;
print v72.97.99.107.101.114.10;
------------------------------
Date: 14 Jul 2000 23:12:26 EDT
From: abigail@delanet.com (Abigail)
Subject: Re: PRINTing " "" "
Message-Id: <slrn8mvmm5.dun.abigail@alexandra.delanet.com>
Logan Shaw (logan@cs.utexas.edu) wrote on MMDX September MCMXCIII in
<URL:news:8kob8t$fo3$1@provolone.cs.utexas.edu>:
^^
^^ Um, how about this?
^^
^^ '"'
^^
^^ That's the shortest possible way to write a string that contains
^^ exactly one quote. (Well, o.k., it's not -- it's the shortest
^^ way to write such a string as a literal.)
This will do too:
v34
(in 5.6)
^^ Of course,
^^
^^ '"\n'
^^
^^ doesn't work out too well if you want to do that...
Nope. But this will:
'"
'
Abigail
--
tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4;
sub A::TIESCALAR {bless \my $A => A} # Yet Another silly JAPH by Abigail
sub A::FETCH {@q = qw /Just Another Perl Hacker/ unless @q; shift @q}
------------------------------
Date: Mon, 17 Jul 2000 14:12:18 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: PRINTing " "" "
Message-Id: <MPG.13dd168cb155b37298abd8@nntp.hpl.hp.com>
In article <slrn8mv16r.dun.abigail@alexandra.delanet.com> on 14 Jul 2000
17:05:52 EDT, Abigail <abigail@delanet.com> says...
> Jürgen Exner (juex@deja.com) wrote on MMDIX September MCMXCIII in
> <URL:news:396f5258@news.microsoft.com>:
> }}
> }} - Do you also object to \n, \t, and their cousins? They are exactly the
> }} same. Explicit newlines are not allowed in strings. Therefore you need a
> }} different way to denote them. Explicit double quotes are not allowed in
> }} strings. Therefore you need a different way to denote them. Why would you
> }} want to tread a double quote differently then a newline?
>
>
> Only language designers who can't parse their way out of a paper bag,
> or who are truely evil and like to torment the programmer forbid
> newlines in a string.
I'll trust Dennis Ritchie's ability to parse his way out of a paper bag,
and he is far too benign a person to torment programmers willy-nilly.
I believe that the design intent in C was to aid programmers by
obviating bugs caused by 'runaway' (unterminated) string constants.
Neither the limitation nor its rationale are mentioned in K&R.
The manual for B says: "[R]eal newlines (as opposed to escaped
newlines) are treated specially. ... If the newline is not preceded by a
'*', it is kept, but a warning message is issued, on the grounds that
you probably forgot the closing string quote." So the B 'warning'
quietly turned into a C 'fatal'. Not for lack of parsing ability or of
thought.
> Perl, of course, allows newlines in strings.
Larry Wall is clearly more libertarian than Dennis.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
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 3696
**************************************
