[22746] in Perl-Users-Digest
Perl-Users Digest, Issue: 4967 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 10 00:05:36 2003
Date: Fri, 9 May 2003 21:05:05 -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 Fri, 9 May 2003 Volume: 10 Number: 4967
Today's topics:
Re: Bloody Java Proselytisers!!! <cwilbur@mithril.chromatico.net>
Re: Bloody Java Proselytisers!!! <cwilbur@mithril.chromatico.net>
Re: DBD for postgres? <bwalton@rochester.rr.com>
Re: Hash memory consumption <mjcarman@mchsi.com>
Help with simple log check, return script (David Roberts)
Re: Help with simple log check, return script <emschwar@pobox.com>
Re: How many groups have a regex? (i5513)
Re: How many groups have a regex? <wksmith@optonline.net>
In search of elegant code - calling subroutines within (David Filmer)
Re: In search of elegant code - calling subroutines wit <noreply@gunnar.cc>
Re: In search of elegant code - calling subroutines wit <REMOVEsdnCAPS@comcast.net>
Re: Logic(al nightmare!) <sammie@greatergreen.com>
Re: Logic(al nightmare!) <sammie@greatergreen.com>
Re: Logic(al nightmare!) <emschwar@pobox.com>
Month number being returned is incorrect <jehoshua@my-deja.com>
Re: Newbie how to split file <wksmith@optonline.net>
RegExp Question <anthony@nospam.safferconsulting.com>
Re: RegExp Question <noreply@gunnar.cc>
Re: RegExp Question <anthony@nospam.safferconsulting.com>
Re: retrieve actuate report from the web <spam@thecouch.homeip.net>
Re: Total Utter Just Delivered Perl Newbie with a Pigna <REMOVEsdnCAPS@comcast.net>
Re: web page contents into a perl script <pilsl_usenet@goldfisch.at>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 09 May 2003 22:43:11 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Bloody Java Proselytisers!!!
Message-Id: <87wugzlp4b.fsf@mithril.chromatico.net>
William Goedicke <goedicke@goedsole.com> writes:
> > William Goedicke <goedicke@goedsole.com> writes:
> >
> > > Of course, projects can be completed with mediocre programmers in any
> > > language. What characteristic does java have that makes it better at
> > > this than other languages?
> >
> > An enormous standard library
>
> This doesn't strike me as a differentiating point from perl.
Except that to develop at all you have the JDK on your system, and to
run Java at all you have the JRE. Imagine if you knew you could use
any module from CPAN, and you could ship code that relied on any
module in CPAN, without having to worry about installing modules.
> > Consistent support from Sun
>
> What? Are you being sarcastic? And what about the myriad other JDEs,
> JVMs...
If you pay Sun enough, you can get support and training from the
people who created Java. Who in the Perl world provides anything
similar? This is not to say that there's not good Perl training and
support available, just that there's no obvious proprietor and source.
> Can't the mediocre programmer still play havoc by not doing adequate
> file and socket error handling or input data validation?
The mediocre programmer can, yes. But error handling in Java is most
easily done with exceptions; if you don't check the error result, you
get a stack dump with a FileNotOpen exception when you try to write to
it. Perl, by contrast, provides very good error messages, but you
need to explicitly check them for them to do you any good.
> Generically isn't the existance of so many buggy and poor performing
> programs written in java an empirical proof that it doesn't preclude
> bad programming practices?
My point is not that you can't do bad programming in Java, but that it
provides a tremendous amount of support to prevent the worst
programming practices. If you make something foolproof, then a damn
fool will break it all the same; but if you can eliminate most of the
problem areas, you can then get semi-fools to do the work.
Simply using Java instead of Perl won't fix the problem. But the
combination of a few practices -- such as code reviews and nightly
builds -- in addition to the use of Java will let you get far with
mediocre programmers. Code reviews don't work as well with Perl
because of the broad variety of idioms it supports: the maintainers
and reviewers need to be accustomed to the same idiom as the original
programmer in order to make sense of it.
Indeed, I think it's the focus on object orientation, plus
Model-View-Controller and the standard library, that makes Java useful
in this way: it's not that OO or MVC is in itself superior, but that
if all the Java programmers are familiar with those models, then you
really have all your programmers working in one mode.
Charlton
------------------------------
Date: Fri, 09 May 2003 22:43:12 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Bloody Java Proselytisers!!!
Message-Id: <87smrnlp09.fsf@mithril.chromatico.net>
Phillip Lord <p.lord@russet.org.uk> writes:
> >>>>> "Charlton" == Charlton Wilbur <cwilbur@mithril.chromatico.net> writes:
>
> Charlton> My point was not to argue language advocacy,
> Charlton> but to point out the reasons that Java is so popular. It
> Charlton> doesn't give the good programmer anything that he can't
> Charlton> find in Perl or C++ *spit* or C or Ruby or Python, but it
> Charlton> does have real benefits for mediocre programmers.
>
> As far as I could tell from your post, many, or most, of the benefits
> would also cover talented programmers as well surely?
Some of the benefits, yes. But the restrictions that add support for
mediocre programmers also restrict good programmers.
Bondage-and-discipline syntax and semantics are not a benefit to good
programmers, and the restriction to a single paradigm
(object-orientation with the model-view-component pattern) that's
largely encouraged by the standard library is certainly not beneficial
to a good programmer.
Charlton
------------------------------
Date: Sat, 10 May 2003 00:30:49 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: DBD for postgres?
Message-Id: <3EBC4836.9050808@rochester.rr.com>
Bing Du Test wrote:
> I don't see one for postgres on
> http://search.cpan.org/modlist/Database_Interfaces/DBD.
>
> Anybody know how I should access postgres database from within Perl?
...
> Bing
There is DBD::PgPP listed right on the link you provided in your post.
I've never tried it, though.
--
Bob Walton
------------------------------
Date: Fri, 09 May 2003 23:07:30 GMT
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: Hash memory consumption
Message-Id: <SwWua.787870$3D1.434687@sccrnsc01>
On 5/8/2003 4:46 PM, Mike Hunter wrote:
> On Wed, 07 May 2003 16:29:43 -0500, Michael Carman wrote:
>> On 5/7/2003 2:48 PM, Mike Hunter wrote:
>>>
>>>>> Is there any way to reduce the consumption of the hash data
>>>>> structure itself?
>>
>> If you're getting lots of key collisions it's possible that Perl is
>> allocating more memory (buckets) for the hash without making good
>> use of it.
>
> Is there a way to change the key length to something large before I
> start entering data?
You can preallocate buckets by assigning to keys()
keys %hash = 2048;
but that wouldn't help memory consumption. (It _might_ improve speed.)
>> What kind of values are $source and $dest? (string vs integer,
>> small numbers vs large, (nearly) sequential vs random...)
>
> source and dest are 7 byte strings (ipv4 + port + ip_protocol)
Okay, so changing the data structure to a HoL or LoL isn't practical.
-mjc
------------------------------
Date: 9 May 2003 17:20:12 -0700
From: dtrobert@hotmail.com (David Roberts)
Subject: Help with simple log check, return script
Message-Id: <28129ee9.0305091620.4b98587d@posting.google.com>
Okay,
I've tried to make swatch, wot and the like accomplish what I'm after
but resorting back to trying to write it from scratch.
Basically looking for a script that begins watching a logfile when
invoked waiting for a particular regex to appear. After which, it
simply exits returning the record containing the match (first match is
fine).
For example:
# mychker.pl printer-error* /var/log/syslog
(wait indefinitely)
(when/if regex is matched, return)
2003-05-09 12:31:23 hostname Detected printer-errors when sending a
job to printer1
#
I'm no perl programmer but can get by sometimes. I thought perhaps the
psuedocode is:
1. open file but like a 'tail'. I don't care if the string exists in
the file already, just looking for new occurrences.
2. wait for string match
3. print out the matched string.
Anyone know how to accomplish it?
Thanks
------------------------------
Date: 09 May 2003 18:27:55 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Help with simple log check, return script
Message-Id: <eto8ytfve5w.fsf@wormtongue.emschwar>
> I'm no perl programmer but can get by sometimes. I thought perhaps the
> psuedocode is:
>
> 1. open file but like a 'tail'. I don't care if the string exists in
> the file already, just looking for new occurrences.
perldoc -q tail
> 2. wait for string match
perldoc perlre
perldoc perlfaq6
> 3. print out the matched string.
perldoc -f print
> Anyone know how to accomplish it?
Sounds pretty easy. Come back with some code after you've read those
docs, and we'll help, if necessary, but they should be all you need.
-=Eric
--
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
-- Blair Houghton.
------------------------------
Date: 9 May 2003 15:44:07 -0700
From: i5513@hotmail.com (i5513)
Subject: Re: How many groups have a regex?
Message-Id: <a657ec02.0305091444.272797db@posting.google.com>
Thank you. I had read bad at perlvar the @- var. I didn't understand
"succesfull match" meaning. Now I understand it.
------------------------------
Date: Sat, 10 May 2003 00:00:02 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: How many groups have a regex?
Message-Id: <6iXua.36948$AG6.9123364@news4.srv.hcvlny.cv.net>
"i5513" <i5513@hotmail.com> wrote in message
news:a657ec02.0305090423.1d2d5f9e@posting.google.com...
> Hi again, I need a copy of $1..$last after a $var =~ /$er/ is done.
>
> Is there any var that says how many groups are there at last
expression evaluate?
>
> For example, I'd like:
>
> $var =~ /$er/;
> # $n_groups = n_match_parents ($er)
> map { $groups{$_} = ${$_}} 0 .. $n_groups;
>
> How I can get $n_groups?
> Thank you very much.
Why not do the match in list context and use an array rather than a
hash. The array @groups can be built without using $n_groups. It even
works under stricture.
use strict;
use warnings;
my $str = 'a b c';
my $pat = '(a) (b) (c)';
my @group = ();
push @group, $_ foreach ($str=~/$pat/);
print join "\n", @group;
Bill
------------------------------
Date: 9 May 2003 15:50:34 -0700
From: IneverReadAnythingSentToMe@hotmail.com (David Filmer)
Subject: In search of elegant code - calling subroutines within a match?
Message-Id: <e4c916dd.0305091450.10e9dad3@posting.google.com>
I can do this:
$foo = &bar(); #subroutine &bar() returns some text
s/xyz/$foo/; #change "xyz" to the output of &bar()
But I'd prefer to write it like this:
s/xyz/&bar()/; #change "xyz" to the output of &bar() in one
statement
Obvioulsy that won't work, but I suspect some proper syntax exists to
do what I'm trying to do. Does anyone know what syntax I might use?
------------------------------
Date: Sat, 10 May 2003 00:59:03 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: In search of elegant code - calling subroutines within a match?
Message-Id: <b9hcbq$jps8d$1@ID-184292.news.dfncis.de>
David Filmer wrote:
> I can do this:
>
> $foo = &bar(); #subroutine &bar() returns some text
> s/xyz/$foo/; #change "xyz" to the output of &bar()
>
> But I'd prefer to write it like this:
>
> s/xyz/&bar()/; #change "xyz" to the output of &bar() in one
> statement
>
> Obvioulsy that won't work, but I suspect some proper syntax exists to
> do what I'm trying to do. Does anyone know what syntax I might use?
Add the /e modifier:
s/xyz/bar()/e;
----------------^
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 09 May 2003 19:00:45 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: In search of elegant code - calling subroutines within a match?
Message-Id: <Xns9376CB9BF38C8sdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
IneverReadAnythingSentToMe@hotmail.com (David Filmer) wrote in
news:e4c916dd.0305091450.10e9dad3@posting.google.com:
> I can do this:
>
> $foo = &bar(); #subroutine &bar() returns some text
<broken record> Don't use & to call functions. </broken record>
:-)
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.5.13
iD8DBQE+vEE0Y96i4h5M0egRAtJDAKDLIVqN/E27k1H09z8ABKD4w9QTpwCgwEHG
/4/U9waBQEA5n+mzrQINDtc=
=amir
-----END PGP SIGNATURE-----
------------------------------
Date: Sat, 10 May 2003 01:24:53 GMT
From: "Brad Walton" <sammie@greatergreen.com>
Subject: Re: Logic(al nightmare!)
Message-Id: <FxYua.788813$3D1.436294@sccrnsc01>
What is top-post?
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnbbn5b6.2d4.tadmc@magna.augustmail.com...
> Brad Walton <sammie@greatergreen.com> wrote:
>
>
> Please do not top-post.
>
> Please see the Posting Guidelines that are posted here frequently:
>
> http://mail.augustmail.com/~tadmc/clpmisc.shtml
>
>
> > Yeah, I know the variable for the DB is looong,
>
>
> I did not say anything about long variables...
>
>
> > tie @DB, 'Tie::File', $dormantstatdb or "cannot open $dormantstatdb: $!
>
>
> > if you see anything wrong there let me know.
>
>
> There is a bug in the code quoted above.
>
> You should always enable warnings when developing Perl code,
> it would have pointed out that bug for you...
>
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Sat, 10 May 2003 01:28:17 GMT
From: "Brad Walton" <sammie@greatergreen.com>
Subject: Re: Logic(al nightmare!)
Message-Id: <RAYua.788831$3D1.436378@sccrnsc01>
Ahh... no I took out the die on purpose. I will try the strict method and
see what happens. I am confused about setting flags. I run on a Windows
platform, and the normal flag procedures I see in the numerous Perl books
that I own do not cover Windows method of flags. I am also using the
ActiveState build of Perl.
Brad
"Eric J. Roode" <REMOVEsdnCAPS@comcast.net> wrote in message
news:Xns93763C421DF76sdn.comcast@216.166.71.239...
> -----BEGIN xxx SIGNED MESSAGE-----
> Hash: SHA1
>
> "Brad Walton" <sammie@greatergreen.com> wrote in
> news:jeHua.541841$Zo.115854@sccrnsc03:
>
> > Yeah, I know the variable for the DB is looong, but it will make
> sense
> > to me later. Anyway, I have been working at this all evening, and
> came
> > up with a new approach:
> >
> > sub file_stats_left {
> > tie @DB, 'Tie::File', $dormantstatdb or "cannot open
> $dormantstatdb:
> > $!
>
> Tad was not referring to the long variable name. Long variable names
> are often a good thing. Tad was referring to the fact that the
> right-side of your "or" expression is ... just a string. Perhaps you
> meant to "die" there? Perhaps instead of copying/pasting your real
> code, you re-typed it?
>
> - --
> Eric
> print scalar reverse sort qw p ekca lre reh
> ts uJ p, $/.r, map $_.$", qw e p h tona e;
> -----BEGIN xxx SIGNATURE-----
> Version: GnuPG v1.2.1 (MingW32) - WinPT 0.5.13
>
> iD8DBQE+u3sFY96i4h5M0egRAiOAAJ41xnzadK0XRqmhmB5IMDRQj9FeMQCg6YVB
> p4Il2MRRGOMdR+VFNZl4kJk=
> =cT3Y
> -----END PGP SIGNATURE-----
------------------------------
Date: 09 May 2003 19:59:51 -0600
From: Eric Schwartz <emschwar@pobox.com>
Subject: Re: Logic(al nightmare!)
Message-Id: <etoznlvtvc8.fsf@wormtongue.emschwar>
"Brad Walton" <sammie@greatergreen.com> writes:
> What is top-post?
That is.
Did you read the guidelines Tad thoughtfully linked for you?
FYI, one of the basic rules of clpm is that we're glad to help here,
but we don't do your work for you. Specifically, if your question can
be found in the FAQs, you should check there first, since it's faster
and wastes no-one's time. Likewise, if someone posts a URL for you to
read, it's rude to ignore their effort and ask a simple question that
can easily be answered from the documentation at that URL.
See the "Use an effective followup style" section, specifically.
-=Eric
--
Come to think of it, there are already a million monkeys on a million
typewriters, and Usenet is NOTHING like Shakespeare.
-- Blair Houghton.
------------------------------
Date: Sat, 10 May 2003 13:30:46 +1000
From: Peter Richards <jehoshua@my-deja.com>
Subject: Month number being returned is incorrect
Message-Id: <disobv4u1ei0ppnmccd4el7rtv8kiuck3i@4ax.com>
Hi,
I'm new to Perl, pls excuse my ignornace. The following Perl code:
my (undef, undef, undef, $day, $month, $year, @rest) =
localtime(time);
$outfile = sprintf "%s/%4d-%2.2d-%2.2d-", $base_dir, $year + 1900,
$month, $day;
and I read somewhere that the month value returned by localtime is 0
to 11, and that is what the problem is, a (flat) file created in May
will have month value of 4.
How do I increment the variable $month by 1 ? Is it just:
$month++;
Thanks,
Peter
Peter Richards
peter_j_richards@nospamplease.com
(but use hotmail to email)
------------------------------
Date: Sat, 10 May 2003 03:39:52 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: Newbie how to split file
Message-Id: <cw_ua.38224$AG6.9716982@news4.srv.hcvlny.cv.net>
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:b9g2dd$qd6$1@mamenchi.zrz.TU-Berlin.DE...
> Bill Smith <wksmith@optonline.net> wrote in comp.lang.perl.misc:
> >
> > "Freidrich" <fclack50@yahoo.com> wrote in message
> > news:b9dpun$hupgo$1@ID-82947.news.dfncis.de...
> > > Hello,
> > >
> > > Pardon my English. new to Perl have not used it
> > >
> > > I have file is 28 bytes
> > > and I need to have text name = 12 bytes char and textnumber =
16bytes
> > > numerics.
> > >
> > > Can please tell how to split,
> > > ($textname, $textnumber) = split(/ /$line)
> >
> > You do not need split, just the list context.
>
> Granted you don't need split, but you can use it to break a string
> at a given point:
>
> pos( $line) = 12;
> my( $textname, $textnumber) = split /\G/, $line;
>
Very interesting. After re-reading the online documentation for split
and \G, I cannot convince myself whether this should work or not. On my
own, I certainly would never have thought to try it.
Thanks,
Bill
------------------------------
Date: Fri, 9 May 2003 17:14:30 -0500
From: "Anthony Saffer" <anthony@nospam.safferconsulting.com>
Subject: RegExp Question
Message-Id: <3ebc289f$1_2@nntp2.nac.net>
Hello Again,
Let's say I have an entry in a log file like this:
1/13/03 "Joe Somebody"<joe@somewhere.com>
How would I extract ONLY the email address from this line?
Thanks!
Anthony
------------------------------
Date: Sat, 10 May 2003 00:19:23 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: RegExp Question
Message-Id: <b9ha1b$jh628$1@ID-184292.news.dfncis.de>
Anthony Saffer wrote:
> Let's say I have an entry in a log file like this:
>
> 1/13/03 "Joe Somebody"<joe@somewhere.com>
>
> How would I extract ONLY the email address from this line?
$line = '1/13/03 "Joe Somebody"<joe@somewhere.com>';
($address) = $line =~ /<([^>]+)>/;
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 9 May 2003 17:31:11 -0500
From: "Anthony Saffer" <anthony@nospam.safferconsulting.com>
Subject: Re: RegExp Question
Message-Id: <3ebc2c88$1_2@nntp2.nac.net>
"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:b9ha1b$jh628$1@ID-184292.news.dfncis.de...
> Anthony Saffer wrote:
> > Let's say I have an entry in a log file like this:
> >
> > 1/13/03 "Joe Somebody"<joe@somewhere.com>
> >
> > How would I extract ONLY the email address from this line?
>
> $line = '1/13/03 "Joe Somebody"<joe@somewhere.com>';
> ($address) = $line =~ /<([^>]+)>/;
>
> / Gunnar
Thank you very much!
Anthony
------------------------------
Date: Fri, 09 May 2003 23:32:02 -0400
From: Mina Naguib <spam@thecouch.homeip.net>
Subject: Re: retrieve actuate report from the web
Message-Id: <So_ua.12963$2C1.154811@weber.videotron.net>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Look into the LWP, LWP::Simple, LWP::UserAgent and the HTTP::Request
modules, either already installed on your computer, or available as a
free download from CPAN ( http://www.cpan.org/ )
Best of luck.
Samara wrote:
> I need to write perl script to go to specific URL, retrieve report
> from that site, parse it, and update database accordingly.
>
> Reports I am looking for are generated by using Actuate reporting
> tool.
>
> Those reports have been generated dynamically upon recieving requests
> from the browser and there are no static pages on the web site I am
> trying to access.
> Every time I go to that site to view reports from browser I type my
> username and
> password and source code contains a link like this "<IMG
> SRC='/cgi-bin/nph-actuate.cgi/acweb/reports/__default/my_company_name/date_of_the_report/name_of_the_report'>.
>
> Can someone to help.
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQE+vHK1eS99pGMif6wRAumsAJ9vTrqhp2PvYisOsdCOtnwk9CMTYgCeKAxV
MblKuUdOPgi5qxZTSpTdmZ4=
=NCRb
-----END PGP SIGNATURE-----
------------------------------
Date: Fri, 09 May 2003 18:41:57 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Total Utter Just Delivered Perl Newbie with a Pignant Question
Message-Id: <Xns9376C86C65C8Bsdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Josef Möllers <josef.moellers@fujitsu-siemens.com> wrote in
news:3EBB9D38.802A1851@fujitsu-siemens.com:
> In contrast to e.g. C-programs, there is no predefined $ARGC, so
your
> example could (TMTOWTDI) be written as
>
> #! /usr/bin/perl -w
> chdir $ENV{HOME};
> if ($#ARGV == -1) {
> print "no arguments\n";
> } elsif ($#ARGV == 0) {
> print "one argument $ARGV[0]\n";
> } elsif ($#ARGV == 1) {
> print "two arguments $ARGV[1]\n";
> } else {
> print "bugger!\n";
> }
Yes, but it's so much nicer to use @ARGV in a scalar context, which
gives you the number of arguments. No off-by-one nonsense:
if (@ARGV == 0) {
print "no arguments\n";
} elsif (@ARGV == 1) {
print "one argument\n";
} elsif (@ARGV == 2) {
print "two arguments\n";
}
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.5.13
iD8DBQE+vDzIY96i4h5M0egRAoM+AKD99MW8g6Xj+4bK/9V/l8eDMSxDhgCg44hh
vJA4gW9LkAQrS/4k1uk9bHQ=
=ULQ6
-----END PGP SIGNATURE-----
------------------------------
Date: Sat, 10 May 2003 00:12:57 +0200
From: peter pilsl <pilsl_usenet@goldfisch.at>
Subject: Re: web page contents into a perl script
Message-Id: <3ebc285a@e-post.inode.at>
Ahab wrote:
> I've using top post method for years. Not going to stop now. Far better
> to get to the crux of the message straight off, instead wading through the
> same stuff over and over again in each follow-up message.
>
If you are used to bad things then there is no better time to stop them
then "now". Just keep the relevant parts of the previous posting (and
delete the rest) and add your comments *below* them.
Its the best way to let the other readers know what you are talking about.
And it represents the way we were trained to read pages : from top to the
bottom and not vice versa.
> Besides the rules on that link didn't help me solve my problem. Maybe
> should have a rule that says group responses should be relevant to the
> query, rather than about draconian guidelines. It would save on bytes.
>
LWP::Simple still is the answer to your question. Its on you to pick it up.
If you dont have the module installed, then you should take a look at
www.cpan.org where you'll find the module and the documentation about the
module.
As other guys said you are egocentric : I dont think so, but if I read your
postings ... hmm : at least I can understand this guys.
hope you feel well,
peter
--
peter pilsl
pilsl_usenet@goldfisch.at
http://www.goldfisch.at
------------------------------
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 4967
***************************************
