[17459] in Perl-Users-Digest
Perl-Users Digest, Issue: 4879 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 13 14:05:46 2000
Date: Mon, 13 Nov 2000 11:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <974142311-v9-i4879@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 13 Nov 2000 Volume: 9 Number: 4879
Today's topics:
Re: A surprise with vec() (Gwyn Judd)
Re: CGI/Perl datastream passthru (newbie?) (dionysus)
creating an error log help menorevs@my-deja.com
Re: DBI:Oracle question <prlawrence@lehigh.edu>
Re: DBI:Oracle question (Arek P)
dbm file problem (Roderick Clay)
Re: display shell alias in perl? nobull@mail.com
Re: form won't post locally nobull@mail.com
Re: Help with HTML::Parser module (Daniel Chetlin)
HTML print in perl script <franky.claeys@vt4.net>
Re: Link - the action after "?" <miriamsmit@zonnet.nl>
Re: Mark CPAN modules as suspect? <elaine@chaos.wustl.edu>
Re: need a little help <bart.lateur@skynet.be>
Re: Need regex tweak to encode XML entities <smig@my-deja.com>
Re: Net::Telnet & Net::Ping nodo70@my-deja.com
Newbie - Help Referencing Array of Hashes sudermatt@my-deja.com
Re: Newbie - Help Referencing Array of Hashes nobull@mail.com
Re: Newbie recursion question <kai_jang@my-deja.com>
Re: Not a CODE reference at /usr/share/lib/perl5/File/F nobull@mail.com
Re: Phone dialing module? <news@nettenna.com>
problem making perl 5.6.0 on HPUX <ronh@iainc.com>
Problem with TokeParser <r.kewish@iname.com>
Problems compiling DBI and HP-UX 11.0 (Frank Harris)
Re: Realrates.com needs your Rate and Salary Data! (Michel Dalle)
Re: Returning an array from C to Perl (Richard J. Rauenzahn)
Re: Sort <ronh@iainc.com>
Re: Statistics for comp.lang.perl.misc <bart.lateur@skynet.be>
Re: Statistics for comp.lang.perl.misc <geoff-at-farmline-dot-com@127.0.0.1>
Re: Statistics for comp.lang.perl.misc <bart.lateur@skynet.be>
Using require and use across sytem boundries..... <neil@alaweb.com>
Re: Why is my hash coming untied? <djberg96@my-deja.com>
Re: Working with time <David.Hiskiyahu@alcatel.be>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 13 Nov 2000 17:49:33 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: A surprise with vec()
Message-Id: <slrn910akl.2so.tjla@thislove.dyndns.org>
I was shocked! How could Bart Lateur <bart.lateur@skynet.be>
say such a terrible thing:
>
> $x = "0";
> print ord $x;
or the surprising:
$x = 0;
print ord $x;
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Extravagance is a two-dollar cigar. Waste is to light it with a dollar
bill.
-Michael Butterworth
------------------------------
Date: Mon, 13 Nov 2000 16:14:29 GMT
From: dionysus39@hotmail.com (dionysus)
Subject: Re: CGI/Perl datastream passthru (newbie?)
Message-Id: <3a101324.75411011@nntp.unsw.edu.au>
p.s. the script will be running on a win95 machine, and the machines
on the LAN are mostly win95/98/ME/2000 machines. The network uses
TCP/IP as its primary protocol.
-d
On Mon, 13 Nov 2000 07:16:01 GMT, dionysus39@hotmail.com (dionysus)
wrote:
>
>I am currently getting into writing state-based Perl/CGI scripts.
>Having just completed one that searches an existing file containing a
>list of files (some on my machine, some on other machines on my LAN),
>and returns all matches as HTML links that are valid for all machines
>on my LAN, I was now hoping to allow machines outside of my LAN access
>to the same resources. I was hoping to do this (for the machines that
>are not mine) by using a similar seach engine as I used for my
>previous project, but instead of displying a page of valid HTML links
>as results, displaying a form that, when a single file is chosen,
>would trigger the script to request that file from across the LAN and
>pass it (as a download) to the requesting machine. I was hoping to be
>able to do this without storing that file on my own disk space, just
>in memory. Is it possible to do this kind of a passthrough in a perl
>script, and if so, what functions/modules would I need to use?
>
>All advice much appreciated,
>
>-d
>
>------------------------------------------------------------
>"One World, one Web, one Program" - Microsoft promotional ad
>"Ein Volk, ein Reich, ein Fuhrer" - Adolf Hitler .
------------------------------------------------------------
"One World, one Web, one Program" - Microsoft promotional ad
"Ein Volk, ein Reich, ein Fuhrer" - Adolf Hitler .
------------------------------
Date: Mon, 13 Nov 2000 17:41:00 GMT
From: menorevs@my-deja.com
Subject: creating an error log help
Message-Id: <8up93a$5t5$1@nnrp1.deja.com>
creating a Telnet session to be able to change a password for over
200 routers, the only trouble i am having is that i can not create an
error log. So far i have:
open SUCCESSFILE, ">>C:\\routerSuccess.txt";
open FAILUREFILE, ">>C:\\routerFailure.txt";
if ()
{
print SUCCESSFILE "$address\n";
}
else
{
print FAILUREFILE "$address\n";
}
}
}
As you can notice I left the ( ) empty, I somehow need to say If it
changes that password, print the variable to the success file, if not,
print the variable to the failure log,I have no idea how to tell perl
what vairables to check to see if it is successful if you need to
email
me please do so at Menorevs@aol.com, i would appreciate any help at all!
Thanks
John
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 13 Nov 2000 10:35:22 -0500
From: "Phil R Lawrence" <prlawrence@lehigh.edu>
Subject: Re: DBI:Oracle question
Message-Id: <8up1mm$gli@fidoii.CC.Lehigh.EDU>
Set up a trace file and examine the contents. Example:
...
use DBI;
DBI->trace(1, "$ENV{HOME}/trace.log");
$DBI::neat_maxlen = 1600;
...
Phil R Lawrence
<texasreddog@my-deja.com> wrote:
> Hi,
>
> I am writing a Perl script that uses DBI:Oracle. This script is
> supposed to write a bunch of junk to a database on a remote machine.
> If somebody pulls the plug on the one machine, the script is supposed
> to connect to a second database on another machine, and continue its
> thing until it finishes. I am not a big DBI guru, and I'm having
> trouble making part of this work. Here is the code:
>
<snip code!>
>
> The problem is on the if(sth->err) part. It doesn't work. The script
> starts off inserting the junk into the first remote DB. When I pull
> the network cable on the remote machine, it doesn't execute the if(sth-
> >err) part, it just sits there until the connection is plugged in again.
> What do I need to do to my code to make this work??? If there is a
> problem with the sth->execute when the connection is unplugged, how
> should I code this correctly to switch over to the other machine and DB?
>
> Thanks, Ken
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Mon, 13 Nov 2000 11:35:33 EST
From: Arek@nospam._pietruszewski_.com (Arek P)
Subject: Re: DBI:Oracle question
Message-Id: <8up58l$1ahl$1@earth.superlink.net>
On Sat, 11 Nov 2000 22:38:18 GMT, texasreddog@my-deja.com wrote:
Look for $db_handle->ping which will check validity of Your
connection. I have not used it myself, but it should work. HTH
Arek
>Hi,
>
>I am writing a Perl script that uses DBI:Oracle. This script is
>supposed to write a bunch of junk to a database on a remote machine.
>If somebody pulls the plug on the one machine, the script is supposed
>to connect to a second database on another machine, and continue its
>thing until it finishes. I am not a big DBI guru, and I'm having
>trouble making part of this work. Here is the code:
>
>#!/usr/bin/perl
>
>system("date");
>
>$ENV{'ORACLE_HOME'}
>= '/usr/local/oracle/8i/u01/app/oracle/product/8.1.6';
>
>use DBI;
>
>$MAX=1000;
>$script = "'$0'";
>$port = 1521;
>$text = "'Kiss is a band from New York City that first formed in 1973.
>Bassist Gene Simmons and guitarist Paul Stanley had ju
>st left a band called Wicked Lester, and were looking for new members
>to play with. They acquired drummer Peter Criss when th
>ey responded to an ad that he left in Rolling Stone Magazine, stating
>Drummer willing to do anything to make it. They later
>hired guitarist Ace Frehley, after he barged into their loft wearing
>one red shoe and one orange shoe. For his audition, he u
>sed someone elses guitar, and began playing in the middle of another
>persons audition. Frehleys guitar sound was just what
>the band was looking for, and the lineup was completed. They began by
>playing small clubs in New York City. They later starte
>d wearing their trademark makeup after seeing Alice Cooper in concert.
>After months of continuous club dates, they landed a r
>ecord deal with the newly-formed Casablanca Records. Their first album,
>Kiss, was released in February, 1974. The horrific al
>bum cover of the members decked out in makeup scared potential fans,
>and critics thought Kiss was a joke. But what really inc
>reased Kiss popularity was their live shows. Simmons, as the demon,
>would spit blood and breathe fire at every show, and set
>his hair on fire several times, which concert-goers thought was part of
>the show. Songs from the first album, including Deuce
> and Firehouse, became big hits, and pushed album sales to gold.'";
>
>local ($user = 'ci2i');
>local ($password = 'ci2i');
>local ($host1 = 'oliver');
>local ($host2 = 'sun2-in');
>local ($sid1 = 'dev');
>local ($sid2 = 'test3');
>local ($db1 = 'oliver');
>local ($db2 = 'test');
>local ($dbtable = 'test');
>
># Create a DB connection
>
>my $dbh = DBI->connect
>("dbi:Oracle:host=$host1;sid=$sid1", "$user", "$password") or die
>("Unable to connect to Oracle DB: $DB
>I::errstr\n");
>
>for($cnt=0; $cnt<=$MAX; $cnt++) {
> my $statement = "insert into $dbtable values($script, $cnt, $text)";
> my $sth = $dbh->prepare($statement);
> $sth->execute;
> if($sth->err) {
> print "Error detected: $DBI::errstr\n";
> $dbh->disconnect;
> my $dbh = DBI->connect
>("dbi:Oracle:host=$host2;sid=$sid2", "$user", $password) or die
>("Unable to connect to Oracle DB:
> $DBI::errstr\n");
> for($cnt=$cnt; $cnt<=$MAX; $cnt++) {
> my $statement = "insert into $dbtable values($script, $cnt,
>$text)";
> my $sth = $dbh->prepare($statement);
> $sth->execute;
> $sth->finish;
> }
> }
> $sth->finish;
>}
>
>$dbh->disconnect;
>
>system("date");
>
># do not remove this last line
>1;
>
>The problem is on the if(sth->err) part. It doesn't work. The script
>starts off inserting the junk into the first remote DB. When I pull
>the network cable on the remote machine, it doesn't execute the if(sth-
>>err) part, it just sits there until the connection is plugged in again.
>What do I need to do to my code to make this work??? If there is a
>problem with the sth->execute when the connection is unplugged, how
>should I code this correctly to switch over to the other machine and DB?
>
>Thanks, Ken
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Mon, 13 Nov 2000 18:36:54 GMT
From: clay.1@osu.edu (Roderick Clay)
Subject: dbm file problem
Message-Id: <3a103445.16754762@nntp.service.ohio-state.edu>
We recently discovered some irregularities with values being stored in
a dbm file accessed by some of our cgi scripts. We are seeing
duplicate key-value pairs and seeing keys whose values seem to have
disappeared.
We believe the problem is due to the fact that we recently made a
change in which we included the line "use SDBM_File". Previously, we
were not explicitly "using" any DBM related modules. (If we now run a
test script to view the contents of the dbm file, we get different
results depending on whether we "use SDBM_File" at the top of our test
script or not. In each case, some of the values are blank where there
should be a value. These blank values show up for different keys
depending on whether or not we included "use SDBM_File".) We are
using the commands dbmopen and dbmclose to access the file. Could the
switch to SDBM_File be the cause of our irregularities and is there a
straightforward way to fix them?
------------------------------
Date: 13 Nov 2000 18:21:05 +0000
From: nobull@mail.com
Subject: Re: display shell alias in perl?
Message-Id: <u9snovag32.fsf@wcl-l.bham.ac.uk>
"Philip Tsai" <tsailipu@home.com> writes:
> This looks to be a simple operation yet I spent hours reading documentation
> and searching using different combinations of keywords on www.perl.com,
> google and other search engines to no avail: how can one assign the value
> of a shell "alias [some alias name]" inside a Perl program?
You can't.
This is covered by the FAQ: "I {changed directory, modified my
environment} in a perl script. How come the change disappeared when I
exited the script? How do I get my changes to be visible?"
The aliases are part of the shell environment (although they are not
actually environment variables[1] so are not inherited by subshells).
[1] In some shells, like bash, alaises are rendered obsolete by shell
functions. Shell functions are more versatile and as it happens they
are implemented as environment variables - with names ending in '()'.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 13 Nov 2000 17:59:27 +0000
From: nobull@mail.com
Subject: Re: form won't post locally
Message-Id: <u9vgtrah34.fsf@wcl-l.bham.ac.uk>
"chris chesnay" <cchesnay@nospam_marune.swinternet.co.uk> writes:
> Using a perl script to post form data, if the recipient is local to the
> server, mail doesn't get sent.
> Mail will be sent if the recipient is xxx@hotmail.com or any other no-local
> recipient.
> This occurs with 'mailx' or 'sendmail' as the mail software.
AFAIK LWP::Protocol::mailto doesn't give you the option to choose your
mail software - so there's definitely something here you are not
telling us about. Or maybe what little you have told us is wrong.
Reduce your problem to a _minimal_ safe, warning-free script that
actually runs and actually reproduces the symptoms you describe and
post it here _unmodified_. Tell also the version numbers of Perl and
any modules you are using.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 13 Nov 2000 16:52:57 GMT
From: daniel@chetlin.com (Daniel Chetlin)
Subject: Re: Help with HTML::Parser module
Message-Id: <8up699029r4@news2.newsguy.com>
[posted and mailed]
Niklas,
This module looks to have pretty good potential. I played with it for
about an hour and I like what it does so far.
I have one major, one medium, and one minor piece of feedback.
On 13 Nov 2000 09:02:04 GMT, Niklas Frykholm <r2d2@shaka.acc.umu.se> wrote:
>This is one of the things that are easy to do with my HTML::Transform package.
[snip]
>@FontDelete::ISA = qw(Transform);
Ack! Please provide a way of using HTML::Transform that doesn't involve
subclassing. There is a good reason why HTML::Parser migrated away from
that and towards callbacks. And there's no reason not to have both.
sethandler() appears to be the beginnings of functionality in this vein,
but it's not enough. I'd want sethandler() to take a ref to a sub, not
just a string standing for sub name (or actually, partial sub name,
depending on the tag type -- see below).
> {$self->make_tag("FONT", $attr).$text."</FONT>"}
This facility to make a tag is quite useful. I would consider expanding
it to make an entire leaf -- i.e. keep the user from having to do the
concatenation and construct their own ending tag. Perhaps
$self->make_leaf("font",$attr,$text)
Seem reasonable?
>I haven't released HTML::Transform on CPAN yet (want to make some last tweaks,
>if you have any feedback I'll be happy), you can download it at
>
> http://www.acc.umu.se/~r2d2/files/Perl/html_transform/index.html
Again, let me say how pleased I am with this module so far. It seems to
fall nicely and evenly between HTML::Parser and
HTML::TreeBuilder.
However, here is where my major piece of feedback comes in. The way
Transform distinguishes between singleton and matching tags is
concerning to me. I find it both confusing and constraining. It may be
OK for transforming documents of my own, where I know that I either
always or never closed a `<p>' with a `</p>', but it will really not
work very well if I'm trying to transform a document that I didn't
write. Which, for me at least, is a more common occurence.
What's more, I (as the user) need to keep in mind which tags are singles
and which tags aren't -- this gets confusing even when it's not
ambiguous in HTML. Problems with tags such as `p' and `li' are one
thing, but I have to remember to write my image tag handling subroutine
as `img_s' rather than `img', and likewise for all the other singleton
tags.
What's the solution? I don't know. Above I placed this module between
Parser and TreeBuilder. You'll note that TreeBuilder has a *ton* of
built-in logic so that it can figure out what tags mean what things and
how the HTML is actually to be parsed. If you start down that road,
teaching your module that `img' is always alone, but `p' can be one way
or the other, you'll be reimplementing TreeBuilder. For a task such as
this font transformation, the only reason not to use TreeBuilder is its
weight and speed. I'm skeptical that it's possible to implement this
part of TreeBuilder more quickly and keep Transform lightweight.
But if the module expects the user to know which tags are which and to
guarantee that all tags are the same in that way, I think it will be a
big drawback.
I hope these comments have been helpful. Good luck with it!
-dlc
------------------------------
Date: Mon, 13 Nov 2000 19:13:22 +0100
From: "Franky Claeys" <franky.claeys@vt4.net>
Subject: HTML print in perl script
Message-Id: <8upat8$h2v$1@mykenos.hogent.be>
Hi there,
Does anyone have an idea how I have to builde HTML into the perlscript
mentioned below?
I know I have to change the MIME header to text but I don't know how to wrap
this thing into HTML.
This scripts performs this: I'm using the data from @data, communicate with
the functions from the GIFgraph lib en draw a linegraph but this with an
image header. How can I adjust this script to put the gif-file in a HTML
printout. In this way I can design my pages at my convience off course.
Please take note that I'm not a professional programmer. I'm studying
Business Administration option Management and IT (last year) and I need this
script voor my graduation project.
thanks in advance!
Franky
www.franksite.net
#!/usr/bin/perl -wT
# graph-demo.pl
use strict;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use GIFgraph::lines;
# Create an instance of CGI
my $query = new CGI;
# Set the data
my @data = (["1/10/00", "2/10/00", "3/10/00", "4/10/00", "5/10/00",
"6/10/00", "7/10/00", "8/10/00", "9/10/00", "10/10/00"], [1200, 1050, 1350,
800, 1650, 1550, 1400, 1100, 1450, 950]);
# Send an appropriate MIME header
print $query->header(-type => "image/gif");
# Create a graph object
my $graph = new GIFgraph::lines(500,300);
$graph->set(
title =>"testgif",
x_label =>'Time',
y_label =>'Value',
y_tick_number => 10
);
# Draw the graph
print $graph->plot(\@data);
------------------------------
Date: Mon, 13 Nov 2000 17:06:30 +0100
From: "Michel Wouterse" <miriamsmit@zonnet.nl>
Subject: Re: Link - the action after "?"
Message-Id: <FpUP5.1$uV6.648@zonnet-reader-1>
if you put this as your second line:
($action, $sort) = split (/=/, $ENV{'QUERY_STRING'})
the $action will contain "action"
the $sort will contain "Old" or "New"
Success
Michel
Calvin <calvin_newsgroup@hotmail.com> wrote in message
news:8uoce7$18a$1@eng-ser1.erg.cuhk.edu.hk...
> If visit http://www.myserver.com/cgi-bin/main.pl?action=new then print
"New"
> if visit http://www.myserver.com/cgi-bin/main.pl?action=old then print
"Old"
> I don't know why the following program can't work, please help. Thanks.
> [Sorry! My English is not enough]
>
> #!/usr/bin/perl
>
> print "Content-type: text/html\n\n";
>
> if ($in{'action'} ne "new") {
> print "New";
> exit;
> }
>
> elsif ($in{'action'} ne "old") {
> print "Old";
> exit;
> }
>
> else {
> print "Not New and Old";
> exit;
> }
>
>
>
------------------------------
Date: Mon, 13 Nov 2000 17:30:29 GMT
From: "Elaine Ashton" <elaine@chaos.wustl.edu>
Subject: Re: Mark CPAN modules as suspect?
Message-Id: <VyVP5.14243$AM5.267533@news1.nokia.com>
"Chris Fedde" <cfedde@fedde.littleton.co.us> wrote in message
news:765P5.313$Bf7.170838528@news.frii.net...
> You know, after mulling this about for the last few hours I begin
> to think that "caveat utilitor" is probably the best approach
> after all. Initially I was thinking on the lines of a central
> registry of user supplied test code, indexed by module name. But
> I now think the potential for abuse and slander is too great.
Mark modules suspect as what? What is it you are trying to communicate
here? There is no possible way to guarantee the 'security' of code
distributed to 150+ sites around the world several times a day. The
archive has minimal checksum verification and other than that it relies on
the general trust of the user base.
e.
------------------------------
Date: Mon, 13 Nov 2000 16:40:14 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: need a little help
Message-Id: <t8601t00furrtorh5vc4v18o52qrlir11v@4ax.com>
Brian Vogel wrote:
>IE If I fill it out the form with A then B then C and so on for every field
>and I look at the HTML file it prints it to it looks like ABC. No spaces.
>PLEASE someone tell me how to place a space or better yet a " | " between
>each field.
Er... It's not clear what you mean, but try setting the special variable
$, (or maybe $" ) to a space or to "|".
@ary = ('A', 'B', 'C');
$, = "#";
$" = "|";
print @ary; # uses $,
print "\n@ary\n"; # uses $"
--
Bart.
------------------------------
Date: Mon, 13 Nov 2000 17:44:29 GMT
From: smig <smig@my-deja.com>
Subject: Re: Need regex tweak to encode XML entities
Message-Id: <8up99q$5vo$1@nnrp1.deja.com>
Tad-
Thanks for The Answer! It obviously works in Perl. Now, I'll plug in
the search and replace expressions into my middleware "substitution"
section to effect changes. Hopefully, this middleware supports an
implementation of regex that'll support the syntax of your expressions.
-Gene
In article <slrn90o8j0.f8u.tadmc@magna.metronet.com>,
tadmc@metronet.com (Tad McClellan) wrote:
> On Fri, 10 Nov 2000 15:48:05 GMT, smig <smig@my-deja.com> wrote:
> >I'm trying to fix some middleware that loads an Oracle table with
> >contents of an XML file. It seems like the middleware properly
extracts
> >and passes content containing encoded XML Entities for the '"<> chars
> >but does not encode the & character. This is causing grief on the
> >backend so I'm trying to come up with a regex to find the unencoded
> >ampersand in a sea of text filled with encoded chars and replace it
with
> >it's encoded value before sending it to Oracle.
>
> > incompletely encoded (unencoded "&"):
> > <img="joe's&fred's.jpg">
> >
> > desired result (encode the & between joe's and fred's):
> > <img="joe's'fred's.jpg">
> ^^^^
>
> Surely you meant 'amp' there, not 'apos' ?
>
> > using search expression:
> > &[^quot;]|&[^apos;]|&[^lt;]|&[^gt;]
>
> I doubt that that "search expression" works very well.
>
> [square brackets] are a character class (not what you want).
>
> (parenthesis) are for grouping (which is what you want).
>
> >Can anyone advise how to tweak either the search or replacement
> >expression so I can get my desired result? I haven't been able to
find
> >an example, as yet, of use of ^ to position ater the & in the search
> >result so I could put "amp;" between the "&" and "fred" -- would that
do
> >the trick?
>
> ^ is not the right thing at all.
>
> You want a negative look-ahead assertion: (?! regex )
>
> ------------------------------
> #!/usr/bin/perl -w
> use strict;
>
> $_ = q/<img="joe's&fred's.jpg">/;
> print "before '$_'\n";
>
> s/&(?!lt;|gt;|apos;|quot;)/&/g;
> print "after '$_'\n";
> ------------------------------
>
> output:
>
> before '<img="joe's&fred's.jpg">'
> after '<img="joe's&fred's.jpg">'
>
> --
> Tad McClellan SGML consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 13 Nov 2000 17:37:30 GMT
From: nodo70@my-deja.com
Subject: Re: Net::Telnet & Net::Ping
Message-Id: <8up8sq$5i3$1@nnrp1.deja.com>
Thanks Martien. I got it.
-nodo
In article <slrn90u6k5.7ck.mgjv@verbruggen.comdyn.com.au>,
mgjv@tradingpost.com.au wrote:
> On Thu, 09 Nov 2000 19:00:44 GMT,
> nodo70@my-deja.com <nodo70@my-deja.com> wrote:
> > Thanks for your quick response Martien.
> >
> >>
> >> And I changed it to do udp pings, because I didn't feel like
becoming
> >> root to test this.
> >>
> > What do you mean by saying above? UDP PING? Excuse myself if I am
> > just being idiot here.
>
> I actually followed up to this, at home, but with my gateway dying,
> and the version of leafnode I'm running being buggy, it must've got
> lost.
>
> Anyway, the Net::Ping documentation talks about the differences
> between a real ping and a UDP echo. The main reason that there is a
> difference is that ICMP requires one to open a socket in raw mode, and
> build a packet yourself. On many systems only privileged users can do
> this, and on some systems (Win32) raw sockets aren't even implemented
> in the stack (ICMP packets get built by code in ICMP.DLL there)
>
> Martien
> --
> Martien Verbruggen |
> Interactive Media Division | Unix is the answer, but only if you
> Commercial Dynamics Pty. Ltd. | phrase the question very carefully
> NSW, Australia |
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 13 Nov 2000 16:44:26 GMT
From: sudermatt@my-deja.com
Subject: Newbie - Help Referencing Array of Hashes
Message-Id: <8up5p8$2n0$1@nnrp1.deja.com>
I'm new at using perl. I need to pull data out of a database then
present that data in a html table. Trying to make this relative
dynamic, I am attempting to put the list of fields in an array, then
place the data in an array of hash tables then build my table:
# Get the field names returned from the select statement
foreach $fd ($db->FieldNames())
{
@TheFields[$cnt]=$fd;
$cnt++;
}
$fieldcnt=0;
#for each row of data, put the has table in an array
while($rsdata>FetchRow())
{
undef %Data;
%Data = $db->DataHash();
@rs[$fieldcnt]=%Data;
$fieldcnt++;
}
my problem is, I cannot figure out the syntax of referencing my has
tables.
I've tried everything I can think of:
print $rs[0]$Data{$Thefields[0]};
or
print $rs->[0]{@$Thefields[0]};
I am really stuck, and have already spent two days on this one
problem.
Thanks for your help.
Matt
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 13 Nov 2000 17:55:39 +0000
From: nobull@mail.com
Subject: Re: Newbie - Help Referencing Array of Hashes
Message-Id: <u9y9ynah9g.fsf@wcl-l.bham.ac.uk>
sudermatt@my-deja.com writes:
> Subject: Re: Newbie - Help Referencing Array of Hashes
Do not say "Newbie" in your subject line. We read is as "I'm too lazy
to read the manual". If this is true then don't post at all. If this
is not true then you have needlessly turned us against you.
Do not say "Help" in your subject line. It is usually self evident
when a post is a question.
> I'm new at using perl.
Get into the habit of programming under "use strict" and with warnings
enabled. It is considered exceptionally rude and lazy to come to this
Usenet group and throuble all us sentient entities with your problems
if you've not first bothered to ask Perl itself to offer you as much
help as it can.
Note: It is not relevant whether or not Perl actually would have found
all your mistakes for you in this particular case. It is the fact
that you've not bothered to try that is considered rude.
> I need to pull data out of a database then
> present that data in a html table. Trying to make this relative
> dynamic, I am attempting to put the list of fields in an array, then
> place the data in an array of hash tables then build my table:
>
>
> # Get the field names returned from the select statement
> foreach $fd ($db->FieldNames())
> {
> @TheFields[$cnt]=$fd;
> $cnt++;
> }
Do not fail to delare your variables. Very soon this will cause you
pain. "use strict" would have prevented this.
Do not use array indicies if you are just appending, use push. This
is Perl not C!
Do not use slice syntax to refer to a single element of an array.
Enabling warnings would have told you about this.
Don't use a loop at all when a list assignment will do.
my @TheFields = $db->FieldNames();
>
> $fieldcnt=0;
>
> #for each row of data, put the has table in an array
> while($rsdata>FetchRow())
> {
> undef %Data;
> %Data = $db->DataHash();
> @rs[$fieldcnt]=%Data;
> $fieldcnt++;
>
> }
Always limit the scope of temporary variables to the smallest
enclosing block. One day failure to do this will cause you pain.
This is very important advice in all programming languages not just
Perl.
Do not attempt to put the whole of a hash or array into a slot that
can hold only a scalar such as an array element. Put a reference to
the hash or array instead.
$rsdata is not defined.
my @rs;
my $rsdata = something();
while($rsdata>FetchRow())
{
push @rs, { $db->DataHash() };
}
Of course I have no familiarity with the database module you are using
so I have no idea if you are calling FieldNames(), DataHash() and
FetchRow() correctly. Given the number of other mistakes in your code
I'd guess there's a good chance that you'll have got that wrong too.
> my problem is, I cannot figure out the syntax of referencing my has
> tables.
No, your problem is much wider than that. You need to go back an
learn the very basics concepts of Perl. List context, scalar context,
scalar variables, arrays, hashes and references.
> I've tried everything I can think of:
How come you didn't think of reading the manual?
> print $rs[0]$Data{$Thefields[0]};
> or
> print $rs->[0]{@$Thefields[0]};
Assuming that $db->FieldNames() returns the list of keys for hash
returned by $db->DataHash() and assuming that you are tring to
retrieve the value of the first field from the first record:
print $rs[0]{$TheFields[0]};
> I am really stuck, and have already spent two days on this one
> problem.
You see, it's not just our time you waste.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 13 Nov 2000 16:06:42 GMT
From: Kai Jang <kai_jang@my-deja.com>
Subject: Re: Newbie recursion question
Message-Id: <8up3ia$l7$1@nnrp1.deja.com>
In article <t06qnq426m7r01@corp.supernews.com>,
"Randy Harris" <harrisr@bignet.net> wrote:
>
> Chris Fedde <cfedde@fedde.littleton.co.us> wrote in message
> news:MUHM5.162$Bf7.170838528@news.frii.net...
> > In article <8tvgnn$6d6$1@nnrp1.deja.com>,
> > Kai Jang <kai_jang@my-deja.com> wrote:
> > >Hi. Long time listner, first time caller. :o)
> > >
> > >sub showit {
> > > &showit($_[0]);
> > > push (@dirs, $_) if ((-d $_) && ($_ !~m/^\.$/));
> > > push (@files, $_) if (-f $_);
> > >}
>
> A fine example of a loop as defined in the camel glossary.
>
>
The problem is that it is giving me that deep recursion error. I am
wondering if maybe there is a better way out there to print out the
whole directory tree. Maybe chdir??? Any ideas??? Thanks...
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 13 Nov 2000 17:58:00 +0000
From: nobull@mail.com
Subject: Re: Not a CODE reference at /usr/share/lib/perl5/File/Find.pm
Message-Id: <u9wve7ah5j.fsf@wcl-l.bham.ac.uk>
Gerard Breiner <Gerard.Breiner@ias.fr> writes:
> My script use the module File::Find.
>
> with the perl 5.6.0 over linux no problem
> with the perl 5.004 over irix 6.5 I get the message above.
>
> An Idea ?
You are joking right? The answer blindingly obvious and is not
specific to File::Find or even to Perl.
Problem: Your program in some language uses one of the standard
libraries shipped with the complier/interpreter for that lanugage.
Your program works on a machine with a later version of the
complier/interpreter but not an ealier one.
Soultion: compare the documentation for the library on the old and new
systems. Identify what new features your program is trying to use.
Modify your program so that it uses only features that were present in
the older version of the library.
BTW: I could tell you that the new version of File::Find can accecpt a
HASH ref rather than an CODE ref to support addtional arguements.
Telling you this would be pointless since you still really nead to
RTFM to make sense of it.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 13 Nov 2000 09:58:42 -0800
From: "Dave Ressler" <news@nettenna.com>
Subject: Re: Phone dialing module?
Message-Id: <a1WP5.1532$tv3.130112@news.uswest.net>
I received an offlist tip (thanks, Ken!) that Bill Birthisel's
Win32:SerialPort module (on CPAN) could be used to operate my modem. With
some guesswork I got it to work. Anyone interested can get in touch with me.
Dave
------------------------------
Date: Mon, 13 Nov 2000 12:12:32 -0500
From: Ron Hartikka <ronh@iainc.com>
Subject: problem making perl 5.6.0 on HPUX
Message-Id: <3A102100.96D22952@iainc.com>
Can anyone tell me please the meaning of the error message at the
bottom?
>make
`sh cflags libperl.a miniperlmain.o` miniperlmain.c
CCCMD = cc -DPERL_CORE -c -D_HPUX_SOURCE -Aa -O +Onolimit
`sh cflags libperl.a perl.o` perl.c
CCCMD = cc -DPERL_CORE -c -D_HPUX_SOURCE -Aa -O +Onolimit
`sh cflags libperl.a malloc.o` malloc.c
CCCMD = cc -DPERL_CORE -c -D_HPUX_SOURCE -Aa -O +Onolimit
`sh cflags libperl.a gv.o` gv.c
CCCMD = cc -DPERL_CORE -c -D_HPUX_SOURCE -Aa -O +Onolimit
`sh cflags libperl.a toke.o` toke.c
CCCMD = cc -DPERL_CORE -c -D_HPUX_SOURCE -Aa -DARG_ZERO_IS_SCRIPT -O
+Onolimit
cc: Perl_yylex(): error 6355: Bit vectors: Set out of memory. (6355)
*** Error exit code 1
Sorry to tk group if this seems OT; I've had problems like this before
and gotten help here.
------------------------------
Date: Mon, 13 Nov 2000 18:57:39 -0000
From: "Richard Kewish" <r.kewish@iname.com>
Subject: Problem with TokeParser
Message-Id: <8updpu$fka$1@neptunium.btinternet.com>
Hi,
I am creating some perl CGI scripts but keep getting an error. I suspect
that there is a problem with the TokeParser module installed on my host.
I receive this error message:
"Not a GLOB reference at
/usr/local/lib/perl5/site_perl/HTML/TokeParser.pm line 49."
when executing the following code. The error occurs at the point marked
with the stars (*):
#!/usr/local/bin/perl
use CGI;
# use LWP::Simple;
use HTML::TokeParser;
use LWP::UserAgent;
print "\n";
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST =>
'http://207.21.218.184/viva/SEARCH/3searchresults.asp');
$req->content_type('application/x-www-form-urlencoded');
$req->content('camefromform=y&MaxPrice=30&PrefTypes=-1&t=frm&reqsearch=S
earch+Now+>>');
$webPage = $ua->request($req);
&parse_title;
sub parse_title{
#parse and output page title
$p = HTML::TokeParser->new(shift||$webPage);
if ($p) {
*********************************************************
if ($p->get_tag("title")) {
*********************************************************
my $title = $p->get_trimmed_text;
print "Title: $title\n";
}
}
}
The code is taken from the documentation for the LWP module with a minor
modification and seems
syntactically correct which is why I suspect a fault with the modules
installed on my host. Please could someone tell me if they think I'm
right and any other details so I can inform the host with confidence or
if I'm at fault please can you explain why.
Thanks.
Richard
------------------------------
Date: Mon, 13 Nov 2000 18:17:45 GMT
From: fharris@xmission.com (Frank Harris)
Subject: Problems compiling DBI and HP-UX 11.0
Message-Id: <3a102f2c.1023222045@news.xmission.com>
I'm having a heck of a time trying to get DBI to compile with my HP-UX
11 system. I am guessing that the version of CC on the system isn't
exactly ANSI compliant, so I went ahead and installed GCC without any
troubles. Now I receive this message when I compile DBI using GCC:
/opt/gcc/bin/gcc -c -Ae -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O
+Onolimit -DVERSION=\"1.14\" -DXS_VERSION=\"1.14\" +z
-I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -DDBI_NO_THREADS Perl.c
gcc: +Onolimit: No such file or directory
gcc: +z: No such file or directory
*Initialization*:1: missing token-sequence in `#assert'
*** Error exit code 1
Stop.
-----------------------------------------
Any ideas how to fix this problem?
Any help that can be provided on this issue would be greatly
appreciated.
Thanks,
Frank
------------------------------
Date: Mon, 13 Nov 2000 16:23:04 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Realrates.com needs your Rate and Salary Data!
Message-Id: <8up4lf$c6q$1@news.mch.sbs.de>
In article <8uov5i$o6t$1@bob.news.rcn.net>, "Janet Ruhl" <ruhl@realrates.com> wrote:
[snip]
>I'm posting this message on the newsgroups where we've seen Real[something].com
>recommended as a resource over the past year.
[snip]
OK, so whenever any company name is mentioned in here
(say, Real*******), that should give them leave to spam
this newsgroup as well ?
Funny way of appreciating the free publicity, "we".
Michel.
------------------------------
Date: 13 Nov 2000 17:35:02 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Returning an array from C to Perl
Message-Id: <974136899.892379@hpvablab.cup.hp.com>
<vidulats@yahoo.co.uk> writes:
>Hello,
>
>I read this issue. (issue=6)
>
You might want to also look at the other issues -- you'll have to go to
the author's list of articles:
http://world.std.com/%7Eswmcd/steven/index.html
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Mon, 13 Nov 2000 12:53:44 -0500
From: Ron Hartikka <ronh@iainc.com>
Subject: Re: Sort
Message-Id: <3A102AA8.2DFB6D29@iainc.com>
until you get a more expert answer: I think you need the Schwartzian
transform which you can read about in perlfac4 and perlfunc, sort
jtjohnston wrote:
> I'm using this to sort the lines in a db file. The problem is each line
> begins with a number.
>
> When the number is below 10, it sorts like this:
>
> 1 asdasd
> 10 asdasd
> 2 asdasda
> 3 wsfdsdfs
>
> etc
>
> I would like to sort so that it would come out like:
>
> 1 asdasd
> 2 asdasda
> 3 wsfdsdfs
> 10 asdasd
>
> What do I have to do differently?
>
> Thanks,
>
> John
>
> ---------snip----------
>
> foreach $key (sort keys %DB){
> ($db_contact_name, $db_email, $db_title, $db_url, $db_desc,
> $db_keywords, $db_hits, $db_flag, $db_date, $db_time)
> = split (/\t/, $DB{$key});
>
> #...etc here I print html code
> }
------------------------------
Date: Mon, 13 Nov 2000 16:37:25 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <u4601t08o11l175qn4q4c0qs9dufu0ftn2@4ax.com>
Greg Bacon wrote:
>Bottom 10 Posters by OCR (minimum of five posts)
>=================================================
>
> (kb) (kb)
>OCR orig / body Posts Address
>----- -------------- ----- -------
>
>0.438 ( 6.2 / 14.1) 9 abigail@foad.org
Wow! What happened? ;-)
Traditionally, Abigail was always at the top of the top list of OCR.
--
Bart.
------------------------------
Date: Mon, 13 Nov 2000 16:40:44 -0000
From: "Geoff Winkless" <geoff-at-farmline-dot-com@127.0.0.1>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <8up5eq$bpe$1@soap.pipex.net>
"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:u4601t08o11l175qn4q4c0qs9dufu0ftn2@4ax.com...
> Greg Bacon wrote:
>
> >Bottom 10 Posters by OCR (minimum of five posts)
> >=================================================
> >
> > (kb) (kb)
> >OCR orig / body Posts Address
> >----- -------------- ----- -------
> >
> >0.438 ( 6.2 / 14.1) 9 abigail@foad.org
>
> Wow! What happened? ;-)
>
> Traditionally, Abigail was always at the top of the top list of OCR.
<newbie>What's OCR?</newbie>
G
------------------------------
Date: Mon, 13 Nov 2000 17:15:55 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <s9801t0bvbspr8a9ma5o4l44gndviopdhj@4ax.com>
Geoff Winkless wrote:
><newbie>What's OCR?</newbie>
Original Content Ratio. It's the amount of quoted text, compared to
original text, or better: amount of unquoted text over total amount of
text, expressed as a percentage.
Because of Abigail unorthodox way of quoting, he/she/it always got a
very high value, simply because quoted text wasn't recognized as such.
--
Bart.
------------------------------
Date: Mon, 13 Nov 2000 13:02:39 -0600
From: "Neil Trenholm" <neil@alaweb.com>
Subject: Using require and use across sytem boundries.....
Message-Id: <t10ejh3g4m0baa@corp.supernews.com>
Hello,
I am working on a small LAN (a dozen or so NT's and 2 UNIX boxes) and have
several perl setups on each machine. I would prefer to keep a common perl
library on one machine only and user require and use to fetch the
appropriate files from this common library.
It is my understanding that I should keep a \perl\bin and appropriate path
on each machine . But can I use
require \\machine1\library\cgi-lib.pl;
and
use \\machine1\mail\sendmail.pl;
to get at these files ?
Sincerely,
Neil
------------------------------
Date: Mon, 13 Nov 2000 17:58:30 GMT
From: Daniel Berger <djberg96@my-deja.com>
Subject: Re: Why is my hash coming untied?
Message-Id: <8upa43$6kr$1@nnrp1.deja.com>
Thanks! This was very helpful. Much appreciated.
Regards,
Dan
In article <3a07131b.2a50$129@news.op.net>,
mjd@plover.com (Mark-Jason Dominus) wrote:
>
> In article <8u6r3h$j95$1@nnrp1.deja.com>,
> Daniel Berger <djberg96@my-deja.com> wrote:
> >sub getHash{
> > tie %myHash, "Tie::IxHash";
> > %myHash = whatever...;
> >
> > #return \%myHash; - retains tie
> > return %myHash; - comes untied
> >}
> >
> >package Z;
> >use X;
> >
> >my %newHash = &getHash;
> >
> >
> >Is there any way to retain the tie in %newHash this way,
>
> %newHash was never tied, so there's no question of 'retaining the
> tie'. There's nothing to retain. %myHash is tied, and you have
> extracted a list of keys and values from it, returned that *list*, and
> used the list to initialize the untied hash %newHash.
>
> Perhaps this is more like that you want:
>
> sub getHash{
> tie %myHash, "Tie::IxHash";
> %myHash = whatever...;
>
> return \%myHash;
> }
>
> package Z;
> use X;
>
> local *newHash = &getHash;
>
> print %newHash; # %newHash is now tied
> print $newHash{foo}; # calls 'FETCH' on tied hash object
>
> Here's another alternative:
>
> package X;
> sub setup(\%) {
> my $theHash = shift;
> tie %$theHash, "Tie::IxHash";
> %$theHash = whatever ...;
> }
>
> package Z;
> use X;
> my %newHash;
> setup %newHash; # %newHash is now tied and initialized
>
> --
> @P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona
tsuJ";sub p{
> @p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P
[$f|ord
> ($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^
[P.]/&&
> close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/
\S/;print
>
--
In the immortal words of Socrates, "I drank what?"
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 13 Nov 2000 17:13:24 +0100
From: David Hiskiyahu <David.Hiskiyahu@alcatel.be>
Subject: Re: Working with time
Message-Id: <3A101324.5F43543@alcatel.be>
Kiel,
Your example is so simple - no dates involved, just hours,
minutes, seconds.
So why not just use simple maths to calculate the result?
Re-inventing the wheel is not always such a bad thing to do!
And some wheels are made in a few minutes, while found in hours ...
Of course, this should not become a habit that would block you
from using existing sources of ready solutions. The CPAN module
might offer some other functions which you might want to use
later, so why not learn it ...
Let's assume that we work with periods not longer than a day,
then you can use some very simple code to calculate begin time:
..............
e.g.:
% perl YourScript.pl '20:03:44' '18:23:45'
01:39:59
% perl YourScript.pl '20:03:44' '18:23:45'
22:20:01, yesterday
.............
# YourScript.pl:
($endtime, $period) = @ARGV;
print &BeginTime ($endtime, $period);
sub BeginTime {
($hh, $mm, $ss) = split (':', $endtime); $endsecs = $ss + 60 * ($mm + 60*$hh);
($hh, $mm, $ss) = split (':', $period); $persecs = $ss + 60 * ($mm + 60*$hh);
$whole_day = 24 * 3600;
$beginsecs = $endsecs - $persecs;
if ($beginsecs < 0) { $beginsecs += $whole_day; $yesterday = ', yesterday' }
$hh = int ($beginsecs / 3600); $rest = $beginsecs - 3600*$hh;
$mm = int ($rest / 60); $rest = $rest - 60*$mm;
$ss = $rest;
foreach ($ss,$mm,$hh) { s/^\d$/0$_/ }
return "$hh:$mm:$ss $yesterday";
}
With some skill the code could be made more elegant, but basically this
is all there is to it, just a few lines ...
Regards,
David.
Kiel Stirling wrote:
>
> Is there an easy way to subtract time ?
>
> well what I meen is if I had an end time of 13:59:00 hours
> and a period of 02:48:20 hours is there an easy way to get the
> start time ??
>
> Help!
>
> Kiel Stirling
--
*** David Hiskiyahu, Alcatel SRD, 1 Fr.Wellesplein, Antwerp ***
*** Phone/Fax: +32 3 240 7965/9820, private +32 3 290 0912 ***
Quote of the day:
You can fool too many of the people too much of the time.
- James Thurber
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4879
**************************************
