[23154] in Perl-Users-Digest
Perl-Users Digest, Issue: 5375 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 16 21:10:48 2003
Date: Sat, 16 Aug 2003 18:10:13 -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 Sat, 16 Aug 2003 Volume: 10 Number: 5375
Today's topics:
Re: hand crafting soap for google api's <tassilo.parseval@rwth-aachen.de>
Re: hand crafting soap for google api's <scripts_you_know_the_drill_@hudsonscripting.com>
Re: hand crafting soap for google api's <scripts_you_know_the_drill_@hudsonscripting.com>
Re: hand crafting soap for google api's <abigail@abigail.nl>
Re: hand crafting soap for google api's <uri@stemsystems.com>
Re: hand crafting soap for google api's <kkeller-spammmm@wombat.san-francisco.ca.us>
Re: hand crafting soap for google api's <flavell@mail.cern.ch>
Re: How to create an array from a string? (Tad McClellan)
Re: How to express "not followed by"? (Randal L. Schwartz)
Re: How to express "not followed by"? <noreply@gunnar.cc>
Re: How to express "not followed by"? (Randal L. Schwartz)
Re: How to express "not followed by"? <noreply@gunnar.cc>
Re: How to express "not followed by"? (Yi Mang)
In My Humble Opinion... <chesucat@freeshell.org>
Math::Project3D doesn't work for me <mikeflan@earthlink.net>
Re: peace and good night (Tad McClellan)
Re: peace and good night <spamblock@junkmail.com>
Re: peace and good night <scripts_you_know_the_drill_@hudsonscripting.com>
Re: peace and good night <scripts_you_know_the_drill_@hudsonscripting.com>
Re: peace and good night <abigail@abigail.nl>
Re: peace and good night <scripts_you_know_the_drill_@hudsonscripting.com>
perl hacking for fun and pleasure <scripts_you_know_the_drill_@hudsonscripting.com>
Re: perl zombies ctcgag@hotmail.com
Re: perl zombies <abigail@abigail.nl>
Re: perl zombies <scripts_you_know_the_drill_@hudsonscripting.com>
Re: perl zombies <none@given.com>
Re: perl zombies (Randal L. Schwartz)
Question Regarding Debugging Dump <pgmr400@hotmail.com>
Re: Question Regarding Debugging Dump <rgarciasuarez@free.fr>
Re: Saving entire file ctcgag@hotmail.com
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Aug 2003 18:27:24 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: hand crafting soap for google api's
Message-Id: <bhlt2c$hf1$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Hudson:
>>But naturally, you are free to write your own parser. Please post it
>>here when you are done with it so that we can all have a good laughter.
>
> this is basically what I am using
Ah, eventually some code!
> my %kv = (); # key-value kv
> my @form_varibles = qw(form_value_1
> form_value_2
> etc
> );
>
> read (STDIN, my $input, $ENV{'CONTENT_LENGTH'});
At this point you are lacking the distinction between GET and POST. This
only handles POST.
> my @kv = split (/&/, $input);
Should be: (/[&;]/, $input);
> for my $kv (@kv) {
> (my $key, my $value) = split (/=/, $kv);
>
> if (length($value) < 1) { zero_value ($key) }
> if (length($value) > 255) { string_too_big ($key) }
Not sure what zero_value() and string_too_big() do (exception
handling?). However, a query string such as 'key1=&key2=val' is
valid.
>
> $value =~ tr/+/ /;
> $value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
>
> for my $varible (@form_varibles) {
> if ($key eq "$varible") {
> $kv{$key} = $value;
> }
This will only return the last value in a query string such as
key=val1&key=val2
So what you need to add is the infrastructure to handle multiple
occurances of the same parameter.
No, sorry, right now it's not good enough. It has some security holes in
that you don't have means to restrict CONTENT_LENGTH. Adding to that new
forms of exploits (as the one recently discussed on the p5porters list,
search for "Algorimic complexity attacks", which perl5.8.1 will guard
you against, though), you make it relatively easy for malicious
attackers to launch a denial-of-service attack against servers running
the above code.
A glance at the source of CGI.pm would probably give you an idea how
much work Lincoln put into doing it both correctly and securely. A
re-write is certainly possible but it requires more than a few lines of
code.
>>The most reliable way to get dropped in many killfiles is calling a
>>well-respected regular a troll.
>
> if you look back, he called me a total beginner, a troll and a script
> kiddie...so I was just responding in kind
Live with it. Not taking the sometimes rough tone in technical groups
personal is amongst the first things to learn. The attitude of a message
should however not distract you from the content it tries to convey.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Sat, 16 Aug 2003 19:20:18 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: hand crafting soap for google api's
Message-Id: <3hptjvc4s79lt4n3n8pi54cq523i42d00p@4ax.com>
On Sat, 16 Aug 2003 17:08:49 GMT, Uri Guttman <uri@stemsystems.com>
wrote:
>>>>>> "H" == Hudson <scripts_you-know-the-drill_@hudsonscripting.com> writes:
>
> H> read (STDIN, my $input, $ENV{'CONTENT_LENGTH'});
>
>bug alert, no checking if read worked.
thank you uri for all your bug alerts...I'm a little burnt out on the
whole topic...but I did read your reply and thanks for the input
------------------------------
Date: Sat, 16 Aug 2003 19:40:49 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: hand crafting soap for google api's
Message-Id: <dmqtjv8s84j29aqvq3498e5uiiq9hqlube@4ax.com>
On 16 Aug 2003 18:27:24 GMT, "Tassilo v. Parseval"
>Ah, eventually some code!
>
Hey...thanks Tassilo v. Parseval for taking the time to critique my
code. But, as I said to Uri, I'm a little burned out on this topic and
think I will give it a rest. But I did read your post and will take it
into consideration.
------------------------------
Date: 16 Aug 2003 23:49:49 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: hand crafting soap for google api's
Message-Id: <slrnbjtgot.9l5.abigail@alexandra.abigail.nl>
Tassilo v. Parseval (tassilo.parseval@rwth-aachen.de) wrote on
MMMDCXXXVII September MCMXCIII in <URL:news:bhlt2c$hf1$1@nets3.rz.RWTH-Aachen.DE>:
|| Also sprach Hudson:
||
|| > for my $varible (@form_varibles) {
|| > if ($key eq "$varible") {
|| > $kv{$key} = $value;
|| > }
||
|| This will only return the last value in a query string such as
||
|| key=val1&key=val2
||
|| So what you need to add is the infrastructure to handle multiple
|| occurances of the same parameter.
No. All you need to do is make sure your forms don't have multiple
inputs with the same name. ;-)
Sure, a non-confirming browser might send multiple values anyway,
but in that case, it isn't wrong to only deal with the last value.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: Sat, 16 Aug 2003 23:56:05 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: hand crafting soap for google api's
Message-Id: <x7r83l9my3.fsf@mail.sysarch.com>
>>>>> "A" == Abigail <abigail@abigail.nl> writes:
A> Tassilo v. Parseval (tassilo.parseval@rwth-aachen.de) wrote on
A> MMMDCXXXVII September MCMXCIII in
A> <URL:news:bhlt2c$hf1$1@nets3.rz.RWTH-Aachen.DE>: || Also sprach
A> Hudson:
A> ||
A> || > for my $varible (@form_varibles) { || > if ($key eq
A> "$varible") { || > $kv{$key} = $value;
A> || > }
A> ||
A> || This will only return the last value in a query string such as
A> ||
A> || key=val1&key=val2
A> ||
A> || So what you need to add is the infrastructure to handle multiple
A> || occurances of the same parameter.
A> No. All you need to do is make sure your forms don't have multiple
A> inputs with the same name. ;-)
checkboxes are allowed to have multiple values but only one name. and
they are required to send them all as key/value pairs.
from http://www.w3.org/TR/REC-html32
Used for simple Boolean attributes, or for attributes that can
take multiple values at the same time. The latter is represented
by several checkbox fields with the same name and a different
value attribute. Each checked checkbox generates a separate
name/value pair in the submitted data, even if this results in
duplicate names.
so supporting duplicate names is required if you want to properly
support all the standard html form field types.
and since it is trivial to generate url queries with anything,
supporting them is important.
any cgi parser that doesn't do that is broken or a toy or only for play
by the author.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 16 Aug 2003 17:12:20 -0700
From: Keith Keller <kkeller-spammmm@wombat.san-francisco.ca.us>
Subject: Re: hand crafting soap for google api's
Message-Id: <49hmhb.vgd.ln@goaway.wombat.san-francisco.ca.us>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
In article <slrnbjtgot.9l5.abigail@alexandra.abigail.nl>, Abigail wrote:
> Tassilo v. Parseval (tassilo.parseval@rwth-aachen.de) wrote on
> MMMDCXXXVII September MCMXCIII in <URL:news:bhlt2c$hf1$1@nets3.rz.RWTH-Aachen.DE>:
>||
>|| This will only return the last value in a query string such as
>||
>|| key=val1&key=val2
>||
>|| So what you need to add is the infrastructure to handle multiple
>|| occurances of the same parameter.
>
>
> No. All you need to do is make sure your forms don't have multiple
> inputs with the same name. ;-)
Unless that's the behaviour you want from the client. :)
e.g.: a "Delete marked" button, with a submission like
delete=2;delete=4;delete=7
There are probably many other scenarios where multiple values for
the same key in the query would be useful.
- --keith
- --
kkeller-mmmspam@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
iEYEARECAAYFAj8+yGEACgkQhVcNCxZ5ID/nFQCfQZVd/3Uqbuo4tA6fzzGGv2SC
4IQAnAjUvY8UbgqZV3+q0zi6gV/WtQop
=7L0Z
-----END PGP SIGNATURE-----
------------------------------
Date: Sun, 17 Aug 2003 02:21:19 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: hand crafting soap for google api's
Message-Id: <Pine.LNX.4.53.0308170210250.6451@lxplus005.cern.ch>
On Sat, Aug 16, Uri Guttman inscribed on the eternal scroll:
Abigail quoth:
A> No. All you need to do is make sure your forms don't have multiple
A> inputs with the same name. ;-)
checkboxes are allowed to have multiple values but only one name. and
> they are required to send them all as key/value pairs.
Perfectly correct: but you're aiming to implement a general-purpose
script (as any self-respecting professional would do), whereas the
kiddie is trying to write a partial implementation, thinking that
it'll be as much as they'd need for the present, and ignoring that
many related tasks will arise later and need the script expanding in
various ways.
> from http://www.w3.org/TR/REC-html32
Oh, c'mon, you don't seriously think Abigail doesn't know all this;
and if you're of a mind to quote specifications, then let's have a
decent one, not that fly-blown old carcass of HTML3.2 (spit).
> so supporting duplicate names is required
If you're a professional - of course it is.
> any cgi parser that doesn't do that is broken or a toy or only for play
> by the author.
Well, that's what we have been dealing with all along on this thread,
as if you hadn't already noticed ;-)
Now please, let's stop baiting the would-be troll, and get on with
something more productive.
------------------------------
Date: Sat, 16 Aug 2003 06:32:21 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How to create an array from a string?
Message-Id: <slrnbjs5i5.bao.tadmc@magna.augustmail.com>
Francesco Moi <francescomoi@europe.com> wrote:
> So I would like to create an anonymous array from a string.
[ split /\s+/, "1 2 3" ]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 16 Aug 2003 06:17:59 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
To: yi_mang@yahoo.com (Yi Mang)
Subject: Re: How to express "not followed by"?
Message-Id: <955228b71130e587ec2eb2893d5ae2e8@news.teranews.com>
>>>>> "Yi" == Yi Mang <yi_mang@yahoo.com> writes:
Yi> Thanks for all the people who has helped me to tackle the problem.
Yi> Sorry I'm vague on the description of the problem. Here I'll try to
Yi> describe the problem more clearly:
Yi> I have a test file, some of the lines have a sequence of digits, what
Yi> I'm trying to do is to print out the lines that has "a sequence of
Yi> digits not followed by a semicolon" (teh same as "a sequence of digits
Yi> followed by a non-semicolon").
Since a digit is a non-semicolon, "12" fits your definition. The
digit "1" is followed by a non-semicolon "2".
Perhaps you mean "a digit followed by neither a digit nor a semicolon"
in which case the solution is obvious: /\d[^\d;]/
print "Just another Perl hacker,"
--
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: Sat, 16 Aug 2003 20:26:12 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How to express "not followed by"?
Message-Id: <bhlsvo$tcli$1@ID-184292.news.uni-berlin.de>
Yi Mang wrote:
> what I'm trying to do is to print out the lines that has "a
> sequence of digits not followed by a semicolon" (teh same as "a
> sequence of digits followed by a non-semicolon").
>
> Here is my test file(test.txt):
> 123;edf
> abde
> abc1234
> 12abc
> abc123;
> abcdef
> defg
<program snipped>
Then I suppose that you can do:
if ( /\d(?:[^\d;]|$)/ )
Actually it's Randal's solution modified to also cover line 3 (which
ends with a group of digits).
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Sat, 16 Aug 2003 08:02:58 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: How to express "not followed by"?
Message-Id: <62de107858b704dac9b62cce6b5e43eb@news.teranews.com>
>>>>> "Gunnar" == Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
Gunnar> Then I suppose that you can do:
Gunnar> if ( /\d(?:[^\d;]|$)/ )
Probably simpler to lookhead here:
if (/\d(?![\d;])/) { ... }
Solutions with "or end of line" often look more complicated than they
need to be.
print "Just another Perl hacker,"
--
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: Sat, 16 Aug 2003 23:02:15 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How to express "not followed by"?
Message-Id: <bhm64e$v9a3$1@ID-184292.news.uni-berlin.de>
Randal L. Schwartz wrote:
> Gunnar> Then I suppose that you can do:
>
> Gunnar> if ( /\d(?:[^\d;]|$)/ )
>
> Probably simpler to lookhead here:
>
> if (/\d(?![\d;])/) { ... }
>
> Solutions with "or end of line" often look more complicated than
> they need to be.
Yes, that looks cleaner.
One reason why I seldom come to think of zero-width assertions is that
I usually am particular about portability. However, I just checked,
and I believe that it's just lookbehind assertions (available only in
5.005) that are a risk in that respect.
Anyway, in the spirit of TMTOWTDI, this is another approach that I was
about to post before I saw your /\d[^\d;]/ suggestion:
if ( /\d/ and !/\d;/ )
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 16 Aug 2003 15:58:50 -0700
From: yi_mang@yahoo.com (Yi Mang)
Subject: Re: How to express "not followed by"?
Message-Id: <832301af.0308161458.62bdbda5@posting.google.com>
Thanks, guys, that did it. The problem actually should say "a sequence
of digits is not followed by a digit nor a semicolon". Now it seems
easy to solve.
Thanks again.
------------------------------
Date: Sat, 16 Aug 2003 20:45:37 -0400
From: Chesucat <chesucat@freeshell.org>
Subject: In My Humble Opinion...
Message-Id: <Pine.NEB.4.33.0308162043150.27252-100000@norge.freeshell.org>
You people are all a bunch of assholes! Perl sucks! Python rules!;-)
chesucat
--
chesucat@sdf.lonestar.org
SDF Public Access UNIX System - http://sdf.lonestar.org
I don't have any solution but I certainly admire the problem.
-- Ashleigh Brilliant
------------------------------
Date: Sat, 16 Aug 2003 19:39:38 GMT
From: Mike Flannigan <mikeflan@earthlink.net>
Subject: Math::Project3D doesn't work for me
Message-Id: <3F3E890D.4B769109@earthlink.net>
I'm trying to use the Math::Project3D module. I successfully
installed it with ppm. When I run the example script shown
below (modified slightly to scope the variables), it gives the
error
"Use of uninitialized value in sin at (eval 1) line 4.
Use of uninitialized value in cos at (eval 1) line 4.
Math::MatrixReal::new_from_string(): syntax error in input stringString
is [ ]
___
at . . . /Project3D.pm line 166"
Lines 166 - 170 are:
my $point = Math::MatrixReal->new_from_cols(
[
[ $self->{function}->(@_) ],
]
);
If anybody can help me make it work, I'd appreciate it.
I'm using Perl 5.8 on a Win2000 box.
It's amazing to me that the supplied examples on many
of these modules do not work.
Mike
___________________________
use strict;
use warnings;
use Math::Project3D;
my $projection = Math::Project3D->new(
plane_basis_vector => [0, 0, 0],
plane_direction1 => [.4, 1, 0],
plane_direction2 => [.4, 0, 1],
projection_vector => [1, 1, 1], # defaults to normal of the
plane
);
my $u;
my $v;
$projection->new_function(
'u,v', 'sin($u)', 'cos($v)', '$u'
);
my ($plane_coeff1, $plane_coeff2, $distance_coeff) =
$projection->project( $u, $v );
__END__
------------------------------
Date: Sat, 16 Aug 2003 06:34:07 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: peace and good night
Message-Id: <slrnbjs5lf.bao.tadmc@magna.augustmail.com>
Hudson <scripts_you-know-the-drill_@hudsonscripting.com> wrote:
> I think I'm going to learn C instead ;-)
Thank you.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 16 Aug 2003 12:49:55 -0700
From: "David Oswald" <spamblock@junkmail.com>
Subject: Re: peace and good night
Message-Id: <vjt2r3t4jqoq92@corp.supernews.com>
"Hudson" <scripts_you-know-the-drill_@hudsonscripting.com> wrote in message
news:85qrjv4vuni12e3o1qtdfirm1rhue75l39@4ax.com...
> I think I'm going to learn C instead ;-)
>
> hehe....
>
C ya.
------------------------------
Date: Sat, 16 Aug 2003 19:17:57 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: peace and good night
Message-Id: <tcptjv0p33bmp8dptrltbctn7qm786a752@4ax.com>
On Sat, 16 Aug 2003 06:34:07 -0500, tadmc@augustmail.com (Tad
McClellan) wrote:
>Hudson <scripts_you-know-the-drill_@hudsonscripting.com> wrote:
>
>> I think I'm going to learn C instead ;-)
>
>
>Thank you.
hehe...no problem...I go piss off the guys in the "c"
newsgroups...hell, maybe I will even post off topic there and see how
far that gets me ;-)
------------------------------
Date: Sat, 16 Aug 2003 19:18:33 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: peace and good night
Message-Id: <3fptjvgj09uutop2a5pp2ejab8tm06dva8@4ax.com>
>> I think I'm going to learn C instead ;-)
>>
>> hehe....
>>
>
>
>C ya.
>
>
cute ;-)
------------------------------
Date: 16 Aug 2003 23:58:00 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: peace and good night
Message-Id: <slrnbjth88.9l5.abigail@alexandra.abigail.nl>
hudson (scripts_you_know_the_drill_@hudsonscripting.com) wrote on
MMMDCXXXVIII September MCMXCIII in <URL:news:tcptjv0p33bmp8dptrltbctn7qm786a752@4ax.com>:
@@
@@ hehe...no problem...I go piss off the guys in the "c"
@@ newsgroups...hell, maybe I will even post off topic there and see how
@@ far that gets me ;-)
Compared to the people in the "C" newsgroup, we are angles wearing
silk gloves.
Abigail
--
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
------------------------------
Date: Sat, 16 Aug 2003 20:33:40 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: peace and good night
Message-Id: <1sttjvguh4dg1n7qspcscfiob3iiuoodru@4ax.com>
>Compared to the people in the "C" newsgroup, we are angles wearing
>silk gloves.
without a doubt...I am sure ;-)
------------------------------
Date: Sat, 16 Aug 2003 20:46:44 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: perl hacking for fun and pleasure
Message-Id: <r3utjvsd57vf8g2gl888tbtlpvf5t0ljn1@4ax.com>
I enjoy perl hacking.
I enjoy the internet and learning about things like http, soap, cgi,
etc.
It is for my own enjoyment.
And I have had some good feedback from some people here...a little
help to do things better. Those that helped me, thank you. And once or
twice I tried to help others (I posted under some other nicks before,
steve or steve in ny recently, so don't bother looking for all those I
helped...;-)
Anyway, if I have a few more problem pieces of code, I am sure to post
them up here. If people want to killfile me, I'll choose a different
nick if I need an answer to a question.
Anyway...it is all fun for me to learn about computers and I'm not
going to let dogma take away from my fun. And perl is only one small
part of the whole, isn't it? There is linux/unix and xml and web
services and sed, awk, C, etc. Hell...didn't Larry Wall come into unix
through linguistics?
So..........enough is enough. I say enjoy learning and knock off the
BS.
------------------------------
Date: 16 Aug 2003 23:29:19 GMT
From: ctcgag@hotmail.com
Subject: Re: perl zombies
Message-Id: <20030816192919.659$YN@newsreader.com>
Hudson <scripts_you-know-the-drill_@hudsonscripting.com> wrote:
> there are some people in the perl community that want to follow a party
> line and become so intolerant of anything outside of their own
> mindset...it is really a _bad_thing_
Many people who have much knowledge and experience get frustrated when
ignorami request help, and then spurn the help because it doesn't
matche the inquisitors mindset.
By the way, you avoid perl zombies by either waiting for them
or by doing a double fork.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: 16 Aug 2003 23:51:27 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: perl zombies
Message-Id: <slrnbjtgrv.9l5.abigail@alexandra.abigail.nl>
Hudson (scripts_you-know-the-drill_@hudsonscripting.com) wrote on
MMMDCXXXVII September MCMXCIII in <URL:news:51nrjv08jsrjq81r4s46vh0p69u4u0s43v@4ax.com>:
\\ there are some people in the perl community that want to follow a party line
\\ become so intolerant of anything outside of their own mindset...it is really
\\ _bad_thing_
\\
\\ IMHO (uri being case in point)
*PLOINK*
Abigail
--
------------------------------
Date: Sat, 16 Aug 2003 19:59:29 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: perl zombies
Message-Id: <3srtjvgkkjgiibi26264vl0tvl5p6pgtf1@4ax.com>
On 16 Aug 2003 23:51:27 GMT, Abigail <abigail@abigail.nl> wrote:
>Hudson (scripts_you-know-the-drill_@hudsonscripting.com) wrote on
>MMMDCXXXVII September MCMXCIII in <URL:news:51nrjv08jsrjq81r4s46vh0p69u4u0s43v@4ax.com>:
>\\ there are some people in the perl community that want to follow a party line
>\\ become so intolerant of anything outside of their own mindset...it is really
>\\ _bad_thing_
>\\
>\\ IMHO (uri being case in point)
>
>
>*PLOINK*
>
>
>Abigail
case in point ;-)
------------------------------
Date: Sat, 16 Aug 2003 23:59:48 GMT
From: "Mark" <none@given.com>
Subject: Re: perl zombies
Message-Id: <Uzz%a.160178$Ho3.18795@sccrnsc03>
> but i am concerned about others who read your posts and i want to make
> sure they don't follow your bad lead.
As a long time ghost of this group I'll take this as an invitation to weigh
in.
Any one who reads this group with any regularity knows who the leaders are.
I recognize the credentials of the knowledgeable individuals who form the
core of this group. More, I recognize the style of answers so well that I
can most often guess the author of the response without reading the
signature. While these answers vary in tone, some of the most terse offer
the best, clearest, most concise of answers. I will not be misled by a one
time poster who disregards the most common rules of etiquette established in
this group. While I appreciate your attempt to protect me, I find it
somewhat patronizing that you think me so dull I cannot do this for myself.
Is it your contention that because I don't know Perl my judgment must be
impaired? I assure you it is not.
As a matter of fact, I see valid points in the OPs argument. Because a
module is available to do a task, should the knowledge of how to do without
be lost? Too often I see 'leaders' inferring there is no good reason to
're-invent the wheel' and I disagree. Unless you originally invented the
wheel, there is every good reason to study the concept, familiarize yourself
with the capabilities of the principle, and to move beyond the foundation of
knowledge gained in this manner. Liken a module to a calculator in that both
are a device for automating some function. Do you advise that none should
learn to add? Surely you see the value of learning addition in spite of the
errors that will undoubtedly be made. Of course the speed and accuracy of
the calculator should be touted, but so should the value of experimenting
for the sake of knowledge. Methods, advantages, and limitations should be
discussed freely.
I admit I have little to contribute here, Perl is an interest to me, but not
a specialty. I read most every post, learn what I can, but (with rare
exception) refrain from posting- I am intimidated by the tone of this group.
I find the rules of conduct too strict to be comfortable, too arbitrary to
be intuitive, and too indiscriminately applied to be confident that what is
a carefully researched, thought out, and worded inquiry (at least at my
level of understanding) will be met with any level of benevolence. I have
read, in previous responses to this complaint, the assertion that this is
not a help desk- that argument was (in at least two cases) followed only a
sentence later by 'If you want our help you'll...' (note that the poster
speaks for the group, and take my assurance this was not argued). I have
also read that posts are only considered invitations to discuss a topic and
that any help received is incidental to the discussion. I find this
contradictory, especially when follow-ups are interspersed with responses
that counterpoint the original post sentence by sentence. Even after years
of ghosting this group I am unable find consistency in some very common
behaviors here.
Before offering justification, consider how many posts have been answered by
the terse comment: "And your Perl question is?" At the time of my
(admittedly OT) contribution not a single complaint has been raised in a
thread of some 20+ posts.
Most importantly: do not take my comments as critique, nor as an address to
any particular individual. I did not found this group nor do I expect that
it should run, in any sense, for my benefit. There is a huge amount of
knowledge here and I consider it a great privilege to gain what I do from
the professionals who offer their time on this public form. Still this is a
/public/ forum and, as such, open to rebuttal when my interests are
considered- even indirectly.
Mark
Just another carpenter.
------------------------------
Date: Sat, 16 Aug 2003 12:47:57 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: perl zombies
Message-Id: <bbe3e964a17d2ed9a6eae2c059ee2393@news.teranews.com>
>>>>> "Mark" == Mark <none@given.com> writes:
Mark> Any one who reads this group with any regularity knows who the leaders are.
Mark> I recognize the credentials of the knowledgeable individuals who form the
Mark> core of this group. More, I recognize the style of answers so well that I
Mark> can most often guess the author of the response without reading the
Mark> signature. While these answers vary in tone, some of the most terse offer
Mark> the best, clearest, most concise of answers. I will not be misled by a one
Mark> time poster who disregards the most common rules of etiquette established in
Mark> this group. While I appreciate your attempt to protect me, I find it
Mark> somewhat patronizing that you think me so dull I cannot do this for myself.
Because it's not *you* of whom we speak.
It is precisely for the google-hit-and-run reader. Which of these are better
when viewed in a search engine?
Question gets posted
Troll answer gets posted
Good answer gets posted
Question gets posted
Troll answer gets posted
Troll answer gets challenged
Troller responds
Troll answer gets challenged
Troller responds
Good answer gets posted
Certainly, the latter, because the casual reader can at least be
alerted to the fact that a troll answer is getting challenged even if
it seems to be a continual game of "who speaks last" and "king of the
hill".
So, Mark, we're not watching out for you... you can obviously
recognize the trolls. We watch out for the casual reader, who cannot
discriminate as you can.
Unfortunately, the best thread is:
Question gets posted
Good answer gets posted
But we can't do that without moderation, and that's not going to
happen in comp.lang.perl.misc.
print "Just another Perl hacker,"
--
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: Sat, 16 Aug 2003 21:25:37 GMT
From: "Douglas Pollock" <pgmr400@hotmail.com>
Subject: Question Regarding Debugging Dump
Message-Id: <ljx%a.44154$qg3.2698207@twister.tampabay.rr.com>
Is there a way to run a perl module and have it dump all debug lines to a
file so that I can look at the trace without having to step through each
line?
I've tried the following using 's' to step the code and then 'q' quiting but
none of the debug lines are output. I'm running in Windows XP in a command
window.
perl -d test03.pl > result.txt
Thanks in advance.
------------------------------
Date: 16 Aug 2003 21:38:47 GMT
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Subject: Re: Question Regarding Debugging Dump
Message-Id: <slrnbjt9f6.6lm.rgarciasuarez@dat.local>
Douglas Pollock wrote in comp.lang.perl.misc :
> Is there a way to run a perl module and have it dump all debug lines to a
> file so that I can look at the trace without having to step through each
> line?
>
> I've tried the following using 's' to step the code and then 'q' quiting but
> none of the debug lines are output. I'm running in Windows XP in a command
> window.
>
> perl -d test03.pl > result.txt
Perhaps might you find Devel::Trace (on CPAN) useful.
You can also write your own utility Devel:: module ; that's easy, look
at Devel::Trace for example, or at perldebguts/"Writing you own
debugger".
--
Is it any wonder the world's gone insane, with information come to be
the only real medium of exchange ? -- Thomas Pynchon, Gravity's Rainbow
------------------------------
Date: 16 Aug 2003 23:34:23 GMT
From: ctcgag@hotmail.com
Subject: Re: Saving entire file
Message-Id: <20030816193423.845$Xs@newsreader.com>
tabletdesktop@yahoo.com (MJS) wrote:
> Can someone help me with the following code.
> It just saves/prints the line in which 'hello' occured.
> why doesn't it save the entire file i.e why don't i get the entire
> content of file1 in file2 ?
>
> open(FILEREAD, "file1") or die "Can't open file1: $!\n";
>
> while(<FILEREAD>) {
> #searching the string
> if(/hello/) {
>
> open(FILEWRITE, ">file2") or die "Can't open file2: $!\n";
> select FILEWRITE; # this is not needed.
> print FILEWRITE ;
> close(FILEWRITE);
> }
> }
> close(FILEREAD);
For every line in file1 containing hello, you write that one line
to file2, overwriting whatever file2 may have existed previously.
Thus, the eventual file2 is left with the final hello containing
line in file1.
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5375
***************************************
