[29768] in Perl-Users-Digest
Perl-Users Digest, Issue: 1011 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 7 16:09:53 2007
Date: Wed, 7 Nov 2007 13:09:14 -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, 7 Nov 2007 Volume: 11 Number: 1011
Today's topics:
Re: 7000+ beautiful Russian women <smallpond@juno.com>
Re: chromatic? <cwilbur@chromatico.net>
Re: chromatic? <bik.mido@tiscalinet.it>
Re: chromatic? <nobull67@gmail.com>
Re: chromatic? <nobull67@gmail.com>
Re: chromatic? <elvis-85473@notatla.org.uk>
Re: chromatic? <m@rtij.nl.invlalid>
Re: CPU limits <elvis-85473@notatla.org.uk>
Re: CPU limits xhoster@gmail.com
Re: CPU limits <elsiddik@gmail.com>
Kaspersky 8.0 alpha 2 + key <webkarantina@gmail.com>
Re: problem installing DBD/mysql.pm <ben@morrow.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 07 Nov 2007 08:45:43 -0800
From: smallpond <smallpond@juno.com>
Subject: Re: 7000+ beautiful Russian women
Message-Id: <1194453943.282229.282260@z9g2000hsf.googlegroups.com>
On Nov 7, 8:49 am, pegclark <pegbrowncl...@gmail.com> wrote:
> 7000+ beautiful Russian womenhttp://groups.google.com/group/all-good-things/web/beautiful-girls-an...
perl -we '7000+ beautiful Russian women'
Unquoted string "women" may clash with future reserved word at -e line
1.
Useless use of addition (+) in void context at -e line 1.
Can't locate object method "beautiful" via package "Russian" (perhaps
you forgot to load "Russian"?) at -e line 1.
Please see Homer's famous perl code:
perl -e '$Helen = "ships" x 1000; print $Helen;'
------------------------------
Date: 07 Nov 2007 11:27:37 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: chromatic?
Message-Id: <87640e2f7q.fsf@mithril.chromatico.net>
>>>>> "P" == P <MisterPerl@gmail.com> writes:
P> I'm fairly certain that "chromatic" was not a given name for a
P> real person.
chromatic is the pseudonym of a very competent Perl hacker and author.
You really don't need to worry about it further.
(And no, despite my domain name, I am not chromatic.)
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Wed, 07 Nov 2007 17:54:06 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: chromatic?
Message-Id: <r5r3j35dvmufaat2qgvsbt07g3o8l3mf04@4ax.com>
On Wed, 07 Nov 2007 16:03:45 -0000, Mr P <MisterPerl@gmail.com> wrote:
>"chromatic works for O'Reilly Media..."...
He's also this guy:
http://perlmonks.org/?node=chromatic
Just don't mind. Some excellent Perl hacker are a bit eccentric
sometimes, see e.g. "our" own Bri^Wbrian d foy.
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: Wed, 07 Nov 2007 17:47:45 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: chromatic?
Message-Id: <1194457665.576004.84130@50g2000hsm.googlegroups.com>
On Nov 7, 4:03 pm, Mr P <MisterP...@gmail.com> wrote:
> Is this a person's name?
> I'm fairly certain that "chromatic" was not a given name for a real
> person. It would have made sense, therefore, to perhaps pen this as
> something like:
>
> "chromatic [1] works for O'Reilly Media..."...
> .
> .
> .
> [1]- The Perl Hacker formerly known as Wally Schmedly
>
> might have helped.
There is a tradition in Perl circles (and hacker circles generally)
that people can choose to remain pseudonymous (Abigail, Barbie,
chromatic, Smylers...).
Indeed when you attend (or speak at) a Perl conference like YAPC you
should be asked on the registration form if you want your real name to
appear on your badge, in the schedule, etc.
I recall, at one YAPC, Smylers was quite peeved that his given name
had appeared contrary to his request.
------------------------------
Date: Wed, 07 Nov 2007 18:02:48 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: chromatic?
Message-Id: <1194458568.615204.188850@o80g2000hse.googlegroups.com>
On Nov 7, 5:47 pm, Brian McCauley <nobul...@gmail.com> wrote:
> I recall, at one YAPC...
...and speaking of speaking at YAPC, here's chromatic speaking at
YAPC::Europe::2006
http://images.jonallen.info/display.pl?template=perl&image=324
And cog..
http://images.jonallen.info/display.pl?template=perl&image=315
And Barbie and Domm...
http://images.jonallen.info/display.pl?template=perl&image=463
And acme...
http://images.jonallen.info/display.pl?template=perl&image=374
And Abigail...
http://images.jonallen.info/display.pl?template=perl&image=381
And here's me (although I no longer just go by "nobull")...
http://images.jonallen.info/display.pl?template=perl&image=296
------------------------------
Date: 07 Nov 2007 18:59:17 GMT
From: all mail refused <elvis-85473@notatla.org.uk>
Subject: Re: chromatic?
Message-Id: <slrnfj42fn.p4g.elvis-85473@notatla.org.uk>
On 2007-11-07, Brian McCauley <nobull67@gmail.com> wrote:
> There is a tradition in Perl circles (and hacker circles generally)
> that people can choose to remain pseudonymous (Abigail, Barbie,
I am shocked.
--
Elvis Notargiacomo master AT barefaced DOT cheek
http://www.notatla.org.uk/goen/
------------------------------
Date: Wed, 7 Nov 2007 21:38:49 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: chromatic?
Message-Id: <pan.2007.11.07.20.37.44@rtij.nl.invlalid>
On Wed, 07 Nov 2007 18:59:17 +0000, all mail refused wrote:
> On 2007-11-07, Brian McCauley <nobull67@gmail.com> wrote:
>
>> There is a tradition in Perl circles (and hacker circles generally)
>> that people can choose to remain pseudonymous (Abigail, Barbie,
>
> I am shocked.
No, you are "all mail refused" :-)
M4
------------------------------
Date: 07 Nov 2007 19:10:44 GMT
From: all mail refused <elvis-85473@notatla.org.uk>
Subject: Re: CPU limits
Message-Id: <slrnfj4334.p4g.elvis-85473@notatla.org.uk>
On 2007-11-07, alexxx.magni@gmail.com <alexxx.magni@gmail.com> wrote:
> I'd much prefer to be able to set my script's CPU usage at - say - 75%
> or similar...
>
> In the FAQ I saw that this possibility is in the BSD::Resource module,
> but unfortunately I work in Linux.
> Moreover, I'm not certain that even under BSD this could be possible:
> setrlimit seems to allow you just to kill processes going beyond your
> given threshold.
You should be able to use BSD::Resource on linux to get at
the ulimit and setrlimit() sort of stuff. This can limit
total CPU usage of a program - killing it when exceeded.
If you want to ration CPU usage to some fraction of the total,
or to a certain one of several CPUs etc that's a different
question that I don't know the answer to.
--
Elvis Notargiacomo master AT barefaced DOT cheek
http://www.notatla.org.uk/goen/
------------------------------
Date: 07 Nov 2007 19:46:35 GMT
From: xhoster@gmail.com
Subject: Re: CPU limits
Message-Id: <20071107144637.129$nI@newsreader.com>
"alexxx.magni@gmail.com" <alexxx.magni@gmail.com> wrote:
> Inspired by the recent posting of "FAQ 8.39 How do I set CPU limits?",
> I hoped to solve this problem, that I always had with computationally
> intensive scripts - namely that the CPU usage goes to 100%, and a very
> noisy fan starts.
> I'd much prefer to be able to set my script's CPU usage at - say - 75%
> or similar...
>
> In the FAQ I saw that this possibility is in the BSD::Resource module,
> but unfortunately I work in Linux.
BSD::Resource works under Linux. Or at least some (I expect all or most)
parts of it do. So I don't think that that is a problem.
> Moreover, I'm not certain that even under BSD this could be possible:
> setrlimit seems to allow you just to kill processes going beyond your
> given threshold.
Yes, that is the problem. I don't know of any facility on any OS that does
this (but I haven't looked very hard.) I guess you could write a
baby-sitter process which goes into a loop where it sleeps for 3N
microseconds, then issues a kill STOP to your real process, then sleeps for
N microseconds, then issues a kill CONT to your real process. That should
restrict it to 75% CPU time. If your main program uses other types of
signals, this might not work very well.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Wed, 07 Nov 2007 20:21:31 -0000
From: elsiddik <elsiddik@gmail.com>
Subject: Re: CPU limits
Message-Id: <1194466891.733534.71170@57g2000hsv.googlegroups.com>
On Nov 7, 11:40 am, "alexxx.ma...@gmail.com" <alexxx.ma...@gmail.com>
wrote:
> Inspired by the recent posting of "FAQ 8.39 How do I set CPU limits?",
> I hoped to solve this problem, that I always had with computationally
> intensive scripts - namely that the CPU usage goes to 100%, and a very
> noisy fan starts.
> I'd much prefer to be able to set my script's CPU usage at - say - 75%
> or similar...
>
> In the FAQ I saw that this possibility is in the BSD::Resource module,
> but unfortunately I work in Linux.
> Moreover, I'm not certain that even under BSD this could be possible:
> setrlimit seems to allow you just to kill processes going beyond your
> given threshold.
>
> Any hint?
>
> Thanks!
>
> Alessandro Magni
you can use BSD::Resource on linux.
or try this script :
#!/usr/bin/perl
#Description: These subs allow you control how much % CPU maximum
will use your script. CPU_start() must be called once when you script
start.
#This example script will use 30% CPU until Ctrl-C pressed:
CPU_start(); CPU_max(30) while 1;
use Time::HiRes qw(time);
sub CPU_used {
(map {$_->[13]+$_->[14]}
[split " ", Cat("/proc/self/stat")])[0]
}
{ my %start = (tm => 0, cpu => 0);
sub CPU_start { @start{"tm","cpu"} = (time(),CPU_used()) }
sub CPU_max {
my ($max, $real, $cpu) = ($_[0], time()-$start{tm},
CPU_used()-$start{cpu});
return unless defined($max) and $max > 0;
&sleep( $cpu/$max-$real );
}}
#
# macro used from CPU_used() and CPU_max()
#
sub sleep { select undef,undef,undef,$_[0] }
sub Cat {
local *F;
open F, "< ".$_[0] or return;
local $/ unless wantarray;
return <F>;
}
zaher el siddik
http://www.unixshells.nl/
------------------------------
Date: Wed, 07 Nov 2007 11:26:32 -0800
From: "webkarantina@gmail.com" <webkarantina@gmail.com>
Subject: Kaspersky 8.0 alpha 2 + key
Message-Id: <1194463592.435100.173070@50g2000hsm.googlegroups.com>
download here :
http://rapidshare.com/files/67275173/kis.80036.a2.rar
------------------------------
Date: Wed, 7 Nov 2007 17:04:40 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: problem installing DBD/mysql.pm
Message-Id: <8q7905-074.ln1@osiris.mauzo.dyndns.org>
Quoth mmccaws2 <mmccaws@comcast.net>:
>
> So if I run perl Makefile.PL, make, make test, make install this
> process removes the previous, or just over writes the previous. Or is
> there an uninstall process that needs to be run.
Overwrites. If you run make install UNINST=1 it will attempt to remove
conflicting modules in other parts of the Perl module tree, but this is
not the same as uninstalling the whole distribution. Perl currently has
very little support for uninstalling modules, which is one reason why
it's a good idea to use your OS's package manager instead, if you can
(unless you're lucky enough to be using BSD, when BSDPAN will take care
of it for you... :) ).
Ben
------------------------------
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 1011
***************************************
