[18528] in Perl-Users-Digest
Perl-Users Digest, Issue: 696 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 14 00:05:47 2001
Date: Fri, 13 Apr 2001 21:05:07 -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: <987221107-v10-i696@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 13 Apr 2001 Volume: 10 Number: 696
Today's topics:
Re: [OT] Posts like this <comdog@panix.com>
Re: Beta Testers/Perl Hackers <krahnj@acm.org>
Re: Beta Testers/Perl Hackers (Abigail)
Re: Beta Testers/Perl Hackers <iltzu@sci.invalid>
RE: Beta Testers/Perl Hackers <jamesfreeman@MailAndNews.com>
RE: Beta Testers/Perl Hackers <jamesfreeman@MailAndNews.com>
RE: Beta Testers/Perl Hackers <jamesfreeman@MailAndNews.com>
Re: Beta Testers/Perl Hackers <krahnj@acm.org>
Re: Beta Testers/Perl Hackers (Abigail)
Re: Help Required <wyzelli@yahoo.com>
Re: Looking for a tutorial on connecting to a database <simon-carlisle@*REMOVEME*lineone.net>
Re: RegEx novice <projectobjects@earthlink.net>
Re: RegEx novice <uri@sysarch.com>
Re: So what do YOU use Perl for? (Randal L. Schwartz)
Re: So what do YOU use Perl for? <elijah@workspot.net>
Re: STDERR to file and to shell <mjcarman@home.com>
Re: Testing open ports <mikecook@cigarpool.com>
Re: to get a PId <iltzu@sci.invalid>
Re: To Perl Or Not To Perl (Re: Why Perl?) (Lou Moran)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 13 Apr 2001 18:08:55 -0400
From: brian d foy <comdog@panix.com>
Subject: Re: [OT] Posts like this
Message-Id: <comdog-EF5728.18085513042001@news.panix.com>
In article <eKJB6.8309$s93.506121@news.infostrada.it>, "Mario Rizzuti"
<diab.lito@usa.net> wrote:
> I am writing a bulletin board system as an hobby and having some doubts
> developing a "view posts like this" feature.
>
> The first methods coming to my mind are based on inverted indexes and sound
> very slow and disk space wasters.
pre-sorting things makes it a lot quicker :)
> At this point the script would track the user click on the results page and
> find the words in the "descriptive array" that are not present in the post
> and increase their frequency by $k (to give them less "descriptive score").
> Can anyone advice me about an effective way to develop this feature?
the best product i've seen like this did something similar, but then
asked the reader how much the next post helped them (as in, you found
this when looking for X, so how does it fit into X). after a small
amount of user ratings, groups start to emerge. that information
might be more useful than comparing the presence of words.
but then, there's not much Perl there ;)
--
brian d foy <comdog@panix.com>
------------------------------
Date: Fri, 13 Apr 2001 22:43:01 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Beta Testers/Perl Hackers
Message-Id: <3AD7810E.79E71DC0@acm.org>
james freeman wrote:
>
> Hi all
>
> If you hack perl you may be interested in checking out some new beta
> scripts
> and I would certainly appreciate your comments so they can be optimised.
>
> [snip]
>
> The scripts and pod are online at:
>
> http://www.dynamicflight.com.au/perl.htm
They should all have a "require 5.6;" statement as they won't work with
earlier versions.
John
--
use Perl;
program
fulfillment
------------------------------
Date: Fri, 13 Apr 2001 22:44:27 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Beta Testers/Perl Hackers
Message-Id: <slrn9df0ab.aee.abigail@tsathoggua.rlyeh.net>
james freeman (jamesfreeman@MailAndNews.com) wrote on MMDCCLXXXII
September MCMXCIII in <URL:news:3AF96DC0@MailAndNews.com>:
)) Hi Abigail
))
)) Can you please send me the output after running stripcomments.pl on itself.
Eh, no. You can run stripcomments on itself as well.
)) When I run it on a dos box I get no problems, vis:
))
)) C:\>perl stripcomments.pl stripcomments.pl
That's not quite the way how I called it, now is it?
)) You are quite correct that it will break this:
))
)) $_ = "Just another Python# Hacker\n";
)) s {Python#}
)) [Perl];
)) print;
))
)) This is because the regex finding algorithm only looks for single line
)) regexes
)) (a function of its current design) It has no problem with:
Assuming there are no newlines in a substitution is extremely silly.
)) I have not previously seen anyone use =pod as a herepage token but can catch
)) such tokens with ease. I made a rash presumption that most people use lines
)) starting with = in pod context only! TIMTWOTDI.
A program that only works in most cases is broken.
)) If you could email me the output that you have after one pass of
)) stripcomments.pl on itself that would be great as it works just fine under
)) DOS.
)) Why it should be any different under unix???? I'll run it on my linux box
)) today and see if I get the same results.
That's because you think you can put ads on the first line of a program.
Which, of course, you can't as only the first 2 bytes are scanned for a
shebang.
And please:
- DO NOT STEALTH CC. That makes you look like a moron.
- DO NOT CC ME IN DUPLICATE. That makes you look like a moron.
- DO NOT POST JEOPARDY STYLE. That makes you look like a moron.
- DO NOT LOSE REFERENCES. That makes you look like a moron.
Here's another one you might try to strip comments off:
BEGIN {if ($ARGV [0]) {eval 'sub foo () {print}'}
else {eval 'sub foo ($) {print}'}
}
$_ = "Just another Perl Hacker\n";
foo /#/;
1;
Does that have a comment or not?
Yet another failure:
$ cat test
$_ = "Just another Perl Hacker
# Yes, really!
# I am really a Perl Hacker!
";print;
$ perl test
Just another Perl Hacker
# Yes, really!
# I am really a Perl Hacker!
$ ./stripcomments.pl test
Processing
Done! Comment stripped file ./test
Backup of original ./test.bak
$ perl test
Just another Perl Hacker
$ cat test
# Stripped by stripcomments.pl (c) Dr James Freeman jfreeman@tassie.net.au
$_ = "Just another Perl Hacker
";print;
$
Only perl can parse Perl. And only fools think it's a good idea to strip
comments.
Abigail
--
use lib sub {($\) = split /\./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
------------------------------
Date: 13 Apr 2001 23:55:12 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: Beta Testers/Perl Hackers
Message-Id: <987204689.29162@itz.pp.sci.fi>
In article <slrn9df0ab.aee.abigail@tsathoggua.rlyeh.net>, Abigail wrote:
>james freeman (jamesfreeman@MailAndNews.com) wrote on MMDCCLXXXII
>September MCMXCIII in <URL:news:3AF96DC0@MailAndNews.com>:
>
>)) I have not previously seen anyone use =pod as a herepage token but can catch
>)) such tokens with ease. I made a rash presumption that most people use lines
>)) starting with = in pod context only! TIMTWOTDI.
>
>A program that only works in most cases is broken.
Just to muddle those nice black and white lines, I'd like to point out
that this is true only for a very broad definition of "broken". It is
admittedly often a reasonable definition, but one should remember that
it is also a definition that makes the categories "broken" and "useful"
overlap to a significant extent.
In particular, B::Deparse and AFAIK all the other B:: modules would be
considered seriously broken using such a definition, yet they are quite
useful indeed. In fact, that definition of "broken" could be stretched
to cover all programs with bugs in them, meaning that the overwhelming
majority of all software, including perl, is broken.
That is, of course, a reasonable summary of the situation. Somewhat
paradoxically, however, the very strictness of the definition leads to
the conclusion that, except for rare cases, any meaningful comparison of
brokenness using it must be quantitative, not qualitative.
Your quoted statement above, therefore, is trivial and offers no real
insight into the quality of the program in question. There are plenty
of very good and useful programs that try and fail to parse Perl, and
simply pointing out that the OP's script also does so says nothing one
way or the other.
Admittedly, the examples you presented in other parts of the message do
suggest that the script fails to parse even some rather simple cases
correctly, performing significantly worse than, for example, cperl-mode
in emacs. Nonetheless, presenting meaningful evidence in support of a
meaningless statement does not make the statement any more meaningful.
No, I don't think we're actually disagreeing.
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
Please ignore Godzilla / Kira -- do not feed the troll.
------------------------------
Date: Fri, 13 Apr 2001 20:57:21 -0400
From: james freeman <jamesfreeman@MailAndNews.com>
Subject: RE: Beta Testers/Perl Hackers
Message-Id: <3AFBB4A5@MailAndNews.com>
Hi John
Thanks for that. It may explain the first of Abigails problems as I can run
stripcomments.pl on itself till I go blue in the face without breaking it on
both DOS and LINUX boxes
Cheers
James
PS Can you please tell me why they won't work? I thought they were pretty
stock standard perl.
>===== Original Message From "John W. Krahn" <krahnj@acm.org> =====
>james freeman wrote:
>>
>> Hi all
>>
>> If you hack perl you may be interested in checking out some new beta
>> scripts
>> and I would certainly appreciate your comments so they can be optimised.
>>
>> [snip]
>>
>> The scripts and pod are online at:
>>
>> http://www.dynamicflight.com.au/perl.htm
>
>They should all have a "require 5.6;" statement as they won't work with
>earlier versions.
>
>
>
>John
>--
>use Perl;
>program
>fulfillment
------------------------------
Date: Fri, 13 Apr 2001 20:58:54 -0400
From: james freeman <jamesfreeman@MailAndNews.com>
Subject: RE: Beta Testers/Perl Hackers
Message-Id: <3AFBB6DA@MailAndNews.com>
Hi John
Thanks for that. It may explain the first of Abigails problems as I can run
stripcomments.pl on itself till I go blue in the face without breaking it on
both DOS and LINUX boxes
Cheers
James
PS Can you please tell me why they won't work? I thought they were pretty
stock standard perl.
>===== Original Message From "John W. Krahn" <krahnj@acm.org> =====
>james freeman wrote:
>>
>> Hi all
>>
>> If you hack perl you may be interested in checking out some new beta
>> scripts
>> and I would certainly appreciate your comments so they can be optimised.
>>
>> [snip]
>>
>> The scripts and pod are online at:
>>
>> http://www.dynamicflight.com.au/perl.htm
>
>They should all have a "require 5.6;" statement as they won't work with
>earlier versions.
>
>
>
>John
>--
>use Perl;
>program
>fulfillment
------------------------------
Date: Fri, 13 Apr 2001 21:48:54 -0400
From: james freeman <jamesfreeman@MailAndNews.com>
Subject: RE: Beta Testers/Perl Hackers
Message-Id: <3AFC51F6@MailAndNews.com>
Hi Abigail
Under linux, running stripcomments.pl on itself:
[root@localhost /home]#perl stripcomments.pl stripcomments.pl
Processing
Done! Comment stripped file ./stripcomments.pl
Backup of original ./stripcomments.pl.bak
[root@localhost /home]#perl stripcomments.pl stripcomments.pl
The target backup file ./stripcomments.pl.bak exists, overwrite (Y/N)? y
Processing
Done! Comment stripped file ./stripcomments.pl
Backup of original ./stripcomments.pl.bak
[root@localhost /home]#perl stripcomments.pl stripcomments.pl
The target backup file ./stripcomments.pl.bak exists, overwrite (Y/N)? y
Processing
Done! Comment stripped file ./stripcomments.pl
Backup of original ./stripcomments.pl.bak
[root@localhost /home]#vi stripcomments.pl
# Stripped by stripcomments.pl (c) Dr James Freeman jfreeman@tassie.net.au
#!/usr/bin/perl
use strict;
use warnings;
......etc
Assuming no newlines in a substitution, silly or not is a limitation of the
current algorithm. Sorry. This script is not the perl tokener, and will not
work on the full range of valid perl syntax. Just most of the common stuff.
I was unaware that not having the shebang as the first 2 bytes would break
the
program when you call it as you have, I don't call my perl that way. So you
live, you learn. It only does this in the context you called the program.
What
you neglected to mention is that the script would not have run in the first
place unless you placed a duplicate shebang above the pod. Moving the
shebang
to the top and dropping the "ads" will fix that. Thanks for increasing my
perl
knowledge another few bytes.
To remove the one line of "ads" takes about one second to change the
variable
my $message = 'naughty ad' to my $message = ''; Claiming some easily
erasable
credit/blame is perhaps not too over the top, but as you note will break
scripts that are called as you did. Easily fixed.
A program that only works 99.5% of the time is called service pack 2 by
Microsoft! The reason that the script writes a verified backup before
overwriting the original is to allow you to deal with the 0.5%
>Only perl can parse Perl. And only fools think it's a good idea to strip
>comments.
Absolutely correct. To detect comments with 100% accuracy you need a full
tokener, or more spceifically the perl tokener. Especially in a language
with
the syntactic flexibility of perl. Can you get it right most of the time
without this? We shall see.
As for stripping comments I agree that it is an antisocial, anti sharing,
anti
perl kind of thing to do. I only wrote this script because writing the
indent
script needed a comment detector to work, so the logical thing was to see
what
else you could use that algoritm for as I have seen some fairly poor
attempts
to do the same. Not that my effort is all that good as you continue to
demonstrate.
Keep the breakages coming, your inventiveness is superb, and based on an
obviously deep understanding of perl syntax.
At the risk of seeming a moron:
What is posting jeopardy style?
What references did I lose?
Turn up the butane.
Cheers
James
>===== Original Message From abigail@foad.org =====
>james freeman (jamesfreeman@MailAndNews.com) wrote on MMDCCLXXXII
>September MCMXCIII in <URL:news:3AF96DC0@MailAndNews.com>:
>)) Hi Abigail
>))
>)) Can you please send me the output after running stripcomments.pl on
itself.
>
>Eh, no. You can run stripcomments on itself as well.
>
>)) When I run it on a dos box I get no problems, vis:
>))
>)) C:\>perl stripcomments.pl stripcomments.pl
>
>That's not quite the way how I called it, now is it?
>
>)) You are quite correct that it will break this:
>))
>)) $_ = "Just another Python# Hacker\n";
>)) s {Python#}
>)) [Perl];
>)) print;
>))
>)) This is because the regex finding algorithm only looks for single line
>)) regexes
>)) (a function of its current design) It has no problem with:
>
>Assuming there are no newlines in a substitution is extremely silly.
>
>)) I have not previously seen anyone use =pod as a herepage token but can
catch
>)) such tokens with ease. I made a rash presumption that most people use
lines
>)) starting with = in pod context only! TIMTWOTDI.
>
>A program that only works in most cases is broken.
>
>)) If you could email me the output that you have after one pass of
>)) stripcomments.pl on itself that would be great as it works just fine under
>)) DOS.
>)) Why it should be any different under unix???? I'll run it on my linux box
>)) today and see if I get the same results.
>
>That's because you think you can put ads on the first line of a program.
>Which, of course, you can't as only the first 2 bytes are scanned for a
>shebang.
>
>And please:
>
> - DO NOT STEALTH CC. That makes you look like a moron.
> - DO NOT CC ME IN DUPLICATE. That makes you look like a moron.
> - DO NOT POST JEOPARDY STYLE. That makes you look like a moron.
> - DO NOT LOSE REFERENCES. That makes you look like a moron.
>
>
>Here's another one you might try to strip comments off:
>
> BEGIN {if ($ARGV [0]) {eval 'sub foo () {print}'}
> else {eval 'sub foo ($) {print}'}
> }
> $_ = "Just another Perl Hacker\n";
> foo /#/;
> 1;
>
>Does that have a comment or not?
>
>
>Yet another failure:
>
> $ cat test
> $_ = "Just another Perl Hacker
> # Yes, really!
> # I am really a Perl Hacker!
> ";print;
> $ perl test
> Just another Perl Hacker
> # Yes, really!
> # I am really a Perl Hacker!
> $ ./stripcomments.pl test
> Processing
> Done! Comment stripped file ./test
> Backup of original ./test.bak
> $ perl test
> Just another Perl Hacker
> $ cat test
> # Stripped by stripcomments.pl (c) Dr James Freeman
jfreeman@tassie.net.au
> $_ = "Just another Perl Hacker
> ";print;
> $
>
>
>Only perl can parse Perl. And only fools think it's a good idea to strip
>comments.
>
>
>Abigail
>--
>use lib sub {($\) = split /\./ => pop; print $"};
>eval "use Just" || eval "use another" || eval "use Perl" || eval "use
Hacker";
------------------------------
Date: Sat, 14 Apr 2001 02:16:24 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Beta Testers/Perl Hackers
Message-Id: <3AD7B2FB.24FDBF26@acm.org>
[Please post your response after the original post]
[Please don't quote .sigs]
[Please REPY to the post you are responding to]
[Post reformatted in chronological order]
james freeman wrote:
>
> >===== Original Message From "John W. Krahn" <krahnj@acm.org> =====
> >james freeman wrote:
> >>
> >> Hi all
> >>
> >> If you hack perl you may be interested in checking out some new beta
> >> scripts
> >> and I would certainly appreciate your comments so they can be optimised.
> >>
> >> [snip]
> >>
> >> The scripts and pod are online at:
> >>
> >> http://www.dynamicflight.com.au/perl.htm
> >
> >They should all have a "require 5.6;" statement as they won't work with
> >earlier versions.
>
> Hi John
>
> Thanks for that. It may explain the first of Abigails problems as I can run
> stripcomments.pl on itself till I go blue in the face without breaking it on
> both DOS and LINUX boxes
>
> PS Can you please tell me why they won't work? I thought they were pretty
> stock standard perl.
use warnings;
open (FILE, ">", $path) ...
These are a couple I found after a cursory examination.
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sat, 14 Apr 2001 02:32:24 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: Beta Testers/Perl Hackers
Message-Id: <slrn9dfdlo.aee.abigail@tsathoggua.rlyeh.net>
james freeman (jamesfreeman@MailAndNews.com) wrote on MMDCCLXXXIII
September MCMXCIII in <URL:news:3AFC51F6@MailAndNews.com>:
** Hi Abigail
**
** Under linux, running stripcomments.pl on itself:
**
** [root@localhost /home]#perl stripcomments.pl stripcomments.pl
** Processing
** Done! Comment stripped file ./stripcomments.pl
** Backup of original ./stripcomments.pl.bak
Now, I've already said that that is not the way how I ran it.
I guess there's no point of repeating that again.
** [root@localhost /home]#vi stripcomments.pl
** # Stripped by stripcomments.pl (c) Dr James Freeman jfreeman@tassie.net.au
** #!/usr/bin/perl
So, you fucked up the shebang line, replacing it with advertisement,
as I said before.
You do know the she bang line is important for *both* a UNIX kernel *AND*
perl itself? Well, I guess you don't.
Again you post jeopardy style, without trimming, and again you lose
the references.
Killfile, meet Dr James. Dr James, meet Master Killfile.
Abigail
------------------------------
Date: Sat, 14 Apr 2001 10:09:55 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Help Required
Message-Id: <vYMB6.3$WG3.2198@vic.nntp.telstra.net>
"Umair Bajwa" <bajwau@nortelnetworks.com> wrote in message
news:3AD60B2A.685C389@nortelnetworks.com...
> I would like to provide a link for the users to download the file into
> their home directory. In the code if I use file name <filename>.etx it
> works fine. But if I use <filename>.pdf it runs the acrobat reader and
> open the file right into it.
> Does any one have any idea instead of opening into the acrobat reader
> how should i force the perl to pop up the window and ask for the file
> name. Thanks in advance
>
Add some text telling the user how to save the file (right click 'save
target as' in ie for example).
Not really much Perl can do to help you here.
Wyzelli
--
#Modified from the original by Jim Menard
for(reverse(1..100)){$s=($_==1)? '':'s';print"$_ bottle$s of beer on the
wall,\n";
print"$_ bottle$s of beer,\nTake one down, pass it around,\n";
$_--;$s=($_==1)?'':'s';print"$_ bottle$s of beer on the
wall\n\n";}print'*burp*';
------------------------------
Date: Sat, 14 Apr 2001 02:57:09 +0100
From: "Si@lineone" <simon-carlisle@*REMOVEME*lineone.net>
Subject: Re: Looking for a tutorial on connecting to a database with Perl
Message-Id: <tdfbe16c1goi8e@corp.supernews.co.uk>
Thanks!
Regards
Si
"Mark Jason Dominus" <mjd@plover.com> wrote in message
news:3ad750a8.4359$3df@news.op.net...
> In article <tddqs2mves2me4@corp.supernews.co.uk>,
> Si@lineone <simon-carlisle@*REMOVEME*lineone.net> wrote:
> >Hello
> >Im looking for a good tutorial on using Perl to connect to a database
> >
> >Id be grateful if someone could post a url.
>
>
> http://www.perl.com/pub/1999/10/DBI.html
>
>
> >Best Regards
>
> Likewise.
> --
> @P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub
p{
>
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^or
d
> ($p{$_})&6];$p{$_}=/
^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
> close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep
rand(2)if/\S/;print
------------------------------
Date: Sat, 14 Apr 2001 00:02:34 GMT
From: "dkh" <projectobjects@earthlink.net>
Subject: Re: RegEx novice
Message-Id: <usMB6.6504$Pj2.558706@newsread1.prod.itd.earthlink.net>
I want to do a match in order to validate a phrase.
Something like Bart responded with except for validation instead.
If the phrase is (<word>[_- ]<word>[_- ]<word>) then I do not want it to be
true for (<word>[_- ]<word>)
even though it is a subset of (<word>[_- ]<word>[_- ]<word>)
dale
> > How would I go about building a regular expression that would exclude
one
> > phrase from the other, like so:
> >
> > 1. <word>[_- ]<word>
> > 2. <word>[_- ]<word>[_- ]<word>
> >
> > so that 1 would be excluded even though it is part of 2.
>
> Can you clarify what you mean here? What do you mean by "exclude one
> phrase from the other"? Can you show us the expected result of applying
> your regular expression?
>
> Are you trying to remove 1. from 2, and would this leave
> <word>[_-]
> or
> [_-]<word>
> after 1. is removed
------------------------------
Date: Sat, 14 Apr 2001 02:03:42 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: RegEx novice
Message-Id: <x73dbcme4l.fsf@home.sysarch.com>
>>>>> "d" == dkh <projectobjects@earthlink.net> writes:
d> I want to do a match in order to validate a phrase. Something like
d> Bart responded with except for validation instead. If the phrase
d> is (<word>[_- ]<word>[_- ]<word>) then I do not want it to be true
d> for (<word>[_- ]<word>) even though it is a subset of (<word>[_-
d> ]<word>[_- ]<word>)
first, don't jeopardy post.
second, stop using your own silly metalanguage. no one here can follow
this <word>[_- ] crap. use real examples or some form of regular
expression that does something. inventing your own pseudo-code style and
inflicting on the public without explaining it will not get you much
technical help.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture and Stem Development ------ http://www.stemsystems.com
Learn Advanced Object Oriented Perl from Damian Conway - Boston, July 10-11
Class and Registration info: http://www.sysarch.com/perl/OOP_class.html
------------------------------
Date: 12 Apr 2001 14:25:08 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: So what do YOU use Perl for?
Message-Id: <m1g0fdq097.fsf@halfdome.holdit.com>
>>>>> "Mark" == Mark Jason Dominus <mjd@plover.com> writes:
Mark> Around 1993 or 1994 I started dating a woman who was a quilter.
[...]
Mark> I was delighted even further when we got married,
Wow. So you can in fact use Perl to help you get more dates, just
like I said in the last paragraph of
<http://www.stonehenge.com/merlyn/UnixReview/col25.html>! Cool!
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 12 Apr 2001 21:29:08 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: So what do YOU use Perl for?
Message-Id: <eli$0104121729@qz.little-neck.ny.us>
In comp.lang.perl.misc, Mark Jason Dominus <mjd@plover.com> wrote:
> Elaine Ashton <elaine@chaos.wustl.edu> wrote:
> >There are close to 2100 modules on CPAN
> I counted 6,300 or so, looking at the 02packages.details.txt. Is this
> an error?
If Something::Bit and Something::Block come in the same distribution
are they seperate modules or not? Elaine's counting would say no, yours
would say yes.
Elijah
------
takes Elaine's view of counting
------------------------------
Date: Fri, 13 Apr 2001 22:06:54 GMT
From: Michael Carman <mjcarman@home.com>
Subject: Re: STDERR to file and to shell
Message-Id: <3AD77865.78571128@home.com>
Tobias wrote:
>
> Does anybody know, how to send the error messages to a file and to the
> screen at the same time.
Assuming that you want to do this from within Perl (since otherwise your
question would be off-topic here, right?) see perlfaq5: "How do I print
to more than one file at once?"
-mjc
------------------------------
Date: Fri, 13 Apr 2001 20:49:47 -0700
From: "Michael Cook" <mikecook@cigarpool.com>
Subject: Re: Testing open ports
Message-Id: <nOPB6.3462$Ra.725910@news.uswest.net>
Thanks for all of the replies! I got it working perfectly,
Michael
--
== CigarPool ==
http://www.cigarpool.com
"Jonathan Stowe" <gellyfish@gellyfish.com> wrote in message
news:9b6duc$8ip$5@plutonium.btinternet.com...
> Michael Cook <mikecook@cigarpool.com> wrote:
> > Hello,
> > I am trying to write a Perl script to test whether certain ports on
> > other servers are listening. I have searched CPAN, but can find
nothing -
> > can someone point me in the right direction?
>
> You mean like this :
>
> #!/usr/bin/perl -w
>
> use strict;
>
> use IO::Socket;
>
> for my $port ( 1 ... 255 )
> {
>
> my $sock = IO::Socket::INET->new( PeerAddr => 'localhost',
> PeerPort => $port,
> Proto => 'tcp' );
>
> print "$port\n" if $sock;
> }
>
>
> /J\
> --
> Jonathan Stowe |
> <http://www.gellyfish.com> | This space for rent
> |
------------------------------
Date: 14 Apr 2001 00:02:22 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: to get a PId
Message-Id: <987206527.181@itz.pp.sci.fi>
In article <n0JB6.257$lM6.357478@nnrp5.proxad.net>, guillaume wrote:
>hi,
>how can i get the PId of any application? i didn't find a PERL function
>to do that. (i don't speak of the PERL program's PId)
http://search.cpan.org/search?dist=Proc-ProcessTable
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
Please ignore Godzilla / Kira -- do not feed the troll.
------------------------------
Date: Fri, 13 Apr 2001 21:27:02 -0400
From: ellem@optonline.net (Lou Moran)
Subject: Re: To Perl Or Not To Perl (Re: Why Perl?)
Message-Id: <ellem-1304012127020001@192.168.1.2>
SNIP
>
> Pros: Having dinner with Perl Mongers.
SNIP etc
>
> Cons: Having dinner with Perl Mongers.
SNIP etc
> Abigail
Who are you? Where is the REAL Abigal?
Actual Abigal post would have been:
>>To Perl Or Not To Perl (Re: Why Perl?)
Perl != perl
--
use incomprehensible munging;
print "JaPh,";
--
OS X When you absolutely, positively, have to try everything
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 696
**************************************
