[28963] in Perl-Users-Digest
Perl-Users Digest, Issue: 207 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 9 00:09:42 2007
Date: Thu, 8 Mar 2007 21:09:04 -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 Thu, 8 Mar 2007 Volume: 11 Number: 207
Today's topics:
${{ foo => bar, baz => faz }}{ baz } <john@castleamber.com>
Re: ${{ foo => bar, baz => faz }}{ baz } <uri@stemsystems.com>
Re: ${{ foo => bar, baz => faz }}{ baz } <greg.ferguson@icrossing.com>
Re: ${{ foo => bar, baz => faz }}{ baz } <bik.mido@tiscalinet.it>
Re: ${{ foo => bar, baz => faz }}{ baz } <john@castleamber.com>
Re: Entry Widget - Perl/Tk <doni.sekar@gmail.com>
Re: Entry Widget - Perl/Tk <bik.mido@tiscalinet.it>
Re: Entry Widget - Perl/Tk <doni.sekar@gmail.com>
Re: IPC::Open2 - Bad File Descriptor <ben@morrow.me.uk>
Re: MIME::Lite, getting a warning. <justin.0703@purestblue.com>
Re: Net::SMTP connection problems <sisyphus1@nomail.afraid.org>
Re: Posting guidelines work <bik.mido@tiscalinet.it>
Re: Posting guidelines work usenet@DavidFilmer.com
Re: Posting guidelines work <1usa@llenroc.ude.invalid>
Re: Posting guidelines work <uri@stemsystems.com>
Re: view images inside the windows xp shell <bik.mido@tiscalinet.it>
Re: What is abriviation for CHR(4) <ben@morrow.me.uk>
Re: Windows XP problem, how to print some data to print <greg.ferguson@icrossing.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Mar 2007 21:59:26 GMT
From: John Bokma <john@castleamber.com>
Subject: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <Xns98EDA2A94EBADcastleamber@130.133.1.4>
I noticed that the following works perfectly:
my $value = ${{ foo => bar, baz => faz }}{ $type }
which assigns bar when $type is foo, or faz when $type is baz.
Of course this is more fun when you have a longer list and don't want to
assign a hash to a variable and use it.
If there is a (tested!) shorter way to do this, let me know :-)
--
John
Dragons of a Fallen Sun
http://johnbokma.com/mexit/2005/04/09/
------------------------------
Date: Thu, 08 Mar 2007 17:14:25 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <x7k5xr4c3i.fsf@mail.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> I noticed that the following works perfectly:
JB> my $value = ${{ foo => bar, baz => faz }}{ $type }
JB> which assigns bar when $type is foo, or faz when $type is baz.
JB> Of course this is more fun when you have a longer list and don't want to
JB> assign a hash to a variable and use it.
JB> If there is a (tested!) shorter way to do this, let me know :-)
pretty much the same thing but using ->
{ foo => bar, baz => faz }->{ $type }
i have seen some cute hacks doing the same thing with array
refs. nothing that i would ever use in production. if the hash is ever
used more than one time it is a waste to build it each time through. if
it will always be used in the program (even once) it should be a static
hash declared and initialized outside the sub (or even in the sub but
named). i like dispatch tables and such but that style is too dense for
my taste. and if it ever grows beyond 2 entries it becomes very
fugly. also what about when $type isn't one of those two keys? if you
know it will always be one of them, you can reduce that to a simpler
conditional expression:
$type eq 'foo' ? 'bar' : 'faz' ;
even a 3 way choice is clean enough with conditionals:
$type eq 'foo' ? 'bar' :
$type eq 'baz' ? :'faz' : 'error' ;
damian conway has some wacky way he formats nested conditionals but i
can't recall it now.
also you didn't quote the values so that wasn't strict safe.
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: 8 Mar 2007 15:05:13 -0800
From: "gf" <greg.ferguson@icrossing.com>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <1173395113.110296.264340@64g2000cwx.googlegroups.com>
On Mar 8, 3:14 pm, Uri Guttman <u...@stemsystems.com> wrote:
> damian conway has some wacky way he formats nested conditionals but i
> can't recall it now.
It's probably this, at least he showed something like it in the PBP
book.
my $a = 4;
my $x =
( $a == 1 ) ? 1
: ( $a == 2 ) ? 2
: ( $a == 3 ) ? 3
: 4;
It's pretty nice for big long lists that would otherwise be written as
chained if/then/elsif/else tests. What I like about it is it makes a
missing else condition turn into a syntax error which is caught at
compile-time instead of it being some latent run-time bug waiting to
sneak in.
------------------------------
Date: Fri, 09 Mar 2007 00:10:50 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <4s51v2d9l2kh2i07lufrthqslkl616ico2@4ax.com>
On 8 Mar 2007 21:59:26 GMT, John Bokma <john@castleamber.com> wrote:
>my $value = ${{ foo => bar, baz => faz }}{ $type }
>
>which assigns bar when $type is foo, or faz when $type is baz.
[snip]
>If there is a (tested!) shorter way to do this, let me know :-)
How 'bout
$value = { foo => bar, baz => faz }->{ $type }; # ?
BTW: are bar and faz subs? Just remember that => autoquotes on the
left, but not on the right...
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: 8 Mar 2007 23:48:59 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <Xns98EDB53C8F712castleamber@130.133.1.4>
Uri Guttman <uri@stemsystems.com> wrote:
>>>>>> "JB" == John Bokma <john@castleamber.com> writes:
>
> JB> I noticed that the following works perfectly:
> JB> my $value = ${{ foo => bar, baz => faz }}{ $type }
>
> JB> which assigns bar when $type is foo, or faz when $type is baz.
>
> JB> Of course this is more fun when you have a longer list and don't
> want to JB> assign a hash to a variable and use it.
>
> JB> If there is a (tested!) shorter way to do this, let me know :-)
>
> pretty much the same thing but using ->
>
> { foo => bar, baz => faz }->{ $type }
Thanks, that's the one I am looking for, I was quite sure there would be
a shorter version.
> i have seen some cute hacks doing the same thing with array
> refs. nothing that i would ever use in production. if the hash is ever
> used more than one time it is a waste to build it each time through.
> if it will always be used in the program (even once) it should be a
> static hash declared and initialized outside the sub (or even in the
> sub but named). i like dispatch tables and such but that style is too
> dense for my taste. and if it ever grows beyond 2 entries it becomes
> very fugly. also what about when $type isn't one of those two keys?
my $value = {
}->{ $type };
defined $value or die ...
> if
> you know it will always be one of them, you can reduce that to a
> simpler conditional expression:
>
> $type eq 'foo' ? 'bar' : 'faz' ;
Yup, I am aware of that one :-)
> even a 3 way choice is clean enough with conditionals:
>
> $type eq 'foo' ? 'bar' :
> $type eq 'baz' ? :'faz' : 'error' ;
But if you want one out of many? I don't like:
my $value =
( $type eq '...' ) ? '...'
: ( $type eq '...' ) ? '...'
:
> damian conway has some wacky way he formats nested conditionals but i
> can't recall it now.
I have Best Practices (Birthday present :-) ), have to start reading in
it again.
> also you didn't quote the values so that wasn't strict safe.
Yes, apologies for that.
--
John
CGI, templates, and bad Perl code
http://johnbokma.com/mexit/2005/11/22/
------------------------------
Date: 8 Mar 2007 14:27:46 -0800
From: "doni" <doni.sekar@gmail.com>
Subject: Re: Entry Widget - Perl/Tk
Message-Id: <1173392865.874158.10000@p10g2000cwp.googlegroups.com>
On Mar 8, 12:55 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> Well, here there may well be people able to help you on Tk, but as I
> wrote in my other post to you (well, maybe you didn't receive it) you
> may want to check comp.lang.perl.tk!
>
> Michele
> --
thanks, I got the answer to my solution from comp.lang.perl.tk.
I posted the same question earlier in comp.lang.perl.tk as well. I
dont know if I am not supposed to do like that. Let me know if I am
not supposed to post the same question in 2 groups.
Thanks,
doni
------------------------------
Date: Fri, 09 Mar 2007 00:01:23 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Entry Widget - Perl/Tk
Message-Id: <k751v21vba0vhlfijmg3omo19ig5v150rq@4ax.com>
On 8 Mar 2007 14:27:46 -0800, "doni" <doni.sekar@gmail.com> wrote:
>thanks, I got the answer to my solution from comp.lang.perl.tk.
>I posted the same question earlier in comp.lang.perl.tk as well. I
Then you multiposted.
>dont know if I am not supposed to do like that. Let me know if I am
>not supposed to post the same question in 2 groups.
You're supposed not to. If there's a *really* good reson to do so,
then you'd better crosspost rather than multipost, i.e. include both
groups in the Newsgroups header. So people from both will know the
answers you received and this will avoid duplicate efforts. If you
find that many people sets Followup-to one group only, then you
probably shouldn't have crossposted in the first place.
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: 8 Mar 2007 15:30:01 -0800
From: "doni" <doni.sekar@gmail.com>
Subject: Re: Entry Widget - Perl/Tk
Message-Id: <1173396601.850652.191850@q40g2000cwq.googlegroups.com>
On Mar 8, 3:01 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> You're supposed not to. If there's a *really* good reson to do so,
> then you'd better crosspost rather than multipost, i.e. include both
> groups in the Newsgroups header. So people from both will know the
> answers you received and this will avoid duplicate efforts. If you
> find that many people sets Followup-to one group only, then you
> probably shouldn't have crossposted in the first place.
>
> Michele
thanks for letting me know.
doni
------------------------------
Date: Thu, 8 Mar 2007 22:40:35 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: IPC::Open2 - Bad File Descriptor
Message-Id: <30g6c4-0l9.ln1@osiris.mauzo.dyndns.org>
Quoth anno4000@radom.zrz.tu-berlin.de:
> Ben Morrow <ben@morrow.me.uk> wrote in comp.lang.perl.misc:
> > Quoth Bernard Chan <cbkihong@hotmail.com>:
>
> [...]
>
> > You may find IPC::Run easier to work with, not least because open2 seems
> > to require you to use bareword filehandles, which are not considered
> > good practice nowadays.
>
> That's no problem:
>
> use IPC::Open2;
>
> my $pid = open2( my( $read, $write), 'sort');
> print $write "$_\n" for qw( ccc bbb aaa);
> close $write;
> print while <$read>;
Yes, but the OP's case was more like
use IPC::Open2;
open FOO, '>', 'foo';
open BAR, '<', 'bar';
my $pid = open2 '>&FOO', '<&BAR', 'sort';
which requires bareword FHs to dup.
Ben
--
You poor take courage, you rich take care:
The Earth was made a common treasury for everyone to share
All things in common, all people one.
'We come in peace'---the order came to cut them down. [ben@morrow.me.uk]
------------------------------
Date: Thu, 08 Mar 2007 23:31:42 -0000
From: Justin C <justin.0703@purestblue.com>
Subject: Re: MIME::Lite, getting a warning.
Message-Id: <slrnev176u.d8c.justin.0703@stigmata.purestblue.com>
On 2007-03-07, Justin C <justin.0703@purestblue.com> wrote:
>
> I have a script that mails a zip file to a user, when I run it a warning
> is generated: no data in this part
Abort!
I don't know what came over me there. I should have *at least* included
"use MIME::Lite" in the sample code.
Found the problem, it was a failing of a part of the script that I
didn't include... which obviously goes against the instructions of the
FAQ, to post working code that demonstrates the problem.
Sorry to have wasted anyone's time.
Thank you, Robert, for taking the time to suggest something.
Justin.
--
Justin C, by the sea.
------------------------------
Date: Fri, 9 Mar 2007 15:43:26 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Net::SMTP connection problems
Message-Id: <45f0e5f1$0$9773$afc38c87@news.optusnet.com.au>
"Simon Andrews" <simon.andrews@bbsrc.ac.uk> wrote in message
news:esorml$3rr$1@south.jnrs.ja.net...
.
.
>
> #!perl
> use warnings;
> use strict;
> use Net::SMTP;
>
> my $smtp = Net::SMTP->new('smtp',
> Timeout => 60,
> Debug => 1);
>
> print "Result was '$smtp' from ".$Net::SMTP::VERSION;
>
>
> .. which gets me:
>
> Result was '' from 2.29 (plus an uninitialised value warning from trying
> to print $smtp. It seems the connection is failing before the socket is
> even created.
>
Yep - I get exactly the same. On my box, I expect it's because there's no
accessible mail host by the name of 'smtp'.
Does specifying 'smtp' as the mail host normally work for you ? (eg, is
that's what specified on the linux boxes where the program *does* work ?)
Cheers,
Rob
------------------------------
Date: Fri, 09 Mar 2007 00:06:44 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Posting guidelines work
Message-Id: <sj51v25hf910o4f4icca779f934fqtcunl@4ax.com>
On Thu, 8 Mar 2007 21:00:24 +0000 (UTC), "A. Sinan Unur"
<1usa@llenroc.ude.invalid> wrote:
>The posting guidelines work. Problem solved. 1 Gb data file parsed and
>reformatted.
Although many of us have a story like this to narrate, thanks for
sharing. Sometimes I devise the solution myself while *composing* the
post. (Not that I've really read the guidelines, ever. Just somehow
follow them out of common sense, and possibly some sparse tip.)
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: 8 Mar 2007 15:14:51 -0800
From: usenet@DavidFilmer.com
Subject: Re: Posting guidelines work
Message-Id: <1173395691.149505.138100@j27g2000cwj.googlegroups.com>
On Mar 8, 3:06 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> Sometimes I devise the solution myself while *composing* the post
Metoo. I think I've actually abandoned more messages than I've
posted. As I try to express the problem clearly with minimalistic
demonstration code, I often discover my own logic or syntax error.
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Thu, 08 Mar 2007 23:15:49 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Posting guidelines work
Message-Id: <Xns98EDB9CBB580Basu1cornelledu@127.0.0.1>
Michele Dondi <bik.mido@tiscalinet.it> wrote in
news:sj51v25hf910o4f4icca779f934fqtcunl@4ax.com:
> On Thu, 8 Mar 2007 21:00:24 +0000 (UTC), "A. Sinan Unur"
> <1usa@llenroc.ude.invalid> wrote:
>
>>The posting guidelines work. Problem solved. 1 Gb data file parsed and
>>reformatted.
>
> Although many of us have a story like this to narrate, thanks for
> sharing. Sometimes I devise the solution myself while *composing* the
> post. (Not that I've really read the guidelines, ever. Just somehow
> follow them out of common sense, and possibly some sparse tip.)
>
Well, it is, of course, not a rare occurence that I get completely stuck
with something, but, this was a case where it was exceptionally hard for
me to see what I was doing wrong. Just 15 minutes of focusing on the task
of preparing a post helped me solve what I had not been able to solve for
the previous four hours of struggle.
My post was both a reflection of my elation and re-realization that if I
just start preparing a post for this group when I get stuck, I will manage
to extricate myself without needing to actually post the question ;-)
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Thu, 08 Mar 2007 19:52:11 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Posting guidelines work
Message-Id: <x77itr44sk.fsf@mail.sysarch.com>
>>>>> "u" == usenet <usenet@DavidFilmer.com> writes:
u> On Mar 8, 3:06 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
>> Sometimes I devise the solution myself while *composing* the post
u> Metoo. I think I've actually abandoned more messages than I've
u> posted. As I try to express the problem clearly with minimalistic
u> demonstration code, I often discover my own logic or syntax error.
that is a common happening when describing any logical problem. the
process of trying to explain it will make you understand it better and a
solution will pop up. it doesn't need to be usenet as it works verbally
as well. that is why it is good to have colleagues/mentors with whom you
can discuss things. i recall one distinct time many years ago when i
walked into my boss's office, sat down and began my tale of woeful
confusion. he didn't say a word the whole time and suddenly i had my
answer. i thanked him and left without his saying anything.
so the posting guidelines want you to try to reduce and explain your
problem to others and often it will allow you to find the answer on your
own. this is why we encourage newbies to follow those rules as they have
proven to work over many years. too bad we get too many who flame when
told to follow them. they lose out on a great debugging technique of
self discovery via properly communicating a problem to others. half the
time a problem is all about not having a good picture of it in your
brain and describing it will fix that.
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: Thu, 08 Mar 2007 23:57:24 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: view images inside the windows xp shell
Message-Id: <o451v21r01il49vokrk8oh2vkqfk3lnfld@4ax.com>
On Thu, 08 Mar 2007 21:47:34 GMT, Brian Helterline
<brian.helterline@hp.com> wrote:
>> Hi, I've done a lot of googling but I couldn't find a way to view
>> images inside the windows xp shell, I don't want an external window to
>> appear, so may be that tk-perl is not a choice; I've tried also image-
>> magick (with the display command) but it needs an x-server. Can you
>> please suggest me any alternative to image-magick?
>> Thanks
>>
>try running your perl tk program with wperl.exe. It does not create the
>DOS box.
Whoa, now that I think of it probably your esp-fu is stronger than
mine. If so, then what a convoluted way to say that!
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: Thu, 8 Mar 2007 22:35:03 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: What is abriviation for CHR(4)
Message-Id: <nlf6c4-0l9.ln1@osiris.mauzo.dyndns.org>
Quoth xhoster@gmail.com:
> "max" <max@xxx.tovle.ct> wrote:
> > Problem with making Replacement CHR(4) in something.
> > CHR(9) is "\t"
> > I use tr///.
> > What is abbreviation for CHR(4)
>
>
> $ perl -le 'use Data::Dumper; $Data::Dumper::Useqq=1; \
> print Dumper [chr(4), chr(9)];'
> $VAR1 = [
> "\4",
> "\t"
> ];
>
>
> It looks like "\4" is a good abbreviation, but I imagine it wouldn't
> work if followed by a digit (in which case Dumper uses "\004" instead).
"\4" is unreliable under some circumstances: notably, in a pattern (or
the RHS of s///), if $4 exists then \4 is assumed to refer to that
rather than chr(4). "\04" is safer.
Ben
--
"Faith has you at a disadvantage, Buffy."
"'Cause I'm not crazy, or 'cause I don't kill people?"
"Both, actually."
[ben@morrow.me.uk]
------------------------------
Date: 8 Mar 2007 15:12:21 -0800
From: "gf" <greg.ferguson@icrossing.com>
Subject: Re: Windows XP problem, how to print some data to printer connected on LPT port?
Message-Id: <1173395541.284961.127100@p10g2000cwp.googlegroups.com>
On Mar 8, 8:12 am, "max" <m...@xxx.tovle.ct> wrote:
> Windows XP problem, how to print some data to printer connected on LPT port?
>
> Thanks
http://www.perlmonks.org/?node=printer
------------------------------
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 207
**************************************
