[29669] in Perl-Users-Digest
Perl-Users Digest, Issue: 913 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 7 09:09:42 2007
Date: Sun, 7 Oct 2007 06:09:08 -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 Sun, 7 Oct 2007 Volume: 11 Number: 913
Today's topics:
Re: FAQ 5.5 How can I copy a file? <bik.mido@tiscalinet.it>
Getting file size before closing the file <ldolan@thinkinghatbigpond.net.au>
Re: Getting file size before closing the file <mritty@gmail.com>
Re: Getting file size before closing the file <ldolan@thinkinghatbigpond.net.au>
Re: Getting file size before closing the file <5502109103600001@t-online.de>
Re: How to make klick after put value in TextBox <wyzelli@yahoo.com>
Huge cgi!Help! <Zazen85@gmail.com>
Re: Huge cgi!Help! <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Huge cgi!Help! <Zazen85@gmail.com>
Re: Huge cgi!Help! <bik.mido@tiscalinet.it>
Re: Huge cgi!Help! <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Load file into a hash <m@rtij.nl.invlalid>
new CPAN modules on Sun Oct 7 2007 (Randal Schwartz)
Re: passing $fd as a reference <dontmewithme@got.it>
Re: perl join on a non printable variable character ? <paduille.4061.mumia.w+nospam@earthlink.net>
print a number in hex <sting.t2@gmail.com>
Re: print a number in hex <spamtrap@piven.net>
Re: The Modernization of Emacs: terminology buffer and lhb@nowhere.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 07 Oct 2007 12:41:52 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: FAQ 5.5 How can I copy a file?
Message-Id: <lvchg35gim2l7bpi693ira738osbnsqk5v@4ax.com>
On Sat, 06 Oct 2007 13:54:45 -0500, brian d foy
<brian.d.foy@gmail.com> wrote:
>> http://perl.abigail.be/Talks/FC/HTML/
>
>
>Indeed, although I think we should fix File::Copy so it doesn't have
>those problems. I'm not sure why nobody hasn't.
I know Abigail is concerned about F::C's UI when it comes to copy
several files to a directory, which is of course a good point and a
pov one cannot but share. Anyway I suppose that just fixing this,
plain and simple, may break backwards compatibility in (the admittedly
but not completely improbable) case someone had been relying on the
broken behaviour that's been there for years. Annoying as it may be,
the fixed one should probably be implemented through some sort of
switch.
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: Sat, 06 Oct 2007 23:51:45 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Getting file size before closing the file
Message-Id: <lcVNi.6339$H22.2882@news-server.bigpond.net.au>
G'day all,
I receive numerous web files that I archive:
#..........code snippet
# .........$count increments, $tmp contains the data
my $name_of _file = $expenses."_".$count ;
print "name_of _file: ",$name_of _file,"\n";
# save as txt
open(FH, ">$name_of _file.txt");
print FH $tmp;
close(FH);
After saving, I can find the size of a file by:
my $filesize = -s "$name_of _file.txt";
Can I determine the file size before closing it?
This would be useful because some files contain
no useful data and there is no point retaining them
so for example if file size is <21000 probably no data present
so don't keep, just move to next file.
Or can I only determine the file size after it has been closed and
is in a directory?
Any advice appreciated!
------------------------------
Date: Sat, 06 Oct 2007 17:45:15 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Getting file size before closing the file
Message-Id: <1191717915.105819.240920@g4g2000hsf.googlegroups.com>
On Oct 6, 7:51 pm, "Peter Jamieson" <ldo...@thinkinghatbigpond.net.au>
wrote:
> G'day all,
> I receive numerous web files that I archive:
> #..........code snippet
> # .........$count increments, $tmp contains the data
>
> my $name_of _file = $expenses."_".$count ;
> print "name_of _file: ",$name_of _file,"\n";
> # save as txt
> open(FH, ">$name_of _file.txt");
> print FH $tmp;
> close(FH);
>
> After saving, I can find the size of a file by:
> my $filesize = -s "$name_of _file.txt";
>
> Can I determine the file size before closing it?
> This would be useful because some files contain
> no useful data and there is no point retaining them
> so for example if file size is <21000 probably no data present
> so don't keep, just move to next file.
If you're the one *creating* the file, why don't you just get the size
of the data that you're printing to it?
my $size = length($tmp);
Paul Lalli
------------------------------
Date: Sun, 07 Oct 2007 01:08:39 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Re: Getting file size before closing the file
Message-Id: <rkWNi.6366$H22.5538@news-server.bigpond.net.au>
"Paul Lalli" <mritty@gmail.com> wrote in message
news:1191717915.105819.240920@g4g2000hsf.googlegroups.com...
> On Oct 6, 7:51 pm, "Peter Jamieson" <ldo...@thinkinghatbigpond.net.au>
> wrote:
>> G'day all,
>> I receive numerous web files that I archive:
>> #..........code snippet
>> # .........$count increments, $tmp contains the data
>>
>> my $name_of _file = $expenses."_".$count ;
>> print "name_of _file: ",$name_of _file,"\n";
>> # save as txt
>> open(FH, ">$name_of _file.txt");
>> print FH $tmp;
>> close(FH);
>>
>> After saving, I can find the size of a file by:
>> my $filesize = -s "$name_of _file.txt";
>>
>> Can I determine the file size before closing it?
>> This would be useful because some files contain
>> no useful data and there is no point retaining them
>> so for example if file size is <21000 probably no data present
>> so don't keep, just move to next file.
>
> If you're the one *creating* the file, why don't you just get the size
> of the data that you're printing to it?
>
> my $size = length($tmp);
>
> Paul Lalli
>
Yes!!......thanks Paul....simple and effective!
Cheer, Peter
------------------------------
Date: Sun, 07 Oct 2007 14:39:58 +0200
From: Josef Moellers <5502109103600001@t-online.de>
Subject: Re: Getting file size before closing the file
Message-Id: <feak2v$984$03$1@news.t-online.com>
Peter Jamieson wrote:
> G'day all,
> I receive numerous web files that I archive:
> #..........code snippet
> # .........$count increments, $tmp contains the data
>
> my $name_of _file = $expenses."_".$count ;
> print "name_of _file: ",$name_of _file,"\n";
> # save as txt
> open(FH, ">$name_of _file.txt");
> print FH $tmp;
> close(FH);
>
> After saving, I can find the size of a file by:
> my $filesize = -s "$name_of _file.txt";
>
> Can I determine the file size before closing it?
"-s" takes either a filename or a filehandle. However, you must flush
the output to the file before applying -s to the filehandle:
use warnings;
use strict;
open my $dst, '>', 'PerlTestFile';
select((select($dst), $| = 1)[0]); # <<<<<<<<<<<<<<<<<
print $dst "Hello, my dear\n";
my $size = -s $dst;
print "Destination file is $size\n";
If you leave out the "select" call, then this will show a size of 0, if
you leave the "select" call in, the size will show as 15.
> This would be useful because some files contain
> no useful data and there is no point retaining them
> so for example if file size is <21000 probably no data present
> so don't keep, just move to next file.
>
> Or can I only determine the file size after it has been closed and
> is in a directory?
That introduces a race condition.
Josef
--
Mails please to josef dot moellers
and I'm on gmx dot de.
------------------------------
Date: Sun, 07 Oct 2007 10:13:59 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: How to make klick after put value in TextBox
Message-Id: <Hj2Oi.6572$H22.5249@news-server.bigpond.net.au>
"Tena" <tena@makniovotht.hr> wrote in message
news:fe90ki$sb1$1@localhost.localdomain...
> How to make click on form after I put value in TextBox.
> I tray everything but unsuccessful.
>
> Please help me.
>
> *****************************************
>
> use warnings;
> use Win32::IEAutomation;
>
> my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1 );
> $ie->gotoURL('http://www.prva-generacija.hr/');
> $ie->getTextBox('name:', "txtUserName")->SetValue('user1');
> $ie->getTextBox('name:', "txtPassword")->SetValue('passwd1');
>
>
> ******************************************
From the Win32::IEAutomation documentation:
# Finding button and clicking it
# using 'caption:' option
$ie->getButton('caption:', "Google Search")->Click;
In that case you are probably looking for the caption to be 'submit' or
whatever the button you are trying click is called...
P
------------------------------
Date: Sun, 07 Oct 2007 08:23:56 -0000
From: Zazen <Zazen85@gmail.com>
Subject: Huge cgi!Help!
Message-Id: <1191745436.641842.283740@k79g2000hse.googlegroups.com>
Hi dude! I have an orrible trouble with this poor cgi: is a client
pop3 web based gateway.The function "connetti()" never been called and
i don't know why!!The functions in the bottom of the script
load,save,restore the state of the session by save the
user,pass,host,id in a file.if you try to execute the script all stop
when you click on the submit button.I'm italian so i apologize for the
bad english.
I hope there is a good soul who help me.
There is the code:
#!/usr/bin/perl -w
use Mail::POP3Client;
use CGI qw(:all);
#use CGIBook::Error;
#use HTML::Template;
local $MAX_FILES =3D 1000;
local $DATA_DIR =3D 'usr/lib/cgi-bin';
my $q =3D new CGI;
my $this_script_name =3D 'popGem.cgi';
my $id =3D get_id($q);
my $action =3D ( $q->param("action") ) || 'start';
if ( $action eq "start") {
start($q,$id);
}
if ( $action eq "connetti" ) {
connetti($q,$id);
}
sub start {
my ($q ,$id) =3D @_;
print
$q-> header(),
$q-> start_html(-title =3D> "PopGem pop3 web based reader"),
$q-> start_form(-action =3D> $this_script_name ,-method =3D>
"post"),
$q-> table(
{-border =3D> "1"},
$q->caption("PopGem pop3 web based reader!"),
$q->Tr(
$q-> th("Nome Utente:"),
$q-> th( textfield(-name =3D> "user_name",-size
=3D> "30") )
),
$q-> Tr(
$q-> th("Password:"),
$q-> th( password_field(-name =3D> "password",-
size =3D> "30") )
),
$q-> Tr(
$q-> th("Nome Server:"),
$q-> th( textfield(-name =3D> "domain_name",-
size =3D> "30") )
),
$q-> Tr(
$q-> th({-rowspan =3D> "2"},
$q-> submit(-value =3D> "connetti") )
),
$q->hidden(
-name =3D> "id",
-default =3D> $id,
-override =3D> 1
),
$q->hidden(
-name =3D> "action",
-default =3D> "connetti",
-override =3D> 1
)
),
$q-> end_form(),
$q-> end_html();
save_state($q);
}
sub connetti {
my ($q,$id) =3D @_;
my $user_name =3D param('user_name');
my $password =3D param('password');
my $domain_name =3D param('domani_name');
#per ogni messaggio che =E8 presente nella mailbox stampo una riga di
una tabella
#con le informazioni utili: mittente,oggetto,ecc...
my $pop =3D new Mail::POP3Client ( USER =3D> $user_name,
PASSWORD =3D> $password,
HOST =3D> $domain_name,
AUTH_MODE =3D> 'PASS' );
for ($i =3D 1; $i <=3D $pop->Count(); $i++) {
foreach my $message ( $pop->Head($i) ){
my $date =3D ($message =3D~ /^Date:\s+/i);
my $from =3D ($message =3D~ /^From:\s+/i);
my $to =3D ($message =3D~ /^To:\s+/i);
my $subject =3D ($message =3D~ /^Subject:\s+/i);
print $q-> header(),
$q-> start_html(-title =3D> "Ecco i messaggi"),
$q-> table(
{-border =3D> "1"},
$q->caption("Informazioni del messaggio $i:"),
$q->Tr(
$q-> th("Date:"),
$q-> th("From:"),
$q-> th("To:"),
$q-> th("Subject:")
),
$q->Tr(
$q-> th("$date"),
$q-> th("$from"),
$q-> th("$to"),
$q-> th("$subject")
)
),
$q-> end_html();
$q-> save_state($q);
}
}
}
sub get_id {
my $q =3D shift;
my $id;
my $unsafe_id =3D $q->param( "id" ) || '';
$unsafe_id =3D~ s/[^\dA-Fa-f]//g;
if ( $unsafe_id =3D~ /^(.+)$/ ) {
$id =3D $1;
load_state( $q, $id );
}
else {
$id =3D unique_id( );
$q->param( -name =3D> "id", -value =3D> $id );
}
return $id;
}
# Loads the current CGI object's default parameters from the saved
state
sub load_state {
my( $q, $id ) =3D @_;
my $saved =3D get_state( $id ) or return;
foreach ( $saved->param ) {
$q->param( $_ =3D> $saved->param($_) ) unless defined $q-
>param($_);
}
}
# Reads a saved CGI object from disk and returns its params as a hash
ref
sub get_state {
my $id =3D shift;
my $session =3D session_filename( $id );
local *FILE;
-e $session or return;
open FILE, $session or die "Cannot open $session: $!";
my $q_saved =3D new CGI( \*FILE ) or
error( $q, "Unable to restore saved state." );
close FILE;
return $q_saved;
}
# Saves the current CGI object to disk
sub save_state {
my $q =3D shift;
my $session =3D session_filename( $id );
local( *FILE, *DIR );
# Avoid DoS attacks by limiting the number of data files
my $num_files =3D 0;
opendir DIR, $DATA_DIR;
$num_files++ while readdir DIR;
closedir DIR;
# Compare the file count against the max
if ( $num_files > $MAX_FILES ) {
error( $q, "We cannot save your request because the directory
" .
"is full. Please try again later" );
}
# Save the current CGI object to disk
open FILE, ">> $session" or return die "Cannot write to $session:
$!";
$q->save( \*FILE );
close FILE;
}
# Separated from other code in case this changes in the future
sub session_filename {
my $id =3D shift;
return "/$DATA_DIR/$id";
}
sub unique_id {
# Use Apache's mod_unique_id if available
return $ENV{UNIQUE_ID} if exists $ENV{UNIQUE_ID};
require Digest::MD5;
my $md5 =3D new Digest::MD5;
my $remote =3D $ENV{REMOTE_ADDR} . $ENV{REMOTE_PORT};
# Note this is intended to be unique, and not unguessable
# It should not be used for generating keys to sensitive data
my $id =3D $md5->md5_base64( time, $$, $remote );
$id =3D~ tr|+/=3D|-_.|; # Make non-word chars URL-friendly
return $id;
}
------------------------------
Date: Sun, 07 Oct 2007 11:32:10 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Huge cgi!Help!
Message-Id: <4708a79b$0$5065$ba4acef3@news.orange.fr>
Zazen wrote:
> Hi dude! I have an orrible trouble with this poor cgi: is a client
> pop3 web based gateway.The function "connetti()" never been called and
> i don't know why!!The functions in the bottom of the script
> load,save,restore the state of the session by save the
> user,pass,host,id in a file.if you try to execute the script all stop
> when you click on the submit button.I'm italian so i apologize for the
> bad english.
> I hope there is a good soul who help me.
<snip>
> my $action = ( $q->param("action") ) || 'start';
>
> if ( $action eq "start") {
>
> start($q,$id);
>
> }
>
> if ( $action eq "connetti" ) {
>
> connetti($q,$id);
>
> }
<snip>
> $q->hidden(
> -name => "action",
> -default => "connetti",
> -override => 1
> )
Without doing a detailed analysis, you have a field whose name conflicts
with the attribute "action" on the form definition. This has bitten me
in the past. Call your hidden field "action" something else, eg "zaction".
my $action = ( $q->param("zaction") ) || 'start';
....
$q->hidden(
-name => "zaction",
-default => "connetti",
-override => 1
)
If you need more help with this I suggest you check out the posting
guidelines before posting again - it will maximize your chances of
getting assistance.
Mark
------------------------------
Date: Sun, 07 Oct 2007 10:11:04 -0000
From: Zazen <Zazen85@gmail.com>
Subject: Re: Huge cgi!Help!
Message-Id: <1191751864.976866.62490@o3g2000hsb.googlegroups.com>
I have try...but nothing.The error.log file of apache2 was the follow:
[Sun Oct 07 11:59:23 2007] [error] [client 127.0.0.1] Use of
uninitialized value in join or string at /usr/lib/perl/5.8/IO/Socket/
INET.pm line 83., referer: http://localhost/cgi-bin/popGem.cgi
[Sun Oct 07 11:59:23 2007] [error] [client 127.0.0.1] Use of
uninitialized value in concatenation (.) or string at /usr/local/share/
perl/5.8.8/Mail/POP3Client.pm line 387., referer: http://localhost/cgi-bin/popGem.cgi
[Sun Oct 07 11:59:23 2007] [error] [client 127.0.0.1] Premature end of
script headers: popGem.cgi, referer: http://localhost/cgi-bin/popGem.cgi
I have to go crazy with this poor script...
I don't know why the script don't run that function (the "connetti()"
sub).This is the problem of that "Premature end of script headers".But
about the other two line??
------------------------------
Date: Sun, 07 Oct 2007 12:48:02 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Huge cgi!Help!
Message-Id: <i9ehg3pnqs7bs9iji8vus3vvqqqunlvvde@4ax.com>
On Sun, 07 Oct 2007 11:32:10 +0200, Mark Clements
<mark.clementsREMOVETHIS@wanadoo.fr> wrote:
>> $q->hidden(
>> -name => "action",
>> -default => "connetti",
>> -override => 1
>> )
>Without doing a detailed analysis, you have a field whose name conflicts
>with the attribute "action" on the form definition. This has bitten me
>in the past. Call your hidden field "action" something else, eg "zaction".
Or, since he is Italian, "azione". It also will match better
"connetti", which is actually already in Italian.
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: Sun, 07 Oct 2007 13:05:51 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Huge cgi!Help!
Message-Id: <4708bd8f$0$27406$ba4acef3@news.orange.fr>
Zazen wrote:
> I have try...but nothing.The error.log file of apache2 was the follow:
>
> [Sun Oct 07 11:59:23 2007] [error] [client 127.0.0.1] Use of
> uninitialized value in join or string at /usr/lib/perl/5.8/IO/Socket/
> INET.pm line 83., referer: http://localhost/cgi-bin/popGem.cgi
> [Sun Oct 07 11:59:23 2007] [error] [client 127.0.0.1] Use of
> uninitialized value in concatenation (.) or string at /usr/local/share/
> perl/5.8.8/Mail/POP3Client.pm line 387., referer: http://localhost/cgi-bin/popGem.cgi
> [Sun Oct 07 11:59:23 2007] [error] [client 127.0.0.1] Premature end of
> script headers: popGem.cgi, referer: http://localhost/cgi-bin/popGem.cgi
>
> I have to go crazy with this poor script...
>
> I don't know why the script don't run that function (the "connetti()"
> sub).This is the problem of that "Premature end of script headers".But
> about the other two line??
>
You need to read the group posting guidelines.
However, you can try the following:
put "use strict;" at the top of your script and fix the resulting errors.
run the script from the command-line
put
use CGI::Carp qw(fatalsToBrowser);
at the top of your script. This may help you to better diagnose any
problems.
When I run the script, connetti *is* called, but the pop connection
isn't succeeding and you aren't testing for that. From the perldoc:
*State* The internal state of the connection: DEAD, AUTHORIZATION,
TRANSACTION.
so try checking $pop->State();
Mark
------------------------------
Date: Sun, 7 Oct 2007 09:53:51 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Load file into a hash
Message-Id: <pan.2007.10.07.07.50.42@rtij.nl.invlalid>
On Sat, 06 Oct 2007 21:36:40 +0000, Tad McClellan wrote:
> Martijn Lievaart <m@rtij.nl.invlalid> wrote:
>> On Sat, 06 Oct 2007 14:06:18 +0000, Brian McCauley wrote:
>
>
>>> my %hash = map { /(.*?)\t(.*)/ } <$fh>;
>
>
>> Doesn't that include the newline on any line in the second field?
>
>
> Which part of the regex can match those newlines?
You're right. '.' does not match newlines. Stupid me.
M4
------------------------------
Date: Sun, 7 Oct 2007 04:42:16 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Oct 7 2007
Message-Id: <JpIyEG.1MoF@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.
App-Cmd-0.009
http://search.cpan.org/~rjbs/App-Cmd-0.009/
write command line apps with less suffering
----
Atompub-0.2.1
http://search.cpan.org/~takeru/Atompub-0.2.1/
Atom Publishing Protocol implementation
----
CGI-Ex-2.19
http://search.cpan.org/~rhandom/CGI-Ex-2.19/
CGI utility suite - makes powerful application writing fun and easy
----
Catalyst-Plugin-CustomErrorMessage-0.01
http://search.cpan.org/~jkutej/Catalyst-Plugin-CustomErrorMessage-0.01/
Catalyst plugin to have more "cute" error message.
----
Catalyst-Plugin-Session-Store-DBI-0.12
http://search.cpan.org/~agrundma/Catalyst-Plugin-Session-Store-DBI-0.12/
Store your sessions in a database
----
Chart-Clicker-1.2.2
http://search.cpan.org/~gphat/Chart-Clicker-1.2.2/
Powerful, extensible charting.
----
Coro-4.0
http://search.cpan.org/~mlehmann/Coro-4.0/
coroutine process abstraction
----
Coro-4.01
http://search.cpan.org/~mlehmann/Coro-4.01/
coroutine process abstraction
----
Coro-4.02
http://search.cpan.org/~mlehmann/Coro-4.02/
coroutine process abstraction
----
Coro-4.03
http://search.cpan.org/~mlehmann/Coro-4.03/
coroutine process abstraction
----
Data-Bucket-0.01
http://search.cpan.org/~tbone/Data-Bucket-0.01/
indexed data store (bucket hashing)
----
Data-Bucket-0.02
http://search.cpan.org/~tbone/Data-Bucket-0.02/
indexed data store (bucket hashing)
----
Data-Remember-0.02
http://search.cpan.org/~hanenkamp/Data-Remember-0.02/
remember complex information without giving yourself a headache
----
Data-Remember-0.03
http://search.cpan.org/~hanenkamp/Data-Remember-0.03/
remember complex information without giving yourself a headache
----
Data-Remember-0.04
http://search.cpan.org/~hanenkamp/Data-Remember-0.04/
remember complex information without giving yourself a headache
----
DateTime-Format-Natural-0.54
http://search.cpan.org/~schubiger/DateTime-Format-Natural-0.54/
Create machine readable date/time with natural parsing logic
----
Devel-CheckOS-1.1
http://search.cpan.org/~dcantrell/Devel-CheckOS-1.1/
check what OS we're running on
----
Exception-Base-0.08
http://search.cpan.org/~dexter/Exception-Base-0.08/
Lightweight exceptions
----
HTML-DOM-0.008
http://search.cpan.org/~sprout/HTML-DOM-0.008/
A Perl implementation of the HTML Document Object Model
----
HTML-LinkChanger-2.4
http://search.cpan.org/~sergeyche/HTML-LinkChanger-2.4/
abstract Perl class to change all linking URLs in HTML.
----
HTML-TurboForm-0.03
http://search.cpan.org/~camelcase/HTML-TurboForm-0.03/
----
Hash-Dirty-0.01
http://search.cpan.org/~rkrimen/Hash-Dirty-0.01/
Keep track of whether a hash is dirty or not
----
IO-AIO-2.51
http://search.cpan.org/~mlehmann/IO-AIO-2.51/
Asynchronous Input/Output
----
IO-Async-0.09
http://search.cpan.org/~pevans/IO-Async-0.09/
a collection of modules that implement asynchronous filehandle IO
----
Kvasir-Writer-XML-0.01
http://search.cpan.org/~claesjac/Kvasir-Writer-XML-0.01/
Store Kvasir engine declarations as XML
----
Lingua-JA-Romaji-Valid-0.01
http://search.cpan.org/~ishigaki/Lingua-JA-Romaji-Valid-0.01/
see if the string is valid romanization
----
Lingua-JA-Romaji-Valid-0.02
http://search.cpan.org/~ishigaki/Lingua-JA-Romaji-Valid-0.02/
see if the string is valid romanization
----
Math-Counting-0.0703
http://search.cpan.org/~gene/Math-Counting-0.0703/
Combinatorial counting operations
----
Net-Z3950-PQF-0.04
http://search.cpan.org/~mirk/Net-Z3950-PQF-0.04/
Perl extension for parsing PQF (Prefix Query Format)
----
POE-Declarative-0.002
http://search.cpan.org/~hanenkamp/POE-Declarative-0.002/
write POE applications without the mess
----
POE-Declarative-0.003
http://search.cpan.org/~hanenkamp/POE-Declarative-0.003/
write POE applications without the mess
----
POE-Declarative-0.004
http://search.cpan.org/~hanenkamp/POE-Declarative-0.004/
write POE applications without the mess
----
Parse-Marpa-v0.1_8
http://search.cpan.org/~jkegl/Parse-Marpa-v0.1_8/
Earley's Algorithm, with improvements
----
Parse-Marpa-v0.1_9
http://search.cpan.org/~jkegl/Parse-Marpa-v0.1_9/
Earley's Algorithm, with improvements
----
Perl-Configure-0.06
http://search.cpan.org/~mschilli/Perl-Configure-0.06/
Answer perl's ./Configure questions reproducibly
----
PerlPoint-Package-0.451
http://search.cpan.org/~jstenzel/PerlPoint-Package-0.451/
----
SOAP-WSDL-1.26
http://search.cpan.org/~mkutter/SOAP-WSDL-1.26/
SOAP with WSDL support
----
SOAP-WSDL-2.00_17
http://search.cpan.org/~mkutter/SOAP-WSDL-2.00_17/
SOAP with WSDL support
----
SQL-Interp-1.02
http://search.cpan.org/~markstos/SQL-Interp-1.02/
Interpolate Perl variables into SQL statements
----
SVN-Pusher-0.04
http://search.cpan.org/~shlomif/SVN-Pusher-0.04/
Propagate changesets between two different svn repositories.
----
Sendmail_M4.0.27c
http://search.cpan.org/~cml/Sendmail_M4.0.27c/
----
Set-Scalar-0.00402
http://search.cpan.org/~jhi/Set-Scalar-0.00402/
the basic set operations for Perl scalar/reference data
----
Sort-ByExample-0.001
http://search.cpan.org/~rjbs/Sort-ByExample-0.001/
sort lists to look like the example you provide
----
Spreadsheet-Read-0.24
http://search.cpan.org/~hmbrand/Spreadsheet-Read-0.24/
Meta-Wrapper for reading spreadsheet data
----
Spreadsheet-WriteExcel-2.20
http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.20/
Write to a cross-platform Excel binary file.
----
Sys-Statistics-Linux-0.17
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.17/
Front-end module to collect system statistics
----
Sys-Statistics-Linux-0.18
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.18/
Front-end module to collect system statistics
----
Sys-Statistics-Linux-0.18_01
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.18_01/
Front-end module to collect system statistics
----
TAP-Formatter-TextMate-0.1
http://search.cpan.org/~andya/TAP-Formatter-TextMate-0.1/
Generate TextMate compatible test output
----
Template-Alloy-1.007
http://search.cpan.org/~rhandom/Template-Alloy-1.007/
TT2/3, HT, HTE, Tmpl, and Velocity Engine
----
Test-Dynamic-1.3.1
http://search.cpan.org/~turnstep/Test-Dynamic-1.3.1/
Automatic test counting for Test::More
----
Test-Filename-0.01
http://search.cpan.org/~dagolden/Test-Filename-0.01/
Portable filename comparison
----
Test-Filename-0.02
http://search.cpan.org/~dagolden/Test-Filename-0.02/
Portable filename comparison
----
Test-Harness-2.99_03
http://search.cpan.org/~andya/Test-Harness-2.99_03/
Run Perl standard test scripts with statistics
----
Test-More-Diagnostic-0.1
http://search.cpan.org/~andya/Test-More-Diagnostic-0.1/
Conditionally add YAML diagnostics to Test::More's output
----
Test-More-Diagnostic-0.2
http://search.cpan.org/~andya/Test-More-Diagnostic-0.2/
Conditionally add YAML diagnostics to Test::More's output
----
Test-Unit-Lite-0.05
http://search.cpan.org/~dexter/Test-Unit-Lite-0.05/
Unit testing without external dependencies
----
Time-HiRes-1.9708
http://search.cpan.org/~jhi/Time-HiRes-1.9708/
High resolution alarm, sleep, gettimeofday, interval timers
----
Tk-ObjEditor-2.006
http://search.cpan.org/~ddumont/Tk-ObjEditor-2.006/
Tk composite widget Obj editor
----
Tree-Simple-Manager-0.06
http://search.cpan.org/~stevan/Tree-Simple-Manager-0.06/
A class for managing multiple Tree::Simple hierarchies
----
WWW-Mixi-Scraper-0.08
http://search.cpan.org/~ishigaki/WWW-Mixi-Scraper-0.08/
yet another mixi scraper
----
WWW-Mooos-Scraper-0.02
http://search.cpan.org/~holly/WWW-Mooos-Scraper-0.02/
Mooos scraper module
----
Win32-GuiTest-1.52
http://search.cpan.org/~karasik/Win32-GuiTest-1.52/
Perl GUI Test Utilities.
----
Win32-GuiTest-1.53
http://search.cpan.org/~karasik/Win32-GuiTest-1.53/
Perl GUI Test Utilities.
----
Win32-Mock-0.01
http://search.cpan.org/~saper/Win32-Mock-0.01/
Mock Win32 modules
----
Win32-Mock-0.02
http://search.cpan.org/~saper/Win32-Mock-0.02/
Mock Win32 modules
----
XML-API-0.15
http://search.cpan.org/~mlawren/XML-API-0.15/
Perl extension for writing XML
----
cPanel-MemTest-0.0.2
http://search.cpan.org/~dmuey/cPanel-MemTest-0.0.2/
Test Memory Allocation
----
relative-0.01
http://search.cpan.org/~saper/relative-0.01/
Load modules with relative names
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: Sun, 07 Oct 2007 03:49:21 +0200
From: Larry <dontmewithme@got.it>
Subject: Re: passing $fd as a reference
Message-Id: <dontmewithme-4BC57B.03492007102007@news.tin.it>
In article <1191666246.122474.313690@50g2000hsm.googlegroups.com>,
Brian McCauley <nobull67@gmail.com> wrote:
> In what way does it not work?
it was my fault, now it's working great...
------------------------------
Date: Sat, 06 Oct 2007 23:32:13 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: perl join on a non printable variable character ?
Message-Id: <13ggs1sc2fltf72@corp.supernews.com>
On 10/06/2007 04:48 PM, Jack wrote:
>
> Thanks but still dont have an answer to the question - thanks for all
> the other pointers, but how do I change my code to join on the
> argument I passed in - specifically on the join call if possible.
>
> Thanks in advance, Jack
>
The delimiter needs to be converted before use. If you don't mind
cheating, you could do this:
$delimiter = eval("\"$delimiter\"");
(Mumia ducks)
Okay, sorry about that. "Eval" is evil I know. You could also do this:
$delimiter =~ s/^\\//;
$delimiter = chr oct $delimiter;
However, that can't deal with delimiters specified in hex on the command
line.
------------------------------
Date: Sun, 07 Oct 2007 12:31:32 -0000
From: Amir <sting.t2@gmail.com>
Subject: print a number in hex
Message-Id: <1191760292.525081.171610@g4g2000hsf.googlegroups.com>
Hi,
I have a variable let's say $address, I would like to print it , but
in its Hex value and not Decimal, how can I do it?
thanks a lot !
-Amir
------------------------------
Date: Sun, 07 Oct 2007 07:45:49 -0500
From: Don Piven <spamtrap@piven.net>
Subject: Re: print a number in hex
Message-Id: <r5ednQ2ykOdhSZXanZ2dnUVZ_gqdnZ2d@speakeasy.net>
Amir wrote:
> Hi,
> I have a variable let's say $address, I would like to print it , but
> in its Hex value and not Decimal, how can I do it?
printf and sprintf are your friends.
------------------------------
Date: Sun, 07 Oct 2007 13:07:16 GMT
From: lhb@nowhere.com
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <Xns99C252D1319CElhb123@140.99.99.130>
Wildemar Wildenburger <lasses_weil@klapptsowieso.net> wrote in
news:47016899$0$4524$9b4e6d93@newsspool3.arcor-online.net:
> While I agree that the word "free" implies "free of monetary cost" to
> many people societies, that is by no means set in stone (talk to native
> americans, blacks, jews, palestinians, etc. about the word free, see
> what they have to say).
Words are defined by popular usage. In popular usage, the meaning of free
as an adjective depends on the context. If the adjective is applied to
people, it means the opposite of slavery or imprisonment. If it's applied
to something other than people, it means free as in beer.
For example, a dog with no owner, wandering freely (adverb), would not be
called a free dog (adjective), to mean possessing freedom. Free dog means
free as in beer. Likewise, in popular usage, free software means free as
in beer. People who use it with a different meaning are vainly trying to
change its meaning. But the meanings of words can't be arbitrarily
changed, just by dictating different meanings. The meaning has to be
adopted by popular usage, which free-as-in-GPL software has not been.
Therefore, I propose, using dog freedom as our logic, we call it stray
software.
------------------------------
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 913
**************************************
