[28846] in Perl-Users-Digest
Perl-Users Digest, Issue: 90 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 31 11:06:16 2007
Date: Wed, 31 Jan 2007 08: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 Wed, 31 Jan 2007 Volume: 11 Number: 90
Today's topics:
[ANN] VersyPDF Library Releases Its Version 2.2 submit@sybrex.com
How to start some file as Perl script argument? <max@xxxxxxx.xxx>
Re: How to start some file as Perl script argument? <scobloke2@infotop.co.uk>
Re: How to start some file as Perl script argument? <josef.moellers@fujitsu-siemens.com>
Re: How to start some file as Perl script argument? <tadmc@augustmail.com>
Re: How to start some file as Perl script argument? <bik.mido@tiscalinet.it>
Re: html tags and perl <bik.mido@tiscalinet.it>
HTML:Parser how to remove "//<![CDATA[ ... //]]>" ? <g.h.vandoorn@gmail.com>
Re: HTML:Parser how to remove "//<![CDATA[ ... //]]>" ? <g.h.vandoorn@gmail.com>
Re: HTML:Parser how to remove "//<![CDATA[ ... //]]>" ? anno4000@radom.zrz.tu-berlin.de
Memory leak with XMLRPC and Perl... findingAri@gmail.com
Memory leak with XMLRPC and Perl... findingAri@gmail.com
Passing results from sub class of html::parser <g.h.vandoorn@gmail.com>
Regular Expression help! <sukesh@zoom.co.uk>
Re: Regular Expression help! <josef.moellers@fujitsu-siemens.com>
Re: Regular Expression help! <sukesh@zoom.co.uk>
sort an array unique. <rajendra.prasad@in.bosch.com>
Re: sort an array unique. <mritty@gmail.com>
Re: sort an array unique. <rs@474.at>
Re: Win32::OLE version conflict problem...please help <sisyphus1@nomail.afraid.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 31 Jan 2007 06:43:28 -0800
From: submit@sybrex.com
Subject: [ANN] VersyPDF Library Releases Its Version 2.2
Message-Id: <1170254608.245154.318600@s48g2000cws.googlegroups.com>
VersyPDF Library Releases Its Version 2.2
New version of the library for creating PDF documents on the fly was
released.
Our company released new version of the VersyPDF Library.
Versions for C/C++(Windows, Solaris, MacOS, AIX, HP-UX), Delphi, .NET,
Perl,
PHP .
Whats new:
[!]Appended AES ( Advanced encryption security )
[-] Fixed some little bugs
VersyPDF is a set of the high-quality, industry-strength PDF libraries
for
different progremming languages meeting the requirements of the most
demanding and diverse applications. Using VersyPDF libraries you can
write
stand-alone, cross-platform and reliable commercial applications that
can
read, write, and edit PDF documents.
Features:
-Reading/writing a PDF document from/to memory buffer or a file on a
disk.
-Creating new text, vector art and images.
-Quick image embedding for TIFF, JPEG, PNG, and BMP.
-Supporting Type1 and TrueType font embedding for accurate text
reproduction.
-Supporting Unicode text and standard PDF encodings.
-Dynamic font subsetting that results in reducing file size.
-Full control over text positioning and character spacing.
-Supporting all PDF color spaces and advanced pre-press options.
-Full control over content positioning and all graphical attributes
available in PDF.
-Reuse of resources such as images, fonts and color spaces through
object
sharing resulting in obtaining smaller and more efficient documents.
-Supporting explicit and named destinations. Named destinations allow
for
changes in the document not invalidating existing bookmarks.
-Extensive bookmark creation and API editing.
-Working with threads.
-Applying security to new documents.
-Linearization (Fast Web View).
-Compression of the output PDF documents.
-Inserting or appending new content in existing pages.
-Rotating pages.
-JBIG2, CCITT Fax, Flate/PNG, JPEG/DCT compression.
-Supporting for Standard PDF security handler (40, 128 bit RC4 and 128
AES
encryption).
-Unused object removal. This option helps you to create smaller files.
-Filling in PDF Forms.
-Reading PDF form fields values.
-Creating new form fields.
-Spliting pages.
-Merging and appending pages.
-Supporting Digital Signature.
-Supporting many actions.
-Supporting many annotations.
-Parsing EMF images.
The VersyPDF Libraries do not require any third-party software for
creating
or modifying PDF files.
-------------
Sybrex System LTD. - PDF Software for you...
http://www.sybrex.com
------------------------------
Date: Wed, 31 Jan 2007 10:57:44 +0100
From: "max" <max@xxxxxxx.xxx>
Subject: How to start some file as Perl script argument?
Message-Id: <eppp6f$gjb$1@ss408.t-com.hr>
How to start some file as Perl script argument?
Start with perl script + argument
Eg.
File is someexcel.xls
How to start it as
perlscript.pl someexcel.xls
I have more *.xls file in work folder.
Thanks
------------------------------
Date: Wed, 31 Jan 2007 12:13:50 +0000
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: How to start some file as Perl script argument?
Message-Id: <45c087fe$0$2446$db0fefd9@news.zen.co.uk>
max wrote:
> How to start some file as Perl script argument?
> Start with perl script + argument
>
> Eg.
> File is someexcel.xls
> How to start it as
> perlscript.pl someexcel.xls
This seems to be a self answering question (SAQ).
You can run a perl script by typing the command
perlscript.pl someexcel.xls
If Perl isn't installed in the normal way you might need to prefix the
command with the name of the perl interpreter.
perl perlscript.pl someexcel.xls
If your path doesn't include the directory containing your perl
interpreter then you may need to use the full pathname of the perl
interpreter
"c:\Program Files\perl\perl" perlscript.pl someexcel.xls
Your path is almost certainly different.
> I have more *.xls file in work folder.
If your perl script is written to expect multiple files then you can
probably just do
perlscript.pl *.xls
Otherwise you'll have to write a shell script or command to invoke the
Perl script for each file.
------------------------------
Date: Wed, 31 Jan 2007 13:15:18 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: How to start some file as Perl script argument?
Message-Id: <epq1en$fnn$1@nntp.fujitsu-siemens.com>
max wrote:
> How to start some file as Perl script argument?
> Start with perl script + argument
>=20
> Eg.
> File is someexcel.xls
> How to start it as
> perlscript.pl someexcel.xls
By typing "perlscript.pl someexcel.xls"?
> I have more *.xls file in work folder.
Either loop over all files and call your script for every file or modify =
your script to accept multiple files and work on each of them and then=20
type "perlscript.pl *.xls".
But only the second solution slightly touches Perl programming.
Your question is, most likeley, os-specific.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Wed, 31 Jan 2007 08:36:09 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How to start some file as Perl script argument?
Message-Id: <slrnes1aap.hi2.tadmc@tadmc30.august.net>
max <max@xxxxxxx.xxx> wrote:
> How to start some file as Perl script argument?
What does "start some file" mean when you say it?
You cannot "start" an Excel file because it is not executable.
> How to start it as
> perlscript.pl someexcel.xls
You run this command line:
perlscript.pl someexcel.xls
If you instead meant that you want to run an external program, such
as Excel, then you should have asked how to run an external program.
The answer given in this FAQ:
perldoc -q external
outlines the three basic ways of running external commands.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 31 Jan 2007 16:14:05 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to start some file as Perl script argument?
Message-Id: <tpb1s2lprgdn200s7bslg8el1723mkoq7i@4ax.com>
On Wed, 31 Jan 2007 12:13:50 +0000, Ian Wilson
<scobloke2@infotop.co.uk> wrote:
>If your perl script is written to expect multiple files then you can
>probably just do
>
> perlscript.pl *.xls
Well, if the OP were on a *NIX system, then the shell would take care
of wildcard expansion. Since he seems to be under Windows, a simple
recipe for doing so is manually is
BEGIN{@ARGV=map glob, @ARGV}
(Of course it is not necessary to put it in a BEGIN block, but at
least in that case you're sure it's done as early as possible, and
it's somewhat "singled out".)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 31 Jan 2007 15:41:06 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: html tags and perl
Message-Id: <ae81s25d7vprdqajtggo2ts5mah4ko0k94@4ax.com>
On Mon, 29 Jan 2007 23:46:17 +0100, Kio <ysmay13@_NO_SPAM_poczta.fm>
wrote:
>> Earlier today someone posted a question about HTML::TokeParser, and
>> people answered giving some explicit example. You may enjoy reading
>> that thread. Your case is actually easier than what was being asked
>> there...
>
>I wrote sth like this:
>
> use HTML::TokeParser;
> my $p = HTML::TokeParser->new(\$html_file);
> while (my $token = $p->get_tag('img'))
> {
> #how can i write sth to the src attr ?
> #like: new attr="/e/.jpg"
> }
Well, in that case you should probably get all tokens and simply
print() those you're not interested in, and manipulate those that are
(i) tags and (ii) correspond to img elements. Each $token contains all
that is necessary, as described in the docs. Admittedly, this is
perhaps a little bit convoluted.
Thinking of it better, maybe H::TP is not the best tool in this
regard. Actually it is for *parsing*, i.e. to extract information. Of
course you can use that information to rebuild HTML code, but other
modules may be more fit to the task. For example HTML::TreeBuilder
*does* use a parser but it uses it to build a network of nodes which
in the complex yields a representation of the HTML providing easy
access to parts of it: each node can either be a simple string or an
object depending on its nature. Tags, for example, are objects. Access
to structured data is granted by means of methods on these objects.
Since I did not really know H::TB myself I gave a quick peek into the
docs and found out it's really easy to get it to do the job:
#!/usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
my $tree=HTML::TreeBuilder->new_from_content(<DATA>);
$_->attr(src => '/e/.jpg') for $tree->find('img');
print $tree->as_HTML;
__DATA__
<html>
<head>
<title>The Real Foo Homepage</title>
</head>
<body>
<h1>The Real Foo</h1>
<p>Foo <img alt="foo" src="whatever">,
bar <img src="whatever" alt="bar">,
baz <img src="whatever" alt="bar">.
</p>
</body>
</html>
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: 31 Jan 2007 03:01:23 -0800
From: "Gerwin" <g.h.vandoorn@gmail.com>
Subject: HTML:Parser how to remove "//<![CDATA[ ... //]]>" ?
Message-Id: <1170241283.858156.278140@a34g2000cwb.googlegroups.com>
Hi,
I'm using HTML::Parser to strip HTML tags from my files. I noticed
how //<![cdata[ ... //]]> and the javascript between that is not
stripped. Any idea how to do this?
-Gerwin
------------------------------
Date: 31 Jan 2007 03:11:48 -0800
From: "Gerwin" <g.h.vandoorn@gmail.com>
Subject: Re: HTML:Parser how to remove "//<![CDATA[ ... //]]>" ?
Message-Id: <1170241908.237524.9970@a75g2000cwd.googlegroups.com>
On Jan 31, 12:01 pm, "Gerwin" <g.h.vando...@gmail.com> wrote:
> Hi,
>
> I'm using HTML::Parser to strip HTML tags from my files. I noticed
> how //<![cdata[ ... //]]> and the javascript between that is not
> stripped. Any idea how to do this?
>
> -Gerwin
Well i made a regex to do it:
$content =~ s/(\/\/<!\[.*\/\/]]>)//;
Is this efficient? If not, what is?
------------------------------
Date: 31 Jan 2007 12:51:21 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: HTML:Parser how to remove "//<![CDATA[ ... //]]>" ?
Message-Id: <52bhm9F1nsb49U1@mid.dfncis.de>
Gerwin <g.h.vandoorn@gmail.com> wrote in comp.lang.perl.misc:
> On Jan 31, 12:01 pm, "Gerwin" <g.h.vando...@gmail.com> wrote:
> > Hi,
> >
> > I'm using HTML::Parser to strip HTML tags from my files. I noticed
> > how //<![cdata[ ... //]]> and the javascript between that is not
> > stripped. Any idea how to do this?
> >
> > -Gerwin
>
> Well i made a regex to do it:
>
> $content =~ s/(\/\/<!\[.*\/\/]]>)//;
>
> Is this efficient? If not, what is?
Why do you think efficiency matters?
At this point you should be concerned with effectiveness: Does it
match what it is supposed to match, no more and no less? Since I
don't know the variability of the pattern I can't tell. The fact
you are matching only one opening "[" but two closing "]" is a bit
dubious. Shouldn't the string "cdata" be checked somewhere?
Worry about efficiency when your program turns out to be slow.
If that happens, I dare say it won't be this regex that is
responsible.
Anno
------------------------------
Date: 30 Jan 2007 23:25:16 -0800
From: findingAri@gmail.com
Subject: Memory leak with XMLRPC and Perl...
Message-Id: <1170228316.242753.168560@q2g2000cwa.googlegroups.com>
Hello,
I wrote a program in Perl (using version 5.8.4), that using XMLRPC to
communicate between the client and the server. The call from the
client to the server sitting in a infinite loop that can be run in
random inteval time.
After sometime that the client is running the perl's proccess taking
~70MB of ram and ~100% of the CPU usage.
May you know why?
TNX.
------------------------------
Date: 30 Jan 2007 23:25:18 -0800
From: findingAri@gmail.com
Subject: Memory leak with XMLRPC and Perl...
Message-Id: <1170228317.966499.204250@a75g2000cwd.googlegroups.com>
Hello,
I wrote a program in Perl (using version 5.8.4), that using XMLRPC to
communicate between the client and the server. The call from the
client to the server sitting in a infinite loop that can be run in
random inteval time.
After sometime that the client is running the perl's proccess taking
~70MB of ram and ~100% of the CPU usage.
May you know why?
TNX.
------------------------------
Date: 31 Jan 2007 06:06:35 -0800
From: "Gerwin" <g.h.vandoorn@gmail.com>
Subject: Passing results from sub class of html::parser
Message-Id: <1170252395.310264.76550@a34g2000cwb.googlegroups.com>
I'm trying to sub class HTML::Parser and store the parsed result in a
variable so I can access it again from outside the sub class. In the
code below the "text" method would print $text AND if I would say
"$vars->{'text_output'} = "test text";" it would also show "test
text" when calling "print $parser->getTextOutput();" but it will not
print the $text when saying "$vars->{'text_output'} = $text;"
What am I doing wrong here?
package MyParser;
use base qw(HTML::Parser);
my %vars = (
text_output => undef
);
sub text {
my ($self, $text) = @_;
$vars->{'text_output'} = $text;
}
sub getTextOutput {
return $vars->{'text_output'};
}
package main;
use LWP::Simple;
my $parser = MyParser->new;
my $url = @ARGV[0];
my $html = get $url; die "Couldn't get $url" unless defined $html;
$parser->parse( $html );
$parser->eof;
print $parser->getTextOutput();
------------------------------
Date: 31 Jan 2007 07:03:08 -0800
From: "Suk" <sukesh@zoom.co.uk>
Subject: Regular Expression help!
Message-Id: <1170255788.490145.256340@j27g2000cwj.googlegroups.com>
Look at the excerpt from a CSV file below
"C29560","Some text ","07/12/2006 11:00:00","07/12/2006
16:00:00","07/12/2006 16:00:00","07/12/2006 11:00:00","NODE21A3"
I am trying to write a snippet of perl that will swap the date and
year bits in all of the date fields, so that 07/12/2006 becomes
2006/12/07. So the line should read:
"C29560","Some text ","2006/12/07 11:00:00","2006/12/07
16:00:00","2006/12/07 16:00:00","2006/12/07 11:00:00","NODE21A3"
Any help would be appreciated !
------------------------------
Date: Wed, 31 Jan 2007 16:07:16 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Regular Expression help!
Message-Id: <epqbir$jq6$1@nntp.fujitsu-siemens.com>
Suk wrote:
> Look at the excerpt from a CSV file below
>=20
> "C29560","Some text ","07/12/2006 11:00:00","07/12/2006
> 16:00:00","07/12/2006 16:00:00","07/12/2006 11:00:00","NODE21A3"
>=20
> I am trying to write a snippet of perl that will swap the date and
> year bits in all of the date fields, so that 07/12/2006 becomes
> 2006/12/07. So the line should read:
>=20
> "C29560","Some text ","2006/12/07 11:00:00","2006/12/07
> 16:00:00","2006/12/07 16:00:00","2006/12/07 11:00:00","NODE21A3"
>=20
>=20
> Any help would be appreciated !
What have you tried so far?
Where does your code not meet your expectations?
Using Text::CSV_XS, split and join this is a trivial exercise.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 31 Jan 2007 08:00:55 -0800
From: "Suk" <sukesh@zoom.co.uk>
Subject: Re: Regular Expression help!
Message-Id: <1170259255.053093.52150@p10g2000cwp.googlegroups.com>
On 31 Jan, 15:07, Josef Moellers <josef.moell...@fujitsu-siemens.com>
wrote:
> Suk wrote:
> > Look at the excerpt from a CSV file below
>
> > "C29560","Some text ","07/12/2006 11:00:00","07/12/2006
> > 16:00:00","07/12/2006 16:00:00","07/12/2006 11:00:00","NODE21A3"
>
> > I am trying to write a snippet of perl that will swap the date and
> > year bits in all of the date fields, so that 07/12/2006 becomes
> > 2006/12/07. So the line should read:
>
> > "C29560","Some text ","2006/12/07 11:00:00","2006/12/07
> > 16:00:00","2006/12/07 16:00:00","2006/12/07 11:00:00","NODE21A3"
>
> > Any help would be appreciated !
>
> What have you tried so far?
> Where does your code not meet your expectations?
> Using Text::CSV_XS, split and join this is a trivial exercise.
>
> --
> Josef M=F6llers (Pinguinpfleger bei FSC)
> If failure had no penalty success would not be a prize
> -- T. Pratchett
I have tried
open CSVFILE, "data.csv" or die "failed to open changes $!";
while (<CHANGES>) {
print "$`$3/$2/$1$'" if (/(\d{2})\/(\d{2})\/(\d{4})/);
}
Sort of works but doesnt get all of them
------------------------------
Date: Wed, 31 Jan 2007 19:53:09 +0530
From: "rajendra" <rajendra.prasad@in.bosch.com>
Subject: sort an array unique.
Message-Id: <epq89o$86f$1@news4.fe.internet.bosch.com>
Hello All,
Is there any command to sort an array uniquelly,something similar to
"sort -u" in unix.
With Rgds,
Raj
------------------------------
Date: 31 Jan 2007 06:39:09 -0800
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: sort an array unique.
Message-Id: <1170254349.442604.188610@j27g2000cwj.googlegroups.com>
On Jan 31, 9:23 am, "rajendra" <rajendra.pra...@in.bosch.com> wrote:
> Is there any command to sort an array uniquelly,something similar to
> "sort -u" in unix.
Not built-in, but it's fairly easy to implement:
my %h = map { $_ => 1 } @unsorted_with_dups;
my @unsorted_uniques = keys %h;
my @sorted_uniques = sort @unsorted_uniques;
Or, you can remove all the intermediary steps:
my @sorted_unqiques = sort keys(%{{ map { $_ => 1 }
@unsorted_with_dups}});
Here's an example:
$ perl -le'
my @unsorted_with_dups = qw/d a e c b e d a c b e a b c e d/;
my @sorted_uniques = sort keys(%{{ map { $_ => 1 }
@unsorted_with_dups }});
print "@sorted_uniques\n";
'
a b c d e
Paul Lalli
------------------------------
Date: Wed, 31 Jan 2007 16:43:03 +0100
From: Robert 'phaylon' Sedlacek <rs@474.at>
Subject: Re: sort an array unique.
Message-Id: <45c0b907$0$18840$9b4e6d93@newsspool4.arcor-online.net>
Paul Lalli wrote:
> On Jan 31, 9:23 am, "rajendra" <rajendra.pra...@in.bosch.com> wrote:
>> Is there any command to sort an array uniquelly,something similar to
>> "sort -u" in unix.
>
> Not built-in, but it's fairly easy to implement:
JFYI, it's also in List::MoreUtils as 'uniq'.
http://search.cpan.org/dist/List-MoreUtils/lib/List/MoreUtils.pm
--
# Robert 'phaylon' Sedlacek
# Perl 5/Catalyst Developer in Hamburg, Germany
{ EMail => ' rs@474.at ', Web => ' http://474.at ' }
------------------------------
Date: Wed, 31 Jan 2007 16:09:58 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.com>
Subject: Re: Win32::OLE version conflict problem...please help
Message-Id: <45c02525$0$5746$afc38c87@news.optusnet.com.au>
<josh.dewinter@gmail.com> wrote in message
news:1170183475.134999.89270@p10g2000cwp.googlegroups.com...
.
.
>
> Win32::OLE object version 0.1701 does not match $Win32::OLE::VERSION
> 0.1702 at C:/Perl/lib/DynaLoader.pm line 225.
>
The conflict is between OLE.dll (version 0.1701) and OLE.pm (version
0.1702). Win32::OLE ships as standard with ActivePerl, so it's hard to see
how the mismatch could have arisen - but it obviously has happened, and
definitely needs to be resolved.
Either someone has botched an attempt to upgrade Win32::OLE, or an
installation/upgrade of ActivePerl has been botched. Either way, it sounds
like a problem created by someone with Admin rights - and would best be
fixed by someone with Admin rights (by re-doing the "botched" attempt
correctly).
Win32::OLE is part of libnet. If you can find a version of libnet whose
source contains version 0.1701 of Win32::OLE you could fix the problem
yourself. One such fix would be to then copy the Win32::OLE source files to
a directory that you *can* write to (say, C:\my_user\stuff) and then start
your scripts with:
use lib 'C:/my_user/stuff';
It would be messy (as there's a number of .pm files that constitute the perl
part of Win32::OLE, and they would all need to be located correctly under
C:\my_user\stuff) but it could be done. But for that to work you would need
to first find the source of version 0.1701 of Win32::OLE. (I took a look at
libnet sources on CPAN and couldn't find such a version of Win32::OLE.)
Much better if the problem is fixed properly by someone with the requisite
permissions.
Cheers,
Rob
------------------------------
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 90
*************************************
