[28843] in Perl-Users-Digest
Perl-Users Digest, Issue: 87 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 30 03:06:29 2007
Date: Tue, 30 Jan 2007 00:05: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 Tue, 30 Jan 2007 Volume: 11 Number: 87
Today's topics:
Data::Dumper not indenting per perldocs usenet@DavidFilmer.com
Re: Data::Dumper not indenting per perldocs <uri@stemsystems.com>
Help with syntax <kramer.newsreader@gmail.com>
Re: Help with syntax <kenslaterpa@hotmail.com>
Re: Help with syntax <kramer.newsreader@gmail.com>
Re: Help with syntax <glex_no-spam@qwest-spam-no.invalid>
Re: Help with syntax <someone@example.com>
Re: how to flush a file <jgibson@mail.arc.nasa.gov>
Re: how to flush a file <jgibson@mail.arc.nasa.gov>
Re: how to flush a file <blgl@stacken.kth.se>
Re: how to flush a file <abigail@abigail.be>
new CPAN modules on Tue Jan 30 2007 (Randal Schwartz)
Re: Tar on Windows XP <sisyphus1@nomail.afraid.com>
Re: Win32::OLE problem with iTunes SelectedPlaylist zf78ro002@sneakemail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Jan 2007 18:35:20 -0800
From: usenet@DavidFilmer.com
Subject: Data::Dumper not indenting per perldocs
Message-Id: <1170124520.630847.271450@l53g2000cwa.googlegroups.com>
According to perldoc Data::Dumper:
$Data::Dumper::Indent or $OBJ->Indent([NEWVAL])
Controls the style of indentation. It can be set to 0,
1, 2 or 3.... Style 2 (the default) outputs a very
readable form which takes into account the length of
hash keys (so the hash value lines up).
However, when I run this program:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 2; #no diff if I comment this out
my %hash = qw{ this_is_a_long_hash_key long
short_key, short };
print Dumper \%hash;
__END__
I do not observe that the hash values line up:
$VAR1 = {
'this_is_a_long_hash_key' => 'long',
'short_key,' => 'short'
};
Why are the values not aligned? Thanks!
(Perl 5.8.4 on AIX 5.3 in a plain tty)
------------------------------
Date: Mon, 29 Jan 2007 22:20:10 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Data::Dumper not indenting per perldocs
Message-Id: <x7irepryj9.fsf@mail.sysarch.com>
>>>>> "u" == usenet <usenet@DavidFilmer.com> writes:
u> According to perldoc Data::Dumper:
u> $Data::Dumper::Indent or $OBJ->Indent([NEWVAL])
u> Controls the style of indentation. It can be set to 0,
u> 1, 2 or 3.... Style 2 (the default) outputs a very
u> readable form which takes into account the length of
u> hash keys (so the hash value lines up).
u> use Data::Dumper;
u> $Data::Dumper::Indent = 2; #no diff if I comment this out
since style 2 is the default, of course there won't be any difference.
u> my %hash = qw{ this_is_a_long_hash_key long
u> short_key, short };
u> print Dumper \%hash;
u> I do not observe that the hash values line up:
u> $VAR1 = {
u> 'this_is_a_long_hash_key' => 'long',
u> 'short_key,' => 'short'
u> };
u> Why are the values not aligned? Thanks!
i would call that a doc bug. it seems to only want to align the keys and
then use a fixed spacing after the =>. i tried this variant and it shows
that more clearly.
my %hash = (
this_is_a_long_hash_key => 'long',
subhash => { x => 2, anotherverylongkey => 3 },
short_key => 'short' ) ;
print Dumper \%hash;
$VAR1 = {
'this_is_a_long_hash_key' => 'long',
'short_key' => 'short',
'subhash' => {
'anotherverylongkey' => 3,
'x' => 2
}
};
This is perl, v5.8.6 built for sun4-solaris
when it is set to 1 i get this:
$VAR1 = {
'this_is_a_long_hash_key' => 'long',
'short_key' => 'short',
'subhash' => {
'anotherverylongkey' => 3,
'x' => 2
}
};
so you can see that with indent = 2 that the subhash is indented beyond
the 'subhash' key. i think that is what they meant by hash values -
deeper hashes. scalars just get printed with a space after =>.
when i go deeper this pattern keeps up:
$VAR1 = {
'this_is_a_long_hash_key' => 'long',
'short_key' => 'short',
'subhash' => {
'anotherverylongkey' => {
'y' => 4
},
'x' => 2
}
};
it is accounting for key length but only when deeper nesting happens. so
i would say the docs could be clearer on this point.
when i want fancier output than data::dumper i will roll my own
sometimes. or you can write a postprocessing filter to clean up the
indent to your taste.
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: 29 Jan 2007 15:35:29 -0800
From: "kramer31" <kramer.newsreader@gmail.com>
Subject: Help with syntax
Message-Id: <1170113729.215282.308410@a75g2000cwd.googlegroups.com>
Hi. I used perl a few years ago and found it to be wonderfully
powerful, but I don't have my old code (it's proprietary) and I seem
to have forgotten some of the subtelties of the language including how
to use references properly ... I'm using strict here to help catch
some of these subtle errors at compile time.
Anyway, can someone look at the code and tell me what the *bleep* I'm
doing wrong here?
#!/usr/bin/perl -w
use strict;
sub checkDir {
my $curDir = $_[0];
my %files = %{$_[1]};
my $file;
chdir($curDir);
my @directories;
my @listing=`ls`;
my $fileType;
my $myDir = `pwd`;
foreach $file (@listing) {
print "list: $file";
$fileType=`file $file`;
if($fileType =~ /directory/) {
print "Added to directory\n";
push @directories, $file;
}
else {
if($fileType !~ /symbolic/) {
print "regular file\n"
if(! exists $files{ $file }) { #b
my @tmpArray;
$files{ $file } = \@tmpArray;
}
push @{ $files{ $file } }, $myDir; #a
}
}
}
}
my $curDir = `pwd`;
my %files = ();
checkDir($curDir, \%files);
#end of code
The error at line labeled # a is:
"my" variable %files masks earlier declaration in same scope
The error at line labeled #b is:
syntax error
Any help would be much appreciated.
------------------------------
Date: 29 Jan 2007 16:20:21 -0800
From: "kens" <kenslaterpa@hotmail.com>
Subject: Re: Help with syntax
Message-Id: <1170116421.075462.58050@a34g2000cwb.googlegroups.com>
On Jan 29, 6:35 pm, "kramer31" <kramer.newsrea...@gmail.com> wrote:
> Hi. I used perl a few years ago and found it to be wonderfully
> powerful, but I don't have my old code (it's proprietary) and I seem
> to have forgotten some of the subtelties of the language including how
> to use references properly ... I'm using strict here to help catch
> some of these subtle errors at compile time.
>
> Anyway, can someone look at the code and tell me what the *bleep* I'm
> doing wrong here?
>
> #!/usr/bin/perl -w
> use strict;
>
> sub checkDir {
> my $curDir = $_[0];
> my %files = %{$_[1]};
> my $file;
>
> chdir($curDir);
>
> my @directories;
> my @listing=`ls`;
> my $fileType;
> my $myDir = `pwd`;
>
> foreach $file (@listing) {
> print "list: $file";
> $fileType=`file $file`;
> if($fileType =~ /directory/) {
> print "Added to directory\n";
> push @directories, $file;
> }
> else {
> if($fileType !~ /symbolic/) {
> print "regular file\n"
> if(! exists $files{ $file }) { #b
> my @tmpArray;
> $files{ $file } = \@tmpArray;
> }
>
> push @{ $files{ $file } }, $myDir; #a
>
> }
> }
> }
>
> }my $curDir = `pwd`;
> my %files = ();
>
> checkDir($curDir, \%files);
>
> #end of code
>
> The error at line labeled # a is:
> "my" variable %files masks earlier declaration in same scope
>
> The error at line labeled #b is:
> syntax error
>
> Any help would be much appreciated.
Put a semicolon at the end of this line:
print "regular file\n"
HTH, Ken
------------------------------
Date: 29 Jan 2007 16:29:53 -0800
From: "kramer31" <kramer.newsreader@gmail.com>
Subject: Re: Help with syntax
Message-Id: <1170116993.010936.288660@h3g2000cwc.googlegroups.com>
Wow. Thanks a lot. I can't believe I posted a semicolon question to
the newsgroup. I should remember that line number error don't always
refer to the exact line where the error is.
Thanks again.
On Jan 29, 4:20 pm, "kens" <kenslate...@hotmail.com> wrote:
> On Jan 29, 6:35 pm, "kramer31" <kramer.newsrea...@gmail.com> wrote:
>
>
>
> > Hi. I used perl a few years ago and found it to be wonderfully
> > powerful, but I don't have my old code (it's proprietary) and I seem
> > to have forgotten some of the subtelties of the language including how
> > to use references properly ... I'm using strict here to help catch
> > some of these subtle errors at compile time.
>
> > Anyway, can someone look at the code and tell me what the *bleep* I'm
> > doing wrong here?
>
> > #!/usr/bin/perl -w
> > use strict;
>
> > sub checkDir {
> > my $curDir = $_[0];
> > my %files = %{$_[1]};
> > my $file;
>
> > chdir($curDir);
>
> > my @directories;
> > my @listing=`ls`;
> > my $fileType;
> > my $myDir = `pwd`;
>
> > foreach $file (@listing) {
> > print "list: $file";
> > $fileType=`file $file`;
> > if($fileType =~ /directory/) {
> > print "Added to directory\n";
> > push @directories, $file;
> > }
> > else {
> > if($fileType !~ /symbolic/) {
> > print "regular file\n"
> > if(! exists $files{ $file }) { #b
> > my @tmpArray;
> > $files{ $file } = \@tmpArray;
> > }
>
> > push @{ $files{ $file } }, $myDir; #a
>
> > }
> > }
> > }
>
> > }my $curDir = `pwd`;
> > my %files = ();
>
> > checkDir($curDir, \%files);
>
> > #end of code
>
> > The error at line labeled # a is:
> > "my" variable %files masks earlier declaration in same scope
>
> > The error at line labeled #b is:
> > syntax error
>
> > Any help would be much appreciated.Put a semicolon at the end of this line:
> print "regular file\n"
>
> HTH, Ken
------------------------------
Date: Mon, 29 Jan 2007 18:36:43 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Help with syntax
Message-Id: <45be92b1$0$502$815e3792@news.qwest.net>
kramer31 wrote:
> Wow. Thanks a lot. I can't believe I posted a semicolon question to
> the newsgroup. I should remember that line number error don't always
> refer to the exact line where the error is.
FYI: Take a look at File::Find. You could do the same thing with only
a few lines of code, using that module.
------------------------------
Date: Tue, 30 Jan 2007 01:39:42 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Help with syntax
Message-Id: <ylxvh.90$Oa.39@edtnps82>
kramer31 wrote:
> Hi. I used perl a few years ago and found it to be wonderfully
> powerful, but I don't have my old code (it's proprietary) and I seem
> to have forgotten some of the subtelties of the language including how
> to use references properly ... I'm using strict here to help catch
> some of these subtle errors at compile time.
>
>
> Anyway, can someone look at the code and tell me what the *bleep* I'm
> doing wrong here?
>
> #!/usr/bin/perl -w
> use strict;
>
> sub checkDir {
> my $curDir = $_[0];
> my %files = %{$_[1]};
You are copying the entire hash to a hash that is only visible inside this
subroutine so why not just pass the whole hash in the first place:
checkDir( $curDir, %files );
And then copy it to your lexical hash inside the sub:
sub checkDir {
my ( $curDir, %files ) = @_;
If you intended to modify the other hash %files from inside the subroutine
then you need to use the reference instead of making a copy:
my %files;
checkDir( $curDir, \%files );
sub checkDir {
my ( $curDir, $files ) = @_;
# ...
# modify $files->{ $file }
}
> my $file;
>
> chdir($curDir);
>
> my @directories;
> my @listing=`ls`;
You would be better off using opendir/readdir or glob instead of an external
command. BTW, backquotes return "lines" which end in newlines which have to
be removed if you want the actual file names.
> my $fileType;
> my $myDir = `pwd`;
>
> foreach $file (@listing) {
> print "list: $file";
> $fileType=`file $file`;
You would be better off using stat/lstat instead of an external command.
> if($fileType =~ /directory/) {
> print "Added to directory\n";
> push @directories, $file;
@directories is local in scope to the subroutine and you are not using it
anywhere else?
> }
> else {
> if($fileType !~ /symbolic/) {
> print "regular file\n"
^
As was pointed out, the semicolon is missing there.
> if(! exists $files{ $file }) { #b
> my @tmpArray;
> $files{ $file } = \@tmpArray;
> }
That test and assignment is superfluous because perl uses autovivification.
> push @{ $files{ $file } }, $myDir; #a
>
> }
> }
> }
> }
>
> my $curDir = `pwd`;
> my %files = ();
>
> checkDir($curDir, \%files);
>
> #end of code
>
> The error at line labeled # a is:
> "my" variable %files masks earlier declaration in same scope
>
> The error at line labeled #b is:
> syntax error
>
> Any help would be much appreciated.
#!/usr/bin/perl
use warnings;
use strict;
use Cwd;
my $curDir = cwd;
opendir my $dh, $curDir or die "Cannot open '$curDir' $!";
my %files;
while ( my $file = readdir $dh ) {
lstat "$curDir/$file" or die "Cannot stat '$curDir/$file' $!";
!-d _ && !-l _ && push @{ $files{ $file } }, $curDir;
}
__END__
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Mon, 29 Jan 2007 15:40:48 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: how to flush a file
Message-Id: <290120071540480925%jgibson@mail.arc.nasa.gov>
In article <slrnerpr5o.tcf.abigail@alexandra.abigail.be>, Abigail
<abigail@abigail.be> wrote:
> Uri Guttman (uri@stemsystems.com) wrote on MMMMDCCCXCVIII September
> MCMXCIII in <URL:news:x7odojuhs2.fsf@mail.sysarch.com>:
> !! >>>>> "A" == Abigail <abigail@abigail.be> writes:
> !!
> !! A> Tad McClellan (tadmc@augustmail.com) wrote on MMMMDCCCXCVIII September
> !! A> MCMXCIII in <URL:news:slrnerpmio.8io.tadmc@tadmc30.august.net>:
> !! A> && Data Cruncher <dcruncher4@aim.com> wrote:
> !! A> &&
> !! A> && > How do I flush it.
> !! A> &&
> !! A> &&
> !! A> && perldoc -q flush
> !! A> &&
> !! A> && How do I flush/unbuffer an output filehandle? Why must I
> do this?
> !!
> !! A> To be fair to the OP, this FAQ only explains how to unbuffer the
> handle.
> !! A> It doesn't explain how to flush a filehandle.
> !!
> !! A> I have to say, flushing a filehandle in Perl is unintuitive, awkward
> !! A> and phrone to do it while doing unintended side-effects. And,
> amazingly,
> !! A> it only takes one line in C.
> !!
> !! that is because you (and the rest of this thread) are confusing
> !! autoflushing (setting $|) with actual flushing which can be done with
> !! the flush call in IO::Handle. it used to be fflush in POSIX but that
> !! refers to IO::Handle now. so for older perls look for fflush in POSIX.
> !! setting $| may not be a desirable thing as it will flush for each
> !! print.
>
> Hmm, clearly you haven't been reading what I wrote. I did point how to use
> $| for flushing correctly, and I did point out how to use IO::Handle for it.
But nowhere in the documentation does it say that setting auto-flush
mode for a filehandle results in an immediate flush of that filehandle.
It seems to, but is not documented well if at all:
#!/usr/local/bin/perl
use strict;
use warnings;
print STDERR "Printing a's to STDOUT:\n";
print "a"x10;
print STDERR "Sleeping...\n";
sleep(10);
print STDERR "Waking and printing \\n:\n";
print "\n";
print STDERR "Printing b's to STDOUT:\n";
print "b"x10;
print STDERR "Sleeping...\n";
sleep(10);
print STDERR "Waking and setting STDOUT to auto-flush\n";
$| = 1;
print STDERR "\nSleeping ...\n";
sleep(10);
print STDERR "Waking and printing \\n:\n";
print "\n";
__OUTPUT__
Printing a's to STDOUT:
Sleeping...
Waking and printing \n:
aaaaaaaaaa
Printing b's to STDOUT:
Sleeping...
Waking and setting STDOUT to auto-flush
bbbbbbbbbb
Sleeping ...
Waking and printing \n:
The 'a's get printed when the \n is printed. The 'b's get printed when
$| is set to one:
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Mon, 29 Jan 2007 15:50:27 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: how to flush a file
Message-Id: <290120071550275652%jgibson@mail.arc.nasa.gov>
In article <slrnerpm88.tcf.abigail@alexandra.abigail.be>, Abigail
<abigail@abigail.be> wrote:
> Dr.Ruud (rvtol+news@isolution.nl) wrote on MMMMDCCCXCVIII September
> MCMXCIII in <URL:news:epinj6.1hs.1@news.isolution.nl>:
> ^^ Data Cruncher schreef:
> ^^
> ^^ > My process writes to the log file. I want to periodically flush it so
> ^^ > that tail -f on the the log file shows the progress on a regular
> ^^ > basis.
> ^^
> ^^ This is from `perldoc -f select`:
> ^^
> ^^ $oldfh = select(STDERR); $| = 1; select($oldfh);
>
> Well, that will flush STDERR but it has the effect of leaving it unbuffered.
> Which may not be what the OP wants. I'd write it as:
I was under the impression that STDERR was always auto-flushed. I know
that this is the case for C++, and I had assumed that it was also true
for Perl.
Contrast the behavior of:
perl -e 'while(1){print STDERR "a";sleep(1);}'
with
perl -e '$|++;while(1){print "a";sleep(1);}'
and
perl -e 'while(1){print "a";sleep(1);}'
The first and second produce a steady string of 'a's, while the third
never produces anything (unless you wait a really long time I am
assuming, as I never waited long enough for anything to be printed).
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Tue, 30 Jan 2007 07:23:58 +0100
From: Bo Lindbergh <blgl@stacken.kth.se>
Subject: Re: how to flush a file
Message-Id: <epmo9u$kfg$1@news.su.se>
In article <290120071540480925%jgibson@mail.arc.nasa.gov>,
Jim Gibson <jgibson@mail.arc.nasa.gov> wrote:
> But nowhere in the documentation does it say that setting auto-flush
> mode for a filehandle results in an immediate flush of that filehandle.
But perldoc perlvar says:
> $| If set to nonzero, forces a flush right away and after every
> write or print on the currently selected output channel.
What part of that sentence is unclear?
/Bo Lindbergh
------------------------------
Date: 30 Jan 2007 06:49:12 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: how to flush a file
Message-Id: <slrnertqj1.tcf.abigail@alexandra.abigail.be>
Jim Gibson (jgibson@mail.arc.nasa.gov) wrote on MMMMDCCCXCIX September
MCMXCIII in <URL:news:290120071550275652%jgibson@mail.arc.nasa.gov>:
\\ In article <slrnerpm88.tcf.abigail@alexandra.abigail.be>, Abigail
\\ <abigail@abigail.be> wrote:
\\
\\ > Dr.Ruud (rvtol+news@isolution.nl) wrote on MMMMDCCCXCVIII September
\\ > MCMXCIII in <URL:news:epinj6.1hs.1@news.isolution.nl>:
\\ > ^^ Data Cruncher schreef:
\\ > ^^
\\ > ^^ > My process writes to the log file. I want to periodically flush it so
\\ > ^^ > that tail -f on the the log file shows the progress on a regular
\\ > ^^ > basis.
\\ > ^^
\\ > ^^ This is from `perldoc -f select`:
\\ > ^^
\\ > ^^ $oldfh = select(STDERR); $| = 1; select($oldfh);
\\ >
\\ > Well, that will flush STDERR but it has the effect of leaving it unbuffered.
\\ > Which may not be what the OP wants. I'd write it as:
\\
\\ I was under the impression that STDERR was always auto-flushed. I know
\\ that this is the case for C++, and I had assumed that it was also true
\\ for Perl.
On Unix, it is. But you can unbuffer it. However, STDERR was used here
as an example. It's the setting for $| that's important here, not the
file handle it's acting upon.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: Tue, 30 Jan 2007 05:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Jan 30 2007
Message-Id: <JCo2IB.Io6@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.
Algorithm-MedianSelect-XS-0.18
http://search.cpan.org/~schubiger/Algorithm-MedianSelect-XS-0.18/
Median finding algorithm
----
Apache2-AutoIndex-XSLT-0.03
http://search.cpan.org/~nicolaw/Apache2-AutoIndex-XSLT-0.03/
XSLT Based Directory Listings
----
CGI-Cookie-Splitter-0.02
http://search.cpan.org/~nuffin/CGI-Cookie-Splitter-0.02/
Split big cookies into smaller ones.
----
Catalyst-Plugin-Upload-Digest-0.01
http://search.cpan.org/~avar/Catalyst-Plugin-Upload-Digest-0.01/
Compute digest of uploads with Digest
----
Color-Fade-0.01
http://search.cpan.org/~kirsle/Color-Fade-0.01/
Perl extension for fading text colors.
----
Crypt-SSLeay-0.53_02
http://search.cpan.org/~dland/Crypt-SSLeay-0.53_02/
OpenSSL glue that provides LWP https support
----
Digest-Whirlpool-1.0.5
http://search.cpan.org/~avar/Digest-Whirlpool-1.0.5/
A 512-bit, collision-resistant, one-way hash function
----
Etk-Perl-0.06
http://search.cpan.org/~leviathan/Etk-Perl-0.06/
----
ExtUtils-ParseXS-2.18
http://search.cpan.org/~kwilliams/ExtUtils-ParseXS-2.18/
converts Perl XS code into C code
----
GPS-SpaceTrack-0.10
http://search.cpan.org/~mrdvt/GPS-SpaceTrack-0.10/
Package for calculating the position of GPS satellites
----
GPS-SpaceTrack-0.11
http://search.cpan.org/~mrdvt/GPS-SpaceTrack-0.11/
Package for calculating the position of GPS satellites
----
Geo-Google-0.03
http://search.cpan.org/~allenday/Geo-Google-0.03/
Perform geographical queries using Google Maps
----
HTML-Template-2.9
http://search.cpan.org/~samtregar/HTML-Template-2.9/
Perl module to use HTML Templates from CGI scripts
----
HTML-Tested-JavaScript-0.04
http://search.cpan.org/~bosu/HTML-Tested-JavaScript-0.04/
JavaScript enabled HTML::Tested widgets.
----
Module-Build-PM_Filter-0.5
http://search.cpan.org/~vmoral/Module-Build-PM_Filter-0.5/
Add a PM_Filter feature to Module::Build
----
Module-Build-PM_Filter-0.6
http://search.cpan.org/~vmoral/Module-Build-PM_Filter-0.6/
Add a PM_Filter feature to Module::Build
----
Module-Pluggable-3.5
http://search.cpan.org/~simonw/Module-Pluggable-3.5/
automatically give your module the ability to have plugins
----
Net-Appliance-Session-0.13
http://search.cpan.org/~oliver/Net-Appliance-Session-0.13/
Run command-line sessions to network appliances
----
POE-Component-Client-Lingr-0.01
http://search.cpan.org/~miyagawa/POE-Component-Client-Lingr-0.01/
POE chat component for Lingr.com
----
POE-Component-Client-Lingr-0.02
http://search.cpan.org/~miyagawa/POE-Component-Client-Lingr-0.02/
POE chat component for Lingr.com
----
POE-Component-Client-Lingr-0.03
http://search.cpan.org/~miyagawa/POE-Component-Client-Lingr-0.03/
POE chat component for Lingr.com
----
POE-Component-Server-Echo-1.50
http://search.cpan.org/~bingos/POE-Component-Server-Echo-1.50/
a POE component implementing a RFC 862 Echo server.
----
POE-Component-Server-IRC-1.09
http://search.cpan.org/~bingos/POE-Component-Server-IRC-1.09/
a fully event-driven networkable IRC server daemon module.
----
POE-Component-Server-SimpleHTTP-1.16
http://search.cpan.org/~bingos/POE-Component-Server-SimpleHTTP-1.16/
Perl extension to serve HTTP requests in POE.
----
Pod-ProjectDocs-0.31
http://search.cpan.org/~lyokato/Pod-ProjectDocs-0.31/
generates CPAN like pod pages
----
SNMP-Persist-0.04
http://search.cpan.org/~anias/SNMP-Persist-0.04/
The SNMP pass_persist threaded backend
----
Test-TAP-Model-0.07
http://search.cpan.org/~nuffin/Test-TAP-Model-0.07/
Accessible (queryable, serializable object) result collector for Test::Harness::Straps runs.
----
Test-TempDatabase-0.1
http://search.cpan.org/~bosu/Test-TempDatabase-0.1/
temporary database creation and destruction.
----
Test-YAML-Valid-0.01
http://search.cpan.org/~jrockway/Test-YAML-Valid-0.01/
Test for valid YAML
----
WWW-FleXtel-0.01
http://search.cpan.org/~nicolaw/WWW-FleXtel-0.01/
Manipulate FleXtel phone number redirection
----
Web-Passwd-0.02
http://search.cpan.org/~evank/Web-Passwd-0.02/
Web-based htpasswd Management
----
WebService-Basecamp-0.1.4
http://search.cpan.org/~davidb/WebService-Basecamp-0.1.4/
Perl interface to the Basecamp API webservice
----
WebService-Kizasi-v0.1.0
http://search.cpan.org/~daiba/WebService-Kizasi-v0.1.0/
A Perl Interface for the Kizasi Web Services
----
WebService-Lingr-0.01
http://search.cpan.org/~miyagawa/WebService-Lingr-0.01/
Low-level Lingr Chat API
----
WebService-Lingr-0.02
http://search.cpan.org/~miyagawa/WebService-Lingr-0.02/
Low-level Lingr Chat API
----
Wiimote-0.01
http://search.cpan.org/~tempalte/Wiimote-0.01/
----
XML-Compile-0.13
http://search.cpan.org/~markov/XML-Compile-0.13/
Compilation based XML processing
----
XML-Tiny-1.01
http://search.cpan.org/~dcantrell/XML-Tiny-1.01/
simple lightweight parser for a subset of XML
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: Tue, 30 Jan 2007 15:17:40 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.com>
Subject: Re: Tar on Windows XP
Message-Id: <45bec765$0$9776$afc38c87@news.optusnet.com.au>
"David Walker" <david@cs.cf.ac.uk> wrote in message
news:Gxuvh.18350$8j7.13192@newsfe1-win.ntli.net...
> Hi
>
> I am trying to create a tar archive on Windows XP with the Perl code
> below. However, when I look at the archive created (using WinZip 10.0) all
> the directory information is lost, and when I untar it using WinZip all I
> get is all the files in the same directory. Can some kind person please
> tell me how I can create the tar file so that when it is untar'd the
> directory structure will be preserved.
>
From the "FAQ" section in 'perldoc Archive::Tar' :
-- quote --
I'm using WinZip, or some other non-POSIX client, and files are not
being extracted properly!
By default, "Archive::Tar" is in a completely POSIX-compatible mode,
which uses the POSIX-specification of "tar" to store files. For
paths greather than 100 characters, this is done using the "POSIX
header prefix". Non-POSIX-compatible clients may not support this
part of the specification, and may only support the "GNU Extended
Header" functionality. To facilitate those clients, you can set the
$Archive::Tar::DO_NOT_USE_PREFIX variable to "true". See the "GLOBAL
VARIABLES" section for details on this variable.
-- end quote --
Hopefully, that deals with the problem you're facing. (If not, let us know -
and also tell us which version of Archive::Tar you have.).)
Cheers,
Rob
------------------------------
Date: Mon, 29 Jan 2007 20:30:49 -0500
From: zf78ro002@sneakemail.com
Subject: Re: Win32::OLE problem with iTunes SelectedPlaylist
Message-Id: <tq7tr2pdllasktu5c31rpfp7qi39odjc9i@4ax.com>
I figured it out; I had to use Win32::OLE::LetProperty as follows:
my $tmp_playlist = $iTunes->CreatePlaylist("Temporary Playlist $$");
$iTunes->BrowserWindow->LetProperty(SelectedPlaylist, $tmp_playlist);
I'm still curious WHY this works, but the other method didn't!
------------------------------
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 87
*************************************
