[29111] in Perl-Users-Digest
Perl-Users Digest, Issue: 355 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 18 09:10:13 2007
Date: Wed, 18 Apr 2007 06:09:05 -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 Wed, 18 Apr 2007 Volume: 11 Number: 355
Today's topics:
Re: FAQ 9.20 How do I send mail? <timdooling@qconline.com>
Re: FAQ 9.20 How do I send mail? <rvtol+news@isolution.nl>
Re: FAQ 9.20 How do I send mail? <tadmc@augustmail.com>
Re: FAQ 9.20 How do I send mail? <bik.mido@tiscalinet.it>
How can I use wget to get the result of jsp page <ysongfinance@gmail.com>
Re: How can I use wget to get the result of jsp page <spamtrap@dot-app.org>
Re: How can I use wget to get the result of jsp page <bik.mido@tiscalinet.it>
Re: How to time out a forked command but still see outp <ced@blv-sam-01.ca.boeing.com>
Re: is laziness a programer's virtue? <bcb@undisclosedlocation.net>
Re: is laziness a programer's virtue? <lew@nospam.lewscanon.com>
Re: is laziness a programer's virtue? <ken@theoryyalgebra.com>
Re: is laziness a programer's virtue? <ken@theoryyalgebra.com>
Re: is laziness a programer's virtue? <quetzalcotl@consultant.com>
Re: looking for some size optimization (Marc Espie)
new CPAN modules on Wed Apr 18 2007 (Randal Schwartz)
Re: print math symbol into image created with GD <rvtol+news@isolution.nl>
Re: print math symbol into image created with GD <stroncococcus@gmx.de>
Re: print math symbol into image created with GD <bik.mido@tiscalinet.it>
Question to B::Deparse <bol@adv.magwien.gv.at>
Re: Question to B::Deparse <nobull67@gmail.com>
Tk::PlotDataset v1.00 <tim_culmer@hotmail.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 18 Apr 2007 00:31:16 -0500
From: "timdooling" <timdooling@qconline.com>
Subject: Re: FAQ 9.20 How do I send mail?
Message-Id: <1176874276_7511@sp12lax.superfeed.net>
PerlFAQ Server <brian@stonehenge.com> wrote:
>I tried the code you listed on the page, slightly modified as below:
#!/usr/bin/perl --
require 5;
open(SENDMAIL, "|/usr/bin/sendmail -oi -t")
or die "Can't fork for sendmail: $!\n";
print SENDMAIL <<"EOF";
From: <timdooling@qconline.com>
To: <timdooling@qconline.com>
Subject: test
test
EOF
close(SENDMAIL) or warn "sendmail didn't close nicely";
IT responded with "Internal Server Error" when I tried to run the program in IE with no mail sent.
What is wrong with this coding?
Tim
------------------------------
Date: Wed, 18 Apr 2007 10:10:21 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: FAQ 9.20 How do I send mail?
Message-Id: <f04quo.19g.1@news.isolution.nl>
timdooling schreef:
> print SENDMAIL <<"EOF";
print SENDMAIL <<'EOF';
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Wed, 18 Apr 2007 07:16:51 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: FAQ 9.20 How do I send mail?
Message-Id: <slrnf2c31j.b69.tadmc@tadmc30.august.net>
timdooling <timdooling@qconline.com> wrote:
> print SENDMAIL <<"EOF";
> From: <timdooling@qconline.com>
You should always enable warnings when developing Perl code!
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 18 Apr 2007 13:55:37 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: FAQ 9.20 How do I send mail?
Message-Id: <77ob23t3cmhlghga4sh3u017slkv3g8gfk@4ax.com>
On Wed, 18 Apr 2007 00:31:16 -0500, "timdooling"
<timdooling@qconline.com> wrote:
>IT responded with "Internal Server Error" when I tried to run the program in IE with no mail sent.
IE?!? So you created a dinamic web page the script creating which is
supposed to use the code from the faq entry. Besides your trivial
mistake pointed out by others, these are completely orthogonal
matters. If something should have gone wrong in your CGI or whatever
script, it would have done so also on the cmd line. So you'd better
test it there first, as a general rule.
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: 17 Apr 2007 19:25:21 -0700
From: Yang <ysongfinance@gmail.com>
Subject: How can I use wget to get the result of jsp page
Message-Id: <1176863121.834221.24550@q75g2000hsh.googlegroups.com>
I have a jsp page that takes one parameter say: http://www.a.com/a.jsp?id=1
and use different id to generate different pages,
now I want to get the results from that and I use
>> wget "http://www.a.com/a.jsp?id=1"
unfortunately, I can only get the source code of a.jsp, which is
useless to me.
Is there any other methods for doing this?
------------------------------
Date: Tue, 17 Apr 2007 22:32:59 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: How can I use wget to get the result of jsp page
Message-Id: <m28xcqxvhg.fsf@local.wv-www.com>
Yang <ysongfinance@gmail.com> writes:
>>> wget "http://www.a.com/a.jsp?id=1"
>
> unfortunately, I can only get the source code of a.jsp, which is
> useless to me.
> Is there any other methods for doing this?
You're using the 'wget' tool to fetch a Java Server Page. Why'd you post
this question to a Perl group?
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 18 Apr 2007 14:04:21 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How can I use wget to get the result of jsp page
Message-Id: <vv1c23dlc3goofr3flek138polvrkaid91@4ax.com>
On 17 Apr 2007 19:25:21 -0700, Yang <ysongfinance@gmail.com> wrote:
>I have a jsp page that takes one parameter say: http://www.a.com/a.jsp?id=1
So far so fine.
>and use different id to generate different pages,
Typical.
>now I want to get the results from that and I use
Reasonable.
>>> wget "http://www.a.com/a.jsp?id=1"
Common. I use that too. At some time I was dubbed "the wgetter"...
>unfortunately, I can only get the source code of a.jsp, which is
>useless to me.
I don't see why one should do such a stupid thing, but if the damned
thing works from a browser and not with wget, it may have to do with
the useragent identifier. Try playing with -U.
>Is there any other methods for doing this?
Oh, c'mon! Do you realize that this is a ng dedicated to the Perl
programming language. I still fail to see the actual Perl question
here, so I'm inventing one for you and answering it along the lines
of: use LWP.
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: 18 Apr 2007 05:19:31 -0700
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: How to time out a forked command but still see output?
Message-Id: <1176898771.628342.290760@e65g2000hsc.googlegroups.com>
On Apr 16, 1:47 pm, "thecrow" <hokkaidoc...@gmail.com> wrote:
> The goal... perl script launches the external program, shows all its
> ouput in realtime. If too much time expires, perl script exits,
> redirects all output of external program to some file. Can someone
> give me a nudge in the right direction?
>
> I tried a few things involving alarm() and eval but couldn't get them
> to work. I won't waste your time with everything that failed, but the
> following code is as close as I got. It is not acceptable because it
> doesn't show the output of the program.
>
> I also tried something like redirecting CMD to STDOUT but when I do
> that, the output of the program keeps scrolling to the term even after
> the timeout. I tried to solve this by closing these filehandles and
> redirecting them to /dev/null outside of the eval, but those didn't
> work either.
>
> Help is appreciated...
>
> #!/usr/bin/perl
> $command = shift @ARGV;
> $startupWait = shift @ARGV || 60;
>
> eval {
> local $SIG{'ALRM'} =
> sub {
> die "\nTimed out command $command after waiting
> $startupWait seconds\n";
> };
> alarm($startupWait);
> print "Running command: $command\n";
> print "with timeout of $startupWait\n";
> open(CMD, "$command|");
> (@output) = (<CMD>);
> close CMD;
> alarm 0;
> print "Command completed, output is:\n";
> print map { "$_\n" } @output;};
>
> die "$@" if ($@);
Another way if redirecting all -- rather than just
the ensuing output from the point of the interrupt --
to a file is acceptable:
open( my $fh, "$command |") or die "fork failed: $!" ;
local $SIG{ ALRM } = sub { close $fh;
system("$command >save.txt &"); exit;
};
alarm $startupWait;
...
print while <$fh>; # eg.
--
Charles DeRykus
------------------------------
Date: Tue, 17 Apr 2007 21:29:11 -0500
From: "Bruce C. Baker" <bcb@undisclosedlocation.net>
Subject: Re: is laziness a programer's virtue?
Message-Id: <CnfVh.520412$BK1.430884@newsfe13.lga>
"Lew" <lew@nospam.lewscanon.com> wrote in message
news:eZedncJsovLSw7jbnZ2dnUVZ_r7inZ2d@comcast.com...
> Markus E Leypold
>>> Trying to correct Xah's behaviour is probably impossible.
>
> Ingo Menger wrote:
>> Perhaps somebody could ask the chinese government to put him in jail
>> for "hurting international society" :)
>
> Y'know, even in jest, calling for an oppressive regime to suppress even
> wrong-headed and self-serving garbage self-expression is immoral and
> horrible. How dare you?
>
> Free speech, free press and free expression of ideas is not something to
> take so lightly.
That's right! Momma don't allow no levity around here!
Off with Markus' head! :-D
>
> --
> Lew
------------------------------
Date: Tue, 17 Apr 2007 23:27:51 -0400
From: Lew <lew@nospam.lewscanon.com>
Subject: Re: is laziness a programer's virtue?
Message-Id: <v8mdnb-EiPOqDbjbnZ2dnUVZ_qupnZ2d@comcast.com>
"Lew" ranted maniacally:
>> Y'know, even in jest, calling for an oppressive regime to suppress even
>> wrong-headed and self-serving garbage self-expression is immoral and
>> horrible. How dare you?
>>
>> Free speech, free press and free expression of ideas is not something to
>> take so lightly.
Bruce C. Baker wrote:
> That's right! Momma don't allow no levity around here!
>
> Off with Markus' head! :-D
As they walked off together, Alice heard the King say in a low
voice, to the company generally, `You are all pardoned.' `Come,
THAT'S a good thing!' she said to herself, for she had felt quite
unhappy at the number of executions the Queen had ordered.
- /Alice's Adventures in Wonderland/, Lewis Carroll
------------------------------
Date: Wed, 18 Apr 2007 01:51:57 -0400
From: Ken Tilton <ken@theoryyalgebra.com>
Subject: Re: is laziness a programer's virtue?
Message-Id: <5miVh.1733$r%3.1346@newsfe12.lga>
George Neuner wrote:
> On 17 Apr 2007 08:20:24 -0700, Ingo Menger
> <quetzalcotl@consultant.com> wrote:
>
>
>>On 17 Apr., 12:33, Markus E Leypold
>><development-2006-8ecbb5cc8aREMOVET...@ANDTHATm-e-leypold.de> wrote:
>>
>>
>>>What makes Xah a troll is neither off-topic posts nor being
>>>incoherent -- its the attitude. He's broadcasting his drivel to a
>>>number of groups not with the intention to discuss (he hardly ever
>>>answers to answers to his posts), but solely with the intention to
>>>inform the world at large about his own magnificient thoughts.
>>
>>This hits the nail on the head.
>>Perhaps one could understand this behaviour on cultural grounds. In
>>chinese culture it may be not uncommon to write something that merely
>>sounds like great wisdom and it is nevertheless appreciated because
>>it's a piece of calligraphic art.
>>
>>
>>>Trying to correct Xah's behaviour is probably impossible.
>>
>>Perhaps somebody could ask the chinese government to put him in jail
>>for "hurting international society" :)
>
>
> That's going to be tough because, according to his web page, he's
> living in a Honda Civic somewhere in Illinois, USA.
Oh, not to fear, we have The Patriots Act, if Dubbya was an Emacs fan
Xah would be tanning nicely already at Gitmo.
kzo
--
http://www.theoryyalgebra.com/
"Algebra is the metaphysics of arithmetic." - John Ray
------------------------------
Date: Wed, 18 Apr 2007 02:43:58 -0400
From: Ken Tilton <ken@theoryyalgebra.com>
Subject: Re: is laziness a programer's virtue?
Message-Id: <S6jVh.562$Vu2.476@newsfe12.lga>
Xah Lee wrote:
> Dear Ken,
>
> I want to thank you for your spirit in supporting and leading the lisp
> community, in spreading lisp the language both in what you have done
> technically as well as evangelization, as well as the love and
> knowledge attitude towards newsgroup communities in general, in part
> thru your numerous replies to my posts in the past years.
Hey, thx, but to me recommending Lisp is like recommending water to a
life form.
Meanwhile, the last thing anyone can doubt is that you say what you mean
and mean what you say, so all we can say about your detractors is...
> (as opposed
> to, the motherfucking pack of driveling and fuckface ignoramuses that
> are predominate personalities in newsgroups,
...OK, but we know this from long Usenet experience. Reaching
Enlightenment means smiling on these noisemakers and having compassion
for them, for they live in mean, narrow worlds and in attacking you are
only reaching for the sunlight you enjoy, in however their ignorant way.
The nice thing about this compassionate view is that it leaves you
feeling positive and at peace within yourself, whereas the "driveling
and fuckface" thing leaves you feeling negative and attacked. less good,
for my money.
ken
------------------------------
Date: 18 Apr 2007 02:18:49 -0700
From: Ingo Menger <quetzalcotl@consultant.com>
Subject: Re: is laziness a programer's virtue?
Message-Id: <1176887929.405058.57960@y80g2000hsf.googlegroups.com>
On 18 Apr., 01:54, Lew <l...@nospam.lewscanon.com> wrote:
> Markus E Leypold
>
> >> Trying to correct Xah's behaviour is probably impossible.
> Ingo Menger wrote:
> > Perhaps somebody could ask the chinese government to put him in jail
> > for "hurting international society" :)
>
> Y'know, even in jest, calling for an oppressive regime to suppress even
> wrong-headed and self-serving garbage self-expression is immoral and horrible.
You're right. I confess this joke was going too far.
> Free speech, free press and free expression of ideas is not something to take
> so lightly.
I'm with you on this point.
But, since the biggest crime in Xah Lee's opinion apparently is
"harming" and "damaging" society through expression of ideas, it must
be possible to judge him by his own standards.
------------------------------
Date: Wed, 18 Apr 2007 10:01:35 +0000 (UTC)
From: espie@lain.home (Marc Espie)
Subject: Re: looking for some size optimization
Message-Id: <f04q9v$2a3p$1@biggoron.nerim.net>
In article <f028f6$2hll$1@agate.berkeley.edu>,
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
>[A complimentary Cc of this posting was sent to
>Uri Guttman
><uri@stemsystems.com>], who wrote in article <x7odln4zci.fsf@mail.sysarch.com>:
>> ME> Assuming I have initially $all_conflict->{$file} corresponding to
>> ME> $r = [$pkgname1, $pkgname2], then I will try to build
>> ME> $pkg_list->{$r}->{$pkgname3} = [$pkgname1, $pkgname2, $pkgname3] as a
>> ME> unique new reference.
>
>> yes, you can do that.
>>
>> i need to grok the conflict logic. my gut says there is a much better
>> structure out there and i trust it well.
>
>Likewise here. To the OP: we MUST know what kind of information one
>must have AT THE END, and what is the "elementary event" which
>triggers update of the info. [Also, some stats of the state at the
>end are also useful.]
Yeah, well... sorry about that. The point is that I've spent a lot of time
looking at the problem, and trying to optimize things. I was more looking
into some insight as to perl-specific memory issues I might have missed.
It's not a vital problem, the current program works, but it would be nice
to shave even more memory.
As far as stats go, I have a locate(1) database built from the same data.
The whole information is roughly 60M, uncompressed. Which translates to
a tight locate database of 5.6M (unfortunately, it's useless for the
problem at hand, since lookups are expensive). This means that each
entry is about 85 bytes long. So I have a factor *3 for each entry when
I store it as a perl hash entry...
I've tried my best to extract the relevant info from a large program, with
a huge dataset (+4G packages).
If you do not see how to optimize things further, no hardship...
------------------------------
Date: Wed, 18 Apr 2007 04:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Apr 18 2007
Message-Id: <JGoFqB.83o@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-Tango-0.06
http://search.cpan.org/~sargie/Acme-Tango-0.06/
Turn colours orange
----
Apache-Peek-1.07
http://search.cpan.org/~pgollucci/Apache-Peek-1.07/
A data debugging tool for the XS programmer (under mod_perl)
----
App-Context-0.965
http://search.cpan.org/~spadkins/App-Context-0.965/
An application framework for web applications, command-line programs, server programs, and web services
----
App-Repository-0.965
http://search.cpan.org/~spadkins/App-Repository-0.965/
Logical data access layer for the App::Context Framework, providing a uniform API to access data in databases, file systems, remote web sites, etc.
----
App-Widget-0.965
http://search.cpan.org/~spadkins/App-Widget-0.965/
Family of web user interface widgets for the App::Context Framework, enabling development of complex UI's in a CGI, mod_perl, or other web context
----
Brick-0.222
http://search.cpan.org/~bdfoy/Brick-0.222/
Complex business rule data validation
----
Business-Travel-OTA-0.90
http://search.cpan.org/~spadkins/Business-Travel-OTA-0.90/
----
Business-Travel-OTA-0.901
http://search.cpan.org/~spadkins/Business-Travel-OTA-0.901/
----
Cache-Memcached-1.20
http://search.cpan.org/~bradfitz/Cache-Memcached-1.20/
client library for memcached (memory cache daemon)
----
Catalyst-Model-WebService-Lucene-0.02
http://search.cpan.org/~bricas/Catalyst-Model-WebService-Lucene-0.02/
Use WebService::Lucene in your Catalyst application
----
Catalyst-View-JSON-0.16
http://search.cpan.org/~miyagawa/Catalyst-View-JSON-0.16/
JSON view for your data
----
Class-C3-0.15_03
http://search.cpan.org/~blblack/Class-C3-0.15_03/
A pragma to use the C3 method resolution order algortihm
----
Class-C3-0.15_04
http://search.cpan.org/~blblack/Class-C3-0.15_04/
A pragma to use the C3 method resolution order algortihm
----
Class-C3-XS-0.01_06
http://search.cpan.org/~blblack/Class-C3-XS-0.01_06/
XS speedups for Class::C3
----
Config-General-2.33
http://search.cpan.org/~tlinden/Config-General-2.33/
Generic Config Module
----
DBI-Shell-11.94
http://search.cpan.org/~tlowery/DBI-Shell-11.94/
Interactive command shell for the DBI
----
DBIx-Class-0.07006
http://search.cpan.org/~blblack/DBIx-Class-0.07006/
Extensible and flexible object <-> relational mapper.
----
File-PathInfo-Ext-1.09
http://search.cpan.org/~leocharre/File-PathInfo-Ext-1.09/
metadata files, renaming, some other things on top of PathInfo
----
HTTP-Response-Encoding-0.01
http://search.cpan.org/~dankogai/HTTP-Response-Encoding-0.01/
Adds encoding() to HTTP::Response
----
HTTP-Response-Encoding-0.02
http://search.cpan.org/~dankogai/HTTP-Response-Encoding-0.02/
Adds encoding() to HTTP::Response
----
IO-StructuredOutput-1.008
http://search.cpan.org/~unrtst/IO-StructuredOutput-1.008/
Perl OO extension to ease creation of structured data output (html tables, csv files, excel spreadsheets, etc)
----
Jifty-0.70416
http://search.cpan.org/~jesse/Jifty-0.70416/
an application framework
----
Lingua-EN-WordsToNumbers-0.21
http://search.cpan.org/~hex/Lingua-EN-WordsToNumbers-0.21/
convert numbers written in English to actual numbers
----
Lingua-FR-Ladl-v0.0.1
http://search.cpan.org/~ingrif/Lingua-FR-Ladl-v0.0.1/
represent, query and investigate the Ladl tables, a french linguistic resource
----
Lingua-FR-Ladl-v0.0.2
http://search.cpan.org/~ingrif/Lingua-FR-Ladl-v0.0.2/
represent, query and investigate the Ladl tables, a french linguistic resource
----
Linux-Taskstats-Read-3.01
http://search.cpan.org/~scottw/Linux-Taskstats-Read-3.01/
Read Linux taskstats structures
----
Math-0.529
http://search.cpan.org/~hooo/Math-0.529/
constants and functions
----
Math-0.531
http://search.cpan.org/~hooo/Math-0.531/
constants and functions
----
Math-Big-1.12
http://search.cpan.org/~tels/Math-Big-1.12/
routines (cos,sin,primes,hailstone,euler,fibbonaci etc) with big numbers
----
Math-BigInt-1.83
http://search.cpan.org/~tels/Math-BigInt-1.83/
Arbitrary size integer/float math package
----
Math-BigInt-FastCalc-0.14
http://search.cpan.org/~tels/Math-BigInt-FastCalc-0.14/
Math::BigInt::Calc with some XS for more speed
----
Math-BigInt-GMP-1.21
http://search.cpan.org/~tels/Math-BigInt-GMP-1.21/
Use the GMP library for Math::BigInt routines
----
Math-BigInt-Pari-1.12
http://search.cpan.org/~tels/Math-BigInt-Pari-1.12/
Use Math::Pari for Math::BigInt routines
----
Math-BigRat-0.19
http://search.cpan.org/~tels/Math-BigRat-0.19/
Arbitrary big rational numbers
----
Math-Polynom-0.10
http://search.cpan.org/~erwan/Math-Polynom-0.10/
Operations on polynomials
----
MogileFS-Client-1.05
http://search.cpan.org/~bradfitz/MogileFS-Client-1.05/
Client library for the MogileFS distributed file system.
----
POE-Component-CPAN-YACSmoke-0.19
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-0.19/
bringing the power of POE to CPAN smoke testing.
----
POE-Component-EasyDBI-1.20
http://search.cpan.org/~xantus/POE-Component-EasyDBI-1.20/
Perl extension for asynchronous non-blocking DBI calls in POE
----
POE-Filter-JSON-0.03
http://search.cpan.org/~xantus/POE-Filter-JSON-0.03/
A POE filter using JSON
----
Parallel-Mpich-MPD-0.8.0
http://search.cpan.org/~alexmass/Parallel-Mpich-MPD-0.8.0/
Mpich MPD wrapper
----
Parse-CPinfo-0.882
http://search.cpan.org/~mmlange/Parse-CPinfo-0.882/
Perl extension to parse output from cpinfo
----
RTF-Tokenizer-1.09
http://search.cpan.org/~sargie/RTF-Tokenizer-1.09/
Tokenize RTF
----
ShipIt-0.45
http://search.cpan.org/~bradfitz/ShipIt-0.45/
software release tool
----
ShipIt-0.46
http://search.cpan.org/~bradfitz/ShipIt-0.46/
software release tool
----
Template-Provider-Encoding-0.08
http://search.cpan.org/~miyagawa/Template-Provider-Encoding-0.08/
Explicitly declare encodings of your templates
----
Tk-PlotDataset-1.00
http://search.cpan.org/~itdev/Tk-PlotDataset-1.00/
An extended version of the canvas widget for plotting 2D line graphs. Plots have a legend and zooming capabilities.
----
WWW-OpenSearch-0.11
http://search.cpan.org/~bricas/WWW-OpenSearch-0.11/
Search A9 OpenSearch compatible engines
----
WebService-Lucene-0.03
http://search.cpan.org/~bricas/WebService-Lucene-0.03/
Module to interface with the Lucene indexing webservice
----
WebService-Validator-HTML-W3C-0.19
http://search.cpan.org/~struan/WebService-Validator-HTML-W3C-0.19/
Access the W3Cs online HTML validator
----
Wx-0.73
http://search.cpan.org/~mbarbon/Wx-0.73/
interface to the wxWidgets cross-platform GUI toolkit
----
XML-MyXML-0.09765
http://search.cpan.org/~karjala/XML-MyXML-0.09765/
A simple-to-use XML module, for parsing and creating XML documents
----
XML-MyXML-0.09766
http://search.cpan.org/~karjala/XML-MyXML-0.09766/
A simple-to-use XML module, for parsing and creating XML documents
----
XML-Toolset-0.50
http://search.cpan.org/~spadkins/XML-Toolset-0.50/
perform XML construction, parsing, validation, and XPath operations using whatever underlying XML library is available (ALPHA!)
----
bignum-0.21
http://search.cpan.org/~tels/bignum-0.21/
Transparent BigNumber support for Perl
----
cpan-upload-http-2.4
http://search.cpan.org/~bradfitz/cpan-upload-http-2.4/
----
iPodDB-0.04
http://search.cpan.org/~bricas/iPodDB-0.04/
iPod music database browser
----
mogilefs-server-2.08
http://search.cpan.org/~bradfitz/mogilefs-server-2.08/
----
parrot-0.4.11
http://search.cpan.org/~mdiep/parrot-0.4.11/
----
version-0.7202
http://search.cpan.org/~jpeacock/version-0.7202/
Perl extension for Version Objects
----
version-0.7203
http://search.cpan.org/~jpeacock/version-0.7203/
Perl extension for Version Objects
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Wed, 18 Apr 2007 09:29:01 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: print math symbol into image created with GD
Message-Id: <f04okv.19k.1@news.isolution.nl>
Kai Schlamp schreef:
> I am using the GD::Simple libs to draw a simple diagram. My problem
> is, that I have to put some math symbols in there (for example the
> symbol for delta and my).
> Is there an easy way to do that?
Yes, with a proper font.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 18 Apr 2007 04:54:15 -0700
From: Kai Schlamp <stroncococcus@gmx.de>
Subject: Re: print math symbol into image created with GD
Message-Id: <1176897255.807369.300240@d57g2000hsg.googlegroups.com>
Yep ... figured it out ... used a truetype font named symbol.ttf from
my windows installation.
Some (solved) problems I encountered (if anyone is interested).
my $image = GD::Simple->new($image_width,$image_height,1); # the 1 is
important, as only then true trype fonts are shown.
$image->stringFT(0x000000, "absolute_path_to/symbol.ttf", 14, 0, 10,
10, "s"); # prints a sigma symbol in the image.
Best regards,
Kai
------------------------------
Date: Wed, 18 Apr 2007 13:58:26 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: print math symbol into image created with GD
Message-Id: <1r1c23dlfhumnst7caoh78f4lgq39veqm9@4ax.com>
On 17 Apr 2007 15:12:15 -0700, Kai Schlamp <stroncococcus@gmx.de>
wrote:
>I am using the GD::Simple libs to draw a simple diagram. My problem
>is, that I have to put some math symbols in there (for example the
>symbol for delta and my).
>Is there an easy way to do that?
How are you using your diagram? Which kind of output does it give? If
postscript is an option, then you may use the LaTeX psfrag package.
There are ways to use it even if pdf output is the final target. If
metapost output is an option, you can similarly use LaTeX for
mathematical expressions.
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, 18 Apr 2007 09:29:57 +0200
From: "Ferry Bolhar" <bol@adv.magwien.gv.at>
Subject: Question to B::Deparse
Message-Id: <1176881397.625052@proxy.dienste.wien.at>
Hi,
I want to use B::Deparse from within a script and want to deparse
this script (or parts of). B::Deparse offers the method coderef2text()
which expects a code reference as argument. But where can I get
the code reference of the script's main code?
I thought of B - B::main_cv returns the B::CV object of the main
code. So I tried B::SV::object_2svref to convert this into a code
reference. Here is the code:
use strict;
use warnings;
use B::Deparse;
my $dep = B::Deparse->new('-q','-x9');
my $body = $dep->coderef2text(B::SV::object_svref(B::main_cv));
print "$body\n";
All seems to work well, no errors.
However, upon execution, $body contains only ";" (semicolon).
What's wrong here?
Greetings, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
------------------------------
Date: 18 Apr 2007 04:33:00 -0700
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Question to B::Deparse
Message-Id: <1176895980.532513.169590@o5g2000hsb.googlegroups.com>
On Apr 18, 8:29 am, "Ferry Bolhar" <b...@adv.magwien.gv.at> wrote:
> Hi,
>
> I want to use B::Deparse from within a script and want to deparse
> this script (or parts of). B::Deparse offers the method coderef2text()
> which expects a code reference as argument. But where can I get
> the code reference of the script's main code?
>
> I thought of B - B::main_cv returns the B::CV object of the main
> code. So I tried B::SV::object_2svref to convert this into a code
> reference. Here is the code:
>
> use strict;
> use warnings;
> use B::Deparse;
>
> my $dep = B::Deparse->new('-q','-x9');
> my $body = $dep->coderef2text(B::SV::object_svref(B::main_cv));
> print "$body\n";
>
> All seems to work well, no errors.
>
> However, upon execution, $body contains only ";" (semicolon).
>
> What's wrong here?
I think the problem is that B::main_cv->ROOT is not the same as
B::main_root.
I'm not sure if this is should be considered a bug but the
documentation for B::main_cv does warn that it's not a real CV.
The following works but is unclean because it messes with the
internals of the B::Deparse object.
my $dep = B::Deparse->new('-q','-x9');
$dep->{'curcv'} = B::main_cv;
$dep->{'curcvlex'} = undef;
my $body = $dep->indent($dep->deparse_root(B::main_root));
What is it that you are trying to achieve? Remember that B::Deparse is
a debugging tool and doesn't in general yield compilable code.
------------------------------
Date: Wed, 18 Apr 2007 11:48:27 GMT
From: Tim <tim_culmer@hotmail.co.uk>
Subject: Tk::PlotDataset v1.00
Message-Id: <JGp147.usw@zorch.sf-bay.org>
I.T. Dev Ltd is pleased to announce the first release (v1.00) of the
new Tk::PlotDataset module. The module is a quick and easy way to
build an interactive plot widget into a Perl application.
To download the module from CPAN go to: http://search.cpan.org/~itdev/Tk-PlotDataset-1.00/
The widget is an extension of the Tk::Canvas widget that will plot
Tk::LineGraphDataset objects as lines onto a 2D graph. The module
includes the following features:
* Plots multiple datasets.
* Plots are zoomable.
* Axes can be automatically scaled or set by the code.
* Optional second y-axis (Y1).
* Axes can be linear or logarithmic.
* Graphs have a legend.
* Includes a feature for highlighting plots when the cursor is held
over the plot or its name in the legend.
* Point values are shown when the cursor is held over a point on the
graph.
* The fonts, colours and layout of the graph are all configurable.
The Tk widget is based on the Tk::LineGraph module by Tom Clifford,
but has been changed so that the graph is no longer created in a
separate window, but as a widget instead. It therefore does not have
the drop down menus used to configure the graph in the original.
Thanks,
Tim Culmer
I.T. Dev Limited - Hardware & Software Development Services
http://www.itdev.co.uk
------------------------------
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 355
**************************************
