[28969] in Perl-Users-Digest
Perl-Users Digest, Issue: 213 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 10 09:10:25 2007
Date: Sat, 10 Mar 2007 06:09:07 -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 Sat, 10 Mar 2007 Volume: 11 Number: 213
Today's topics:
Re: ${{ foo => bar, baz => faz }}{ baz } <john@castleamber.com>
Re: ${{ foo => bar, baz => faz }}{ baz } <bik.mido@tiscalinet.it>
Re: Array Ref Error (correction, addition) <see.sig@rochester.rr.com>
Re: Array Ref Error (correction, addition) <spamtrap@dot-app.org>
Re: Array Ref Error <see.sig@rochester.rr.com>
Re: Convert IEEE single from integer representation <see.sig@rochester.rr.com>
Re: Convert IEEE single from integer representation <1usa@llenroc.ude.invalid>
Re: Convert IEEE single from integer representation <nospam-abuse@ilyaz.org>
Re: Dumping Perl tie hash file <hjp-usenet2@hjp.at>
Re: How get cell count and match total column value <sahoo.byomokesh@gmail.com>
Re: How get cell count and match total column value <tadmc@augustmail.com>
Re: How get cell count and match total column value <bik.mido@tiscalinet.it>
Re: net::ssh and functions <usaims@yahoo.com>
new CPAN modules on Sat Mar 10 2007 (Randal Schwartz)
Re: odd behavior between Guitest and rcmd on windows <Mark.Seger@hp.com>
problem cgi <john.swilting@wanadoo.fr>
Re: problem cgi <john.swilting@wanadoo.fr>
Reading from a serial port <michal.golunski@gmail.com>
Sending an incomplete file? burak@stolenradio.com
Re: Sending an incomplete file? burak@stolenradio.com
Re: Sending an incomplete file? <tadmc@augustmail.com>
Re: Splitting a filename <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Mar 2007 05:27:59 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <Xns98EEEEB60FD0castleamber@130.133.1.4>
"Mons" <inthrax@gmail.com> wrote:
> On Mar 9, 2:48 am, John Bokma <j...@castleamber.com> wrote:
>>
>> my $value =
>>
>> ( $type eq '...' ) ? '...'
>> : ( $type eq '...' ) ? '...'
>> :
>>
> Using this way you must retype variable name ($type) again and again.
That's why I wrote
"But if you want one out of many? I don't like:"
above it, which you didn't quote.
> The only application of conditional statements is, I think, greater
> perfomance, but it should be tested.
Readability first, otherwise I wouldn't be programming in Perl as much as
I do now.
--
John
Blue: out of the blue
http://johnbokma.com/mexit/2005/01/06/
------------------------------
Date: Sat, 10 Mar 2007 13:56:29 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: ${{ foo => bar, baz => faz }}{ baz }
Message-Id: <jda5v2lgcvpurddm1fkdecf4kd9cji83dn@4ax.com>
On Fri, 09 Mar 2007 18:19:15 +0100, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
>>with making it truly a slice is the multilevel problem. you can slice at
>>the bottom most level with no problem but what does it mean at higher
>>levels? you would need to create a deep data structure on the fly and it
>>couldn't be used for anything but returning it (via a ref). perl6 does
>
>Hmmm, sounds like a convincing explanation. Hadn't tought of that, of
>course.
Thinking of it better, the same problems affects $aref->[$n,$m],
although in that case there wasn't the same ambiguity. Given that
"multilevel" hashes are an obsolete feature anyway, and are obsoleted
exactly by real refs, then I would consider $href->{$foo,$bar} to be
more intuitively representing a slice. However inutitivity like
trea^Wbeauty is in the eye of the beholder...
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, 10 Mar 2007 00:37:19 -0500
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Array Ref Error (correction, addition)
Message-Id: <45f24410$0$24759$4c368faf@roadrunner.com>
Bob Walton wrote:
> doni wrote:
> You are attempting to use a "feature" of Perl called "symbolic
> references". Read about them in
>
> perldoc perldata
Correction:
perldoc perlref
>
> This is a BAD idea. That's why "use strict;" complains about it. You
> could remove
>
> use strict;
>
> from your program, or add
>
> no strict "refs";
>
> and symbolic references would be permitted.
Addition: Symbolic references do not work on lexical variables (which
it appears that you are using -- those are the variables declared with
my() ). The symbolic reference mechanism only works on package
variables ("globals").
But what you should do
> instead is to place your array references in a hash that has keys of the
> same names as the array references. Then refer to them as something
> like @{$hash{$segment}}. This way you've go the entire namespace of
...
>> doni
>>
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sat, 10 Mar 2007 08:55:56 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Array Ref Error (correction, addition)
Message-Id: <m2ps7hdwyb.fsf@local.wv-www.com>
Bob Walton <see.sig@rochester.rr.com> writes:
> Bob Walton wrote:
>> doni wrote:
>
>> You are attempting to use a "feature" of Perl called "symbolic
>> references". Read about them in
>>
>> perldoc perldata
>
> Correction:
>
> perldoc perlref
Also:
perldoc perlreftut
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 10 Mar 2007 00:24:13 -0500
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Array Ref Error
Message-Id: <45f240fd$0$16682$4c368faf@roadrunner.com>
doni wrote:
> Hi,
> I am having some problem with ARRAY ref in my test program.
> The test program contains multiple arrays to extract the data from the
> output based upon certain conditions. I am also extracting an user
> input to a variable where the user is expected to input any one of the
> array names existing
> in the program.
> When I am trying to pass the user input variable to a subroutine as an
> initialized array, I am getting this error message: Can't use string
> ("junk") as an ARRAY ref while "strict refs".
>
> Actually, what I am expecting to do is have the user input an already
> existing array name in the program and pass that array name to a
> subroutine.
You are attempting to use a "feature" of Perl called "symbolic
references". Read about them in
perldoc perldata
This is a BAD idea. That's why "use strict;" complains about it. You
could remove
use strict;
from your program, or add
no strict "refs";
and symbolic references would be permitted. But what you should do
instead is to place your array references in a hash that has keys of the
same names as the array references. Then refer to them as something
like @{$hash{$segment}}. This way you've go the entire namespace of
%hash available for array reference names, and no possible conflicts
with variable names used for other purposes. And strict will be happy.
HTH.
...
> doni
>
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Fri, 09 Mar 2007 23:52:46 -0500
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: Convert IEEE single from integer representation
Message-Id: <45f2399e$0$1369$4c368faf@roadrunner.com>
A. Sinan Unur wrote:
I suggest:
use strict;
use warnings;
while ( my $line = <DATA> ) {
my $hex;
($hex)=$line=~/:((?: [[:xdigit:]]{4}){8})/;
$hex=~s/ //g;
while($hex=~s/([[:xdigit:]]{8})//){
my $str=$1;
my $float=unpack 'f',reverse pack 'H8',$str;
print "$str : $float\n";
}
}
__DATA__
0000420: 4016 2933 3f1b 739a be86 8200 c00d c853 @.)3?.s........S
0000430: bf18 7633 404a 3eba bfc5 b34d 3ea3 00a7 ..v3@J>....M>...
0000440: bfae 1e10 3e30 8d00 bfa0 02da bfb9 2bed ....>0........+.
0000450: 3f33 66da bfbc 9b4d 3fa3 c200 c088 cd93 ?3f....M?.......
0000460: 40f2 5e4a 4005 5407 c086 b92a bf61 5f8a @.^J@.T....*.a_.
0000470: bf2a 75da 3f5d 2a4d bf9a 1373 bfbd 475a .*u.?]*M...s..GZ
> Sinan
HTH.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sat, 10 Mar 2007 05:41:53 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Convert IEEE single from integer representation
Message-Id: <Xns98EF717D7F9Dasu1cornelledu@127.0.0.1>
Bob Walton <see.sig@rochester.rr.com> wrote in news:45f2399e$0$1369
$4c368faf@roadrunner.com:
> A. Sinan Unur wrote:
[ snipped by Bob ]
> I suggest:
>
> use strict;
> use warnings;
> while ( my $line = <DATA> ) {
> my $hex;
> ($hex)=$line=~/:((?: [[:xdigit:]]{4}){8})/;
> $hex=~s/ //g;
> while($hex=~s/([[:xdigit:]]{8})//){
> my $str=$1;
> my $float=unpack 'f',reverse pack 'H8',$str;
> print "$str : $float\n";
> }
> }
...
>
> HTH.
Well, this certainly does help (at least in those cases where I can
assume the platform's internal format for representing floats matches
the IEEE format).
In my original problem the file contained the binary representations
(that is, not the hex dump I included in my post, but the actual bytes).
So, I got rid of the ieee_single_from_int function, replaced the calls
with:
my $in = unpack V => substr $$record_ref, 32 + 4 * $month, 4;
my $out = unpack f => pack H8 => sprintf '%8.8x', $in;
given that $$record_ref contains the actual bytes rather than hex chars.
Thank you for showing me this. It does, of course rely on the platform
specific f doing the right thing but since I am only using this to
convert files for my own use, I don't think that will be a problem.
Sinan
------------------------------
Date: Sat, 10 Mar 2007 12:07:48 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Convert IEEE single from integer representation
Message-Id: <esu72k$2i7$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
A. Sinan Unur
<1usa@llenroc.ude.invalid>], who wrote in article <Xns98EF717D7F9Dasu1cornelledu@127.0.0.1>:
> Well, this certainly does help (at least in those cases where I can
> assume the platform's internal format for representing floats matches
> the IEEE format).
Keep in mind that there is no such thing as "an IEEE format". IEEE
requires a certain *semantic* of floats, not a particular way of
binary representation. However, IIRC, all but 2 architechtures use
one of two representations, related to each other as V is to N
(pack-parlance).
Hope this helps,
Ilya
------------------------------
Date: Sat, 10 Mar 2007 13:28:35 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Dumping Perl tie hash file
Message-Id: <slrnev593j.ttc.hjp-usenet2@yoyo.hjp.at>
On 2007-03-10 01:17, Eric <ecarlson@vmware.com> wrote:
>> Do you need to preserve the information in the existing file, or can you
>> just change the script to use a human readable format?
>
> I initially misunderstood the requirements. It turns out that the
> database itself needs to be in text format. This is going to take a
> lot more effort than I intially thought. Someone pointed out that
> MLDBM is not the way to go about accomplishing this, and suggested
> trying things such as SQLite. I'm going to have start investigating
> this.
SQLite isn't in "text format", either. No database system designed to
efficiently search and update data of more than a few megabytes uses a
(human editable) text format.
If your data is smaller, your best way is probably to use XML or YAML
(or maybe even CSV if your data is simple enough) and always read and
write the complete file.
If it is larger you may want to consider ways of getting around the text
format requirement, for example by providing import and export routines
to some text format.
hp
--
_ | Peter J. Holzer | Blaming Perl for the inability of programmers
|_|_) | Sysadmin WSR | to write clearly is like blaming English for
| | | hjp@hjp.at | the circumlocutions of bureaucrats.
__/ | http://www.hjp.at/ | -- Charlton Wilbur in clpm
------------------------------
Date: 9 Mar 2007 21:42:04 -0800
From: "Rahul" <sahoo.byomokesh@gmail.com>
Subject: Re: How get cell count and match total column value
Message-Id: <1173505324.851047.272740@p10g2000cwp.googlegroups.com>
On Mar 9, 5:26 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> On 9 Mar 2007 00:39:58 -0800, "Rahul" <sahoo.byomok...@gmail.com>
> wrote:
>
> >I am trying to cell count and match in tgroup cols value in XML file
> >(through perl). if cell count and tgrou cols value is mismatch, its
> >showing error.
>
> >My xml
> >--------------
> ><tgroup cols="3">
> ><colspec colnum="1" colname="col1"/>
> ><colspec colnum="2" colname="col2"/>
> ><colspec colnum="3" colname="col3"/>
> ><tbody>
>
> This is not your complete xml. Show us a minimal adaptation of it.
> Show us also what output you would expect. Better yet: show us what
> you've tried thus far and how it fails to work. Without knowing these
> details, I may point you to some xml parsing module. If the xml is not
> huge and you want something simple, you can try XML::Simple. Otherwise
> someone will know better than me.
>
> 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,
Thanks for reply. Yes i am trying to column count and compare tgroup
cols value. I have a huge xml file. thats why i was not added here. I
want to catch if tgroup cols="3" colspace(column) should be 3. If
colspace should be 4 then showing parse error.
my pl
------
$tmp=0;
print "Enter the filename: ";
chomp($ram=<STDIN>);
open(RED,"$ram.xml");
open(MAD,">$ram.err");
print "WAIT! CHECKING IS IN PROGRESS ..... .....\n";
$cols=0;
while(<RED>)
{
$cou++;
if(/[.,:;!]<\/title>/)
{
print MAD "LINE No. $cou: Trailing punctuations found before </title>
\n";
}
if(/[.,:;?!]<\/mono>/)
{
print MAD "LINE No. $cou: Trailing punctuations found before </mono>
\n";
}
}
close(RED);
close(MAD);
-------------
I am confused how define tgroup cols value and count in
colspace(column) then it is not matching in tgroup cols value, should
be showing error msg. Value is not constant. Because so many tables in
XML files. All tables column is different. If table is 5 column,
tgroup cols="5".
I hope you understand.
Byomokesh
------------------------------
Date: Sat, 10 Mar 2007 07:05:16 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How get cell count and match total column value
Message-Id: <slrnev5b8c.i0m.tadmc@tadmc30.august.net>
Rahul <sahoo.byomokesh@gmail.com> wrote:
> On Mar 9, 5:26 pm, Michele Dondi <bik.m...@tiscalinet.it> wrote:
>> On 9 Mar 2007 00:39:58 -0800, "Rahul" <sahoo.byomok...@gmail.com>
>> wrote:
>>
>> >My xml
>> >--------------
>> ><tgroup cols="3">
>> ><colspec colnum="1" colname="col1"/>
>> ><colspec colnum="2" colname="col2"/>
>> ><colspec colnum="3" colname="col3"/>
>> ><tbody>
>>
>> This is not your complete xml. Show us a minimal adaptation of it.
> I have a huge xml file. thats why i was not added here.
Nobody asked for you huge xml file.
Somebody asked for a minimal adaptation of it.
That is, copy and paste (don't retype) just enough to illustrate
the problem that you are trying to solve.
Have you seen the Posting Guidelines that are posted here frequently?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 10 Mar 2007 14:30:12 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How get cell count and match total column value
Message-Id: <2sa5v2prqp57drq33139j4cgm801q7nslv@4ax.com>
On 9 Mar 2007 21:42:04 -0800, "Rahul" <sahoo.byomokesh@gmail.com>
wrote:
>> --
>> {$_=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,
You did better than top-posting, but you'd better go further and trim
down the quoted material to the relevant parts you're commenting only.
In particular you should strip .sig's, well, unless you want to
discuss them, that is.
>Thanks for reply. Yes i am trying to column count and compare tgroup
>cols value. I have a huge xml file. thats why i was not added here. I
That's why I suggested you to take it and edit it to a bare minimum
still having the charachteristics you need to show what you want.
>want to catch if tgroup cols="3" colspace(column) should be 3. If
>colspace should be 4 then showing parse error.
>
>my pl
>------
No
use strict; # nor
use warnings; # too bad!
(The rationale being: ask perl to give you all the help it can, by
restricting your freedom in ways that will help you to prevent common
programming mistakes.)
>$tmp=0;
Unused variable, and probably no need to initialize it if it were
used.
>print "Enter the filename: ";
>chomp($ram=<STDIN>);
>open(RED,"$ram.xml");
Bareword FH, two-args and unckecked open().
BTW: So is $ram the filename or *part* of it?
>open(MAD,">$ram.err");
Ditto.
>print "WAIT! CHECKING IS IN PROGRESS ..... .....\n";
>$cols=0;
Other unused variable.
>while(<RED>)
>{
>$cou++;
Awkward indenting, bad style.
>if(/[.,:;!]<\/title>/)
Attempt at manual XML parsing with regexen: bad! Use some XML parsing
module instead.
>
>{
> print MAD "LINE No. $cou: Trailing punctuations found before </title>
So $cou is for counting lines... don't! Just use $. instead. Read
about it in
perldoc perlvar
BTW: warning would better go to STDERR, possibly through the dedicated
warn() function.
>if(/[.,:;?!]<\/mono>/)
>
>{
> print MAD "LINE No. $cou: Trailing punctuations found before </mono>
>\n";
Ditto as above.
>close(RED);
>close(MAD);
And then?!? I see no attempt at all at checking what you claimed to be
wanting to check.
>I am confused how define tgroup cols value and count in
>colspace(column) then it is not matching in tgroup cols value, should
>be showing error msg. Value is not constant. Because so many tables in
>XML files. All tables column is different. If table is 5 column,
>tgroup cols="5".
>
>I hope you understand.
Sort of. Without having a *sample* of your actual XML file (not the
whole of it), hard to give even a bare example. But IF the xml is as
regular as the snippet you showed in the last post, then something
just as rude as the following *may* work:
#!/usr/bin/perl
use strict;
use warnings;
while (<>) {
if (/<tgroup\s+cols\s*=\s*"(\d+)">/) {
my ($expected, $found)=$1;
$found++ while <>=~/<colspec/;
warn "Expected $expected cols, found $found at line $.\n"
unless $expected==$found;
}
}
__END__
PLEASE NOTE THAT THIS IS ADMITTEDLY BAD ADVICE AND IF YOU THINK OF
USING SOMETHING LIKE THIS ON A REGULAR BASIS, THEN IT'S LIKELY TO BITE
YOU IN THE NECK.
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: 10 Mar 2007 04:54:38 -0800
From: "usaims" <usaims@yahoo.com>
Subject: Re: net::ssh and functions
Message-Id: <1173531278.822586.104150@t69g2000cwt.googlegroups.com>
On Mar 9, 6:02 pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
wrote:
> usaims wrote:
> > Hello:
>
> > This is my objective. I'm trying to ssh into a linux node, open a file
> > and display the contents on my terminal, below is the code. I'm
> > getting the following error:
> > bash: -c: line 1: syntax error near unexpected token `0x91134c8'
> > bash: -c: line 1: `CODE(0x91134c8)'
>
> > Does anybody have a clue?
> > ########################################
> > #!/usr/bin/perl -w
> > use warnings;
> > use strict;
> > use Net::SSH qw(ssh issh sshopen2 sshopen3);
> > my $variable = \&FUNCTION;
>
> > ssh('someu...@xxx.xxx.xxx', $variable );
>
> > sub FUNCTION {
> > open(FILE, "/stuff/log.txt");
> > print FILE;
> > }
> > ########################################
>
> You'd be better off using the supported methods, which are well documented.
>
> ssh('user@hostname', $command);
>
> $command is a scalar. e.g. my $command = '/bin/ls /tmp';- Hide quoted text -
>
> - Show quoted text -
Thanks, but I need a function there so I can do multiple things while
I'm ssh-ed into the node.
------------------------------
Date: Sat, 10 Mar 2007 05:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Mar 10 2007
Message-Id: <JEoAIA.1yIu@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-Hyde-0.03
http://search.cpan.org/~nozzzzz/Acme-Hyde-0.03/
Hyde Calculator
----
Algorithm-RectanglesContainingDot-0.01
http://search.cpan.org/~salva/Algorithm-RectanglesContainingDot-0.01/
find rectangles containing a given dot
----
Algorithm-RectanglesContainingDot-0.02
http://search.cpan.org/~salva/Algorithm-RectanglesContainingDot-0.02/
find rectangles containing a given dot
----
Algorithm-RectanglesContainingDot_XS-0.01
http://search.cpan.org/~salva/Algorithm-RectanglesContainingDot_XS-0.01/
XS implementation of Algorithm::RectanglesContainingDot
----
Alien-GvaScript-1.01
http://search.cpan.org/~dami/Alien-GvaScript-1.01/
Gva extension to the prototype javascript framework
----
Alzabo-0.90
http://search.cpan.org/~drolsky/Alzabo-0.90/
A data modelling tool and RDBMS-OO mapper
----
Archive-ZZip-0.13
http://search.cpan.org/~vspader/Archive-ZZip-0.13/
Perl bindings for zziplib.
----
Array-Utils-0.1
http://search.cpan.org/~zmij/Array-Utils-0.1/
small utils for array manipulation
----
Array-Utils-0.2
http://search.cpan.org/~zmij/Array-Utils-0.2/
small utils for array manipulation
----
Bio-Grep-v0.1.0
http://search.cpan.org/~limaone/Bio-Grep-v0.1.0/
Perl extension for searching in Fasta files
----
CAS-0.89
http://search.cpan.org/~seanq/CAS-0.89/
Central Authorization Server
----
Catalyst-Action-REST-0.40
http://search.cpan.org/~holoway/Catalyst-Action-REST-0.40/
Automated REST Method Dispatching
----
Catalyst-Log-Log4perl-0.50
http://search.cpan.org/~holoway/Catalyst-Log-Log4perl-0.50/
Log::Log4perl logging for Catalyst
----
Chart-Clicker-1.1.6
http://search.cpan.org/~gphat/Chart-Clicker-1.1.6/
Powerful, extensible charting.
----
DBIx-InsertHash-0.01
http://search.cpan.org/~uvoelker/DBIx-InsertHash-0.01/
insert/update a database record from a hash
----
DBIx-MoCo-0.07
http://search.cpan.org/~jkondo/DBIx-MoCo-0.07/
Light & Fast Model Component
----
DBIx-Web-0.67
http://search.cpan.org/~makarow/DBIx-Web-0.67/
Active Web Database Layer
----
Data-Validate-0.07
http://search.cpan.org/~sonnen/Data-Validate-0.07/
common data validation methods
----
Exception-NoException-0.06
http://search.cpan.org/~jjore/Exception-NoException-0.06/
An exception object that's always false.
----
File-FilterFuncs-0.52_11
http://search.cpan.org/~mumiaw/File-FilterFuncs-0.52_11/
specify filter functions for files
----
File-Next-0.40
http://search.cpan.org/~petdance/File-Next-0.40/
File-finding iterator
----
Geo-Point-0.05
http://search.cpan.org/~markov/Geo-Point-0.05/
a point on the globe
----
Geo-Proj4-0.98
http://search.cpan.org/~markov/Geo-Proj4-0.98/
PROJ.4 cartographic projections library
----
HTML-TreeBuilder-Select-0.11
http://search.cpan.org/~rkrimen/HTML-TreeBuilder-Select-0.11/
Traverse a HTML tree using CSS selectors
----
Hash-Path-0.01
http://search.cpan.org/~izut/Hash-Path-0.01/
A simple way to return a path of HoH
----
IO-Async-0.03
http://search.cpan.org/~pevans/IO-Async-0.03/
a collection of modules that implement asynchronous filehandle IO
----
Kwiki-IRCMode-0.301
http://search.cpan.org/~rjbs/Kwiki-IRCMode-0.301/
colorized IRC conversations in your Kwiki
----
Lemonldap-NG-Handler-0.76
http://search.cpan.org/~guimard/Lemonldap-NG-Handler-0.76/
The Apache protection module part of Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Manager-0.51
http://search.cpan.org/~guimard/Lemonldap-NG-Manager-0.51/
Perl extension for managing Lemonldap::NG Web-SSO system.
----
Lemonldap-NG-Portal-0.64
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.64/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
Math-Polygon-0.96
http://search.cpan.org/~markov/Math-Polygon-0.96/
Class for maintaining polygon data
----
Mediawiki-POD-0.03
http://search.cpan.org/~tels/Mediawiki-POD-0.03/
convert POD to HTML suitable for a MediaWiki wiki
----
MooseX-Getopt-0.01
http://search.cpan.org/~stevan/MooseX-Getopt-0.01/
A Moose role for processing command line options
----
Net-Frame-Layer-OSPF-1.00_01
http://search.cpan.org/~gomor/Net-Frame-Layer-OSPF-1.00_01/
Open Shortest Path First layer object
----
Net-LibLO-0.06
http://search.cpan.org/~njh/Net-LibLO-0.06/
Perl interface for liblo Lightweight OSC library
----
Net-RTP-0.08
http://search.cpan.org/~njh/Net-RTP-0.08/
Send and receive RTP packets (RFC3550)
----
Net-YAR-1.063
http://search.cpan.org/~rhandom/Net-YAR-1.063/
Perl interface to the YAR (Yet Another Registrar) API
----
POE-Component-Cron-0.017
http://search.cpan.org/~cfedde/POE-Component-Cron-0.017/
Schedule POE Events using a cron spec
----
POE-Component-MessageQueue-0.1.1
http://search.cpan.org/~dsnopek/POE-Component-MessageQueue-0.1.1/
A POE message queue that uses STOMP for the communication protocol
----
Parse-QTEDI-0.01_05
http://search.cpan.org/~dongxu/Parse-QTEDI-0.01_05/
Parse QT/KDE preprocessed headers
----
Parse-QTEDI-0.01_06
http://search.cpan.org/~dongxu/Parse-QTEDI-0.01_06/
Parse QT/KDE preprocessed headers
----
Roman-1.20
http://search.cpan.org/~chorny/Roman-1.20/
Perl module for conversion between Roman and Arabic numerals.
----
SAP-Rfc-1.55
http://search.cpan.org/~piers/SAP-Rfc-1.55/
SAP RFC - RFC Function calls against an SAP R/3 System
----
Sash-1.0
http://search.cpan.org/~wbailey/Sash-1.0/
----
Sash-Plugin-VerticalResponse-1.0
http://search.cpan.org/~wbailey/Sash-Plugin-VerticalResponse-1.0/
----
Subtitles-0.09
http://search.cpan.org/~karasik/Subtitles-0.09/
fix timing for subtitles in various text formats
----
Sys-Manage-0.55
http://search.cpan.org/~makarow/Sys-Manage-0.55/
Systems management commands/scripts environment
----
Term-Clui-1.39
http://search.cpan.org/~pjb/Term-Clui-1.39/
Perl module offering a Command-Line User Interface
----
UNIVERSAL-Acme-0.01
http://search.cpan.org/~seano/UNIVERSAL-Acme-0.01/
Because it's a METHOD, hoser.
----
UNIVERSAL-ref-0.06
http://search.cpan.org/~jjore/UNIVERSAL-ref-0.06/
Turns ref() into a multimethod
----
Win32-SystemInfo-0.10
http://search.cpan.org/~cjohnston/Win32-SystemInfo-0.10/
Memory and Processor information on Win32 systems
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: Sat, 10 Mar 2007 07:44:46 -0500
From: Mark Seger <Mark.Seger@hp.com>
Subject: Re: odd behavior between Guitest and rcmd on windows
Message-Id: <esu983$r0m$1@usenet01.boi.hp.com>
A. Sinan Unur wrote:
> Mark Seger <Mark.Seger@hp.com> wrote in news:essaso$lsa$1@usenet01.boi.hp.com:
>
>> I have a testing environment that is set up in such a way that after
>> logging into the PC, a window is displayed that waits for the user to
>> hit the ENTER key and then automaticall starts running a canned set of
>> tests. This system also has rcmd set up on it for doing various mgmt
>> tasks such as rebooting it. What I'd like to do is use rcmd to
>> remotely run a local program that sends the ENTER to the system and so
>> remotely start the tests running.
>
> You should not assume that everyone knows what rcmd is. According to
>
> http://www.microsoft.com/technet/archive/winntas/support/advtshoot/x0a_tool.mspx?mfr=true
>
> it allows you to interact with a Windows service that allows you to
> run commands remotely on a computer.
>
> AFAIK, services don't automatically have the right to interact with the
> desktop.
>
> For your script, started using rcmd, to be able to interact with the
> desktop, you'll need to set it up that way.
>
> I don't know much about how to do that and as such this is not a Perl
> problem.
>
> You might find useful information at
>
> http://support.microsoft.com/kb/327618
>
> Sinan
Thanks, Sinan. I thought you might reply to me since I had originally
found some reponses you had made to a different poster on how to use
GuiTest. 8-)
Good suggestion about trying microsoft though I'm not hopeful as I
suspect it's real users who can help - but maybe a microsoft newsgroup
is the way to do. Meanwhile I can also use GuiTest to move the mouse to
a specific screen location, essentially putting it over the OK button,
and doing a mouse click. That may help, though I'm not really fond of it.
-mark
------------------------------
Date: Sat, 10 Mar 2007 11:23:37 +0100
From: "john.swilting" <john.swilting@wanadoo.fr>
Subject: problem cgi
Message-Id: <45f2872a$0$5083$ba4acef3@news.orange.fr>
I continue my order for the site of sale of paintings for my friend
I already posted several questions about the cgi one has to bring aide.i to
me seeks to apply the councils that one me a gives
I do not post the totality of the script.I post only what does not go
I obtain the following error
Unrecognized character \xC2 at /var/www/cgi-bin/vente0.02.cgi line 15.
my code:
#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
my %params;
my $cgi;
$cgi = new CGI;
%params = $cgi->Vars;
print header,start_html('Commande'),h1('Bon de Commande'),start_form;
   for my $key (sort keys %params) {
    print "The value for $key is '$params{$key}'\n",br;
##it is in thispart there that there is the problem but I cannot find it
   }
print submit,end_form,end_html;
------------------------------
Date: Sat, 10 Mar 2007 13:17:56 +0100
From: <john.swilting@wanadoo.fr>
Subject: Re: problem cgi
Message-Id: <45f2a1fa$0$27369$ba4acef3@news.orange.fr>
I recopied the pod and I think that my loop for on the hash functions
"john.swilting" <john.swilting@wanadoo.fr> a écrit dans le message de news:
45f2872a$0$5083$ba4acef3@news.orange.fr...
>I continue my order for the site of sale of paintings for my friend
> I already posted several questions about the cgi one has to bring aide.i
> to
> me seeks to apply the councils that one me a gives
> I do not post the totality of the script.I post only what does not go
> I obtain the following error
> Unrecognized character \xC2 at /var/www/cgi-bin/vente0.02.cgi line 15.
>
> my code:
> #!/usr/bin/perl -w
> use diagnostics;
> use strict;
> use CGI qw(:standard escapeHTML);
> use CGI::Carp qw(fatalsToBrowser);
>
> my %params;
> my $cgi;
>
> $cgi = new CGI;
> %params = $cgi->Vars;
>
> print header,start_html('Commande'),h1('Bon de Commande'),start_form;
>
> for my $key (sort keys %params) {
> print "The value for $key is '$params{$key}'\n",br;
> ##it is in thispart there that there is the problem but I cannot find it
> }
>
> print submit,end_form,end_html;
>
------------------------------
Date: 10 Mar 2007 05:01:14 -0800
From: "michal.golunski@gmail.com" <michal.golunski@gmail.com>
Subject: Reading from a serial port
Message-Id: <1173531674.381106.253110@n33g2000cwc.googlegroups.com>
How can I read data from a serial port under Perl + Linux? I tried to
use Device::SerialPort but constructor isn't working for me, and when
i tried to run it as a root there was a getattr error.
So are there any other methods to connect to serial port, set
databits, parity and so on and transfer data?
------------------------------
Date: 9 Mar 2007 22:05:16 -0800
From: burak@stolenradio.com
Subject: Sending an incomplete file?
Message-Id: <1173506716.717110.163420@64g2000cwx.googlegroups.com>
I apologize in advance if this is off-topic (it may not be a Perl
question, it could be an HTTP thing? I'm not sure though, that's why
I'm asking... so please don't flame me!).
Regarding sending a binary file through perl. I assume this is one of
the many ways to do it:
print "Content-type: application/octet-stream\n\n";
open (FILE, "<foo.bar");
binmode(FILE);
print <FILE>;
close (FILE);
BUT, if the file is incomplete when this action occurs, the above code
sends only what's there when you open the file, and the download ends
abruptly. Err that's probably not too descriptive, so here's an
example of what I want to do:
Let's say I have some perl code to generate a very large binary file,
hundreds of megabytes or so. And let's say this code is pretty slow,
so it takes some time to generate this file. I'd like to start sending
the file to the user (as a download) before the file is generated
completely. If the download is faster than the file creation, I'd like
the download to sort of.. wait for the file to be completed. So lets
say the file is supposed to be 200 mb large, and so far the script has
only generated 100mb. Your download runs quickly, and you hit the 100
mb mark pretty quickly. Normally, the download would end there and you
have only half the file. How can i make this download wait until the
file is officially "done" (ie, reached 200 mb)? Is this a perl thing
or a browser thing? (I've looked a lot into the http headers for the
download; while there is a filesize parameter, this seems to be only
for convenience sake, and doesn't force the download to continue until
that filesize has been reached.)
I hope I've made this question significantly clear and I really hope
this is the correct group to post at. If not, please direct me to the
correct place. I try not to piss of the regulars :)
PS I realize that the normal solution to this problem would just be
"send the file when it's complete, duh" but that's not what I'm going
for. I want the user to start downloading the file as soon as it
starts being generated...
Thanks in advance
------------------------------
Date: 10 Mar 2007 00:24:40 -0800
From: burak@stolenradio.com
Subject: Re: Sending an incomplete file?
Message-Id: <1173515080.836265.39210@j27g2000cwj.googlegroups.com>
On Mar 10, 1:05 am, b...@stolenradio.com wrote:
> I apologize in advance if this is off-topic (it may not be a Perl
> question, it could be an HTTP thing? I'm not sure though, that's why
> I'm asking... so please don't flame me!).
>
> Regarding sending a binary file through perl. I assume this is one of
> the many ways to do it:
>
> print "Content-type: application/octet-stream\n\n";
> open (FILE, "<foo.bar");
> binmode(FILE);
> print <FILE>;
> close (FILE);
>
> BUT, if the file is incomplete when this action occurs, the above code
> sends only what's there when you open the file, and the download ends
> abruptly. Err that's probably not too descriptive, so here's an
> example of what I want to do:
>
> Let's say I have some perl code to generate a very large binary file,
> hundreds of megabytes or so. And let's say this code is pretty slow,
> so it takes some time to generate this file. I'd like to start sending
> the file to the user (as a download) before the file is generated
> completely. If the download is faster than the file creation, I'd like
> the download to sort of.. wait for the file to be completed. So lets
> say the file is supposed to be 200 mb large, and so far the script has
> only generated 100mb. Your download runs quickly, and you hit the 100
> mb mark pretty quickly. Normally, the download would end there and you
> have only half the file. How can i make this download wait until the
> file is officially "done" (ie, reached 200 mb)? Is this a perl thing
> or a browser thing? (I've looked a lot into the http headers for the
> download; while there is a filesize parameter, this seems to be only
> for convenience sake, and doesn't force the download to continue until
> that filesize has been reached.)
>
> I hope I've made this question significantly clear and I really hope
> this is the correct group to post at. If not, please direct me to the
> correct place. I try not to piss of the regulars :)
>
> PS I realize that the normal solution to this problem would just be
> "send the file when it's complete, duh" but that's not what I'm going
> for. I want the user to start downloading the file as soon as it
> starts being generated...
>
> Thanks in advance
Nevermind guys, I figured out a way to make it work. It always happens
that whenever I post a question on Usenet, I figure it out within the
hour. How bizarre.
------------------------------
Date: Sat, 10 Mar 2007 07:14:39 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Sending an incomplete file?
Message-Id: <slrnev5bpv.i0m.tadmc@tadmc30.august.net>
burak@stolenradio.com <burak@stolenradio.com> wrote:
> On Mar 10, 1:05 am, b...@stolenradio.com wrote:
>> BUT, if the file is incomplete when this action occurs, the above code
>> sends only what's there when you open the file, and the download ends
>> abruptly.
> Nevermind guys, I figured out a way to make it work.
The newsgroup is all about sharing.
Care to share they way to make it work, or the root cause of the problem?
> It always happens
> that whenever I post a question on Usenet, I figure it out within the
> hour. How bizarre.
If it always happens, then it cannot also be bizarre. :-)
You are not alone, that happens to everybody.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 10 Mar 2007 13:50:28 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Splitting a filename
Message-Id: <4h95v29h483njh8qdhtngr9pp3jna817v9@4ax.com>
On 10 Mar 2007 00:02:42 GMT, anno4000@radom.zrz.tu-berlin.de wrote:
>It's not entirely equivalent, however. The sub body is parsed as
>
> return ( /\./ ? /^(.*)(\..*)$/ : $_), '' for shift;
That's what I thought, too. Then before risking of being too ashamed
after posting, I did some tests *before*: funnily enough I checked
with
my ($name, $ext) = parsename $_;
and it worked as expected, just by throwing away spurious '', thus
somewhat to my own surprise I wrongly concluded that it did the right
altogether. Had I checked with -MO=Deparse,-p I would have known
better.
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: 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 213
**************************************
