[25769] in Perl-Users-Digest
Perl-Users Digest, Issue: 8008 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 22 18:05:32 2005
Date: Fri, 22 Apr 2005 15:05:15 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 22 Apr 2005 Volume: 10 Number: 8008
Today's topics:
Adding Perl Core functions <guenther.sohler@newlogic.com>
Re: Adding Perl Core functions <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Adding Perl Core functions <jgibson@mail.arc.nasa.gov>
Re: Help getting started with Win32::Lanman <david.sanabria@morte_spam.thehartford.mortespam.com>
Installing JPL on Mac OS X <pauljlucas-removethis@removethistoo.mac.com>
Re: Installing JPL on Mac OS X <tadmc@augustmail.com>
Re: Installing JPL on Mac OS X <pauljlucas-removethis@removethistoo.mac.com>
Looping almost the same repetitive lines <hackeras@gmail.com>
Re: Looping almost the same repetitive lines <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Looping almost the same repetitive lines <hackeras@gmail.com>
Re: Looping almost the same repetitive lines <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Looping almost the same repetitive lines <hackeras@gmail.com>
Re: Looping almost the same repetitive lines <tadmc@augustmail.com>
Re: Looping almost the same repetitive lines <hackeras@gmail.com>
Re: Looping almost the same repetitive lines <mark.clementsREMOVETHIS@wanadoo.fr>
Re: Looping almost the same repetitive lines <mark.clementsREMOVETHIS@wanadoo.fr>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 22 Apr 2005 22:57:26 +0200
From: Guenther Sohler <guenther.sohler@newlogic.com>
Subject: Adding Perl Core functions
Message-Id: <pan.2005.04.22.20.57.26.596993@newlogic.com>
Hallo, I was able to integrate embedded perl into my c program.
So I am able to call perl scripts from within my program.
Now I want to call c routines from within the perl code.
How can I do so ? I have to add an extra function to perl
rds
------------------------------
Date: Fri, 22 Apr 2005 23:59:15 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Adding Perl Core functions
Message-Id: <426973bf$0$3144$8fcfb975@news.wanadoo.fr>
Guenther Sohler wrote:
> Hallo, I was able to integrate embedded perl into my c program.
> So I am able to call perl scripts from within my program.
> Now I want to call c routines from within the perl code.
> How can I do so ? I have to add an extra function to perl
Read the documentation for xs.
man perlxs
Mark
------------------------------
Date: Fri, 22 Apr 2005 15:01:04 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Adding Perl Core functions
Message-Id: <220420051501045922%jgibson@mail.arc.nasa.gov>
In article <pan.2005.04.22.20.57.26.596993@newlogic.com>, Guenther
Sohler <guenther.sohler@newlogic.com> wrote:
> Hallo, I was able to integrate embedded perl into my c program.
> So I am able to call perl scripts from within my program.
> Now I want to call c routines from within the perl code.
> How can I do so ? I have to add an extra function to perl
Read 'perldoc perlxs'
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----
------------------------------
Date: Fri, 22 Apr 2005 20:44:10 GMT
From: David Sanabria <david.sanabria@morte_spam.thehartford.mortespam.com>
Subject: Re: Help getting started with Win32::Lanman
Message-Id: <umdae.1551$iB1.576@newssvr19.news.prodigy.com>
David Sanabria wrote:
[Snip]
> PS. I will post my own script once I'm done hacking on it.
Here is the code I came up with in case anyone else needs something like
it. Enjoy!
#!perl -W
# **********************************************************************
# * NAME: MoveTemp.pl TYPE: Perl Script
# * VIS: script
# * AUTHOR: David Sanabria at thehartford CREATED: 22-Apr-2005
# *---------------------------------------------------------------------
# * PURPOSE: Look for an open file and close it before replacing with a
# * temp file
# *---------------------------------------------------------------------
# * CHANGE HISTORY:
# *
# *
# **********************************************************************
use strict;
use warnings;
use Win32::Lanman;
use Filehandle;
use File::Copy;
my $rootDir = "c:\\olsid\\reports\\r00031\\";
my $targetFile = "latest.xls";
my $tempFile = "Latest_tmp.xls";
my $targetID = '';
my $targetServer = "erdsimrem002";
my @fileEnums; #collection of enums
my $fileEnum; #iterator/individual object
my @fileInfo; #hash? with info from fileEnum() call
my $fileAttr; #hash element
#get Enums from server
if ( Win32::Lanman::NetFileEnum( $targetServer, $rootDir, '', \@fileEnums ))
{
#Loop through hash to find the file name if possible
open (RESULTS, ">Results.txt");
#copied & modified from Lanman example
foreach $fileEnum (@fileEnums)
{
if ( ${$fileEnum}{pathname} = ( "$rootDir$targetFile" ))
{
$targetID = ${$fileEnum}{id};
if( ! Win32::Lanman::NetFileClose( $targetServer, $targetID ) )
{
print RESULTS "Could not close file! Error: " .
Win32::Lanman::GetLastError();
close( RESULTS );
# Try to Replace old file
move( "$rootDir$tempFile", "$rootDir$targetFile");
die "Could not close file! Error: " .
Win32::Lanman::GetLastError();
}
}
}
# Try to Replace old file
move( "$rootDir$tempFile", "$rootDir$targetFile");
close( RESULTS );
}
else
{
#error handling here!
print RESULTS "Could not close file! Error: " .
Win32::Lanman::GetLastError();
close( RESULTS );
# Try to Replace old file
move( "$rootDir$tempFile", "$rootDir$targetFile");
die "An error occurred trying to get enums: " .
Win32::Lanman::GetLastError();
}
# Try to Replace old file
move( "$rootDir$tempFile", "$rootDir$targetFile");
__END__
------------------------------
Date: Fri, 22 Apr 2005 20:04:19 GMT
From: "Paul J. Lucas" <pauljlucas-removethis@removethistoo.mac.com>
Subject: Installing JPL on Mac OS X
Message-Id: <7Ncae.2078$zX7.874@newssvr13.news.prodigy.com>
So I tried doing this using Perl 5.8.6 and it's horribly broken
under Mac OS X 10.3.x. It spplies options to cc it doesn't
like, it fails to link properly, it can't find jni.h even though
it's right in $JAVA_HOME/include, yadda yadda.
Has anybody built JPL successfully under Mac OS X?
- Paul
------------------------------
Date: Fri, 22 Apr 2005 15:43:11 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Installing JPL on Mac OS X
Message-Id: <slrnd6ioev.5jn.tadmc@magna.augustmail.com>
Paul J. Lucas <pauljlucas-removethis@removethistoo.mac.com> wrote:
> Has anybody built JPL successfully under Mac OS X?
What is "JPL" ?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 22 Apr 2005 20:48:32 GMT
From: "Paul J. Lucas" <pauljlucas-removethis@removethistoo.mac.com>
Subject: Re: Installing JPL on Mac OS X
Message-Id: <Aqdae.2131$zX7.1606@newssvr13.news.prodigy.com>
Tad McClellan <tadmc@augustmail.com> wrote:
> Paul J. Lucas <pauljlucas-removethis@removethistoo.mac.com> wrote:
>
> > Has anybody built JPL successfully under Mac OS X?
>
> What is "JPL" ?
http://www.oreilly.com/catalog/prkunix/excerpt/UGch03.html
- Paul
------------------------------
Date: Fri, 22 Apr 2005 22:05:38 +0300
From: Nikos <hackeras@gmail.com>
Subject: Looping almost the same repetitive lines
Message-Id: <d4bhtv$aev$1@nic.grnet.gr>
print table( {class=>'info'},
Tr( td( submit( -name=>'game', -value=>'LogReader' )),
td( "ÄéáâÜóôå Üíåôá êáé åõ÷Üñéóôá ôá Log óáò! Made by Skia ;-)" ),
td( $row->{LogReader} )),
Tr( td( submit( -name=>'game', -value=>'Hangman' )),
td( "Èõìçèåßôå ôá ðáéäéêÜ óáò ÷ñüíéá! Ðáßîôå êñåìÜëá!" ),
td( $row->{Hangman} )),
Tr( td( submit( -name=>'game', -value=>'Penguin' )),
td( "Åëåõèåñþóôå ôïõò öõëáêéóìÝíïõò ðéãêïõßíïõò áðü ôïõò ðÜãïõò!" ),
td( $row->{Penguin} )),
Tr( td( submit( -name=>'game', -value=>'ChickenInvaders' )),
td( "Ç åðßèåóç ôçò âáëôï÷éïíüêïôáò ôïõ Ricudi! Öõëá÷ôåßôå!" ),
td( $row->{ChickenInvaders} )),
Tr( td( submit( -name=>'game', -value=>'DxBall2' )),
td( "Ôï êáëýôåñï Arkanoid ðïõ Ý÷ù äåé ðïôÝ ìïõ!" ),
td( $row->{DxBall2} )),
Tr( td( submit( -name=>'game', -value=>'JezzBall' )),
td( "¼óïé áãáðÞóáôå ôï Xonix èá áãáðÞóåôå óßãïõñá êáé áõôü!" ),
td( $row->{JezzBall} )),
Tr( td( submit( -name=>'game', -value=>'Mahjongg' )),
td( "Ôï ãíùóôü óå üëïõò Shangai êáé Üëëá êéíÝæéêá ðáé÷íßäéá!" ),
td( $row->{Mahjongg} )),
Tr( td( submit( -name=>'game', -value=>'FeedingFrenzy' )),
td( "Ôáßóôå ôï øáñÜêé Frenzy Ýùò üôïõ ãßíåé ìåãÜëï êáé äõíáôü!" ),
td( $row->{FeedingFrenzy} )),
Tr( td( submit( -name=>'game', -value=>'Astrobatics' )),
td( "ÐåñéçãåéèÞôå óôï ÄéÜóôçìá êáé åîïíôþóôå üëá ôá åìðüäéá!" ),
td( $row->{Astrobatics} )),
Tr( td( submit( -name=>'game', -value=>'Scrabble' )),
td( "Ðïéüò åßíáé ãéá Ýíá ðáé÷íßäé Scrabble? Ôï ðëÝïí äçìïöéëÝò!" ),
td( $row->{Scrabble} )),
Tr( td( submit( -name=>'game', -value=>'PacMania2' )),
td( "Äýóêïëï Pacman ãéá ìáíéáêüõò ôïõ åßäïõò! Äåí èá îåêïëëÜôå!" ),
td( $row->{PacMania2} )),
Tr( td( submit( -name=>'game', -value=>'FrozenBubble' )),
td( "ÐáãùìÝíï Bubble Puzzle ìå åîáéñåôéêÞ ìïõóéêÞ!" ),
td( $row->{FrozenBubble} )),
Tr( td( submit( -name=>'game', -value=>'LinkLines' )),
td( "Áêüìá Ýíá êëáóéêü ðáé÷íßäé ìå ãñáììÝò êáé ìðÜëåò!" ),
td( $row->{LinkLines} )),
Tr( td( submit( -name=>'game', -value=>'ComboChaos' )),
td( "Ðáé÷íßäé ðáñáôçñçôéêüôçôáò! Ðüóï ãñÞãïñá âñßóêåéò ôá
üìïéá?!?" ),
td( $row->{ComboChaos} )),
Tr( td( submit( -name=>'game', -value=>'MadCaps' )),
td( "ÔñåëïêáðÜêéá! ÂÜëôå ôá óå ìéá ôÜîç åðéôÝëïõò!" ),
td( $row->{MadCaps} )),
Tr( td( submit( -name=>'game', -value=>'MiniGolf' )),
td( "ÔñéóäéÜóôáôï Minigolf! Óõíáãùíçóôåßôå ôïõò ößëïõò óáò!" ),
td( $row->{MiniGolf} )),
Tr( td( submit( -name=>'game', -value=>'AstroPop' )),
td( "Åôïéìáóôåßôå íá ðáßîåôå Ýíá ðñùôüôõðï äéáóôçìéêü ðáé÷íßäé!" ),
td( $row->{AstroPop} )),
Tr( td( submit( -name=>'game', -value=>'TinyCars2' )),
td( "Áãþíåò äñüìïõ ìå ëéëéðïýôåéá áìáîÜêéá!" ),
td( $row->{TinyCars2} )),
Tr( td( submit( -name=>'game', -value=>'BrainsBreaker' )),
td( "Åîáóêçèåßôå óôçí õðïìïíÞ! ÖôéÜ÷ôå óõíáñðáóôéêÜ Puzzles!" ),
td( $row->{BrainsBreaker} )),
Tr( td( submit( -name=>'game', -value=>'AlphaBall' )),
td( "ÔñéóäéÜóôáôï Arkanoid ðïõ îå÷ùñßæåé áðü ôá õðüëïéðá ôïõ
åßäïõò ôïõ!" ),
td( $row->{AlphaBall} )),
Tr( td( submit( -name=>'game', -value=>'VortiBall' )),
td( "ÂïçèÞóôå áõôÞ ôç ìðÜëá íá âñåß ôï äñüìï ôçò!" ),
td( $row->{VortiBall} )),
Tr( td( submit( -name=>'game', -value=>'Tetris4000' )),
td( "Áðïëáõóôéêü ôñéóäéÜóôáôï Tetris ãéá ôïõò öáíáôéêïýò ôïõ
åßäïõò!" ),
td( $row->{Tetris4000} )));
print end_form();
Is there a way to write the above code with the use of a loop?
Each line is slightly different from the other i dont know how to lopp it.
The above code was much-much worse before i udes CSS in "style.css" like
the following:
table.info {
background-image : url(../data/images/nebula.jpg);
width : 25%;
color : yellow;
text-align : center;
font : 18px times;
border : 3px ridge red;
border-collapse: : collapse;
}
it was all print and font and width and align and stuff like that that i
hate but now with the use of css i can just describe it just once.
If you see something wrong in it or can suggest somethign better please
let me know.
------------------------------
Date: Fri, 22 Apr 2005 21:25:28 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <42694fb2$0$3135$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> print table( {class=>'info'},
> Tr( td( submit( -name=>'game', -value=>'LogReader' )),
> td( "ÄéáâÜóôå Üíåôá êáé åõ÷Üñéóôá ôá Log óáò! Made by Skia ;-)" ),
> td( $row->{LogReader} )),
> Tr( td( submit( -name=>'game', -value=>'Hangman' )),
> td( "Èõìçèåßôå ôá ðáéäéêÜ óáò ÷ñüíéá! Ðáßîôå êñåìÜëá!" ),
> td( $row->{Hangman} )),
<snip other rows>
>
> Is there a way to write the above code with the use of a loop?
> Each line is slightly different from the other i dont know how to lopp it.
HTML::Template or similar would be good for this, but then this has been
pointed out to you before. If you insist on doing it this way: load the
data from an external file or (better) a database;
Assuming each row of data is loaded into a hashref, something like this
should do it:
my @tableRows = ();
while(my $item = getDataRowByWhateverMeans()){
push @tableRows, $item;
};
print table( {class=>'info'},
map { Tr(
td( submit( -name=>'game', -value=>$_->{name})),
td( $_->{text} ),
td( $_->{name} )
)
} @tableRows
);
You need to think about separation of data and code as well as
separation of logic and content.
Mark
------------------------------
Date: Fri, 22 Apr 2005 22:47:25 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <d4bkc9$cic$1@nic.grnet.gr>
Mark Clements wrote:
print start_form(-action=>'games.pl');
$st = $db->prepare( "SELECT * FROM counter" );
$st->execute();
$row = $st->fetchrow_hashref;
@tableRows = ();
while( $item = $row ) {
push @tableRows, $item;
};
print table( {class=>'info'},
map {
Tr(
td( submit( -name=>'game', -value=>$_->{name})),
td( $_->{text} ),
td( $_->{name} )
)
} @tableRows
);
print end_form();
Although i have created the hashref when i try to run games.pl the page
never loads.
I cant see the mistake.
ps. its ok about the my i actually never use them.
------------------------------
Date: Fri, 22 Apr 2005 21:54:57 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <4269569c$0$11709$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> Mark Clements wrote:
>
> print start_form(-action=>'games.pl');
I didn't, but anyway...
> $st = $db->prepare( "SELECT * FROM counter" );
> $st->execute();
> $row = $st->fetchrow_hashref;
>
> @tableRows = ();
>
> while( $item = $row ) {
> push @tableRows, $item;
> };
You misunderstand DBI.
Are you sure that $db is a valid db handle? You need to check the return
values of both prepare and execute.
Then you need to do
while(my $item = $st->fetchrow_hashref()){
blah blah
<snip>
> Although i have created the hashref when i try to run games.pl the page
> never loads.
> I cant see the mistake.
What happens when you print the results to the screen ie run the script
from the command line?
>
> ps. its ok about the my i actually never use them.
This is a mistake. You *need* to run with
use warnings;
use strict;
as these catch a heap of errors for you. You need to scope variables as
tightly as possible. This involves using my. If you don't take this
simple advice, then you will be causing yourself a lot of grief, and
when you turn to this newsgroup for advice, then people will not be
very willing to help you. In fact, the first thing they will say will be
why aren't you.....
Also, learn to use Data::Dumper: it is very useful for inspecting data
structures.
Mark
------------------------------
Date: Fri, 22 Apr 2005 23:19:12 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <d4bm80$e6p$1@nic.grnet.gr>
Mark Clements wrote:
> Are you sure that $db is a valid db handle? You need to check the return
> values of both prepare and execute.
>
> Then you need to do
>
> while(my $item = $st->fetchrow_hashref()){
> blah blah
>
> <snip>
>
>> Although i have created the hashref when i try to run games.pl the
>> page never loads.
>> I cant see the mistake.
>
> What happens when you print the results to the screen ie run the script
> from the command line?
Yes $db is ok since i assign the value to it:
$db = ($ENV{'SERVER_NAME'} ne 'nikolas.50free.net')
? DBI->connect('DBI:mysql:nikos_db', 'root', '')
: DBI->connect('DBI:mysql:nikos_db:50free.net', 'nikos_db', '*****')
or print font({-size=>5, -color=>'Lime'}, $DBI::errstr) and exit 0;
$st = $db->prepare( "SELECT * FROM counter" );
$st->execute();
$row = $st->fetchrow_hashref;
@tableRows = ();
while( $item = $st->fetchrow_hashref()) {
push @tableRows, $item;
};
print table( {class=>'info'},
map {
Tr(
td( submit( -name=>'game', -value=>$_->{name} )),
td( $_->{text} ),
td( $_->{name} )
)
} @tableRows
);
Whne i perl -c games.pl it says games.pl syntax OK from command line
when i view it from the broswer the only thing it displays is some other
text above that code and nothing more. i t not evne designs the table.
------------------------------
Date: Fri, 22 Apr 2005 15:37:47 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <slrnd6io4r.5jn.tadmc@magna.augustmail.com>
Nikos <hackeras@gmail.com> wrote:
> ps. its ok about the my i actually never use them.
OK, I've had enough.
*plonk*
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 22 Apr 2005 23:48:39 +0300
From: Nikos <hackeras@gmail.com>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <d4bnv6$fa7$1@nic.grnet.gr>
Tad McClellan wrote:
> Nikos <hackeras@gmail.com> wrote:
>
>
>>ps. its ok about the my i actually never use them.
But man i write small cgi progs and i always define the varibles and use
them once so its not big deal if i dont use my.
------------------------------
Date: Fri, 22 Apr 2005 23:50:51 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <426971c6$0$25024$8fcfb975@news.wanadoo.fr>
Nikos wrote:
>
> $st = $db->prepare( "SELECT * FROM counter" );
you need to check the return value of this.
What happens when you execute this statement directly within the db
console? (mysql in this case) Do you get any results?
> $st->execute();
and checj the return value of this.
> $row = $st->fetchrow_hashref;
>
> @tableRows = ();
>
> while( $item = $st->fetchrow_hashref()) {
> push @tableRows, $item;
> };
What happens when you use Data::Dumper to display @tablerows? Is it
empty? If so, you have an issue with your query.
> print table( {class=>'info'},
> map {
> Tr(
> td( submit( -name=>'game', -value=>$_->{name} )),
> td( $_->{text} ),
> td( $_->{name} )
> )
> } @tableRows
> );
>
> Whne i perl -c games.pl it says games.pl syntax OK from command line
Fine: it compiles. That doesn't tell us a lot. What happens when you
*run* it?
> when i view it from the broswer the only thing it displays is some other
> text above that code and nothing more. i t not evne designs the table.
You need to learn to partition your problem. What the browser displays
is academic at this point; first of all you need to ascertain what the
script is doing at what it outputs. You don't seem to know how to debug
your programs.
You *need* to use strict. You *need* to use warnings. You *need* to use
my. If you don't understand why, you need to read some more.
Mark
------------------------------
Date: Fri, 22 Apr 2005 23:57:52 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Looping almost the same repetitive lines
Message-Id: <4269736b$0$3144$8fcfb975@news.wanadoo.fr>
Nikos wrote:
> Tad McClellan wrote:
>
>> Nikos <hackeras@gmail.com> wrote:
>>
>>
>>> ps. its ok about the my i actually never use them.
>
>
> But man i write small cgi progs and i always define the varibles and use
> them once so its not big deal if i dont use my.
Nikos: you can drive a car without ever using the mirror, but that
doesn't make it a good idea. You can also drive a car without using the
clutch and gearstick (ok - or the equivalent in an automatic car), but
you won't get very far. You've been advised *multiple* times to use
warnings, and strict, and lexically scoped variables. There is good
reason for that advice. You have already exhausted the patience of one
person here who has tried to help you. If you want help, you have to
take certain things on board. You do not appear to be doing this.
I don't think I can help you any further.
regards,
Mark
------------------------------
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 V10 Issue 8008
***************************************
