[29850] in Perl-Users-Digest
Perl-Users Digest, Issue: 1093 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Dec 6 09:09:46 2007
Date: Thu, 6 Dec 2007 06:09:06 -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 Thu, 6 Dec 2007 Volume: 11 Number: 1093
Today's topics:
Re: .htaccess mistake <visitprakashindia@gmail.com>
Re: Better way to invoke dynamic function? <howachen@gmail.com>
Re: Better way to invoke dynamic function? <uri@stemsystems.com>
Re: Better way to invoke dynamic function? <1usa@llenroc.ude.invalid>
Re: Better way to invoke dynamic function? <uri@stemsystems.com>
Building a hash map out of two arrays <kirakun@earthlink.net>
Re: Building a hash map out of two arrays <ben@morrow.me.uk>
Re: Building a hash map out of two arrays <glennj@ncf.ca>
Re: Building a hash map out of two arrays <peter@makholm.net>
Re: Building a hash map out of two arrays <kirakun@earthlink.net>
Re: how check new URL of redirected page <stoupa@practisoft.cz>
Re: How to make thumbnail image from web page? <bik.mido@tiscalinet.it>
Nested sorting of a hash <justin.0711@purestblue.com>
Re: Nested sorting of a hash <bugbear@trim_papermule.co.uk_trim>
Re: Nested sorting of a hash <glennj@ncf.ca>
Re: Nested sorting of a hash <ben@morrow.me.uk>
new CPAN modules on Thu Dec 6 2007 (Randal Schwartz)
Re: OT raibow <bik.mido@tiscalinet.it>
Re: Play wav or sound file. <stoupa@practisoft.cz>
Why perl -n0e doesn't work on cygwin and NT <xueweizhong@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 5 Dec 2007 20:19:04 -0800 (PST)
From: Praki <visitprakashindia@gmail.com>
Subject: Re: .htaccess mistake
Message-Id: <6e50eb00-15cf-4d28-b8fe-0234e9f004b4@b40g2000prf.googlegroups.com>
On Dec 6, 1:06 am, Charlton Wilbur <cwil...@chromatico.net> wrote:
> >>>>> "P" == Praki <visitprakashin...@gmail.com> writes:
>
> P> I m getting the error.HTTP 500 - Internal server error is the
> P> error. can u point where i m doing wrrong .. it would be of
> P> great help...
>
> Your most recent error is asking an Apache configuration question with
> no Perl content in a Perl newsgroup.
>
> You can find Apache documentation athttp://httpd.apache.org/docs/--
> odds are good that the answer to your question is somewhere in there.
>
> And a good first step in finding more help for your problem might be
> to find an appropriate mailing list from the ones listed athttp://httpd.apache.org/lists.html
>
> Good luck.
>
> Charlton
>
> --
> Charlton Wilbur
> cwil...@chromatico.net
thanks, its my mistake in Curiosity to get answer i posted here i m
sorry ...
------------------------------
Date: Wed, 5 Dec 2007 18:34:44 -0800 (PST)
From: howa <howachen@gmail.com>
Subject: Re: Better way to invoke dynamic function?
Message-Id: <725b040e-6f1c-4510-8f44-7e7fdca7dfab@e23g2000prf.googlegroups.com>
Uri Guttman $BUmF;!'(B
> >>>>> "h" == howa <howachen@gmail.com> writes:
>
>
> h> The function name is unknown at runtime, it is input by user.
>
> that is a VERY bad idea. why do newbies always think allowing users to
> input a function name is a good idea?
>
each time user add a new function, you would need to modify the
dispatch table, which might lead to error.
------------------------------
Date: Thu, 06 Dec 2007 02:35:45 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Better way to invoke dynamic function?
Message-Id: <x7bq94turi.fsf@mail.sysarch.com>
>>>>> "PV" == Petr Vileta <stoupa@practisoft.cz> writes:
PV> Joost Diepenmaat wrote:
>> On Wed, 05 Dec 2007 06:34:42 -0800, howa wrote:
>>
>>> I have some codes which I want to dynamically select the algorithm at
>>> runtime, currently can be done via using eval(), e.g.
>>> #######################
>>> package P1;
>>> sub foo {
>>> print "foo";
>>> }
>>> sub bar {
>>> print "bar";
>>> }
>>> 1;
>>> $function_to_call = "P1.bar";
>>> eval( $function_to_call );
>> Use a function reference:
>> $function_to_call = \&PI::bar;
>> $function_to_call->();
>> Joost.
PV> Yes and is a good idea to test if a function is defined
PV> $func_name = 'bar';
PV> if(defined(&{"P1::" . $func_name})) {
PV> (\&$func_name)->(parameters);
PV> }
you are taking a bad idea and making it worse. the answer is a dispatch
table which does the checking AND the dispatching. your answer took the
OP eval code via hard refs and went back to symbolic references. not a
good journey.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 06 Dec 2007 02:42:42 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Better way to invoke dynamic function?
Message-Id: <Xns99FDDCDA73468asu1cornelledu@127.0.0.1>
howa <howachen@gmail.com> wrote in news:725b040e-6f1c-4510-8f44-7e7fdca7dfab@e23g2000prf.googlegroups.com:
> Uri Guttman $BUmF;!'(B
>
>> >>>>> "h" == howa <howachen@gmail.com> writes:
>>
>>
>> h> The function name is unknown at runtime, it is input by user.
>>
>> that is a VERY bad idea. why do newbies always think allowing users to
>> input a function name is a good idea?
>>
>
> each time user add a new function, you would need to modify the
> dispatch table, which might lead to error.
It is deja vu all over again. This topic has been discussed many times
in the past. Search the archives:
http://groups.google.com/group/comp.lang.perl.misc/search?group=comp.lang.perl.misc&q=dispatch+table&qt_g=Search+this+group
http://tinyurl.com/2bt5y5
and feel free to learn from past discussion.
Simply stated, both your scheme and objection to Uri's recommendation
are stupid but you should feel free to do as you wish.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: Thu, 06 Dec 2007 03:16:31 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Better way to invoke dynamic function?
Message-Id: <x7r6i0seb5.fsf@mail.sysarch.com>
>>>>> "h" == howa <howachen@gmail.com> writes:
h> Uri Guttman صيئ»،§
>> >>>>> "h" == howa <howachen@gmail.com> writes:
>>
>>
h> The function name is unknown at runtime, it is input by user.
>>
>> that is a VERY bad idea. why do newbies always think allowing users to
>> input a function name is a good idea?
>>
h> each time user add a new function, you would need to modify the
h> dispatch table, which might lead to error.
gack!! you have users adding functions?? you want that or users calling
anything in your system vs. adding an entry into a dispatch table? i
give up.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 6 Dec 2007 06:47:34 -0500
From: Kira Yamato <kirakun@earthlink.net>
Subject: Building a hash map out of two arrays
Message-Id: <2007120606473416807-kirakun@earthlinknet>
Suppose you have two arrays
my @keys = qw/ a b c d /;
my @values = ( 1, 2, 3, 4 );
Does anyone know a slick way of building a hash with @keys and @values?
Thanks.
--
-kira
------------------------------
Date: Thu, 6 Dec 2007 11:56:02 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Building a hash map out of two arrays
Message-Id: <ij4l25-ma9.ln1@osiris.mauzo.dyndns.org>
Quoth Kira Yamato <kirakun@earthlink.net>:
> Suppose you have two arrays
>
> my @keys = qw/ a b c d /;
> my @values = ( 1, 2, 3, 4 );
>
> Does anyone know a slick way of building a hash with @keys and @values?
my %hash;
@hash{ @keys } = @values;
or
use List::MoreUtils qw/zip/;
my %hash = zip @keys, @values;
Ben
------------------------------
Date: 6 Dec 2007 12:05:01 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: Building a hash map out of two arrays
Message-Id: <slrnflfpbd.qp6.glennj@smeagol.ncf.ca>
At 2007-12-06 06:47AM, "Kira Yamato" wrote:
> Suppose you have two arrays
>
> my @keys = qw/ a b c d /;
> my @values = ( 1, 2, 3, 4 );
>
> Does anyone know a slick way of building a hash with @keys and @values?
Don't know how I'll score golf-wise, but this is compact:
my %h = map {$keys[$_], $values[$_]} (0 .. $#keys);
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Thu, 06 Dec 2007 12:05:28 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: Building a hash map out of two arrays
Message-Id: <87y7c8av07.fsf@hacking.dk>
Kira Yamato <kirakun@earthlink.net> writes:
> my @keys = qw/ a b c d /;
> my @values = ( 1, 2, 3, 4 );
>
> Does anyone know a slick way of building a hash with @keys and @values?
Use a hash slice:
my %hash;
@hash{ @keys } = @values;
Read 'perldoc perldata' for the explanation.
//Makholm
------------------------------
Date: Thu, 6 Dec 2007 07:40:45 -0500
From: Kira Yamato <kirakun@earthlink.net>
Subject: Re: Building a hash map out of two arrays
Message-Id: <2007120607404516807-kirakun@earthlinknet>
On 2007-12-06 07:05:28 -0500, Peter Makholm <peter@makholm.net> said:
> Kira Yamato <kirakun@earthlink.net> writes:
>
>> my @keys = qw/ a b c d /;
>> my @values = ( 1, 2, 3, 4 );
>>
>> Does anyone know a slick way of building a hash with @keys and @values?
>
> Use a hash slice:
>
> my %hash;
> @hash{ @keys } = @values;
>
> Read 'perldoc perldata' for the explanation.
>
> //Makholm
Nice. Thank you everyone for your help and quick response!
--
-kira
------------------------------
Date: Thu, 6 Dec 2007 02:53:01 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: how check new URL of redirected page
Message-Id: <fj7kq9$26k9$1@ns.felk.cvut.cz>
Ben Morrow wrote:
> Quoth zawszedamian_p@gazeta.pl:
>>
>> I read webpage using HTTP::Response but the page was redirected - how
>> can I read new url?
>> I tried HTTP::Response->base() but it returns orginal url.
>
> If you mean a proper HTTP redirect rather than an HTML meta-refresh or
> something more evil in JavaScript,
>
> $response->header('Location');
>
> However, LWP::UserAgent will follow redirects by default, so unless
> you've turned it off this won't help :(. If the page is HTML with a
> meta-refresh, you will need to parse it with e.g. HTML::Parser and
> extract the <meta> elements, and find the one with the refresh in. If
> it's using JS, you're out of luck, unless the pages you are working
> with have similar pieces of JS every time and you can see how to
> extract the URL.
>
> Ben
Sorry Ben, please do not kill me, but HTML::Parser is "too big gun to small
rabbit" :-)
For meta element base redirections is successful some like this
# I precede that html page is in variable $content
$content=~s/^.?(<meta\s+?HTTP-EQUIV=.REFRESH..+?>).+$/$1/si;
$content=~s/^.+?url=(.+?)[\'\">]
Now $content contain new URL.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Thu, 06 Dec 2007 11:15:50 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to make thumbnail image from web page?
Message-Id: <9nifl3hra4n7m7fgv8nt0ms85pmhbjbbtk@4ax.com>
On Thu, 6 Dec 2007 00:38:52 +0100, "Peter J. Holzer"
<hjp-usenet2@hjp.at> wrote:
>> Render, then subsample.
> ^^^^^^
> That's the interesting part. How do you render a web-page into a
>pixmap? Subsampling is trivial.
I saw the question discussed recently. I can't remember whether here
or at PerlMonks. (Most probably, tertium non datur.) Off the top of my
memory, and probably in a sloppy way, options include (i) use a
rendering engine like gecko, or (ii) launch a browser and take a
screenshot. IIRC both actions can be automated in perl.
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: Thu, 06 Dec 2007 11:23:49 -0000
From: Justin C <justin.0711@purestblue.com>
Subject: Nested sorting of a hash
Message-Id: <2756.4757dbc5.948e7@zem>
I have a hash containing stock codes (the keys) and the number of units
sold (the values). I can sort them easily to give the best selling items
at the top and those that sold the fewest at the bottom. There are many
items with the same number of units sold, what I'd like to do is sort
the keys within there relevant position in the in the list.
Here is an example of the data I have:
Code Qty
ABZ001 13
ADF001 7
ADF002 6
ADF003 6
ADF004 6
ABZ002 5
ABZ003 5
ABZ120 4
ABZ047 4
ABZ022 4
ADF027 4
ADF019 4
What I'd like to have is within those items that have sold 4 units they
be sorted asciibetically.
The sort I have for the hash so far is:
foreach ( sort { $sales{$b} <=> $sales{$a} } keys %sales) {
print "$_;\t$sales{$_}\n";
}
Thank you for any help you can give with this.
Justin.
--
Justin C, by the sea.
------------------------------
Date: Thu, 06 Dec 2007 11:44:56 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Nested sorting of a hash
Message-Id: <13lfo5p13n18qb1@corp.supernews.com>
Justin C wrote:
>
> The sort I have for the hash so far is:
>
> foreach ( sort { $sales{$b} <=> $sales{$a} } keys %sales) {
> print "$_;\t$sales{$_}\n";
> }
>
> Thank you for any help you can give with this.
You need to make your hash into an array of hashes, and sort that.
You cannot get the results you desire by sorting the keys;
you must sort by considering the code/sold as a pair,
using a primary/secondary comparison in the sort.
BugBear
------------------------------
Date: 6 Dec 2007 11:51:27 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: Nested sorting of a hash
Message-Id: <slrnflfoi1.qp6.glennj@smeagol.ncf.ca>
At 2007-12-06 06:23AM, "Justin C" wrote:
[...]
> Code Qty
> ABZ001 13
> ADF001 7
> ADF002 6
> ADF003 6
> ADF004 6
> ABZ002 5
> ABZ003 5
> ABZ120 4
> ABZ047 4
> ABZ022 4
> ADF027 4
> ADF019 4
>
> What I'd like to have is within those items that have sold 4 units they
> be sorted asciibetically.
>
> The sort I have for the hash so far is:
>
> foreach ( sort { $sales{$b} <=> $sales{$a} } keys %sales) {
> print "$_;\t$sales{$_}\n";
> }
Note that the <=> operator returns 0 if the operands are equal, so
foreach my $key (sort {$sales{$b} <=> $sales{$a} or $a cmp $b} keys %sales) {
print "$key\t$sales{$key}\n";
}
This answer does not limit sorting the keys only when the value is 4.
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Thu, 6 Dec 2007 11:52:17 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Nested sorting of a hash
Message-Id: <hc4l25-ma9.ln1@osiris.mauzo.dyndns.org>
Quoth justin.news@purestblue.com:
> I have a hash containing stock codes (the keys) and the number of units
> sold (the values). I can sort them easily to give the best selling items
> at the top and those that sold the fewest at the bottom. There are many
> items with the same number of units sold, what I'd like to do is sort
> the keys within there relevant position in the in the list.
<snip>
>
> The sort I have for the hash so far is:
>
> foreach ( sort { $sales{$b} <=> $sales{$a} } keys %sales) {
foreach ( sort {
$sales{$b} <=> $sales{$a}
||
$a cmp $b
} keys %sales ) {
> print "$_;\t$sales{$_}\n";
> }
The only time a sort expression returns false is when they compared
equal, so you can combine them with ||.
Ben
------------------------------
Date: Thu, 6 Dec 2007 05:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Dec 6 2007
Message-Id: <JsM56E.19AB@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.
Bundle-OpenXPKI-0.04
http://search.cpan.org/~alech/Bundle-OpenXPKI-0.04/
A bundle to install modules required for OpenXPKI
----
Business-OnlinePayment-InternetSecure-0.05
http://search.cpan.org/~ivan/Business-OnlinePayment-InternetSecure-0.05/
InternetSecure backend for Business::OnlinePayment
----
CFPlus-0.9957
http://search.cpan.org/~mlehmann/CFPlus-0.9957/
undocumented utility garbage for our crossfire client
----
CGI-Capture-1.11
http://search.cpan.org/~adamk/CGI-Capture-1.11/
Meticulously thorough capture and replaying of CGI calls
----
Catalyst-Plugin-Authentication-0.10004
http://search.cpan.org/~jayk/Catalyst-Plugin-Authentication-0.10004/
Infrastructure plugin for the Catalyst authentication framework.
----
Coro-4.31
http://search.cpan.org/~mlehmann/Coro-4.31/
coroutine process abstraction
----
Crossfire-1.12
http://search.cpan.org/~mlehmann/Crossfire-1.12/
Crossfire maphandling
----
Crossfire-1.13
http://search.cpan.org/~mlehmann/Crossfire-1.13/
Crossfire maphandling
----
DBIx-SimplePerl-1.90
http://search.cpan.org/~landman/DBIx-SimplePerl-1.90/
Perlish access to DBI
----
DOCSIS-ConfigFile-0.4
http://search.cpan.org/~eidolon/DOCSIS-ConfigFile-0.4/
Decodes and encodes DOCSIS config-files for cablemodems
----
EV-1.6
http://search.cpan.org/~mlehmann/EV-1.6/
perl interface to libev, a high performance full-featured event loop
----
Email-Public-0.02
http://search.cpan.org/~jeteve/Email-Public-0.02/
Quickly find if an email address is from a public email provider
----
Encode-Escape-0.10
http://search.cpan.org/~you/Encode-Escape-0.10/
Perl extension for Encodings of various escape sequences
----
Encode-Escape-0.14
http://search.cpan.org/~you/Encode-Escape-0.14/
Perl extension for Encodings of various escape sequences
----
File-HomeDir-0.67
http://search.cpan.org/~adamk/File-HomeDir-0.67/
Find your home and other directories, on any platform
----
File-Tabular-0.71
http://search.cpan.org/~dami/File-Tabular-0.71/
searching and editing flat tabular files
----
File-Tabular-Web-0.17
http://search.cpan.org/~dami/File-Tabular-Web-0.17/
turn a tabular file into a web application
----
Geo-Coordinates-UTM-0.07
http://search.cpan.org/~grahamc/Geo-Coordinates-UTM-0.07/
Perl extension for Latitiude Longitude conversions.
----
HTML-Encoding-0.54
http://search.cpan.org/~bjoern/HTML-Encoding-0.54/
Determine the encoding of HTML/XML/XHTML documents
----
HTML-Encoding-0.55
http://search.cpan.org/~bjoern/HTML-Encoding-0.55/
Determine the encoding of HTML/XML/XHTML documents
----
JSON-XS-2.01
http://search.cpan.org/~mlehmann/JSON-XS-2.01/
JSON serialising/deserialising, done correctly and fast
----
List-Pairwise-0.27
http://search.cpan.org/~tdrugeon/List-Pairwise-0.27/
map/grep arrays and hashes pairwise
----
Mail-DeliveryStatus-BounceParser-1.518
http://search.cpan.org/~rjbs/Mail-DeliveryStatus-BounceParser-1.518/
Perl extension to analyze bounce messages
----
Mail-IMAPClient-3.01
http://search.cpan.org/~markov/Mail-IMAPClient-3.01/
An IMAP Client API
----
Mail-IMAPClient-3.02
http://search.cpan.org/~markov/Mail-IMAPClient-3.02/
An IMAP Client API
----
Mail-Maps-Lookup-0.01
http://search.cpan.org/~mcantoni/Mail-Maps-Lookup-0.01/
Query the MAPS lookup service via DNS
----
Mail-Maps-Lookup-0.02
http://search.cpan.org/~mcantoni/Mail-Maps-Lookup-0.02/
Query the MAPS lookup service via DNS
----
Math-Base36-0.05
http://search.cpan.org/~bricas/Math-Base36-0.05/
Encoding and decoding of base36 strings
----
Module-Install-RTx-0.20
http://search.cpan.org/~jesse/Module-Install-RTx-0.20/
RT extension installer
----
PICA-Record-0.3.2
http://search.cpan.org/~voj/PICA-Record-0.3.2/
Perl extension for handling PICA+ records
----
PICA-Record-0.32
http://search.cpan.org/~voj/PICA-Record-0.32/
Perl extension for handling PICA+ records
----
POE-Component-IRC-5.37_01
http://search.cpan.org/~bingos/POE-Component-IRC-5.37_01/
a fully event-driven IRC client module.
----
Palm-Keyring-0.96_07
http://search.cpan.org/~andrew/Palm-Keyring-0.96_07/
Handler for Palm Keyring databases.
----
QDBM_File-0.04
http://search.cpan.org/~yamato/QDBM_File-0.04/
Tied access to Quick Database Manager
----
Qmail-Deliverable-1.01
http://search.cpan.org/~juerd/Qmail-Deliverable-1.01/
Determine deliverability of local addresses
----
Qmail-Deliverable-1.02
http://search.cpan.org/~juerd/Qmail-Deliverable-1.02/
Determine deliverability of local addresses
----
RT-Authen-Federation-1.1.2
http://search.cpan.org/~carlosfb/RT-Authen-Federation-1.1.2/
----
RT-Client-Console-0.0.2
http://search.cpan.org/~dams/RT-Client-Console-0.0.2/
[One line description of module's purpose here]
----
STAFService-0.20
http://search.cpan.org/~semuelf/STAFService-0.20/
Perl extension for writing STAF Services easily.
----
SVN-S4-1.021
http://search.cpan.org/~wsnyder/SVN-S4-1.021/
Wrapper for Subversion
----
Search-QueryParser-0.92
http://search.cpan.org/~dami/Search-QueryParser-0.92/
parses a query string into a data structure suitable for external search engines
----
Tk-MiniCalendar-0.10
http://search.cpan.org/~ldomke/Tk-MiniCalendar-0.10/
simple calendar widget for date selection
----
VCS-SCCS-0.10
http://search.cpan.org/~hmbrand/VCS-SCCS-0.10/
OO Interface to SCCS files
----
Validator-0.02
http://search.cpan.org/~plcgi/Validator-0.02/
Input params validator
----
WWW-Search-Ebay-2.232
http://search.cpan.org/~mthurn/WWW-Search-Ebay-2.232/
backend for searching www.ebay.com
----
WWW-Search-News-1.076
http://search.cpan.org/~mthurn/WWW-Search-News-1.076/
----
WebService-MusicBrainz-0.16
http://search.cpan.org/~bfaist/WebService-MusicBrainz-0.16/
----
XML-Trivial-0.05
http://search.cpan.org/~pajout/XML-Trivial-0.05/
The trivial tool representing parsed XML as tree of read only objects.
----
YAML-Tiny-1.21
http://search.cpan.org/~adamk/YAML-Tiny-1.21/
Read/Write YAML files with as little code as possible
----
chklinks-3.08
http://search.cpan.org/~imacat/chklinks-3.08/
A non-threaded Perl link checker
----
chklinks-3.09
http://search.cpan.org/~imacat/chklinks-3.09/
A non-threaded Perl link checker
----
pip-0.13
http://search.cpan.org/~adamk/pip-0.13/
The Perl Installation Program, for scripted and third-party distribution installation.
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: Thu, 06 Dec 2007 11:10:56 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: OT raibow
Message-Id: <lkifl3pmvumpdp28gngapfk5hn9sptggf1@4ax.com>
On Wed, 5 Dec 2007 16:24:37 +0100, "Petr Vileta"
<stoupa@practisoft.cz> wrote:
>> I am not sure what the smiley means in this case.
>>
>> comp.infosystems.www.authoring.html
>> comp.infosystems.www.authoring.stylesheets
>> comp.infosystems.www.authoring.site-design
>>
>Thank you, I didn't know about comp.infosystems news server. I'm going to add
>this server to my news reader right now.
I don't think it's a *news server*, just a hierarchy...
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: Thu, 6 Dec 2007 03:18:56 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Play wav or sound file.
Message-Id: <fj7mb2$27kk$1@ns.felk.cvut.cz>
Cehotec - Tim wrote:
> Thanks everyone.
>
> use Win32::Sound;
> Win32::Sound::Volume('100%');
> Win32::Sound::Play("file.wav");
>
> Worked!
Take a look to Win32::Sound documentation. This module know to play sound file
asynchronous. In other word sound file is playing and your script continue in
work without waiting to end of sound.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Thu, 6 Dec 2007 00:57:16 -0800 (PST)
From: Todd <xueweizhong@gmail.com>
Subject: Why perl -n0e doesn't work on cygwin and NT
Message-Id: <967ff01a-895f-4e66-88b8-02ec18bfc2da@s8g2000prg.googlegroups.com>
I see some differenct behavior with the perl command line options:
On solaris i've tried, it works as below:
<perl -n0e 'print'
1
2
3
^D
1
2
3
<
But cygwin, i've to type '^D' 2 times to exit the program.
On MS Windows with ActivePerl, it's more strange: it print nothing
after i type '^Z'
May you help me identify this trick?
-Todd
------------------------------
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 1093
***************************************
