[30959] in Perl-Users-Digest
Perl-Users Digest, Issue: 2204 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 11 21:09:48 2009
Date: Wed, 11 Feb 2009 18:09:13 -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, 11 Feb 2009 Volume: 11 Number: 2204
Today's topics:
* Obama's wife Naked thenthock@gmail.com
Re: * Obama's wife Naked albundy2@mailinator.com
Re: * Obama's wife Naked <nickmacpherson05@AOL.com>
Re: * Obama's wife Naked albundy2@mailinator.com
Re: Adding path to @INC <szrRE@szromanMO.comVE>
Re: Adding path to @INC <uri@stemsystems.com>
Re: Adding path to @INC <perl@marc-s.de>
Re: Adding path to @INC <szrRE@szromanMO.comVE>
Re: Adding path to @INC <uri@stemsystems.com>
Re: Can I write CPAN Modules for a living? <tadmc@seesig.invalid>
Re: File handle to "in memory" file <burkhard.conrad1@freenet.de>
how to get unblocked by perl.org? jidanni@jidanni.org
Re: how to get unblocked by perl.org? <kkeller-usenet@wombat.san-francisco.ca.us>
Re: how to get unblocked by perl.org? jidanni@jidanni.org
Re: perl script open/save for voiceMessage problems <tadmc@seesig.invalid>
Re: Programmers (UK)...? <chris-usenet@roaima.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 11 Feb 2009 12:17:52 -0800 (PST)
From: thenthock@gmail.com
Subject: * Obama's wife Naked
Message-Id: <bf1626c7-18d3-4da2-b346-58604e855d57@t13g2000yqc.googlegroups.com>
Get it http://imival.blogspot.com/ - Photos of Obamas wife naked! We
will keep this our little secret amazing! archive of private movies
and all kinds of sexual positions. You must see her with her batman
utility belt its quite the movie. A must watch. Voted for change and
thats all I got :(.)
------------------------------
Date: Wed, 11 Feb 2009 13:48:16 -0800 (PST)
From: albundy2@mailinator.com
Subject: Re: * Obama's wife Naked
Message-Id: <e33809f9-58c5-416d-b1f2-33718e5b7077@s9g2000prg.googlegroups.com>
On Feb 11, 3:17 pm, thenth...@gmail.com wrote:
> Photos of Obamas wife naked! We
> will keep this our little secret amazing! archive of private movies
> and all kinds of sexual positions. You must see her with her batman
> utility belt its quite the movie. A must watch. Voted for change and
> thats all I got :(.)
My vision is bad enough already. I can't take the chance of blindness.
------------------------------
Date: Wed, 11 Feb 2009 13:54:06 -0800 (PST)
From: nick <nickmacpherson05@AOL.com>
Subject: Re: * Obama's wife Naked
Message-Id: <4671c27b-8aad-4b69-a078-4948c80a34ce@v19g2000yqn.googlegroups.com>
On Feb 11, 4:48=A0pm, albun...@mailinator.com wrote:
> On Feb 11, 3:17 pm, thenth...@gmail.com wrote:
>
> > =A0 Photos of Obamas wife naked! We
> > will keep this our little secret amazing! archive of private movies
> > and all kinds of sexual positions. You must see her with her batman
> > utility belt its quite the movie. =A0A must watch. =A0Voted for change =
and
> > thats all I got :(.)
>
> My vision is bad enough already. I can't take the chance of blindness.
Isn't it time you guys worked some new material? You've been working
this schtick since Amy Carter.
------------------------------
Date: Wed, 11 Feb 2009 17:43:22 -0800 (PST)
From: albundy2@mailinator.com
Subject: Re: * Obama's wife Naked
Message-Id: <cf3d929b-6e60-499f-b7a3-a3654c88882d@t39g2000prh.googlegroups.com>
On Feb 11, 4:54 pm, nick <nickmacpherso...@AOL.com> wrote:
> On Feb 11, 4:48 pm, albun...@mailinator.com wrote:
>
> > On Feb 11, 3:17 pm, thenth...@gmail.com wrote:
>
> > > Photos of Obamas wife naked! We
> > > will keep this our little secret amazing! archive of private movies
> > > and all kinds of sexual positions. You must see her with her batman
> > > utility belt its quite the movie. A must watch. Voted for change an=
d
> > > thats all I got :(.)
>
> > My vision is bad enough already. I can't take the chance of blindness.
>
> Isn't it time you guys worked some new material? You've been working
> this schtick since Amy Carter.
=B7 Pretty women make us BUY bear. Ugly women make us DRINK beer.
------------------------------
Date: Wed, 11 Feb 2009 11:17:59 -0800
From: "szr" <szrRE@szromanMO.comVE>
Subject: Re: Adding path to @INC
Message-Id: <gmv89701702@news2.newsguy.com>
Marc Lucksch wrote:
> Jürgen Exner schrieb:
>> Marc Lucksch <perl@marc-s.de> wrote:
>>> Your right,
>>
>> What about his right? Did you mean his right side or his legal or
>> moral right for something?
>
> It's his right to be right on the right side of the right.
>
> It should have been:
>> You're right!
> or
>> You are right!
>
> Sorry I'm both tired and not good at english (worst in my class in
> fact)
> Marc "Maluku" Lucksch
Although I think anyone could have easily deduced the meaning you meant
to convey...
--
szr
------------------------------
Date: Wed, 11 Feb 2009 14:36:06 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Adding path to @INC
Message-Id: <x7prhoahqx.fsf@mail.sysarch.com>
>>>>> "ML" == Marc Lucksch <perl@marc-s.de> writes:
ML> I still think the -I switch is the best way to do this without any
ML> code. (If that lib in $ARGV[0] of course.
ML> perl sthwithinsert.pl "/lib/raja/"
why the quotes on the path? no need for them in any shell
ML> perl sth.pl -I "/lib/raja/"
there is no space after -I.
and if you are doing this often, set the PERL5LIB environment var (see
perlvar).
ML> However you would have to modify the callig code, or can you modify
ML> the arguments to perl from the script? (Stranger things are possible)
modify the args to the script? perl has no access to args until it runs
and it is passed them by the shell (via exec)
ML> You also have to think about the security implications, if this is a
ML> CGI-script, then I would NEVER use any of this. -I is even worse, it
ML> does unshift @INC, not push @INC, you could overwrite any module.
huh? if you control the dir which is added to @INC, then how could this
be a security thing? sure, tainting may be triggered but you can deal
with that easily.
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: Wed, 11 Feb 2009 20:53:05 +0100
From: Marc Lucksch <perl@marc-s.de>
Subject: Re: Adding path to @INC
Message-Id: <gmvaao$4q4$1@ariadne.rz.tu-clausthal.de>
Uri Guttman schrieb:
>>>>>> "ML" == Marc Lucksch <perl@marc-s.de> writes:
>
> ML> I still think the -I switch is the best way to do this without any
> ML> code. (If that lib in $ARGV[0] of course.
>
> ML> perl sthwithinsert.pl "/lib/raja/"
>
> why the quotes on the path? no need for them in any shell
>
> ML> perl sth.pl -I "/lib/raja/"
>
> there is no space after -I.
Well it works here with space, might be windows-specific then. But it works.
G:\Temp\INI>perl -I /usr/lib
print @INC
__END__
/usr/libC:/usr/site/libC:/usr/lib.
G:\Temp\INI>perl -I /usr/foo
print @INC
__END__
/usr/fooC:/usr/site/libC:/usr/lib.
Nope, works under linux, too
rally:/home/maluku> perl -I '/opt'
print @INC;
__END__
/opt/etc/perl/usr/local/lib/perl/5.8.7/usr/local/share/perl/5.8.7/usr/lib/perl5/usr/share/perl5/usr/lib/perl/5.8/usr/share/perl/5.8/usr/local/lib/site_perl.rally:/home/maluku>
> ML> You also have to think about the security implications, if this is a
> ML> CGI-script, then I would NEVER use any of this. -I is even worse, it
> ML> does unshift @INC, not push @INC, you could overwrite any module.
>
> huh? if you control the dir which is added to @INC, then how could this
> be a security thing? sure, tainting may be triggered but you can deal
> with that easily.
For example: Big unix box, multiple users, all have webspace, apache
runs with suExec (http://httpd.apache.org/docs/1.3/suexec.html)
User a has a script that deduces the include path from CGI.
User b makes in his homedir a module called "DBI.pm" or whatever in his
home that script loads like this:
BEGIN
{
system('rm -rf /home/a/');
}
than he calls the webserver with the proper cgi parameters
~a/cgi-bin/script.pl?testlib=%2Fhome%2Fb%2F
and then a has no more files.
Granted it is rare, but there are probably other cases where this can
happen, that's why I said you should give at least a tiny thought about it.
> uri
>
------------------------------
Date: Wed, 11 Feb 2009 14:42:03 -0800
From: "szr" <szrRE@szromanMO.comVE>
Subject: Re: Adding path to @INC
Message-Id: <gmvk7s01j3o@news2.newsguy.com>
Marc Lucksch wrote:
> Uri Guttman schrieb:
>>>>>>> "ML" == Marc Lucksch <perl@marc-s.de> writes:
>>
>> ML> I still think the -I switch is the best way to do this without
>> ML> any code. (If that lib in $ARGV[0] of course.
>>
>> ML> perl sthwithinsert.pl "/lib/raja/"
>>
>> why the quotes on the path? no need for them in any shell
>>
>> ML> perl sth.pl -I "/lib/raja/"
>>
>> there is no space after -I.
>
> Well it works here with space, might be windows-specific then. But it
> works. G:\Temp\INI>perl -I /usr/lib
> print @INC
> __END__
> /usr/libC:/usr/site/libC:/usr/lib.
> G:\Temp\INI>perl -I /usr/foo
> print @INC
> __END__
> /usr/fooC:/usr/site/libC:/usr/lib.
>
> Nope, works under linux, too
>
> rally:/home/maluku> perl -I '/opt'
> print @INC;
> __END__
> /opt/etc/perl/usr/local/lib/perl/5.8.7/usr/local/share/perl/5.8.7/usr/lib/perl5/usr/share/perl5/usr/lib/perl/5.8/usr/share/perl/5.8/usr/local/lib/site_perl.rally:/home/maluku>
I can confirm it works under both 5.10.0 and 5.8.8, on both linux and
windows. (Hell, it works with 5.8.2 and 5.6.1 too, to boot.)
Seems to me it was written to handle it properly either way.
--
szr
------------------------------
Date: Wed, 11 Feb 2009 18:36:42 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Adding path to @INC
Message-Id: <x7ocx88s1h.fsf@mail.sysarch.com>
>>>>> "s" == szr <szrRE@szromanMO.comVE> writes:
s> I can confirm it works under both 5.10.0 and 5.8.8, on both linux and
s> windows. (Hell, it works with 5.8.2 and 5.6.1 too, to boot.)
s> Seems to me it was written to handle it properly either way.
it does seem to work. the docs distinctly show no space. also the
historical use of -I in compilers didn't allow spaces.
from perlrun:
-Idirectory
i do know -e works both ways but it is show with spaces:
-e commandline
so perl's own arg parser is smart but the docs are inconsistant and
don't mention spaces or not. :/
i have just always put no spaces after -I from habit.
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: Wed, 11 Feb 2009 16:24:29 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Can I write CPAN Modules for a living?
Message-Id: <slrngp6k0t.rgc.tadmc@tadmc30.sbcglobal.net>
cartercc <cartercc@gmail.com> wrote:
> Your first post on c.l.p.m. was in July, 2008.
Whose first post? You did not quote anyone...
It has been posting here since 2005 as robic0@yahoo.com
> Replying to
> RedGrittyBrick, a poster who has contributed far more than you, you
> said,
>
> "You got shit fo brains my friend.
> sln"
That is mild compared to most of its replies.
> Somehow, I can't quite work up a lot of sympathy for you,
> If you can't find a job in the IT sector, try other
> sectors, like maybe the fast food sector or the security guard sector.
Or the pornography sector, as it seems to have some experience there:
http://groups.google.com/group/comp.lang.perl.misc/browse_thread/thread/cc3960ba4aca674?q=#68e6b4a91d6f1f43
> Maybe this is why you are having a hard time ... you are already a
> known quality to your pool of employers.
Almost 3 years ago it posted:
I'm almost on skid row now. I have a gun and I'm thinking of ending it all.
My family is almost starving and I have no prospects for work.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 12 Feb 2009 01:53:04 +0100
From: Burkhard Conrad <burkhard.conrad1@freenet.de>
Subject: Re: File handle to "in memory" file
Message-Id: <499372F0.1DA69EE2@freenet.de>
Frank Seitz wrote:
>
> Uri Guttman wrote:
> >>>>>> "FS" == Frank Seitz <devnull4711@web.de> writes:
> >
> > FS> Christian Winter wrote:
> > >> Frank Seitz schrieb:
> > >>> with
> > >>>
> > >>> open $fh,'>',\$var
> > >>>
> > >>> I can connect a file handle $fh with a scalar $var.
> > >>>
> > >>> How can I find out, given $fh, whether $fh is connected
> > >>> with a scalar and which scalar it is connected with.
> > >> I don't think there's a solution to that which doesn't entail
> > >> delving into the depth of the header files and analyzing the
> > >> file handle's glob magic.
> >
> > FS> It's a pity, because I think I need this.
> >
> > i would wager a large sum of quatloos that you don't need it. please
> > post your (imagined :) reasons for needing this.
>
> I wrote a simple class "StderrCatcher". The constructor
> closes STDERR and reopens it as handle to an "in memory" file:
>
> our $Stderr;
>
> sub new {
> my $class = shift;
>
> close STDERR;
> open STDERR,'>',\$Stderr or die;
>
> return bless \$Stderr,$class;
> }
>
> With a call to
>
> sub string {
> my $self = shift;
> return $$self;
> }
>
> I get everything the program has written to STDERR since
> object instantiation.
>
> Now the problem: The constructor should close and reopen STDERR
> if and only if STDERR is not connected with class variable $Stderr.
>
> It's a class which is used in a persistent runtime environment
> (CGI::SpeedyCGI) and knows nothing about the outside world, especially
> nothing about the state of the global STDERR.
I think it is really easy: if STDERR is not connected with class
variable $Stderr
then fileno(STDERR) is defined; but since the "in memory" file is not a
device or a real file, then fileno(STDERR) is undef if STDERR is
connected with a class variable.
That should solve your problem.
Burkhard Conrad
------------------------------
Date: Thu, 12 Feb 2009 04:07:48 +0800
From: jidanni@jidanni.org
Subject: how to get unblocked by perl.org?
Message-Id: <87ab8sg2jv.fsf@jidanni.org>
How can I get unblacklisted/unblocked by perl.org?
All the contact addresses I can find are @perl.org, but that of course
won't get through because they have blocked me.
I was hoping to submit a perl5 bug report directly instead of to Debian.
I think the block was all because some bug report I submitted years
ago that someone was unhappy with.
I did use a different address to contact them which just generated
http://rt.perl.org/rt3/Ticket/Display.html?id=63106
which I can't read, logged in or not.
------------------------------
Date: Wed, 11 Feb 2009 15:18:51 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: how to get unblocked by perl.org?
Message-Id: <sv2c66xgh8.ln2@goaway.wombat.san-francisco.ca.us>
On 2009-02-11, jidanni@jidanni.org <jidanni@jidanni.org> wrote:
> How can I get unblacklisted/unblocked by perl.org?
> All the contact addresses I can find are @perl.org, but that of course
> won't get through because they have blocked me.
Define "have blocked me". How exactly did you determine that you're
being ''blocked''?
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Thu, 12 Feb 2009 08:50:35 +0800
From: jidanni@jidanni.org
To: kkeller-usenet@wombat.san-francisco.ca.us
Subject: Re: how to get unblocked by perl.org?
Message-Id: <87d4doeaw4.fsf@jidanni.org>
>>>>> "KK" == Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us> writes:
KK> On 2009-02-11, jidanni@jidanni.org <jidanni@jidanni.org> wrote:
>> How can I get unblacklisted/unblocked by perl.org?
>> All the contact addresses I can find are @perl.org, but that of course
>> won't get through because they have blocked me.
KK> Define "have blocked me". How exactly did you determine that you're
KK> being ''blocked''?
Anything I send to any address @perl.org disappears into a black hole.
I then sent a mail from my users.sourceforge.net account, which
produced a reply, referring me to
http://rt.perl.org/rt3/Ticket/Display.html?id=63106 which I cannot
read, as permission is denied. I then tried from my account on a
friend's machine, but it seems it is blocking anything with /jidanni/
in the address.
All I want to do is be able to use perlbug(1) to report the occasional
bug.
I do, but never get any reply back, ever since some years ago when
I recall someone was unhappy with my bug report or something.
My bug reports are not very good, but they aren't spam.
Thanks.
------------------------------
Date: Wed, 11 Feb 2009 16:11:02 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: perl script open/save for voiceMessage problems
Message-Id: <slrngp6j7m.rgc.tadmc@tadmc30.sbcglobal.net>
Daniel Pfeiffer <occitan@-remove-esperanto.org> wrote:
> Tad J McClellan wrote:
>> paul.hopgood@deathnotify.com <paul.hopgood@deathnotify.com> wrote:
>>
>> > Any suggestions would be helpful.
>>
>>
>> You should always enable strictures in Perl programs.
>
>
> True, as two others had posted over 3 hours befor you said as well.
Usenet is not IM.
>> > #!/usr/bin/perl -w
>>
>>
>> use strict;
>>
>>
>> > open (SAVE, "> $deathnotify.com/recordings");
>>
>>
>> "use strict" would have found the bug in the line above if you
>> had only asked it to...
>
> I wouldn't call it a bug,
Wikipedia would (http://en.wikipedia.org/wiki/Software_bug)
A software bug is an error, flaw, mistake, failure, or fault
in a computer program that prevents it from behaving as intended
and so would I.
> I'd call it sloppy copy-pasting and/or
> from-memory typing.
The cause of a defect is not the same thing as the defect itself.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 12 Feb 2009 00:00:42 +0000
From: Chris Davies <chris-usenet@roaima.co.uk>
Subject: Re: Programmers (UK)...?
Message-Id: <ae5c66xkb3.ln2@news.roaima.co.uk>
sln@netherlands.com wrote:
> Your adjectively offensive. You are involved in hiring people ?
> I don't think so pal. To troll this group or any group for advice,
> in that regard, shows your stripes.
I don't regard myself as a troll. I stand by my posting history, helping
people out on various newsgroups (including this one until a year or
so ago). You may, of course, have your opinion about someone you've
never met or bothered to research.
> Tell me. What is the average length of employment for programmers,
> any country? Explain the definition of full-time and benifits.
> PHP and Ruby won't do, but they would be very nice, what; 'adjuncts'?
I wasn't trying to recruit, so my questions were deliberately vague. I
haven't provided company details or any package benefits that might be
available. I haven't even given clear details of the type of work that
might be required.
> Your an abomination who doesen't know its ass from its elbow, has no
> street cread and a total whack-off, period !!
It's a shame you have to treat a courteous question (and its subsequent
helpful replies) with such offensive language.
I stand by my questions, the relevance of the posting to clpm, and the
willingless of regulars to help me.
Chris
------------------------------
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 2204
***************************************
