[22720] in Perl-Users-Digest
Perl-Users Digest, Issue: 4941 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 5 21:34:56 2003
Date: Mon, 5 May 2003 18:05:08 -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 Mon, 5 May 2003 Volume: 10 Number: 4941
Today's topics:
commenting script <remaras@earthlink.net>
FAQ suggestion, was Re: regex and extracting permutatio <REMOVEsdnCAPS@comcast.net>
Re: forcing downloads <tony_curtis32@yahoo.com>
Help: Create Hash On The Fly? (entropy123)
Including files in Perl <temp1_NO_SPAM_@williamc.com>
Re: Including files in Perl <jkeen@concentric.net>
Re: Including files in Perl <temp1_NO_SPAM_@williamc.com>
Re: Including files in Perl <jkeen@concentric.net>
Re: Including files in Perl <temp1_NO_SPAM_@williamc.com>
Re: Passing hash and string to subroutine <jkeen@concentric.net>
perl form validation (g)
Re: perl form validation (David Efflandt)
Re: perl form validation <noreply@gunnar.cc>
Re: perl form validation <REMOVEsdnCAPS@comcast.net>
Perl USB and OBEX module <me@privacy.net>
Re: Re: Re: Controlling external device with Perl <removeX_stevensx4000x@earthlinxk.next>
Re: regex and extracting permutations <w.koenig@acm.org>
Re: regex and extracting permutations <abigail@abigail.nl>
Re: regex and extracting permutations <w.koenig@acm.org>
Re: Sort array of numbers <abigail@abigail.nl>
Re: Sort array of numbers <abigail@abigail.nl>
Re: Sort array of numbers <remccart@uiuc.edu.spam>
Re: What can i do now for learnling perl? <jkeen@concentric.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 06 May 2003 01:04:15 GMT
From: "RonMaras" <remaras@earthlink.net>
Subject: commenting script
Message-Id: <jSDta.55842$ey1.5147824@newsread1.prod.itd.earthlink.net>
I am looking for a commenting script for my blog site.
------------------------------
Date: Mon, 05 May 2003 17:44:42 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: FAQ suggestion, was Re: regex and extracting permutations
Message-Id: <Xns9372BEADBCCD7sdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Ryan McCarthy <remccart@uiuc.edu.spam> wrote in
news:Gjyta.10769$6P6.156673@vixen.cso.uiuc.edu:
> I am tryng to use regular exprssions to extract permutations of a
> sequence into an array. Here are the parameters that I need to
meet.
I suggest that this should be a FAQ. Certainly it comes up F enough.
Bioinformatics programmers (at least) seem to need this problem
solved F.
Suggest that "the best" (for some definition of "best")
general-purpose solution to this problem be found and published in
the FAQ.
- --
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+tulMY96i4h5M0egRAhiLAKDiaKM0ke0cLeVwS0qDG9tk99nRsACgtU4x
OlA8CKBcG8rcATa+6N7vnqE=
=Lh5V
-----END PGP SIGNATURE-----
------------------------------
Date: Mon, 05 May 2003 18:00:49 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: forcing downloads
Message-Id: <87smrt3sny.fsf@limey.hpcc.uh.edu>
>> On Mon, 05 May 2003 13:06:18 -0400,
>> Marshall Dudley <mdudley@execonn.com> said:
> The first problem is that I cannot find a mime type for
> some of these formats. Thus I have no idea what I
> should be putting in the content type header part.
Not a perl problem per se.
> But more importantly if there is a way I can force the
> file to download, that would be better.
"force"? No. Any user can handle particular mime types
however they want.
hth
t
------------------------------
Date: 5 May 2003 17:50:19 -0700
From: email_entropy123@yahoo.com (entropy123)
Subject: Help: Create Hash On The Fly?
Message-Id: <90cdce37.0305051650.74277117@posting.google.com>
Hey all,
Thanks for all your help on my previous posts - I've learned a lot and
really appreciate all the good comments.
One thing I can't figure out is how to create a hash on the fly:
For example:
My programs first step is to read (A B C A) from a file. The next file
I read relates A to B, A to C, etc until all the relationships between
(A B C A) are clear. Except I have no idea how to organize them...
I'd like to create hash A0, hash B1, hash C2, hash A3 and so on to
organize the relationships between each element. (Order elements by
reading order...).
Lets say the following are my relationships: A0 & B1 =2, A0 & C2 = 1
A0 & A3 = 3 so:
hashA0 = (B1,2,A0,1,A3,3)
hashB1 = (A0,2)
hashC2 = (A0,1)
hashA3 = (A0,3)
When I start to read each file I have no idea how many hashes I'll
require and pretty much need to create them on the fly. How do I pull
this off? I'd really like to have the element and sequential number as
part of the hash name.
Thanks!
entropy
------------------------------
Date: Mon, 05 May 2003 23:11:14 GMT
From: PropART <temp1_NO_SPAM_@williamc.com>
Subject: Including files in Perl
Message-Id: <3EB6EF02.355CD5E4@williamc.com>
I'd like to put some constants in a file and include that file in
various other Perl files. This is in a CGI context, but it's a general
Perl question. e.g.
--> include.pl, with a lot of constants
$SERVER = "foo";
--> some_other_file.pl
#!/usr/bin/perl -w
require "include.pl";
print "Content-type: text/html\n\n";
...
print "The server is $SERVER\n";
So far so good. But originally my including file had use strict, which
blows up this code. Is there any good way to use strict and include
other files?
Approachs that I tried:
* our $SERVER = "foo";
* making include.pl a module...
* use lib "include.pl";
thx,
--williamc
------------------------------
Date: 05 May 2003 23:48:56 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: Including files in Perl
Message-Id: <b96t98$d3c@dispatch.concentric.net>
"PropART" <temp1_NO_SPAM_@williamc.com> wrote in message
news:3EB6EF02.355CD5E4@williamc.com...
>
> I'd like to put some constants in a file and include that file in
> various other Perl files. This is in a CGI context, but it's a general
> Perl question. e.g.
>
> --> include.pl, with a lot of constants
>
> $SERVER = "foo";
>
> --> some_other_file.pl
>
> #!/usr/bin/perl -w
> require "include.pl";
> print "Content-type: text/html\n\n";
> ...
> print "The server is $SERVER\n";
>
> So far so good. But originally my including file had use strict, which
> blows up this code. Is there any good way to use strict and include
> other files?
>
> Approachs that I tried:
>
> * our $SERVER = "foo";
>
> * making include.pl a module...
>
> * use lib "include.pl";
>
Declare the 'our' variable before calling the 'require' that pulls it in:
use strict;
use warnings;
our ($SERVER);
my $include_file = "require.pl";
require $include_file;
print '$SERVER is ', $SERVER, "\n";
------------------------------
Date: Mon, 05 May 2003 23:54:00 GMT
From: PropART <temp1_NO_SPAM_@williamc.com>
Subject: Re: Including files in Perl
Message-Id: <3EB6F908.74A7E338@williamc.com>
Right. I should have mentioned that using our in the including file
works. But it kind of takes the fun out of using an include if you
redeclare everything... On the other hand, maybe I'm asking the
impossible.
--williamc
James E Keenan wrote:
>
> "PropART" <temp1_NO_SPAM_@williamc.com> wrote in message
> news:3EB6EF02.355CD5E4@williamc.com...
> >
> > I'd like to put some constants in a file and include that file in
> > various other Perl files. This is in a CGI context, but it's a general
> > Perl question. e.g.
> >
> > --> include.pl, with a lot of constants
> >
> > $SERVER = "foo";
> >
> > --> some_other_file.pl
> >
> > #!/usr/bin/perl -w
> > require "include.pl";
> > print "Content-type: text/html\n\n";
> > ...
> > print "The server is $SERVER\n";
> >
> > So far so good. But originally my including file had use strict, which
> > blows up this code. Is there any good way to use strict and include
> > other files?
> >
> > Approachs that I tried:
> >
> > * our $SERVER = "foo";
> >
> > * making include.pl a module...
> >
> > * use lib "include.pl";
> >
> Declare the 'our' variable before calling the 'require' that pulls it in:
>
> use strict;
> use warnings;
>
> our ($SERVER);
> my $include_file = "require.pl";
> require $include_file;
>
> print '$SERVER is ', $SERVER, "\n";
------------------------------
Date: 06 May 2003 00:06:41 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: Including files in Perl
Message-Id: <b96uah$s2u@dispatch.concentric.net>
"PropART" <temp1_NO_SPAM_@williamc.com> wrote in message
news:3EB6F908.74A7E338@williamc.com...
> Right. I should have mentioned that using our in the including file
> works.
No 'our' in the include file: It contains only:
$SERVER = 'foo';
> But it kind of takes the fun out of using an include if you
> redeclare everything... On the other hand, maybe I'm asking the
> impossible.
Assuming you want to 'use strict' (and you should), you are.
------------------------------
Date: Tue, 06 May 2003 00:31:30 GMT
From: PropART <temp1_NO_SPAM_@williamc.com>
Subject: Re: Including files in Perl
Message-Id: <3EB701D1.42CB0078@williamc.com>
James E Keenan wrote:
> No 'our' in the include file: It contains only:
> $SERVER = 'foo';
...
>
> Assuming you want to 'use strict' (and you should), you are.
I mentioned that I tried using our in the included file. Are you saying
that this should work (and I did something wrong), or that use strict
precludes having it both ways? It looks like you're saying both :)
I was hoping that there was some way I didn't know about e.g. making the
included file a module, but I don't know squat about object oriented
Perl...
thx,
--williamc
------------------------------
Date: 05 May 2003 23:48:52 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: Passing hash and string to subroutine
Message-Id: <b96t94$d36@dispatch.concentric.net>
"Rich Pasco" <richp1234@hotmail.com> wrote in message
news:3EB5EF30.7090206@hotmail.com...
> [snip]
> Then what would the body of my subroutine
> "sub process_events" look like to retrieve the values in the hash?
> Here's what I came up with:
>
> #pass both a hash and a string
> my (%criterion, $text);
> $criterion{'a'} = 'AAA';
> $criterion{'b'} = 'BBB';
> $text = 'The Quick Brown Fox';
> process_events(\%criterion, $text);
> exit;
>
> sub process_events {
> my($criteria, $body) = @_;
> print "a=$$criteria{'a'}\n";
> print "b=$$criteria{'b'}\n";
> print "\nbody = $body\n";
> }
>
Perfectly fine, as is Sara's suggestion from this morning. If you prefer to
see things really explicit within the subroutine, you could dereference the
hashref and assign it to a lexically scoped hash.
sub process_events {
my($criteria, $body) = @_;
my %crit = %$criteria;
print "a=$crit{'a'}\n";
print "b=$crit{'b'}\n";
print "\nbody = $body\n";
}
------------------------------
Date: 5 May 2003 15:31:17 -0700
From: the_game_is_never_over@yahoo.co.uk (g)
Subject: perl form validation
Message-Id: <2059e247.0305051431.305adb03@posting.google.com>
What is the best way to validate a form in perl using perl? I done
something similar using JavaScript, I have tried implementing that in
perl:
Title <input type="text" name="Title" size="8" maxlength="16"/>
<input type="submit" name="Sub" value="Add Details" onlclick="return
&validate />
sub Validate{
if ($Title =="") {
print("error");
return false;
else
return true;
}
}
when the form is submitted it will only continue if title contains
text but this does not work, Is there a better way??
------------------------------
Date: Mon, 5 May 2003 23:57:11 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: perl form validation
Message-Id: <slrnbbduin.ppc.efflandt@typhoon.xnet.com>
On 5 May 2003 15:31:17 -0700, g <the_game_is_never_over@yahoo.co.uk> wrote:
> What is the best way to validate a form in perl using perl? I done
> something similar using JavaScript, I have tried implementing that in
> perl:
>
> Title <input type="text" name="Title" size="8" maxlength="16"/>
> <input type="submit" name="Sub" value="Add Details" onlclick="return
> &validate />
>
> sub Validate{
>
> if ($Title =="") {
> print("error");
>
> return false;
> else
> return true;
> }
> }
>
>
> when the form is submitted it will only continue if title contains
> text but this does not work, Is there a better way??
For one thing == is for comparing numbers, not strings. Also you do not
explain how you get the value of the "Title" field into the $Title
variable. Start by reading 'perldoc CGI' and if you have any questions,
post to the .cgi newsgroup (unless you are doing mod_perl which I am not
familiar with). You need a basic understanding of variables
and form handing before getting into validation. For example, an empty
form field may not equal (eq) anything (not even "").
The Perl CGI module makes it easy to produce, handle and replicate a form
if something submitted is incorrect, because by default, fields will have
their previously submitted value. So if you test variables and something
is not right, you can replicate the form with its submitted values and add
something (like red text) to flag incorrect field(s).
--
David Efflandt - All spam ignored http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://cgi-help.virtualave.net/ http://hammer.prohosting.com/~cgi-wiz/
------------------------------
Date: Tue, 06 May 2003 01:54:21 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: perl form validation
Message-Id: <b96tr5$g9rv8$1@ID-184292.news.dfncis.de>
g wrote:
> What is the best way to validate a form in perl using perl?
Assuming you are talking about submitting a form to a CGI script
written in Perl, you must submit the form first to have Perl validate
the data. A common approach is to have the CGI script print a form
with the submitted data prefilled, if any of the data fails the check.
> I done something similar using JavaScript, I have tried
> implementing that in perl:
<snip>
> when the form is submitted it will only continue if title contains
> text but this does not work, Is there a better way??
Yes, a way that works. :)
Is validation your real problem? If I were you, I'd study the
documentaion for CGI.pm and maybe some Perl module specifically
written for handling forms, like CGI::QuickForm.
/ Gunnar
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 05 May 2003 19:22:30 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: perl form validation
Message-Id: <Xns9372CF40AD2DEsdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
the_game_is_never_over@yahoo.co.uk (g) wrote in
news:2059e247.0305051431.305adb03@posting.google.com:
> What is the best way to validate a form in perl using perl? I done
> something similar using JavaScript, I have tried implementing that
in
> perl:
>
> Title <input type="text" name="Title" size="8" maxlength="16"/>
> <input type="submit" name="Sub" value="Add Details"
onlclick="return
> &validate />
You can't invoke a perl subroutine via an onclick="..." attribute,
because html (and javascript) and the onclick functionality are
executed on the user's computer by the user's web browser. Perl
scripts execute on the server computer, invoked (typically) by Apache
or other web server.
That's a simplification, but that's it in a nutshell. Two different
computers. Browsers don't understand Perl. There are plugins that
supposedly allow browsers to execute perl code, but practically
nobody uses them, and I somehow doubt they're reliable or work
cross-browser.
Either use Javascript on the user's computer to validate the user's
input before the form is submitted, or use perl on the server's
computer to validate it after the form is submitted. Both approaches
have pros and cons.
- --
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+twA8Y96i4h5M0egRAu0aAKDimq/8BfbGPBel6tdSBkTe03a5WwCgkZ+g
JbNhn28PhyDybl6H0PjrPMw=
=FoHs
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 06 May 2003 10:41:40 +1000
From: Jean-Yves Avenard <me@privacy.net>
Subject: Perl USB and OBEX module
Message-Id: <BADD41E4.E76E%me@privacy.net>
Dear all.
I'm trying to send a file or data to a peripheral using OBEX over either USB
or IRDA in a Perl program.
I've been looking around but couldn't find anything about it.
Any ideas?
Thank you
Jean-Yves
------------------------------
Date: Mon, 05 May 2003 22:26:47 GMT
From: mbS <removeX_stevensx4000x@earthlinxk.next>
Subject: Re: Re: Re: Controlling external device with Perl
Message-Id: <520ebvs3t9fo4mvc1bniq00a22bu1i068h@4ax.com>
On or around Mon, 05 May 2003 19:31:36 GMT, there was a message,
possibly from mbS <removeX_stevensx4000x@earthlinxk.next>, as follows:
>>What is a "break out box"?
>
>It's basically just a flat board with a bunch of little screw-down
>terminals, one for each of the many lines in, say, a parallel cable
>or the like. You seperate the cable out into lines and attach them,
>one to each terminal. Then it's easier to test with a meter. It also
>makes it possible to identify each line, since each one will have a
>different address for access from software. The lines coming from
>the device to be controlled can also be attached to the breakout box
>during testing. Very handy, but be careful -- if the device sends
>back a current that's too strong you can get blown-out computer
>components; so step it down.
>
I forgot to mention that you should wear a grounding wrist strap or
the like when working with one of these -- static is yet another way
to kill your computer.
------------------------------
Date: Tue, 06 May 2003 00:27:50 +0200
From: Winfried Koenig <w.koenig@acm.org>
Subject: Re: regex and extracting permutations
Message-Id: <3EB6E566.1000307@acm.org>
Ryan McCarthy wrote:
> I am tryng to use regular exprssions to extract permutations of a
> sequence into an array. Here are the parameters that I need to meet.
>
> The sequence is in the form
>
> ACK
> SG[IL]N
> SG[IUD]
> [NO]S[YR]NR
> etc...
>
> where the needed function would produce teh array with the following
> entries
>
> ACK
> SGIN
> SGLN
> SGI
> SGU
> SGD
> NSYNR
> NSRNR
> OSYNR
> OSRNR
>
> Additional things to consider:
> - there is no limit on the number of lines that can be entered
> - there is no limit on the number of letters that can be between the
> brackets [ ]
> - there is no limit on the number of bracketed characters per line
#!/usr/local/bin/perl
use strict;
use warnings;
my @seq = qw( ACK SG[IL]N SG[IUD] [NO]S[YR]NR ?[AB]* A[]*?{}]B );
foreach my $seq (@seq) {
enumerate(split /\[(.+?)\]/, $seq);
}
sub enumerate {
my $pre = shift;
if (@_) {
my $set = shift;
my $post = shift || '';
foreach my $chr (split //, $set) {
enumerate($pre . $chr . $post, @_);
}
} else {
print "$pre\n";
}
}
__END__
Winfried Koenig
------------------------------
Date: 05 May 2003 23:27:34 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: regex and extracting permutations
Message-Id: <slrnbbdsr6.fj.abigail@alexandra.abigail.nl>
Ryan McCarthy (remccart@uiuc.edu.spam) wrote on MMMDXXXIV September
MCMXCIII in <URL:news:Gjyta.10769$6P6.156673@vixen.cso.uiuc.edu>:
<> I am tryng to use regular exprssions to extract permutations of a
<> sequence into an array. Here are the parameters that I need to meet.
<>
<> The sequence is in the form
<>
<> ACK
<> SG[IL]N
<> SG[IUD]
<> [NO]S[YR]NR
<> etc...
<>
<> where the needed function would produce teh array with the following entries
<>
<> ACK
<> SGIN
<> SGLN
<> SGI
<> SGU
<> SGD
<> NSYNR
<> NSRNR
<> OSYNR
<> OSRNR
<>
<> Additional things to consider:
<> - there is no limit on the number of lines that can be entered
<> - there is no limit on the number of letters that can be between the
<> brackets [ ]
<> - there is no limit on the number of bracketed characters per line
Assuming the brackets don't nest, and only have letters between them:
($_, $,, $\) = (<<"--", $/, $/);
ACK
SG[IL]M
SG[IUD]
[NO]S[YR]NR
--
s[[[]([^][]*)[]]]{'{'.join(','=>split//=>$1).'}'}ge;
print glob;
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=>$==-2449231+gm_julian_day+time);do{until($=<$#r){$_.=$r[$#r];$=-=$#r}for(;
!$r[--$#r];){}}while$=;$,="\x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>'
------------------------------
Date: Tue, 06 May 2003 03:32:54 +0200
From: Winfried Koenig <w.koenig@acm.org>
Subject: Re: regex and extracting permutations
Message-Id: <3EB710C6.4070204@acm.org>
Ryan McCarthy wrote:
> I am tryng to use regular exprssions to extract permutations of a
> sequence into an array. Here are the parameters that I need to meet.
>
> The sequence is in the form
>
> ACK
> SG[IL]N
> SG[IUD]
> [NO]S[YR]NR
> etc...
>
> where the needed function would produce teh array with the following
> entries
>
> ACK
> SGIN
> SGLN
> SGI
> SGU
> SGD
> NSYNR
> NSRNR
> OSYNR
> OSRNR
>
> Additional things to consider:
> - there is no limit on the number of lines that can be entered
> - there is no limit on the number of letters that can be between the
> brackets [ ]
> - there is no limit on the number of bracketed characters per line
>
> Thanks for your consideration on this challenge,
> Ryan
just an other solution to generate the enumeration of your sequences:
#!/usr/local/bin/perl
use strict;
use warnings;
my(@sequence, @array);
@sequence = qw( ACK SG[IL]N SG[IUD] [NO]S[YR]NR ?[AB]* A[][*?{}]B );
foreach (@sequence) {
push @array, enumerate(split /\[(.+?)\]/, $_);
}
foreach (@array) { print "$_\n" }
sub enumerate {
my($pre, $set, $post) = (splice(@_, 0, 3), '');
$set ? map enumerate("$pre$_$post", @_), split //, $set : $pre;
}
__END__
Winfried Koenig
------------------------------
Date: 05 May 2003 23:08:19 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Sort array of numbers
Message-Id: <slrnbbdrn3.fj.abigail@alexandra.abigail.nl>
Ryan McCarthy (remccart@uiuc.edu.spam) wrote on MMMDXXXIV September
MCMXCIII in <URL:news:gMyta.10789$6P6.156855@vixen.cso.uiuc.edu>:
:) Uri Guttman wrote:
:) >>>>>>"RM" == Ryan McCarthy <remccart@uiuc.edu.spam> writes:
:) > RM> I recall when I started perl programming, I was not entirely aware
:) > RM> of the extent of the perl documentation. I agree with Gunnar that
:) > RM> there are ways to help people other than just treating them like
:) > RM> idiots. For those who don't want to help all levels of perl
:) > RM> programmers, than maybe you could all band together and create a
:)
:) > so if you want to volunteer to always refer newbies to the proper docs
:) > section and tell them how to find the docs and how to use perldoc and
:) > always do it all politely and never shirk from this responsibilty, i
:) > applaud you. until then, keep quiet about how others do doc referrals.
:)
:) If the questions posted here piss you off so much, then quit answering
:) them. If you are going to be a dick, dont be suprised when people call
:) you out on it. I'm willing to bet Gunnar doesn't spend much more time
:) to respond courteously to polite questions than you do to be sarcastic.
I'm pretty sure uri has spend far more time answering questions here
than Gunnar and you combined [1]. It's very easy to critize others, it
takes no effort at all. It takes quite some effort to answer thousands
of questions over a time span of many years, as done by Uri and a few
others. We get people like you in this group a few times a year. They
come in, and whine some of the regulars aren't willing to sugarcoat
and spoon food every lazy bum around. They know how it should be done.
But all they do is whine, whine, whine, and hardly answer questions at
all. After a few months, they are usually gone. There are very, very few
people who can be nicey-nicey all the time, and have the stamina to
answer questions for over a year.
Stay here for a year. Answer a thousand question. *Then* we talk about
being nicey-nicey.
[1] Google has stored 4840 messages from "Uri Guttman" made in
comp.lang.perl.misc. It has 7, including 3 that are very similar
from "Ryan McCarthy", and 220 from "Gunnar Hjalmarsson". And it
has 8150 from "Abigail".
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 05 May 2003 23:11:06 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Sort array of numbers
Message-Id: <slrnbbdrsa.fj.abigail@alexandra.abigail.nl>
Daniel Pfeiffer (occitan@esperanto.org) wrote on MMMDXXXIV September
MCMXCIII in <URL:news:20030505225319.1dc704e2.occitan@esperanto.org>,
using lines longer than 80 characters:
\\ Ryan McCarthy <remccart@uiuc.edu.spam> skribis:
\\ > I recall when I started perl programming, I was not entirely aware of
\\ > the extent of the perl documentation.
\\
\\ Well, the natural first reflex should be "man perl". That tells you very ex
\\
\\ Sadly there are no info pages, because nobody ever bothered to write a pod2i
Could that perhaps be because the "info" format isn't at all popular?
Abigail
--
echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\
|perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\
|perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\
|perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./;
------------------------------
Date: Mon, 05 May 2003 20:10:30 -0500
From: Ryan McCarthy <remccart@uiuc.edu.spam>
Subject: Re: Sort array of numbers
Message-Id: <FUDta.10971$6P6.159349@vixen.cso.uiuc.edu>
Abigail wrote:
> I'm pretty sure uri has spend far more time answering questions here
> than Gunnar and you combined [1]. It's very easy to critize others, it
> takes no effort at all. It takes quite some effort to answer thousands
Thats just not fair. It took some effort.
> of questions over a time span of many years, as done by Uri and a few
> others. We get people like you in this group a few times a year. They
Dont'cha feel lucky?
> Stay here for a year. Answer a thousand question. *Then* we talk about
> being nicey-nicey.
Apparently were talking about it now. Unless this is a thread from the
future that has traveled back in time. Maybe there is a huge disaster
in the future that causes the end of the world and after extensive
investigation it is determined that the root cause was that an OP on
this channel was just way too nice and helped someone new without being
ultra patronizing.... It could happen...
------------------------------
Date: 05 May 2003 23:48:53 GMT
From: "James E Keenan" <jkeen@concentric.net>
Subject: Re: What can i do now for learnling perl?
Message-Id: <b96t95$d37@dispatch.concentric.net>
"kevin" <jl.cd@163.com> wrote in message
news:9cd4098e.0305050755.6378835c@posting.google.com...
> Hello everyone:
> I am a newbie of perl.I just learn the perl for 2 weeks.And i have read
the
> <<learning perl>>.What could i do now for the next learning?Do some
coding? or
> reading the <<programming perl>> or do some cgi exercise?
At the very least, work through every exercise in the Llama book.
------------------------------
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 4941
***************************************
