<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<STYLE type=text/css>DIV {
MARGIN: 0px
}
</STYLE>
<META content="MSHTML 6.00.2900.3492" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=962241919-26022009>Looking at some of John W. Krahn's past comments, the
tone is sometimes very clear. One of my favorites:</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=962241919-26022009></SPAN></FONT> </DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV dir=ltr align=left><SPAN class=962241919-26022009>
<P><FONT face=Arial color=#0000ff size=2>> I am new to this community.I
have question regarding Pattern Matching </FONT></P>
<P><FONT face=Arial color=#0000ff size=2>> in Perl.</FONT></P>
<P><FONT face=Arial color=#0000ff size=2>In English, when you ask a question,
you end the sentence with a question mark. For example:</FONT></P>
<P><FONT face=Arial color=#0000ff size=2>How do you ask a question?</FONT></P>
<P><FONT face=Arial color=#0000ff size=2></FONT> </P></DIV></BLOCKQUOTE>
<P dir=ltr><SPAN class=962241919-26022009><FONT face=Arial color=#0000ff
size=2>I'm no Asimov, but I don't see the original poster asking a question in
the above exchange.</FONT></SPAN></P>
<P dir=ltr><SPAN class=962241919-26022009><FONT face=Arial color=#0000ff
size=2>I agree with Andrew on all of his points. This list should welcome
questions and dialogue from all levels of expertise. People shouldn't
hesitate to post because they're worried about experiencing "The Wrath of
Krahn". :-) </FONT></SPAN></P>
<DIV dir=ltr style="MARGIN-RIGHT: 0px" align=left><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV><FONT face=Arial color=#0000ff
size=2></FONT><BR>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B>
spug-list-bounces+frank.carroll=wamu.net@pm.org
[mailto:spug-list-bounces+frank.carroll=wamu.net@pm.org] <B>On Behalf Of
</B>Mark Mertel<BR><B>Sent:</B> Wednesday, February 25, 2009 9:21
AM<BR><B>To:</B> Andrew Sweger<BR><B>Cc:</B>
spug-list@mail.pm.org<BR><B>Subject:</B> Re: SPUG: Regexp::Assemble
question<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: tahoma, new york, times, serif">
<DIV></DIV>
<DIV>Mr. Sweger,</DIV>
<DIV> </DIV>
<DIV>I'm no expert, but it seems to me that Mr. Krahn's comments are all
perfectly valid, and I can detect no ill intent, or slander towards
the original poster. His are the types of comments to be expected during a
professional code review. Were these directed at code I had written, I
would welcome them rather than take them
personally.<BR> </DIV>---<BR>Mark Mertel<BR>
<DIV><BR></DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: tahoma, new york, times, serif"><BR>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: arial, helvetica, sans-serif"><FONT
face=Tahoma size=2>
<HR SIZE=1>
<B><SPAN style="FONT-WEIGHT: bold">From:</SPAN></B> Andrew Sweger
<andrew@sweger.net><BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B>
John W. Krahn <jwkrahn@shaw.ca><BR><B><SPAN
style="FONT-WEIGHT: bold">Cc:</SPAN></B> SPUG
<spug-list@mail.pm.org><BR><B><SPAN
style="FONT-WEIGHT: bold">Sent:</SPAN></B> Wednesday, February 25, 2009 8:55:13
AM<BR><B><SPAN style="FONT-WEIGHT: bold">Subject:</SPAN></B> Re: SPUG:
Regexp::Assemble question<BR></FONT><BR>On Tue, 24 Feb 2009, John W. Krahn
wrote:<BR><BR>> Emails do not have colours, they are just plain
text.<BR><BR>Mine doesn't. But I know some do. Regardless, Amit's intent was
still<BR>understood. <BR><BR>> Is this your actual code? If so, you
don't need the subroutines at all, <BR>> you just need the keys. And
why use a hash reference instead of a hash?<BR><BR>Your tone suggests that all
Perl programmers should use it in the same way<BR>(your's aparently). Where I
come from, Perl is spoken by people of every<BR>skill level; from baby-perl-talk
to uber-l33t-golpher-perl. If the code<BR>works, it works. Style and convention
mostly become a matter of teamwork.<BR>This list is about learning and sharing
Perl. I suspect you might not have<BR>realized this (considering your reply to
Amit and your previous reply to<BR>this list).<BR><BR>> Why all the duplicate
code?<BR>> <BR>> my $mode = qx(file $filename) =~
/gzip/i ? '<:gzip' : '<';<BR>> open MYINPUTFILE,
$mode, $filename or $Logger->logdie( "Error <BR>> opening file: $!"
);<BR><BR>Again, TIMTOWTDI.<BR><BR>> No need for this variable as Perl
provides the $. built-in variable that <BR>> keeps track of the current line
number.<BR><BR>Maybe so, but $lines is a lot more obvious than $. when it comes
time to<BR>review or update the code. Perhaps $INPUT_LINE_NUMBER (via <A
href="http://english.pm/" target=_blank>English.pm</A>)<BR>could be even more
obvious (and mean *exactly* the same thing as $.,<BR>whereas $lines could
actually mean something slightly different!).<BR><BR>> Those people who think
they know everything are a great<BR>> annoyance to those of us who do.
-- Isaac Asimov<BR><BR>Wow. Again?<BR><BR>Let me put it
simply: knock it off. If you want to bash people about how<BR>they write Perl,
go hang out on Usenet or some obscure IRC channel. It's<BR>not welcome
here.<BR><BR>-- <BR>Andrew B. Sweger -- The great thing about multitasking is
that several<BR>
things can go wrong at
once.<BR><BR><BR><BR><BR><BR>_____________________________________________________________<BR>Seattle
Perl Users Group Mailing List<BR> POST TO: <A
href="mailto:spug-list@pm.org"
ymailto="mailto:spug-list@pm.org">spug-list@pm.org</A><BR>SUBSCRIPTION:
http://mail.pm.org/mailman/listinfo/spug-list<BR> MEETINGS: 3rd
Tuesdays<BR> WEB PAGE:
http://seattleperl.org/<BR></DIV></DIV></DIV><BR></BODY></HTML>