[25520] in Perl-Users-Digest
Perl-Users Digest, Issue: 7764 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 9 21:05:41 2005
Date: Wed, 9 Feb 2005 18:05:20 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 9 Feb 2005 Volume: 10 Number: 7764
Today's topics:
Re: Error & quot <metri.jain@gmail.com>
Re: Error & quot <tadmc@augustmail.com>
Re: Error & quot <tadmc@augustmail.com>
Re: Error & quot <tony_curtis32@yahoo.com>
Re: help with an anonymous array of anonymous hashes <jgibson@mail.arc.nasa.gov>
Re: help with an anonymous array of anonymous hashes <noeldamonmiller@gmail.com>
Re: How to resolve parameter read from text file in per <noreply@gunnar.cc>
Re: installing modules to ActiveState Perl from cpan do ioneabu@yahoo.com
new to group, need a temperature perl script. <scupper79@msn.com>
Re: new to group, need a temperature perl script. <1usa@llenroc.ude.invalid>
Re: new to group, need a temperature perl script. <matternc@comcast.net>
Re: new to group, need a temperature perl script. <kkeller-usenet@wombat.san-francisco.ca.us>
Re: new to group, need a temperature perl script. <tadmc@augustmail.com>
Re: string and pattern problem (Anno Siegel)
Re: string and pattern problem <skuo@mtwhitney.nsc.com>
Re: string and pattern problem <tadmc@augustmail.com>
test <webmaster @ infusedlight.net>
Re: test (Anno Siegel)
Re: The Problem with Perl (Anno Siegel)
Re: The Problem with Perl <cwilbur@mithril.chromatico.net>
Re: The Problem with Perl <1usa@llenroc.ude.invalid>
Re: The Problem with Perl <flavell@ph.gla.ac.uk>
Re: The Problem with Perl <abigail@abigail.nl>
Re: The Problem with Perl <goedicke@brandeis.edu>
Re: The Problem with Perl <abigail@abigail.nl>
Re: The Problem with Perl (Anno Siegel)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Feb 2005 15:06:41 -0800
From: "geek" <metri.jain@gmail.com>
Subject: Re: Error & quot
Message-Id: <1107990401.898695.134520@o13g2000cwo.googlegroups.com>
Here is the code with line number in it :
else {
> open(COURSEINFO,$coursefile)
> line:192 || die "$0: Could not read course information
($coursefile):
> $!\n";
> # flock(COURSEINFO, 1);
> while (<COURSEINFO>) {
> # remove trailing newline
> chomp;
> # save comments and blank lines
> if (/^#/ || /^\s*$/) {
> push(@courses_new, $_);
> next;
> }
------------------------------
Date: Wed, 9 Feb 2005 19:10:28 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Error & quot
Message-Id: <slrnd0ld44.4u3.tadmc@magna.augustmail.com>
geek <metri.jain@gmail.com> wrote:
> Exactly even I don't see any $quot in my script infact I know there is
> no $quot in the script.
There is no $quot in the message either, so I don't know why
you are speaking of it...
> geek wrote:
>> Error:<PRE>syntax error at sem_reg_test.cgi line 192, near "||
> die
>> "$0"
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 9 Feb 2005 19:16:32 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Error & quot
Message-Id: <slrnd0ldfg.4u3.tadmc@magna.augustmail.com>
geek <metri.jain@gmail.com> wrote:
> I am getting following error when I try to run the script a part of
> which is shown below.
>
> Error:<PRE>syntax error at sem_reg_test.cgi line 192, near "|| die
> "$0"
Carp is adding the " entities, the message is supposed to look
like this:
syntax error at sem_reg_test.cgi line 192, near "|| die "$0"
(but that looks like one extra quote to me...)
> else {
> open(COURSEINFO,$coursefile)
> || die "$0: Could not read course information ($coursefile):
> $!\n";
That looks OK to me, the problem must be in the lines preceding
those that you have shown us.
There is no extra quote there, it seems that the code and the
error message do not match...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 09 Feb 2005 19:27:39 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Error & quot
Message-Id: <874qglkxv8.fsf@limey.hpcc.uh.edu>
[ top-posting rearranged ]
>> On 9 Feb 2005 14:36:54 -0800,
>> "geek" <metri.jain@gmail.com> said:
>> Error:<PRE>syntax error at sem_reg_test.cgi line 192, near
>> "||
> die
>> "$0"
>>
> Sorry for the confusion . I have specified the line # in
> the code. Exactly even I don't see any $quot in my script
> infact I know there is no $quot in the script.
That's probably an attempt at returning HTML to you, but
without the HTTP headers to identify it as such so the browser
you're viewing the output in isn't rendering it.
You'll need to show the context of the code, I'd suggest about
10 lines either side of the indicated line. Show the code
with line numbers, e.g. as output by "cat -n".
hth
t
------------------------------
Date: Wed, 09 Feb 2005 15:13:12 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: help with an anonymous array of anonymous hashes
Message-Id: <090220051513120724%jgibson@mail.arc.nasa.gov>
In article <1107982092.501936.312440@c13g2000cwb.googlegroups.com>,
<"noeldamonmiller@gmail.com"> wrote:
> All,
>
>
>
> Here's the scenario. There is an anonymous array used to store
> netstat information (from a system call) as follows (why? I don't know
> a better way to get it):
You do not use any anonymous arrays in your posted code.
>
> (@elements has netstat info split to enable the info below to work
> correctly)
>
> @connection = {
> "UID" => "$elements[6]",
> "PID" => "$elements[8]",
> "IPadd" => "$elements[4]"
> };
This statement creates a named array (@connection), a reference to an
anonymous hash ({...}) with three entries, and assigns the hash
reference to the first (and only) element of the @connection array.
>
> Now, I can access the values of the elements ie, get the UID # and PID#
> as follows
>
> foreach $href ( @connection ) {
> foreach $role ( keys %$href ) {
> print "the monitor href is $href->{$role}\n"
> }
> }
This iterates over the elements of the @connection array, then iterates
over the keys of the hash referred to by each element of the
@connection array.
>
> with this kind of output:
>
>
> the monitor href is 11743/kopete
> the monitor href is 500
> the monitor href is 216.155.193.164:5050
> the monitor href is 11169/smbd
> the monitor href is 0
> the monitor href is 192.168.0.14:1036
This shows six entries, so either there are six entries in the first
hash, or you have more than one hash reference stored in the array.
Judging from the output, there are actually two such hashes with 3
entries each.
Suggestion #1: print something between the foreach statements so you
can tell; print out the keys as well as the values.
Suggestion #2: use Data::Dumper to print complex data structures.
>
> so, in summary, as far as I can tell we have:
>
> @connection with hash0, hash1, hash2, etc. each one of them referred to
> individually as $href
>
> and %$href with 11743/kopete, 500, 216.155.193.164:5050 (UID,PID,IPadd)
>
> my question is, how do I access each value of these elements
> individually? I can do it the cheesy way by doing the foreach loops
> above and get for instance an array of IPaddresses:
>
> foreach $href ( @connection ) {
> foreach $role ( keys %$href ) {
> if ($role eq "IPadd") { push @noport_ipadd, $href->{$role}; }
>
> }
> }
There is no point in iterating over a hash looking for a specific key.
You can just refer to the value explicitly: $$href{'IPadd'}.
>
> What I want to do is something like the pseudo-code below, only
> syntactically correct:
>
> foreach $href ( @connection ){ push @noport_ipadd, %$href->$role[2];}
Use the map function:
my @noport_ipadd = map { ${$_}{IPadd} } @connection;
This will extract the IPadd elements from the hashes.
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 9 Feb 2005 17:08:32 -0800
From: "noeldamonmiller@gmail.com" <noeldamonmiller@gmail.com>
Subject: Re: help with an anonymous array of anonymous hashes
Message-Id: <1107997712.298059.265880@o13g2000cwo.googlegroups.com>
Thanks Jim,
Quite right about the whole thing. It sure helps to have someone
else dig into this.
Thanks,
Noel
------------------------------
Date: Thu, 10 Feb 2005 00:01:20 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How to resolve parameter read from text file in perl script
Message-Id: <36vjlrF583ok5U1@individual.net>
nobull@mail.com wrote:
> Gunnar Hjalmarsson wrote:
>> Gancy wrote:
>>> system("$CmdLine");
>>>
>>> but the problem is system command does not resolve ~ and pwd.
>>
>> Why are you using system() to invoke another Perl script?
>
> He is using it to resolve ~.
Aha, thanks!
So, a new attempt at a pure Perl solution:
use FindBin '$Bin';
@ARGV = qw(-d ~gancy/testsource pwd);
map { s#~#/home/#; s/pwd/$Bin/ } @ARGV;
do 'BinaryParser.pl';
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 9 Feb 2005 15:22:43 -0800
From: ioneabu@yahoo.com
Subject: Re: installing modules to ActiveState Perl from cpan downloads
Message-Id: <1107991363.539352.22570@z14g2000cwz.googlegroups.com>
Nevermind. Sorry, I found the ppms I need at:
http://ppm.activestate.com/PPMPackages/zips/8xx-builds-only/Windows/
------------------------------
Date: Wed, 9 Feb 2005 17:13:59 -0600
From: "scupper79" <scupper79@msn.com>
Subject: new to group, need a temperature perl script.
Message-Id: <1107990851.869cf459733a0ab585ed6b0ccab2ed8c@teranews>
I've done some reading on some but haven't decided which to use.
What temperature perl script do you recommend?
Yes I'm a newbie, www.brokenarrowboats.com is the site I maintain, and am
constantly learning on my own time to make it more professional.
I need to get into this MySQL stuff as well to make my Inventory pages more
friendly.
thanks in advance,
ck
------------------------------
Date: Wed, 09 Feb 2005 23:33:51 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <Xns95F8BCD86A468asu1cornelledu@127.0.0.1>
"scupper79" <scupper79@msn.com> wrote in
news:1107990851.869cf459733a0ab585ed6b0ccab2ed8c@teranews:
> I've done some reading on some but haven't decided which to use.
> What temperature perl script do you recommend?
Celcius or fahrenheit?
> Yes I'm a newbie, www.brokenarrowboats.com is the site I maintain, and
> am constantly learning on my own time to make it more professional.
Please read the posting guidelines for this group.
> I need to get into this MySQL stuff as well to make my Inventory pages
> more friendly.
>
> thanks in advance,
You are welcome.
Sinan
------------------------------
Date: Wed, 09 Feb 2005 18:48:06 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <NfidnZxnWNmrPJffRVn-sg@comcast.com>
scupper79 wrote:
> I've done some reading on some but haven't decided which to use.
> What temperature perl script do you recommend?
I generally code at 98.6 deg. F. I find that at body
temperatures much higher or lower than that, my code
quality suffers.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: Wed, 9 Feb 2005 16:29:36 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <hgmqd2xbbh.ln2@goaway.wombat.san-francisco.ca.us>
On 2005-02-09, Chris Mattern <matternc@comcast.net> wrote:
> scupper79 wrote:
>
>> I've done some reading on some but haven't decided which to use.
>> What temperature perl script do you recommend?
>
> I generally code at 98.6 deg. F. I find that at body
> temperatures much higher or lower than that, my code
> quality suffers.
I believe he was asking about the temperature of the script, not of the
programmer. My scripts run just fine at CPU temps of 100+ degrees F,
up to 120 deg.F or so. Hotter scripts than that start causing problems.
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://wombat.san-francisco.ca.us/cgi-bin/fom
see X- headers for PGP signature information
------------------------------
Date: Wed, 9 Feb 2005 19:05:52 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: new to group, need a temperature perl script.
Message-Id: <slrnd0lcrg.4u3.tadmc@magna.augustmail.com>
scupper79 <scupper79@msn.com> wrote:
> What temperature perl script do you recommend?
A cool one, what else?
(unless you're Paris Hilton, then you'd want the one "that's hot!")
> to make my Inventory pages more
> friendly.
Compliment them, that'll make them more friendly.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 10 Feb 2005 00:39:20 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: string and pattern problem
Message-Id: <cueafo$c16$1@mamenchi.zrz.TU-Berlin.DE>
Abigail <abigail@abigail.nl> wrote in comp.lang.perl.misc:
> Tajana (tajana@removeingko.com) wrote on MMMMCLXXXI September MCMXCIII in
> <URL:news:420a8a29$1@news.s5.net>:
> @@ 1.) How to extract telephone number from string.
> @@ Form for telephone number is XXX/XXXX-XXX or XXX/XXX-XXX or XX/XXXX-XXX, so
> @@ I have problem with different number format.X is for numeric
> @@ 3 / 4 - 3
> @@ or 3 / 3 - 3 or 2 / 4 - 3 number character
> @@ Eg. Phone numbers:
> @@ 091/5444-333
> @@ 098/255-555
> @@ 042/255-555
> @@ 01/6555-333
>
> m![0-9]{2}(?:[0-9]/[0-9]?|/[0-9])[0-9]{3}-[0-9]{3}!g;
If it doesn't have to be a single regex, other solutions are more flexible.
A hash that stores the allowable combinations can be directly read off
the specifications and is easily changed, if needed:
my %allowed;
$allowed{ 3, 4, 3} = 1;
$allowed{ 3, 3, 3} = 1;
$allowed{ 2, 4, 3} = 1;
while ( m{ ((\d+) / (\d+) - (\d+)) }xg ) {
print "$1\n" if $allowed{ (), map length() => $2, $3, $4};
}
This uses the syntax for "multidimensional array emulation" (see "$;" in
perlvar). It is still occasionally useful, though not essential to the
solution.
Anno
------------------------------
Date: Wed, 9 Feb 2005 17:06:17 -0800
From: Steven Kuo <skuo@mtwhitney.nsc.com>
Subject: Re: string and pattern problem
Message-Id: <Pine.GSO.4.21.0502091700090.12954-100000@mtwhitney.nsc.com>
On 10 Feb 2005, Anno Siegel wrote:
> Abigail <abigail@abigail.nl> wrote in comp.lang.perl.misc:
> > m![0-9]{2}(?:[0-9]/[0-9]?|/[0-9])[0-9]{3}-[0-9]{3}!g;
>
> If it doesn't have to be a single regex, other solutions are more flexible.
> A hash that stores the allowable combinations can be directly read off
> the specifications and is easily changed, if needed:
>
> my %allowed;
> $allowed{ 3, 4, 3} = 1;
> $allowed{ 3, 3, 3} = 1;
> $allowed{ 2, 4, 3} = 1;
>
> while ( m{ ((\d+) / (\d+) - (\d+)) }xg ) {
> print "$1\n" if $allowed{ (), map length() => $2, $3, $4};
> }
Interesting. I realize the expression to generate the hash key is in
list context -- I've just not seen it written that way before. My
usual syntax would be
print "$1\n" if $allowed{ join $; => map length() => $2, $3, $4};
Thanks for the "golf lesson".
--
Regards,
Steven
------------------------------
Date: Wed, 9 Feb 2005 18:31:58 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: string and pattern problem
Message-Id: <slrnd0laru.4u3.tadmc@magna.augustmail.com>
Tajana <tajana@removeingko.com> wrote:
> 1.) How to extract telephone number from string.
> Form for telephone number is XXX/XXXX-XXX or XXX/XXX-XXX or XX/XXXX-XXX, so
> I have problem with different number format.X is for numeric
> 3 / 4 - 3
m#\d{3}/\d{4}-\d{3}#g
> or 3 / 3 - 3
m#\d{3}/\d{3}-\d{3}#g
> or 2 / 4 - 3 number character
m#\d{2}/\d{4}-\d{3}#g
> 2.) How to check position of pattern in some string
> Eg.
> $pattern ="my";
That isn't much of a pattern. It looks like a constant string.
> $string= "my dog is my pet";
>
> Answer is: 0 , and 10
perldoc -f index
Or if you really meant for $pattern to be a pattern:
perldoc -f pos
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 9 Feb 2005 18:07:03 -0700
From: "Robin" <webmaster @ infusedlight.net>
Subject: test
Message-Id: <gqWdne7CRrglLpffRVn-oQ@comcast.com>
test
--
Robin
--
webmaster@infusedlight.net
--
------------------------------
Date: 10 Feb 2005 01:22:17 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: test
Message-Id: <cued09$d4h$2@mamenchi.zrz.TU-Berlin.DE>
Robin <webmaster @ infusedlight.net> wrote in comp.lang.perl.misc:
> test
> --
> Robin
Learning rate: zero.
Anno
------------------------------
Date: 9 Feb 2005 23:14:32 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: The Problem with Perl
Message-Id: <cue5go$95a$1@mamenchi.zrz.TU-Berlin.DE>
Eric Bohlman <ebohlman@omsdev.com> wrote in comp.lang.perl.misc:
> Charlton Wilbur <cwilbur@mithril.chromatico.net> wrote in
> news:871xbpzaa1.fsf@mithril.chromatico.net:
>
> > Perl does have weaknesses. In particular, it is flexible enough that
> > in the hands of poor programmers it can be disastrous for large
> > products. This is an intentionally chosen tradeoff, however: if the
> > language enforces a certain discipline on its programmers, then
> > programmers who are capable of imposing different discipline on
> > themselves find the language frustrating to use (though programmers
> > who would otherwise have no discipline benefit greatly). A bad
>
> This is a really important point. Perl shouldn't be thought of as an
> "undisciplined language"; it should be thought of as a "bring your own
> discipline (BYOD) language."
Yeah, but people don't. Matt, of script archive fame didn't. Many of
the folks whose code we get to see on clpm obviously don't. Programming
discipline? What's that, it works!
> Larry's philosophy is that programming
> discipline is a human issue, not a technical one, and therefore needs to be
> enforced by human (social) means, not through technical characteristics of
> tools.
A decision that has a price. There's code out there the community has
to deal with -- Matt's archives have cost a tremendous effort and still
do. There would be less of that if it weren't so easy to put Perl
programs together that "work", and even do "big things" to satisfy the
young enthusiast's ego.
Mind you, I'm still in favor of the Perl way of doing things, grudgingly
including the DWIMmer. But it doesn't come free.
Anno
------------------------------
Date: Wed, 09 Feb 2005 23:29:23 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: The Problem with Perl
Message-Id: <87wtthxqlp.fsf@mithril.chromatico.net>
>>>>> "EB" == Eric Bohlman <ebohlman@omsdev.com> writes:
EB> Charlton Wilbur <cwilbur@mithril.chromatico.net> wrote in
EB> news:871xbpzaa1.fsf@mithril.chromatico.net:
>> Perl does have weaknesses. In particular, it is flexible
>> enough that in the hands of poor programmers it can be
>> disastrous for large products. This is an intentionally chosen
>> tradeoff, however: if the language enforces a certain
>> discipline on its programmers, then programmers who are capable
>> of imposing different discipline on themselves find the
>> language frustrating to use (though programmers who would
>> otherwise have no discipline benefit greatly). A bad
EB> This is a really important point. Perl shouldn't be thought
EB> of as an "undisciplined language"; it should be thought of as
EB> a "bring your own discipline (BYOD) language." Larry's
EB> philosophy is that programming discipline is a human issue,
EB> not a technical one, and therefore needs to be enforced by
EB> human (social) means, not through technical characteristics of
EB> tools.
Which is a good philosophy -- but if I were a manager for a large
project, it would certainly be *safer* to hire a bunch of mediocre
programmers and give them a bondage-and-discipline language than to
hire a few brilliant programmers and give them Perl -- because it's
hard to distinguish in the hiring process between a mediocre
programmer and a brilliant programmer who doesn't interview well, or
between a brilliant programmer who is quirky but productive and a
brilliant programmer who is impossible to work with.
On the other hand, if I had a team of proven brlliant programmers who
worked well together, I'd let them use whatever language they wanted
so long as they delivered results. I think this is a much rarer
situation than programmers would like to believe....
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Wed, 09 Feb 2005 23:35:35 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: The Problem with Perl
Message-Id: <Xns95F8BD24033Dasu1cornelledu@127.0.0.1>
"Rhugga" <rhugga@yahoo.com> wrote in news:1107972604.760531.141110
@z14g2000cwz.googlegroups.com:
> In C/C++ the function foo(int x) and foo(char *) are 2 completely
> different functions,
It seems to me that you do not know much about C.
Sinan
------------------------------
Date: Wed, 9 Feb 2005 23:31:03 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: The Problem with Perl
Message-Id: <Pine.LNX.4.61.0502092316110.24115@ppepc56.ph.gla.ac.uk>
On Wed, 9 Feb 2005, Anno Siegel wrote:
> Eric Bohlman <ebohlman@omsdev.com> wrote in comp.lang.perl.misc:
> > This is a really important point. Perl shouldn't be thought of as an
> > "undisciplined language"; it should be thought of as a "bring your own
> > discipline (BYOD) language."
To a certain extent, Perl now offers the tools for applying one's own
discipline. But they have to be turned on explicitly (as we
experience here daily). And their reports have to be understood and
acted on, if they're to be of any value.
> Yeah, but people don't. Matt, of script archive fame didn't. Many
> of the folks whose code we get to see on clpm obviously don't.
> Programming discipline? What's that, it works!
But define "works"! "Does what the author intended, under controlled
conditions" is not the same thing!!
> A decision that has a price. There's code out there the community
> has to deal with -- Matt's archives have cost a tremendous effort
> and still do.
That's true.
But I see it in the small scale too.
A young colleague had a self-developed CGI script - here some
snippets:
[...]
my $in = param('dayin');
my $out = param('dayout');
[...]
if ($out < $in ){
[...]
}
As you've doubtless worked out for yourself, this left the web server
log splattered with warnings that numeric comparisons with undefined
values were not such a nice idea. He declared the issue to be too
complicated to solve, and the logged warnings to be an inevitable
nuisance.
Fortunately, this heap of junk won't see the world-wide part of the
web; but it remains only too true that "physicists write FORTRAN in
any language", as indeed this chap seems to do.
my @numarray = qw (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30 31 );
[...]
&checkfields($in,@numarray);
[...]
> Mind you, I'm still in favor of the Perl way of doing things,
> grudgingly including the DWIMmer. But it doesn't come free.
Indeed.
------------------------------
Date: 10 Feb 2005 00:05:36 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: The Problem with Perl
Message-Id: <slrnd0l9ag.g2.abigail@alexandra.abigail.nl>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMMMCLXXX
September MCMXCIII in <URL:news:cue5go$95a$1@mamenchi.zrz.TU-Berlin.DE>:
,, Eric Bohlman <ebohlman@omsdev.com> wrote in comp.lang.perl.misc:
,, >
,, > This is a really important point. Perl shouldn't be thought of as an
,, > "undisciplined language"; it should be thought of as a "bring your own
,, > discipline (BYOD) language."
,,
,, Yeah, but people don't. Matt, of script archive fame didn't. Many of
,, the folks whose code we get to see on clpm obviously don't. Programming
,, discipline? What's that, it works!
,,
,, > Larry's philosophy is that programming
,, > discipline is a human issue, not a technical one, and therefore needs to be
,, > enforced by human (social) means, not through technical characteristics of
,, > tools.
,,
,, A decision that has a price. There's code out there the community has
,, to deal with -- Matt's archives have cost a tremendous effort and still
,, do. There would be less of that if it weren't so easy to put Perl
,, programs together that "work", and even do "big things" to satisfy the
,, young enthusiast's ego.
,,
,, Mind you, I'm still in favor of the Perl way of doing things, grudgingly
,, including the DWIMmer. But it doesn't come free.
Yes, but. I don't think that's in any way the fault of Perl. People
like Matt, and the other people you are referring to, should never have
programmed in Perl. Perl is not suited for them - but Perl didn't force
itself upon them. They should have coded in Java, Python, or another
"I'll hold your hand" language.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: Wed, 09 Feb 2005 19:09:36 -0500
From: William Goedicke <goedicke@brandeis.edu>
Subject: Re: The Problem with Perl
Message-Id: <m34qglmg1r.fsf@goedsole.com>
Dear Abigail et al -
>>>>> "abigail" == abigail <abigail@abigail.nl> writes:
abigail> A reaction, in the hope your posting isn't a troll.
It's not I genuinely think it a valid question and discussion.
abigail> I think that for the majority of the people [...] Perl is
abigail> the wrong choice.
But, why?
- Billy
============================================================
William Goedicke goedicke@goedsole.com
Cell 617-510-7244 http://www.goedsole.com:8080
============================================================
Lest we forget:
Mac OS X: Because it was easier to make UNIX user
friendly than fix Windows.
- Lou Moran
------------------------------
Date: 10 Feb 2005 00:09:46 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: The Problem with Perl
Message-Id: <slrnd0l9i9.g2.abigail@alexandra.abigail.nl>
Charlton Wilbur (cwilbur@mithril.chromatico.net) wrote on MMMMCLXXX
September MCMXCIII in <URL:news:87wtthxqlp.fsf@mithril.chromatico.net>:
''
'' Which is a good philosophy -- but if I were a manager for a large
'' project, it would certainly be *safer* to hire a bunch of mediocre
'' programmers and give them a bondage-and-discipline language than to
'' hire a few brilliant programmers and give them Perl -- because it's
'' hard to distinguish in the hiring process between a mediocre
'' programmer and a brilliant programmer who doesn't interview well, or
'' between a brilliant programmer who is quirky but productive and a
'' brilliant programmer who is impossible to work with.
If you have a project where you can't distinguish the difference between
a bunch of mediocre programmers, and a few brilliant coders, by all means,
hire the mediocre programmers.
But I'm willing to believe than in most cases, having a few brilliant
coders makes more of a difference than the language being used.
'' On the other hand, if I had a team of proven brlliant programmers who
'' worked well together, I'd let them use whatever language they wanted
'' so long as they delivered results. I think this is a much rarer
'' situation than programmers would like to believe....
Perhaps.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: 10 Feb 2005 01:14:44 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: The Problem with Perl
Message-Id: <cueci4$d4h$1@mamenchi.zrz.TU-Berlin.DE>
Abigail <abigail@abigail.nl> wrote in comp.lang.perl.misc:
> Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMMMCLXXX
> September MCMXCIII in <URL:news:cue5go$95a$1@mamenchi.zrz.TU-Berlin.DE>:
[...]
> ,, A decision that has a price. There's code out there the community has
> ,, to deal with -- Matt's archives have cost a tremendous effort and still
> ,, do. There would be less of that if it weren't so easy to put Perl
> ,, programs together that "work", and even do "big things" to satisfy the
> ,, young enthusiast's ego.
> ,,
> ,, Mind you, I'm still in favor of the Perl way of doing things, grudgingly
> ,, including the DWIMmer. But it doesn't come free.
>
>
> Yes, but. I don't think that's in any way the fault of Perl. People
> like Matt, and the other people you are referring to, should never have
> programmed in Perl. Perl is not suited for them - but Perl didn't force
> itself upon them. They should have coded in Java, Python, or another
> "I'll hold your hand" language.
I don't know about fault, but Perl does have attractions for the wrong
kind of folks. You don't get kicks out of a language that wants you to
learn the difference between an integer and a float. In Perl, it doesn't
matter if one is a string and the other isn't. That rocks!
It's the DWIMmer. Take the DWIMmer out of Perl and only the most dedicated
and sophisticated programmers will (be able to) use it.
Anno
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 7764
***************************************
