[32126] in Perl-Users-Digest
Perl-Users Digest, Issue: 3391 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 27 00:09:24 2011
Date: Thu, 26 May 2011 21: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 Thu, 26 May 2011 Volume: 11 Number: 3391
Today's topics:
Re: ActiveState Perl and MinGW [was: Perl 5.14 Windows <dilbert1999@gmail.com>
Re: FAQ 8.50 What is socket.ph and where do I get it? <uri@StemSystems.com>
Re: FAQ 8.50 What is socket.ph and where do I get it? <peter@makholm.net>
Logfile rotation using Log4perl module. <vivekchaurasiya@gmail.com>
new thing too <r@thevoid1.net>
Re: new thing too <not.here@localhost.invalid>
Re: new thing too <tadmc@seesig.invalid>
Re: new thing too <member@newsguy.com>
regexp matching possible IPv4 network masks <rweikusat@mssgmbh.com>
Unicode labels with Chart::Composite <tn@movb.de>
Re: Unicode labels with Chart::Composite <ralph@happydays.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 24 May 2011 09:56:00 -0700 (PDT)
From: Dilbert <dilbert1999@gmail.com>
Subject: Re: ActiveState Perl and MinGW [was: Perl 5.14 Windows Strawberry Perl 64 bits]
Message-Id: <2720e1f3-eea9-4ad0-b2d4-ad39fff28e4f@14g2000yqo.googlegroups.com>
On 17 mai, 11:18, Dilbert <dilbert1...@gmail.com> wrote:
> Any clues as to where to find either:
> - Perl 5.14 Windows Strawberry Perl 64 bits
looking at http://strawberryperl.com/ ,
it displays "Expected SOON: Perl 5.14.0"
I can't wait... :-)
------------------------------
Date: Wed, 25 May 2011 00:16:37 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: FAQ 8.50 What is socket.ph and where do I get it?
Message-Id: <87ei3nwh22.fsf@quad.sysarch.com>
>>>>> "PS" == PerlFAQ Server <brian@theperlreview.com> writes:
PS> 8.50: What is socket.ph and where do I get it?
PS> It's a Perl 4 style file defining values for system networking
PS> constants. Sometimes it is built using "h2ph" when Perl is installed,
PS> but other times it is not. Modern programs "use Socket;" instead.
when is the last time anyone has seen a .ph file? i think this faq is
very old and could be deleted.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 25 May 2011 08:56:45 +0200
From: Peter Makholm <peter@makholm.net>
Subject: Re: FAQ 8.50 What is socket.ph and where do I get it?
Message-Id: <874o4je09e.fsf@vps1.hacking.dk>
"Uri Guttman" <uri@StemSystems.com> writes:
>>>>>> "PS" == PerlFAQ Server <brian@theperlreview.com> writes:
>
> PS> 8.50: What is socket.ph and where do I get it?
>
> PS> It's a Perl 4 style file defining values for system networking
> PS> constants. Sometimes it is built using "h2ph" when Perl is installed,
> PS> but other times it is not. Modern programs "use Socket;" instead.
>
> when is the last time anyone has seen a .ph file? i think this faq is
> very old and could be deleted.
I have used one recently, that is within 18 months. It was either to
access some constants related to posix_fadvise() or to linux
capabilities, but I don't remember and I don't have access to that
project today.
There might be at better way (how?) but creating af .ph file worked and
was what I could find documentation for.
//Makholm
------------------------------
Date: Thu, 26 May 2011 18:55:35 -0700 (PDT)
From: vivek_12315 <vivekchaurasiya@gmail.com>
Subject: Logfile rotation using Log4perl module.
Message-Id: <d5877dc3-7874-4054-837f-6c0e8b1bdd4a@e17g2000prj.googlegroups.com>
Hi all,
I want to implement a Log4Perl functionality, where 10 instances of a
single process would write to the single log file. This is doable,
because the Log4perl will take care of serialization.
But, I want to put in rotation too, so that after the end of 1 hour,
the log filename should be changed say from X.txt to (X+1).txt .
Any simple way to go about that or we have to use locking while
filename/filepointer is being changed ?
Thnx
------------------------------
Date: Wed, 25 May 2011 19:31:26 -0700 (PDT)
From: Robin <r@thevoid1.net>
Subject: new thing too
Message-Id: <dc85c586-4824-4018-8634-79fd5d356f28@q12g2000prb.googlegroups.com>
aa a a a a a a aa a
asdfsdfsdfkasdkfasd
f
asdf
asdf
asdf
sdaf
sdfasdfk as dfasd
http://www.thevoid1.net/perlprot1
a neat new perl community software thing :-)
thanks
-r
------------------------------
Date: Thu, 26 May 2011 11:50:22 +0100
From: "Brian Cryer" <not.here@localhost.invalid>
Subject: Re: new thing too
Message-Id: <irlb9g$6u6$1@dont-email.me>
"Robin" <r@thevoid1.net> wrote in message
news:dc85c586-4824-4018-8634-79fd5d356f28@q12g2000prb.googlegroups.com...
> aa a a a a a a aa a
>
>
> asdfsdfsdfkasdkfasd
> f
> asdf
> asdf
> asdf
> sdaf
> sdfasdfk as dfasd
>
> a neat new perl community software thing :-)
>
> thanks
> -r
I am sure there are better ways to show off your knowledge of perl than to
produce gibberish. Perhaps your next post would be better made to alt.test?
--
Brian Cryer
http://www.cryer.co.uk/brian
------------------------------
Date: Thu, 26 May 2011 07:07:14 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: new thing too
Message-Id: <slrnitsg7t.6t1.tadmc@tadbox.sbcglobal.net>
["Followup-To:" header set to comp.lang.perl.misc.]
Brian Cryer <not.here@localhost.invalid> wrote:
> "Robin" <r@thevoid1.net> wrote in message
> news:dc85c586-4824-4018-8634-79fd5d356f28@q12g2000prb.googlegroups.com...
>> aa a a a a a a aa a
>>
>>
>> asdfsdfsdfkasdkfasd
>> f
>> asdf
>> asdf
>> asdf
>> sdaf
>> sdfasdfk as dfasd
> I am sure there are better ways to show off your knowledge of perl than to
> produce gibberish. Perhaps your next post would be better made to alt.test?
It's Perl is gibberish too.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
Date: Thu, 26 May 2011 08:51:44 -0700
From: richard <member@newsguy.com>
Subject: Re: new thing too
Message-Id: <1rgybw9zc1l8q$.dlg@evanplatt.sux>
On Wed, 25 May 2011 19:31:26 -0700 (PDT), Robin wrote:
> aa a a a a a a aa a
>
>
> asdfsdfsdfkasdkfasd
> f
> asdf
> asdf
> asdf
> sdaf
> sdfasdfk as dfasd
> http://www.thevoid1.net/perlprot1
>
> a neat new perl community software thing :-)
>
> thanks
> -r
I need a program that will let me hack into CIA and the Pentagon computers.
Can you do that for me please?
------------------------------
Date: Tue, 24 May 2011 20:17:28 +0100
From: Rainer Weikusat <rweikusat@mssgmbh.com>
Subject: regexp matching possible IPv4 network masks
Message-Id: <87boyrkiwn.fsf@sapphire.mobileactivedefense.com>
... represented as hex numbers:
/^f*[8ce]?0*$/
This has actually been verified to be correct by hijacking one of our
4-core customer servers to run the following Extremely Sophisticated
Parallellized String Crunching Application[tm]
-------------------
sub check() {
my $out;
printf STDERR ("\t%ld\t%08x - %08x\n", $$, $start, $end);
open($out, '>>', '/tmp/out');
while ($start <= $end) {
$x = sprintf('%08x', $start);
$x =~ /^f*[8ce]?0*$/ && print $out ("$x\n");
printf STDERR ("\t%ld\t%08x\n", $$, $start) if ++$n % 1000000 == 0;
++$start;
}
printf STDERR ("\t$$: done\n");
}
$x = (2**32) / 4;
$start = 0;
$end = $x - 1;
if (fork() == 0) {
check();
exit();
}
$start = $end + 1;
$end += $x;
if (fork() == 0) {
check();
exit();
}
$start = $end + 1;
$end += $x;
if (fork() == 0) {
check();
exit();
}
$start = $end + 1;
$end = 0xffffffff;
check();
----------------------
(yes, this is supposed to be somewhat tongue-in-cheek)
------------------------------
Date: Thu, 26 May 2011 13:51:17 +0200
From: Tobias Nissen <tn@movb.de>
Subject: Unicode labels with Chart::Composite
Message-Id: <20110526135117.4bfbccdf@hal.movb.de>
--Sig_/wIueOyMl__JfOZ7z7lYo+5B
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: quoted-printable
Hi,
has anybody successfully used unicode encoded label texts with
Chart::Composite? I'm doing sth like
my $chart =3D Chart::Composite->new(675,300);
my %graphconfig =3D (
title =3D> "Mittelwerte ...",
[...]
$chart->set(%graphconfig);
my ($fh, $filename) =3D tempfile();
$chart->png($fh);
and when I use sth else than plain ASCII in the title the result is
garbage. Where can I set the encoding?
Cheers,
Tobias
--Sig_/wIueOyMl__JfOZ7z7lYo+5B
Content-Type: application/pgp-signature; name=signature.asc
Content-Disposition: attachment; filename=signature.asc
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.4.11 (GNU/Linux)
iEYEARECAAYFAk3ePrUACgkQ5jrP7hWxSO9HhACeLng9oAeU6g8eo18A7IjHqlJp
IlAAoM4ELISxZ9VHSl8BkcAcn0XBh5gl
=8n+O
-----END PGP SIGNATURE-----
--Sig_/wIueOyMl__JfOZ7z7lYo+5B--
------------------------------
Date: Thu, 26 May 2011 15:02:42 -0400
From: Ralph Malph <ralph@happydays.com>
Subject: Re: Unicode labels with Chart::Composite
Message-Id: <20743$4ddea3d2$ce534406$32577@news.eurofeeds.com>
My guess is that unless the module authors explicitly support this(they
don't)
then what you want is impossible. You would need to change the module
code itself to support
different encoding.
This isn't too hard at all. Perhaps, the module authors would appreciate
your submitting such a
patch?
On 5/26/2011 7:51 AM, Tobias Nissen wrote:
> my $chart = Chart::Composite->new(675,300);
>
> my %graphconfig = (
> title => "Mittelwerte ...",
> [...]
>
> $chart->set(%graphconfig);
>
> my ($fh, $filename) = tempfile();
> $chart->png($fh);
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 3391
***************************************
