[28993] in Perl-Users-Digest
Perl-Users Digest, Issue: 237 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 19 09:10:12 2007
Date: Mon, 19 Mar 2007 06:09:07 -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, 19 Mar 2007 Volume: 11 Number: 237
Today's topics:
Re: anyone could explain this to me? anno4000@radom.zrz.tu-berlin.de
checking for filehandle <iler.ml@gmail.com>
Re: checking for filehandle anno4000@radom.zrz.tu-berlin.de
Re: checking for filehandle <iler.ml@gmail.com>
Re: checking for filehandle <bik.mido@tiscalinet.it>
Re: checking for filehandle <bik.mido@tiscalinet.it>
Re: I dotn understand this error <iler.ml@gmail.com>
Re: I dotn understand this error anno4000@radom.zrz.tu-berlin.de
Re: I dotn understand this error <bik.mido@tiscalinet.it>
Re: new CGI::Session creates a new session every visit. <uri@stemsystems.com>
Re: new CGI::Session creates a new session every visit. xhoster@gmail.com
Re: new CGI::Session creates a new session every visit. <mark.clementsREMOVETHIS@wanadoo.fr>
new CPAN modules on Mon Mar 19 2007 (Randal Schwartz)
Re: Reading STDIN seems to be breaking my script <m@rtij.nl.invlalid>
Re: Reading STDIN seems to be breaking my script <bik.mido@tiscalinet.it>
Re: Reading STDIN seems to be breaking my script <joe@inwap.com>
Re: Scope and Arrays anno4000@radom.zrz.tu-berlin.de
Re: Scope and Arrays <m@rtij.nl.invlalid>
submitting patch to perl docs <iler.ml@gmail.com>
Re: submitting patch to perl docs <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Mar 2007 21:01:09 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: anyone could explain this to me?
Message-Id: <565nklF27aiatU1@mid.dfncis.de>
Peter J. Holzer <hjp-usenet2@hjp.at> wrote in comp.lang.perl.misc:
> On 2007-03-18 18:45, anno4000@radom.zrz.tu-berlin.de
> <anno4000@radom.zrz.tu-berlin.de> wrote:
> > Dr.Ruud <rvtol+news@isolution.nl> wrote in comp.lang.perl.misc:
> >> anno4000@radom.zrz.tu-berlin.de schreef:
> >> > The regex could be simplified: /(.*)=(.*)/ would capture the same
> >> > things, given greediness and the structure of env output.
> >>
> >> Not if any environment variable would contain an "=".
> >>
> >> echo test=a=b |perl -wnle'
> >> print "$1/$2" if /^(test.*)=(.*)/
> >
> > Well, it's a shell variable, it can't.
>
> Sure it can:
>
> yoyo:~/tmp 17:22 187% export foo=bar=baz
> yoyo:~/tmp 20:53 188% env | grep foo
> foo=bar=baz
Ah, I've been wrong a few steps back in the thred. What I meant to
say was a shell variable *name* can't contain a "=", which it can't.
For some reason I believed the regex /(.*)=(.*)/ would capture in $1
everything up to the first blank, which is plainly wrong. Sorry.
Same apology goes for Sherm Pendley's reply.
Anno
------------------------------
Date: 19 Mar 2007 02:56:25 -0700
From: "Yakov" <iler.ml@gmail.com>
Subject: checking for filehandle
Message-Id: <1174298185.291821.118000@l75g2000hse.googlegroups.com>
Let's say I want to check whether $fh is a filehandle. Take 1
is to: defined(fileno($fh)). Perfect solution ? No. When $fh is a
tied-filehandle, $fh may not have real filedescriptor behind it
( for example, it sends output to the shared memory ).
How do I check for $fh being a filehandle, the check would work
even for tied filehandles that do not have real filedescriptor ?
Thanks
Yakov
------------------------------
Date: 19 Mar 2007 11:23:25 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: checking for filehandle
Message-Id: <567a5dF273nk1U1@mid.dfncis.de>
Yakov <iler.ml@gmail.com> wrote in comp.lang.perl.misc:
> Let's say I want to check whether $fh is a filehandle. Take 1
> is to: defined(fileno($fh)). Perfect solution ? No. When $fh is a
> tied-filehandle, $fh may not have real filedescriptor behind it
> ( for example, it sends output to the shared memory ).
>
> How do I check for $fh being a filehandle, the check would work
> even for tied filehandles that do not have real filedescriptor ?
In general it is hard to say for sure what a tied variable will respond
to. You can use tied() to access the underlying object and make
plausibility tests:
my $is_fh = tied( $h) && tied( $h)->isa( 'File::Handle');
or
my $is_fh = tied( $h) && tied( $h)->can( 'READ');
or similar. Both can go wrong, but will give the correct answer in most
cases.
In Perl 10 there will be UNIVERSAL::DOES that addresses this kind of
problem.
Anno
------------------------------
Date: 19 Mar 2007 05:55:07 -0700
From: "Yakov" <iler.ml@gmail.com>
Subject: Re: checking for filehandle
Message-Id: <1174308907.815041.138380@o5g2000hsb.googlegroups.com>
On Mar 19, 7:23 am, anno4...@radom.zrz.tu-berlin.de wrote:
> Yakov <iler...@gmail.com> wrote in comp.lang.perl.misc:
>
> > Let's say I want to check whether $fh is a filehandle. Take 1
> > is to: defined(fileno($fh)). Perfect solution ? No. When $fh is a
> > tied-filehandle, $fh may not have real filedescriptor behind it
> > ( for example, it sends output to the shared memory ).
>
> > How do I check for $fh being a filehandle, the check would work
> > even for tied filehandles that do not have real filedescriptor ?
>
> In general it is hard to say for sure what a tied variable will respond
> to. You can use tied() to access the underlying object and make
> plausibility tests:
>
> my $is_fh = tied( $h) && tied( $h)->isa( 'File::Handle');
>
> or
>
> my $is_fh = tied( $h) && tied( $h)->can( 'READ');
>
> or similar. Both can go wrong, but will give the correct answer in most
> cases.
Ok thanks. This seems to be the check:
defined(fileno($fh)) || (tied( $fh) && tied($fh)-
>can( 'TIEHANDLE' ))
Looks ok ?
Yakov
------------------------------
Date: Mon, 19 Mar 2007 13:56:31 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: checking for filehandle
Message-Id: <vv1tv2tf9jdu13a4nge8ttiak8r9k7ekln@4ax.com>
On 19 Mar 2007 11:23:25 GMT, anno4000@radom.zrz.tu-berlin.de wrote:
>In Perl 10 there will be UNIVERSAL::DOES that addresses this kind of
>problem.
5.10, Anno! People are still ranting about 6... I wonder on which
isolinear chip 10 will be supposed to run! :-)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 19 Mar 2007 14:06:15 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: checking for filehandle
Message-Id: <8b2tv2htevduvv210rc5dsgham074jq5js@4ax.com>
On 19 Mar 2007 02:56:25 -0700, "Yakov" <iler.ml@gmail.com> wrote:
>Let's say I want to check whether $fh is a filehandle. Take 1
>is to: defined(fileno($fh)). Perfect solution ? No. When $fh is a
>tied-filehandle, $fh may not have real filedescriptor behind it
>( for example, it sends output to the shared memory ).
>
>How do I check for $fh being a filehandle, the check would work
>even for tied filehandles that do not have real filedescriptor ?
The question is interesting, as is Anno's reply. Though I wonder why
you need that. To distinguish a parameter passed into a sub that will
behave differently whether it's a FH or something else? If so, then
ref() may suffice. Otherwise, just out of curiosity and with no
offense intended, why do you need it?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 19 Mar 2007 03:17:42 -0700
From: "Yakov" <iler.ml@gmail.com>
Subject: Re: I dotn understand this error
Message-Id: <1174299462.175464.9220@p15g2000hsd.googlegroups.com>
On Mar 19, 5:58 am, "=CE=9D=CE=AF=CE=BA=CE=BF=CF=82" <hacke...@gmail.com> w=
rote:
> Wehn i try to run my script i get this error:
>
> [Mon Mar 19 11:49:06 2007] index.pl: Use of uninitialized value in
> concatenation (.) or string at (eval 17) line 43. Content-Type: text/
> html; charset=3Dutf-8
>
> i llok at line 43 but cant un derstand what the problem.
[snip]
> Do you see anything wrong?
Which line is line 43 ?
------------------------------
Date: 19 Mar 2007 11:09:43 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: I dotn understand this error
Message-Id: <5679bnF27dcm0U1@mid.dfncis.de>
Yakov <iler.ml@gmail.com> wrote in comp.lang.perl.misc:
> On Mar 19, 5:58 am, "Νίκος" <hacke...@gmail.com> wrote:
> > Wehn i try to run my script i get this error:
> >
> > [Mon Mar 19 11:49:06 2007] index.pl: Use of uninitialized value in
> > concatenation (.) or string at (eval 17) line 43. Content-Type: text/
> > html; charset=utf-8
> >
> > i llok at line 43 but cant un derstand what the problem.
> [snip]
> > Do you see anything wrong?
>
> Which line is line 43 ?
None of the code lines. It's line 43 of eval 17.
Anno
------------------------------
Date: Mon, 19 Mar 2007 13:59:51 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: I dotn understand this error
Message-Id: <t52tv2le5dbnj22ttqjmksa9sj1v1ttmc5@4ax.com>
On 19 Mar 2007 03:17:42 -0700, "Yakov" <iler.ml@gmail.com> wrote:
>> Wehn i try to run my script i get this error:
>>
>> [Mon Mar 19 11:49:06 2007] index.pl: Use of uninitialized value in
>> concatenation (.) or string at (eval 17) line 43. Content-Type: text/
>> html; charset=3Dutf-8
It is not an error. It's a warning. I means exactly what it says. An
undef()ined value is being concatenated or interpolated into a string,
which is the same thing. An undef value is treated as an empty string
and people often rely on this on purpose. Indeed it's probably the
most commonly locally disabled warning. Anyway it's there to prevent
those cases in which you *inadvertently* do so.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sun, 18 Mar 2007 16:57:07 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <x7ps76xljg.fsf@mail.sysarch.com>
>>>>> "MC" == Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr> writes:
MC> Uri Guttman wrote:
>>>>>>> "x" == xhoster <xhoster@gmail.com> writes:
x> While I'll be. That will teach me not to read the perldocs for
>> my
x> locally installed version rather than the version the OP was
x> talking about.
>> i am not sure if english is your first language so i will assume it
>> is
>> not. the expression is, "well, i'll be ..." with ... being one of many
>> subphrases (damned, hornswoggled, etc. :).
>>
MC> Very often it's just plain "Well I'll be," the expletive being implied.
MC> It works fine on its own.
yeah, i should have also included that. anyhow my point was the
s/while/well/ for xhoster (who seems to know english quite well and i
thought he would appreciate this correction).
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: 19 Mar 2007 00:06:32 GMT
From: xhoster@gmail.com
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <20070318200635.471$wv@newsreader.com>
Uri Guttman <uri@stemsystems.com> wrote:
> >>>>> "MC" == Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr> writes:
>
> MC> Uri Guttman wrote:
> >>>>>>> "x" == xhoster <xhoster@gmail.com> writes:
> x> While I'll be. That will teach me not to read the perldocs for
> >> my
> x> locally installed version rather than the version the OP was
> x> talking about.
> >> i am not sure if english is your first language so i will assume it
> >> is
> >> not. the expression is, "well, i'll be ..." with ... being one of
> >> many subphrases (damned, hornswoggled, etc. :).
> >>
>
> MC> Very often it's just plain "Well I'll be," the expletive being
> implied. MC> It works fine on its own.
>
> yeah, i should have also included that. anyhow my point was the
> s/while/well/,
Oh, I didn't catch that until now. I thought you were talking about the
ellipsis versus just the period.
> for xhoster (who seems to know english quite well and i
> thought he would appreciate this correction).
Now that I understand it, thank you. My only excuse is that I was mentally
using a Hill-Billy-like accent in which "well" is pronounced like
"while".
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Mon, 19 Mar 2007 07:45:27 +0100
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: new CGI::Session creates a new session every visit. GRRR!!!
Message-Id: <45fe3187$0$25947$ba4acef3@news.orange.fr>
Uri Guttman wrote:
>>>>>> "MC" == Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr> writes:
>
> MC> Uri Guttman wrote:
> >>>>>>> "x" == xhoster <xhoster@gmail.com> writes:
> x> While I'll be. That will teach me not to read the perldocs for
> >> my
> x> locally installed version rather than the version the OP was
> x> talking about.
> >> i am not sure if english is your first language so i will assume it
> >> is
> >> not. the expression is, "well, i'll be ..." with ... being one of many
> >> subphrases (damned, hornswoggled, etc. :).
> >>
>
> MC> Very often it's just plain "Well I'll be," the expletive being implied.
> MC> It works fine on its own.
>
> yeah, i should have also included that. anyhow my point was the
> s/while/well/ for xhoster (who seems to know english quite well and i
> thought he would appreciate this correction).
Oops - I'd missed that. My correction of your correction was, er,
incorrect. Sorry Uri!
Mark
------------------------------
Date: Mon, 19 Mar 2007 04:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Mar 19 2007
Message-Id: <JF4vqB.1Jq6@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Alien-wxWidgets-0.30
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.30/
building, finding and using wxWidgets binaries
----
Audio-MPD-0.15.1
http://search.cpan.org/~jquelin/Audio-MPD-0.15.1/
Class for talking to MPD (Music Player Daemon) servers
----
CPAN-Inject-0.06
http://search.cpan.org/~adamk/CPAN-Inject-0.06/
Base class for injecting distributions into CPAN sources
----
Clone-Fast-0.92
http://search.cpan.org/~jjore/Clone-Fast-0.92/
Natively copying Perl data structures
----
Crypt-ECDSA-0.05
http://search.cpan.org/~billh/Crypt-ECDSA-0.05/
Elliptical Cryptography Digital Signature Algorithm
----
Crypt-ECDSA-0.051
http://search.cpan.org/~billh/Crypt-ECDSA-0.051/
Elliptical Cryptography Digital Signature Algorithm
----
DBIx-Class-TimeStamp-0.01
http://search.cpan.org/~jshirley/DBIx-Class-TimeStamp-0.01/
----
DBIx-Class-Timestamp-0.1
http://search.cpan.org/~jshirley/DBIx-Class-Timestamp-0.1/
----
DBIx-MySQLSequence-1.02
http://search.cpan.org/~adamk/DBIx-MySQLSequence-1.02/
Proper and correct (emulated) sequence support for MySQL
----
DBIx-Simple-1.27
http://search.cpan.org/~juerd/DBIx-Simple-1.27/
Easy-to-use OO interface to DBI
----
Device-TNC-0.02
http://search.cpan.org/~rbdavison/Device-TNC-0.02/
A generic interface to a TNC
----
ExtUtils-FakeConfig-0.09
http://search.cpan.org/~mbarbon/ExtUtils-FakeConfig-0.09/
overrides some configuration values
----
Flickr-Upload-1.24
http://search.cpan.org/~cpb/Flickr-Upload-1.24/
Upload images to flickr.com
----
Flickr-Upload-1.25
http://search.cpan.org/~cpb/Flickr-Upload-1.25/
Upload images to flickr.com
----
Games-WoW-Armory-0.0.2
http://search.cpan.org/~franckc/Games-WoW-Armory-0.0.2/
Access to the WoW Armory
----
Games-WoW-PVP-0.04
http://search.cpan.org/~franckc/Games-WoW-PVP-0.04/
(DEPRECATED) fetch informations about pvp grades for world of warcraft
----
Graph-Easy-0.54
http://search.cpan.org/~tels/Graph-Easy-0.54/
Render graphs as ASCII, HTML, SVG or via Graphviz
----
Graph-Easy-Manual-0.38
http://search.cpan.org/~tels/Graph-Easy-Manual-0.38/
HTML manual for Graph::Easy
----
Graphics-ColorUtils-0.09
http://search.cpan.org/~janert/Graphics-ColorUtils-0.09/
Easy-to-use color space conversions and more.
----
Lexical-Persistence-0.97
http://search.cpan.org/~rcaputo/Lexical-Persistence-0.97/
Persistent lexical variable values for arbitrary calls.
----
Mac-iTunes-0.89
http://search.cpan.org/~bdfoy/Mac-iTunes-0.89/
interact with and control iTunes
----
Mediawiki-POD-0.05
http://search.cpan.org/~tels/Mediawiki-POD-0.05/
convert POD to HTML suitable for a MediaWiki wiki
----
Modbus-Client-1.00
http://search.cpan.org/~dvklein/Modbus-Client-1.00/
----
Net-Google-Calendar-0.6
http://search.cpan.org/~simonw/Net-Google-Calendar-0.6/
programmatic access to Google's Calendar API
----
Net-SFTP-Foreign-0.90_16
http://search.cpan.org/~salva/Net-SFTP-Foreign-0.90_16/
Secure File Transfer Protocol client
----
Panotools-Script-0.04
http://search.cpan.org/~bpostle/Panotools-Script-0.04/
Panorama Tools scripting
----
PodToHTML-0.06
http://search.cpan.org/~bdfoy/PodToHTML-0.06/
----
Prima-Image-Magick-0.02
http://search.cpan.org/~karasik/Prima-Image-Magick-0.02/
Juggle images between Prima and Image::Magick
----
Sash-Plugin-VerticalResponse-1.02
http://search.cpan.org/~wbailey/Sash-Plugin-VerticalResponse-1.02/
----
Test-Mail-0.05
http://search.cpan.org/~skud/Test-Mail-0.05/
Test framework for email applications
----
Test-Timer-0.04
http://search.cpan.org/~jonasbn/Test-Timer-0.04/
a test module to test/assert response times
----
UNIVERSAL-ref-0.11
http://search.cpan.org/~jjore/UNIVERSAL-ref-0.11/
Turns ref() into a multimethod
----
version-0.71
http://search.cpan.org/~jpeacock/version-0.71/
Perl extension for Version Objects
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
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: Sun, 18 Mar 2007 22:19:08 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Reading STDIN seems to be breaking my script
Message-Id: <pan.2007.03.18.21.19.17@rtij.nl.invlalid>
On Sun, 18 Mar 2007 13:06:21 -0700, Ramon F Herrera wrote:
> I began learning Perl around 1993. The llama book did not mention the
> 'my' feature. I have been writing my-less scripts, and I didn't need it
> until now. Perl is not my primary programming language, which are C and
> Java. But I be using Perl much more often now, since I chose it (among
> a wide array of choices) for my AGI and other scripts.
Well, get a modern Perl book! Perl changed and is now my language of
choice for almost anything. It's not perfect, not by a long way, but it
gets the job done. Investing in learning modern Perl is a wise choice.
M4
-= Who hasn't written a single line of C or C++ in the past 2
years =-
------------------------------
Date: Sun, 18 Mar 2007 22:26:49 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Reading STDIN seems to be breaking my script
Message-Id: <tebrv2dae7ggfa1adaldfngqkj1sij6o2i@4ax.com>
On 18 Mar 2007 13:06:21 -0700, "Ramon F Herrera" <ramon@conexus.net>
wrote:
>I began learning Perl around 1993. The llama book did not mention the
>'my' feature. I have been writing my-less scripts, and I didn't need
>it until now. Perl is not my primary programming language, which are C
Nobody really "needs" it. Well, sort of: because in reality you can do
many things with lexicals that you can't with package variables. Think
about closures and a ton of other things.
>and Java. But I be using Perl much more often now, since I chose it
>(among a wide array of choices) for my AGI and other scripts.
Then by all means you should really do a favour to yourself and learn
how to program more sanely under strictures and warnings.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sun, 18 Mar 2007 22:50:33 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: Reading STDIN seems to be breaking my script
Message-Id: <wradnQ9mJ5k3uWPYnZ2dnUVZ_rvinZ2d@comcast.com>
Ramon F Herrera wrote:
> I began learning Perl around 1993. The llama book did not mention the
> 'my' feature.
Are you talking about the pink llama book? It's really out of date and
has been replaced by the blue llama book.
-Joe
------------------------------
Date: 18 Mar 2007 21:07:24 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Scope and Arrays
Message-Id: <565o0cF27aiatU2@mid.dfncis.de>
Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:
> >>>>> "a" == anno4000 <anno4000@radom.zrz.tu-berlin.de> writes:
> a> However, the code the OP has to deal with seems to be based on the
> a> Design Pattern of "Make Everything Global and Access at Will". (MEGAW?)
> a> That only works for small, one-off scripts. The problem is that small
> a> one-off scripts get re-used and extended in infinitesimal steps way
> a> beyond the breaking point.
>
> call it fortran common block coding! :)
I'll raise you to BCPL's global vector.
Anno
------------------------------
Date: Sun, 18 Mar 2007 22:21:18 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Scope and Arrays
Message-Id: <pan.2007.03.18.21.21.27@rtij.nl.invlalid>
On Sun, 18 Mar 2007 21:07:24 +0000, anno4000 wrote:
> Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:
>> >>>>> "a" == anno4000 <anno4000@radom.zrz.tu-berlin.de> writes:
>> a> However, the code the OP has to deal with seems to be based on the
>> a> Design Pattern of "Make Everything Global and Access at Will".
>> (MEGAW?) a> That only works for small, one-off scripts. The problem
>> is that small a> one-off scripts get re-used and extended in
>> infinitesimal steps way a> beyond the breaking point.
>>
>> call it fortran common block coding! :)
>
> I'll raise you to BCPL's global vector.
Luckily it's been long enough or I would call on COBOLs common blocks. Or
whatever they were called.
Yuck.
M4
------------------------------
Date: 18 Mar 2007 14:40:40 -0700
From: "Yakov" <iler.ml@gmail.com>
Subject: submitting patch to perl docs
Message-Id: <1174254040.316455.100260@y66g2000hsf.googlegroups.com>
What is the right method of submitting a patch to the perl docs ?
If I send the patch to the perl-documentation@perl.org mailing
list -- is this a correct method ?
Thanks
Yakov
------------------------------
Date: Sun, 18 Mar 2007 21:51:28 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: submitting patch to perl docs
Message-Id: <slrnevrulg.n1j.tadmc@tadmc30.august.net>
Yakov <iler.ml@gmail.com> wrote:
> What is the right method of submitting a patch to the perl docs ?
perldoc perlbug
> If I send the patch to the perl-documentation@perl.org mailing
> list -- is this a correct method ?
See also:
perldoc -q bug
Where do I send bug reports?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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 V11 Issue 237
**************************************
