[31307] in Perl-Users-Digest
Perl-Users Digest, Issue: 2552 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 15 00:09:47 2009
Date: Fri, 14 Aug 2009 21:09:10 -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 Fri, 14 Aug 2009 Volume: 11 Number: 2552
Today's topics:
Re: Getting file names with MIME::Parser <edMbj@aes-intl.com>
Re: hash of hashes <john1949@yahoo.com>
Re: more than one statement in a post perlish condition <uri@stemsystems.com>
Re: more than one statement in a post perlish condition <nat.k@gm.ml>
Re: more than one statement in a post perlish condition <tadmc@seesig.invalid>
Re: more than one statement in a post perlish condition <nat.k@gm.ml>
Re: Perl / DBH <xhoster@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 14 Aug 2009 14:38:08 -0700
From: Ed Jay <edMbj@aes-intl.com>
Subject: Re: Getting file names with MIME::Parser
Message-Id: <m8mb85t0tg50l4dvskh3kqm2k8dptf6il9@4ax.com>
J. Gleixner wrote:
>Ed Jay wrote:
>> I'm successfully using Mime::Parser to parse a multipart file containing
>> binary files and save the contents (files) to my desired folder on the
>> server. But... I do not know, nor do the docs tell me, how do I get the
>> names of the file contents?
>>
>
>I've never used it, however it looks like what you're after
>is in MIME::Parser::Filer.
Thanks. What I ended up doing was to read the upload directory.
--
Ed Jay (remove 'M' to reply by email)
Win the War Against Breast Cancer.
Knowing the facts could save your life.
http://www.breastthermography.info
------------------------------
Date: Fri, 14 Aug 2009 19:58:15 +0100
From: "John" <john1949@yahoo.com>
Subject: Re: hash of hashes
Message-Id: <h64c43$bt6$1@news.albasani.net>
"J. Gleixner" <glex_no-spam@qwest-spam-no.invalid> wrote in message
news:4a85953c$0$1325$815e3792@news.qwest.net...
> John wrote:
>> Hi
>>
>> Cannot work this one out.
>>
>> The following works OK:
>>
>> my $test1=$der->encode({type => 'sequence',
>> value => [{type => 'integer', value => 55},{type => 'string', value =>
>> 'HALLO'}]
>> });
>>
>> Rather than placing the hash in the routine call I want to place it
>> outside and call it $der->encode(%hash);
>>
>> my %hash;
>> $hash{type}='sequence';
>> $hash{value}{type}='integer';
>> $hash{value}{value}='55';
>> if I now say
>> $hash{value}{type}='string';
>> $hash{value}{value}='hallo';
>> it will overwite 'integer' and '55'
>>
>> How do I get around that?
>>
>> Regards
>> John
>>
>>
>
> perldoc perldsc
>
> push( @{ $hash{ 'value' } },
> { type=> 'integer', value => '55' },
Many thanks.
Regards
John
> { type=> 'string', value => 'hallo' } );
------------------------------
Date: Fri, 14 Aug 2009 14:54:59 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: more than one statement in a post perlish condition
Message-Id: <87zla26xa4.fsf@quad.sysarch.com>
>>>>> "NK" == Nathan Keel <nat.k@gm.ml> writes:
NK> Believe it or not, the fact you're an arrogant prick to everyone here
NK> and I didn't put up with your BS, doesn't actually mean squat. I know
NK> that's hard for you to accept. Anyway, you said you killfiled me, but
NK> as usual, you never did, because you're an arrogant fraud. Now, fuck
NK> off already.
fraud? are you accusing me of fraud? a perl ponzi scheme? please pay up
and i will repay your perl with 20% better code. hell, in your case 50%
is guaranteed!
NK> Oh yeah, it's proof that I'm obsessed with you, all because I let the
NK> poster know how you are (and you *are* like that). Get over yourself.
NK> Maybe if you did more than insult people, your misunderstood responses
NK> would be better received. But, don't actually dare and be a better
NK> person by my account!
i don't insult people, just non-entities. or those who bitch and don't
actually help with perl. you fit both categories just fine.
>> and my last comment still stands. the last example was horrible code
>> uri
NK> nal cake
wow. such witlessness. such originality. did your father help you out
with that? does making up stupid names make you feel better? this is
what i mean by obsessed. you resort to that same silly nickname each
time. the depth of your wit is as shallow as your perl skills. (now THAT
is an insult).
NK> Who gives a damn what you think? It's easily understood, the
NK> poster offered help. They were right, and the subject went right
NK> over your head because you were too busy intent on insulting
NK> someone (as usual). Believe it or not, I don't agree it was the
NK> most logical to look at either, but it wasn't that big of a deal.
NK> If you don't get that everyone doesn't agree with your extreme,
NK> arrogant and insulting views, to where you think they have no
NK> business expressing their opinion, then you direly need to get a
NK> clue. Anyway, how about you go back to "killfiling" me, like you
NK> said you did (which you clearly never did). And, don't worry,
NK> I've not been mentioning you other than yesterday, and because you
NK> suck. I won't be spending time in an effort to bother (expose)
NK> you.
and the code sucked. others have agreed. regardless of its
correctness. you don't get that and you won't. you are blinded against
all i could ever say. more like the birthers and the town-hall loonies,
you rant about me but never say anything coherent. i will not let you
stop my perl health reform progress.
now go learn python and annoy them.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 14 Aug 2009 13:03:30 -0700
From: Nathan Keel <nat.k@gm.ml>
Subject: Re: more than one statement in a post perlish condition
Message-Id: <nqjhm.70797$nL7.37857@newsfe18.iad>
Uri Guttman wrote:
>>>>>> "NK" == Nathan Keel <nat.k@gm.ml> writes:
>
> NK> Believe it or not, the fact you're an arrogant prick to everyone
> here
> NK> and I didn't put up with your BS, doesn't actually mean squat.
> I know
> NK> that's hard for you to accept. Anyway, you said you killfiled
> me, but
> NK> as usual, you never did, because you're an arrogant fraud. Now,
> fuck NK> off already.
>
> fraud? are you accusing me of fraud? a perl ponzi scheme? please pay
> up and i will repay your perl with 20% better code. hell, in your case
> 50% is guaranteed!
Yes, you're a fraud, I didn't say scammer. A fraud is someone that acts
like something for some benefit, and acts a different way in other
situations. Whatever you think makes you look smarter, regardless of
how much of a worthless prick you are about stuff. Who cares what
skills you have if you're just a dick to everyone ALL OF THE TIME!?
Your arrogance toward anyone that doesn't put up with your bullshit is
boring.
> NK> Oh yeah, it's proof that I'm obsessed with you, all because I
> let the
> NK> poster know how you are (and you *are* like that). Get over
> yourself. NK> Maybe if you did more than insult people, your
> misunderstood responses
> NK> would be better received. But, don't actually dare and be a
> better NK> person by my account!
>
> i don't insult people, just non-entities. or those who bitch and don't
> actually help with perl. you fit both categories just fine.
You're just acting like a little bitch because you think you can
cyber-bully people around and you react poorly to anyone that tells you
how it is. You're pathetic. And, actually, you are rude, arrogant and
a prick to people that didn't deserve it. You can act like I deserve
it because I'm putting you in your place, but those other people
didn't. With you, it doesn't seem to matter, people are deserving of
your arrogant abuse no matter what, so I may as well put you in your
place.
> >> and my last comment still stands. the last example was horrible
> >> code uri
> NK> nal cake
>
> wow. such witlessness. such originality.
Thank you.
> did your father help you out
> with that?
Yes. My entire family was there. It was a big event. You ARE that
important.
> does making up stupid names make you feel better?
Sometimes.
> this is
> what i mean by obsessed.
You mean me calling you by a name when you're being a worthless prick,
is somehow proof that I'm obsessed? I won't question where you get
your degree or rationalization to qualify such claims, because I know
you believe in your own mind that you're that special and I don't want
to hurt your fragile feelings.
> you resort to that same silly nickname each
> time.
Yes, I do.
> the depth of your wit is as shallow as your perl skills. (now
> THAT is an insult).
That actually wasn't a very good insult, especially since I'm confident
of myself and my skills (though I don't pretend to know everything, I
don't randomly and baselessly treat fellow civil group members like the
worthless piles of shit you do... and that you *are*) Anyway, I'm
talking about how you treat everyone in general, not me. I realize me
putting you in your place is something you'd react poorly to (of course
you would, I would, too. So, I don't fault you for that, but you care
not for the "why", you just see a chance to self-boast). You honestly
do not impress me, not in the least.
> NK> Who gives a damn what you think? It's easily understood, the
> NK> poster offered help. They were right, and the subject went
> right NK> over your head because you were too busy intent on
> insulting
> NK> someone (as usual). Believe it or not, I don't agree it was the
> NK> most logical to look at either, but it wasn't that big of a
> deal. NK> If you don't get that everyone doesn't agree with your
> extreme, NK> arrogant and insulting views, to where you think they
> have no NK> business expressing their opinion, then you direly need
> to get a
> NK> clue. Anyway, how about you go back to "killfiling" me, like
> you
> NK> said you did (which you clearly never did). And, don't worry,
> NK> I've not been mentioning you other than yesterday, and because
> you
> NK> suck. I won't be spending time in an effort to bother (expose)
> NK> you.
>
> and the code sucked. others have agreed. regardless of its
> correctness.
Yet, somehow, this all came about because the OP's question went zooming
right over your thick head. Odd...
> you don't get that and you won't.
In fact, I do get it. And, in fact, I do "get" that it's better
written. I never disagreed with that. I disagree with how you choose
to interact with people, because you suck.
> you are blinded against
> all i could ever say.
Not really, I realize you have Perl skills. I'm just saying you're a
fucking dick.
> more like the birthers and the town-hall
> loonies, you rant about me but never say anything coherent.
Believe it or not, just saying I'm not being coherent because I'm
pointing out valid points that embarrass you (as you should well be),
doesn't actually make it so. Granted, I realize you think you're
important enough to just randomly make wild accusations and believe
that's all the proof you need to make it true, but you're just not that
important. Everything I have said is factual and offers perfect
clarity. Perhaps you disagree and chose to lie or defend yourself (who
wouldn't?), but to claim it's incoherent in response just shows how
desperate, foolish and self conscious you are.
> i will not
> let you stop my perl health reform progress.
I am exposing your shitty attitude, I did not put into question your
Perl skills.
> now go learn python and annoy them.
Uh huh.
> uri
nal cake.
>
------------------------------
Date: Fri, 14 Aug 2009 21:39:52 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: more than one statement in a post perlish condition
Message-Id: <slrnh8c7fo.bf4.tadmc@tadmc30.sbcglobal.net>
Nathan Keel <nat.k@gm.ml> wrote:
> Who cares what
> skills you have if you're just a dick to everyone ALL OF THE TIME!?
Making obviously false statements does not help support your position.
> I'm just saying you're a
> fucking dick.
Ad hominem attacks do not help support your position either.
Get control of yourself man.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Fri, 14 Aug 2009 20:09:35 -0700
From: Nathan Keel <nat.k@gm.ml>
Subject: Re: more than one statement in a post perlish condition
Message-Id: <QFphm.143339$zq1.86974@newsfe22.iad>
Tad J McClellan wrote:
> Nathan Keel <nat.k@gm.ml> wrote:
>
>> Who cares what
>> skills you have if you're just a dick to everyone ALL OF THE TIME!?
>
>
> Making obviously false statements does not help support your position.
You intentionally neglecting and defending your co-troll-cohort and
auto-siding on issues doesn't help support your position.
>
>> I'm just saying you're a
>> fucking dick.
>
>
> Ad hominem attacks do not help support your position either.
Then again, nothing would make any difference to you anyway, as is also
proven, so who fuckin' cares?
> Get control of yourself man.
I'm under control. Believe it or not, people not tolerating your
insolence isn't an indication of an emotional problem. I know that's
difficult for arrogant people to accept.
I leave you with a South Park quote that will sum it up: “Your
ego has made you believe things happen differently,” Cartman said. “You
have such a huge ego you do these mental gymnastics to make yourself a
part of things ... now I realize that some people just have egos that
are so out of whack that no matter what people tell them they can’t
accept the truth of who they are.”
Truly, there are people out there that applies to. I have a sense of
humor and decency, no one offline thinks anything but good things about
me. Sure, I tend to care less online, as you do, about how I interact
with people, so I tell you how it is. You can use that as a basis to
claim I am the one with the problem, but FFS, do you not own a mirror,
or are you truly that delusional? In all, I'm well under control, and
I chose to aggressively respond to arrogant pricks online. Of course
it's not necessary, but I'd not feel right with letting jerks just take
over and run the place. Yes, I realize the irony that you must feel
about me saying that, and I know you and uri are both convinced
everyone else is the jerk and you guys have some inalienable right to
tell someone off on usenet and so on. Big yawn.
You really should watch the "FishSticks" full episode of South Park and
consider yourself at least a little bit Cartman and a little bit Kanye.
I know you'll never change, but I'll also never cease putting you in
your place. I don't give a fuck if you two have Perl skills and offer
help now and again, because it's far outweighed by the arrogance you
two displat more than not. It's too bad, because if you two didn't
suck so bad at being people, you'd have a lot more going for you.
Yeah, yeah, again, I realize how me saying this must sound to you, and
you can convince yourself that it's everyone else with the problem and
not you. Me, I'm willing to concede I'm not perfect, and I don't go
out of my way to be rude, insulting and arrogant to random people
online (or offline). Give me a reason, I will, but otherwise I will
not. It's a pretty simple and easy thing to live by. I hope you see
the way you are, but I guess you can't help it (referencing the Cartman
quote above). I'll leave you with "zoom!".
------------------------------
Date: Fri, 14 Aug 2009 19:16:23 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: Perl / DBH
Message-Id: <4a861db6$0$30968$ed362ca5@nr5-q3a.newsreader.com>
The Magnet wrote:
> Hi,
>
> I cannot seem to get Oracle to return any status codes to Perl I have
> the following line:
>
> $dbh->do("BEGIN load_story_prc('$name','$formattedtime'); END;");
> if ($@) { warn "Database error on $name: $DBI::errstr\n"; }
>
> But I never get anything back. Ideally I'd like to get the ORA- error
> message if there is any.....
>
> Can anyone help?
If you are activating RaiseError, then the $dbh->do needs to be put in
an eval{...}, oherwise it won't survive to reach test $@. And if you
are not setting RaiseError and using eval{}, then there is no reason
for $@ to ever get set, whether there is an error or not.
Xho
------------------------------
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 2552
***************************************
