[17171] in Perl-Users-Digest
Perl-Users Digest, Issue: 4583 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 11 11:10:30 2000
Date: Wed, 11 Oct 2000 08:10:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <971277013-v9-i4583@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 11 Oct 2000 Volume: 9 Number: 4583
Today's topics:
Re: Problem with duplicate entries in database <michael.segulja@sgi-lsi.com>
Problems using c-functions in Perl <johan.ditmar@era.ericsson.se>
Processing a MS access DB file (matt venn)
Re: Reading a whole file into a string mexicanmeatballs@my-deja.com
Re: Reading a whole file into a string <godzilla@stomp.stomp.tokyo>
Re: Reg exp help (Gwyn Judd)
Re: Reg exp help <jeffp@crusoe.net>
save blob from database <pilsl@goldfisch.atat.at>
Re: save blob from database <ubl@schaffhausen.de>
sendmal doesn't return emails to unknown email-addresse <marc.poelzer@jk.uni-linz.ac.at>
Template modules <driquier@speedware.com>
Re: Unbuffered read from serial device ? <noemail@us.com>
Re: Unbuffered read from serial device ? <noemail@us.com>
Re: What does $++ mean? (Villy Kruse)
Will perl help me to create directory in writing file? <carfield@programmer.net>
Re: Will perl help me to create directory in writing fi (Rafael Garcia-Suarez)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 11 Oct 2000 13:34:53 GMT
From: Michael Segulja <michael.segulja@sgi-lsi.com>
Subject: Re: Problem with duplicate entries in database
Message-Id: <8s1q9t$6m3$1@nnrp1.deja.com>
Thanks for your response. I discovered, after I posted this message of
course, that I'm a total idiot! :) I had somehow left the second
execute statement lying around, and that was what the problem is.
However, I have a different problem now that I have removed it. It
seems that the script now randomly picks a song to duplicate. As an
example, it picked Metallica's 'One', and entered it twice. There is
only one one.mp3 file on my hard drive, yet the script seems to think
it's there twice. Any ideas there?
By the way, thanks for the info about the disconnect. I wondered about
that, but just hadn't tried moving it yet.
Thanks again,
Michael
In article <8s16t3$ck4$1@uns-a.ucl.ac.uk>,
a.peacock@chime.ucl.ac.uk (Anthony Peacock) wrote:
> In article <8rvq9s$k37$1@nnrp1.deja.com>, michael.segulja@sgi-lsi.com
says...
> >
> >I have written a perl script that reads in a specific directory of
mp3
> >files and inserts the tag info into a MySql database. I don't really
> >know if this is more of a MySql question or a perl question, so
forgive
> >me if this is not the appropriate place to ask.
> >
> >Everything works great except that each mp3 file is entered twice in
> >the database. If I output the tag info to STDOUT, I see each song
> >once. But if I insert the output into my database, each song is
> >entered twice. I have included the perl source to see if that's the
> >problem. I'm using this to learn perl, so I'm pretty clueless on
what
> >to look for.
> >
> >I really appreciate any help anybody can give. If it's a MySql
problem
> >let me know, and I'll ask in that group. Something I'm also trying
to
> >figure out is how to create a unique index on the title column, but
> >that's definitely for the MySql group.
>
> <SNIP>
>
> >
> > # Connect to the database mp3db.
> > my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host",
> > $user, $password, {RaiseError => 1} );
> >
> > # Insert MP3 tag info into table mp3main.
> > my $sth=$dbh->prepare("INSERT INTO mp3main
> > (album, artist, title, genre, comment, bitrate, version,
> >mpeg_layer, durationM,
> > durationS, year) VALUES (?,?,?,?,?,?,?,?,?,?,?)" );
> >
> > $sth->execute($album, $artist, $title, $genre, $comment,
> >$bitrate, $version, $layer,
> > $durationM, $durationS, $year) || die "Insert
> >Failed";
> > $sth->execute();
>
> What is this second execute doing? I am not too sure what calling
execute
> with no parameters will do, but it looks wrong to me.
>
> Also why connect to the database and disconnect each time? Put your
> connection outside the foreach loop.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 11 Oct 2000 12:55:30 +0200
From: "Johan Ditmar" <johan.ditmar@era.ericsson.se>
Subject: Problems using c-functions in Perl
Message-Id: <8s1gg4$48q$1@newstoo.ericsson.se>
Hi All,
I have a problem using c-extensions. To be able to access a piece of
hardware in my PC, I want
to be able to access C-functions from Perl. I bought a book about this
(Win32 Perl Programming) and I followed one of the examples in the book. I
use Visual C++ 6 for compiling and I use it together with ActiveState
5.6.0.618.
The C-extension C++ code is given below. The C-function that I want to use
in my Perl program is Connect2Server() as defined in library ESLClient.h. I
generated a new project (win 32 dll) and added my code to it. When I compile
the code, the following error is generated:
------
D:\Projects\ESL\ESL.cpp(31) : error C2352: 'CPerlObj::Perl_newXS' : illegal
call of non-static member function
d:\program files\perl\lib\core\proto.h(523) : see declaration of
'Perl_newXS'
Error executing cl.exe.
-----
I kind of solved this problem by making the method CPerlObj::Perl_newXS in
proto.h static. Isn't it weird that one has to edit the header files, that
are part of ActivePerl? Is there another way of solving this problem?
After this, I compiled the code again, but then I got the following errors:
-----
SL.obj : error LNK2001: unresolved external symbol _Perl_Isv_yes_ptr
ESL.obj : error LNK2001: unresolved external symbol _Perl_Tmarkstack_ptr_ptr
ESL.obj : error LNK2001: unresolved external symbol _Perl_Tstack_base_ptr
ESL.obj : error LNK2001: unresolved external symbol _Perl_Tstack_sp_ptr
ESL.obj : error LNK2001: unresolved external symbol "public: static struct
cv * __cdecl CPerlObj::Perl_newXS(char *,void (__cdecl*)(class CPerlObj
*,struct cv *),char *)"
(?Perl_newXS@CPerlObj@@SAPAUcv@@PADP6AXPAV1@PAU2@@Z0@Z)
Debug/ESL.dll : fatal error LNK1120: 5 unresolved externals
Error executing link.exe.
------
Does anybody have any idea how I can solve this? I already tried to link
'perl.h' externally (extern "C" { perl.h } ) but that is not allowed. The
Perl header files are all in my library path.
I would really appreciate your help!
------
#define MSWIN32
#define PERL_OBJECT
#define WIN32_LEAN_AND_MEAN
#define DBNTWIN32
#include <windows.h>
#include "win32.h"
extern "C"
#include "ESLClient.h"
}
#include "perl.h"
#include "EXTERN.h"
#include "Xsub.h"
HINSTANCE ghInstance = NULL;
DWORD gdwThreads = 0;
XS( ExtensionConnect2Server )
{
dXSARGS;
Connect2Server();
XSRETURN_YES;
}
XS( boot_Win32__ESL )
{
dXSARGS;
char *pszFile = __FILE__;
newXS( "Win32::ESL::Connect2Server", ExtensionConnect2Server, pszFile );
ST( 0 ) = &PL_sv_yes;
XSRETURN( 1 );
}
BOOL WINAPI DllMain( HINSTANCE hInstance,
DWORD dwReason,
LPVOID lpReserved )
{
BOOL bResult = TRUE;
switch( dwReason )
{
case DLL_PROCESS_ATTACH:
ghInstance = hInstance;
break;
case DLL_THREAD_ATTACH:
gdwThreads++;
break;
case DLL_THREAD_DETACH:
gdwThreads--;
break;
case DLL_PROCESS_DETACH:
break;
}
return( bResult );
}
------
------------------------------
Date: Wed, 11 Oct 2000 11:41:29 GMT
From: matt@nospamcipherdesign.com (matt venn)
Subject: Processing a MS access DB file
Message-Id: <39e44f71.12243865@news.ntlworld.com>
Hey all,
I'm having difficulty wading my way through the documentation
regarding DBI, DBD::ODBC etc. I was wondering if someone could set me
off in the right direction so I waste less time.
I have a bunch of MS access files (*.mdb) that I want to process using
Perl regular expressions. For example, one of the database tables has
an Address field in it, and I want to take the zipcode out of the
address, and insert it into a new column of the same table.
I have had a look at converting the tables to delimited text files
(with MS access), but I don't think that this is the best solution.
While browsing for info, I found this code snippet:
>I have used the following code to connect to an access database (mdb
>file).
>
>$filemdb = "c:\\Nov99.mdb";
>$DSN = "dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq=$filemdb";
>my $dbh = DBI->connect("dbi:ODBC:$DSN", '','', {RaiseError => 1}) || die
>"Can't connect";
This seems to be what I want to do. Is this method working without a
DB server? Previously I have used Perl to connect to a MySQL DB using
DBI, but this seems to be connecting straight to a file. Is that
right? Will it work?
If this is the right method, then I will need to use DBD::ODBC, but is
there anything else I need for that to work?
Thanks for any help!
Matt
------------------------------
Date: Wed, 11 Oct 2000 10:01:37 GMT
From: mexicanmeatballs@my-deja.com
Subject: Re: Reading a whole file into a string
Message-Id: <8s1dpv$t33$1@nnrp1.deja.com>
In article <39E3B9DF.6F6AE374@stomp.stomp.tokyo>,
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote:
> Clearly this is a woman's job, a task for a woman
> who both understands and knows how to use local ()
> correctly and effectively.
Yeah, but Abigail seems to have disappeared, and
no-one else has made this point yet.
So I guess I'll have to help, hindered no end
by my genitalia..
> undef local ($/);
All this undef combined with local thing is pointless,
localising will undef the value:
bash$ cat local.pl
#!/usr/bin/perl -w
print defined $/ ? "def\n" : "undef\n";
{
local $/;
print defined $/ ? "def\n" : "undef\n";
}
print defined $/ ? "def\n" : "undef\n";
bash$ ./local.pl
def
undef
def
bash$
--
Jon
perl -e 'print map {chr(ord($_)-3)} split //, "MrqEdunhuClqdph1frp";'
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 11 Oct 2000 06:19:08 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Reading a whole file into a string
Message-Id: <39E468CC.F7DCE00D@stomp.stomp.tokyo>
mexicanmeatballs@my-deja.com wrote:
> Godzilla! wrote:
> > Clearly this is a woman's job, a task for a woman
> > who both understands and knows how to use local ()
> > correctly and effectively.
> Yeah, but Abigail seems to have disappeared, and
> no-one else has made this point yet.
> So I guess I'll have to help, hindered no end
> by my genitalia..
> > undef local ($/);
> All this undef combined with local thing is pointless,
> localising will undef the value:
Why are you repeating what I have already said
with example, repeating what clearly none of you
boys are capable of understanding, even when
written in your own Geek Language?
Polly want a cracker?
Godzilla!
------------------------------
Date: Wed, 11 Oct 2000 12:55:58 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Reg exp help
Message-Id: <slrn8u8oqp.78n.tjla@thislove.dyndns.org>
I was shocked! How could a94eribe@my-deja.com <a94eribe@my-deja.com>
say such a terrible thing:
>Hi
>
>I´m new to regular expressions and I would like some help.
>
>I need to check that the user submitted a correct quantity.
>
>A correct quantity is numeral and can contain one comma (,).
numeral:
if (m/^[\d,]+$/)
{
# numeral containing commas (not sure how many)
$num_commas = tr/,//;
if ($num_commas > 1)
{
# too many commas
}
}
Check the documentation:
perldoc perlre
perldoc perlop # see the 'tr' operator which I used to count the commas
No doubt there is a way to combine those two operations into one. (which
no doubt someone will chime in with *cue*)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
This night methinks is but the daylight sick.
-- William Shakespeare, "The Merchant of Venice"
------------------------------
Date: Wed, 11 Oct 2000 10:31:03 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Reg exp help
Message-Id: <Pine.GSO.4.21.0010111019230.14163-100000@crusoe.crusoe.net>
On Oct 11, Gwyn Judd said:
>I was shocked! How could a94eribe@my-deja.com <a94eribe@my-deja.com>
>say such a terrible thing:
>>Hi
>>
>>A correct quantity is numeral and can contain one comma (,).
>
>if (m/^[\d,]+$/)
>{
> # numeral containing commas (not sure how many)
> $num_commas = tr/,//;
>
> if ($num_commas > 1)
> {
> # too many commas
> }
>}
>
>No doubt there is a way to combine those two operations into one. (which
>no doubt someone will chime in with *cue*)
The specs are slightly vague, but what I write accepts:
12345
12345,
,12345
12,345
(Drum roll.)
$number =~ /\A(?=\d|,\d)\d*(?:,\d*)?\z/;
Unrolled, it's:
$number =~ m{
\A # beginning of string
(?= \d | ,\d ) # look ahead for digit, or comma and then digit
\d* # 0 or more digits
(?: , \d* )? # a comma, then 0 or more digits (optional)
\z # end of string
}x;
It's modelled after the regex in the FAQ on matching a C float.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: Wed, 11 Oct 2000 11:56:59 GMT
From: peter pilsl <pilsl@goldfisch.atat.at>
Subject: save blob from database
Message-Id: <MPG.144e748b468950459898d7@news.chello.at>
I have a bunch of files stored in a sql-database and process them using
the dbi-modules. My problem is: when I save this files, I cant assign them
an individual filename. All the files are named by the script.
this is what I do (highly simplified)
<a href="download.pl?id=xxxx">
and then download.pl:
syswrite STDOUT, "Content-Type: ".$contenttype."\n";
syswrite STDOUT, $buf, $length;
when downloading the file it gets named download.extension, where
extension depends on the contenttype. But I want to set funny,
descriptional and individual filenames.
Any idea ?
thanx,
peter
--
pilsl@
goldfisch.at
------------------------------
Date: Wed, 11 Oct 2000 15:31:04 +0200
From: Malte Ubl <ubl@schaffhausen.de>
Subject: Re: save blob from database
Message-Id: <39E46B98.44CBD62C@schaffhausen.de>
peter pilsl schrieb:
> I have a bunch of files stored in a sql-database and process them using
> the dbi-modules. My problem is: when I save this files, I cant assign them
> an individual filename. All the files are named by the script.
>
> this is what I do (highly simplified)
>
> <a href="download.pl?id=xxxx">
>
> and then download.pl:
>
> syswrite STDOUT, "Content-Type: ".$contenttype."\n";
> syswrite STDOUT, $buf, $length;
>
> when downloading the file it gets named download.extension, where
> extension depends on the contenttype. But I want to set funny,
> descriptional and individual filenames.
> Any idea ?
Well, the file you download is called download.pl, right? So one would expect
the downloaded file to be called download.pl.
A solution (not a nice one) to your problem would be to write to a temporary
file with the correct name and then redirect the user to that file.
malte
------------------------------
Date: Wed, 11 Oct 2000 13:17:46 +0200
From: "Marc Pölzer" <marc.poelzer@jk.uni-linz.ac.at>
Subject: sendmal doesn't return emails to unknown email-addresses
Message-Id: <39e44c2c$0$26698@SSP1NO25.highway.telekom.at>
Hi ,
I encountered a problem when using sendmail in my perl-program.
The sending of emails works perfectly well. But there's one problem i have.
Whenever an invalid or non-existing email-adress is passed to sendmail thru
my program, sendmail doesn't return this email to the address specified in
the "From: ...:" field.
Why ?
is there any option (resp. parameter) that i have to set, in order to get
sendmail return those invalid mails to me.
It's really a problem as I can never find out whether the email-addresses do
work or not.
I'd be glad for some advice
Thank you !!!
------------------------------
Date: Wed, 11 Oct 2000 09:23:21 -0400
From: "Daniel Riquier" <driquier@speedware.com>
Subject: Template modules
Message-Id: <4QZE5.38056$Z2.574096@nnrp1.uunet.ca>
Hello,
there seems to be more than one Perl Template Module available on the WEB.
I'd like to know which one is the most often used. I'd like some comments
regarding its advantages over other Perl template modules.
I'd also appreciate if someone was able to give me a URL that shows
statistics about Perl module utilization.
Also, I'd like to know if there's any Perl Template Module for Phone.com's
HDML and for WAP/WML.
Thanks
------------------------------
Date: Wed, 11 Oct 2000 08:46:02 -0500
From: "Gordon Durnell" <noemail@us.com>
Subject: Re: Unbuffered read from serial device ?
Message-Id: <su8roqn3rcev1c@corp.supernews.com>
I've tried the 4-arg select, but I must be getting the syntax a bit off.
open(DEVIN, "< /dev/ttys0") or die "Can't open input port";
:
$rin = $win = $ein = '';
vec($rin,fileno(DEVIN),1) = 1;
vec($win,fileno(DEVIN),1) = 1;
$ein = $rin | $win;
:
$nfound = select($rin, $win, $ein, 1);
if ($nfound > 0) {
sysread DEVIN, $character, 1;
:
}
It doesn't seem to fall out of the select if there is nothing read within 1
second, as I would expect.
What am I missing?
"Uri Guttman" <uri@sysarch.com> wrote in message
news:x7vgv01mc3.fsf@home.sysarch.com...
> >>>>> "GD" == Gordon Durnell <noemail@us.com> writes:
>
> GD> Is it possible to use getc (or something similar) to read from a
serial
> GD> device and exit if there is nothing in the input buffer?
Alternately, a
> GD> function that returns the number of bytes currently in the input
buffer
> GD> would do the trick.
>
> GD> What I really need is a sysread that fails if a specified string
> GD> is not read within a specified time. i.e. read_with_timeout(
> GD> file_handle, string_to_detect, timeout );
>
> look up 4 arg select. or IO::Select.pm or Event.pm.
>
> uri
>
> --
> Uri Guttman --------- uri@sysarch.com ----------
http://www.sysarch.com
> SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX
Consulting
> The Perl Books Page -----------
http://www.sysarch.com/cgi-bin/perl_books
> The Best Search Engine on the Net ----------
http://www.northernlight.com
------------------------------
Date: Wed, 11 Oct 2000 09:28:00 -0500
From: "Gordon Durnell" <noemail@us.com>
Subject: Re: Unbuffered read from serial device ?
Message-Id: <su8u7grevss3dd@corp.supernews.com>
Never mind -- I think I found my problem. I just needed to look at the
input buffer, so I changed it to:
open(DEV, "+</dev/ttys0") or die "Can't open input port";
and
$nfound = select($rout = $rin, undef, undef, 1);
Thanks for the original pointer.
Gordon
"Gordon Durnell" <noemail@us.com> wrote in message
news:su8roqn3rcev1c@corp.supernews.com...
> I've tried the 4-arg select, but I must be getting the syntax a bit off.
>
> open(DEVIN, "< /dev/ttys0") or die "Can't open input port";
> :
> $rin = $win = $ein = '';
> vec($rin,fileno(DEVIN),1) = 1;
> vec($win,fileno(DEVIN),1) = 1;
> $ein = $rin | $win;
> :
> $nfound = select($rin, $win, $ein, 1);
> if ($nfound > 0) {
> sysread DEVIN, $character, 1;
> :
> }
>
> It doesn't seem to fall out of the select if there is nothing read within
1
> second, as I would expect.
> What am I missing?
>
>
>
>
>
> "Uri Guttman" <uri@sysarch.com> wrote in message
> news:x7vgv01mc3.fsf@home.sysarch.com...
> > >>>>> "GD" == Gordon Durnell <noemail@us.com> writes:
> >
> > GD> Is it possible to use getc (or something similar) to read from a
> serial
> > GD> device and exit if there is nothing in the input buffer?
> Alternately, a
> > GD> function that returns the number of bytes currently in the input
> buffer
> > GD> would do the trick.
> >
> > GD> What I really need is a sysread that fails if a specified string
> > GD> is not read within a specified time. i.e. read_with_timeout(
> > GD> file_handle, string_to_detect, timeout );
> >
> > look up 4 arg select. or IO::Select.pm or Event.pm.
> >
> > uri
> >
> > --
> > Uri Guttman --------- uri@sysarch.com ----------
> http://www.sysarch.com
> > SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX
> Consulting
> > The Perl Books Page -----------
> http://www.sysarch.com/cgi-bin/perl_books
> > The Best Search Engine on the Net ----------
> http://www.northernlight.com
>
>
------------------------------
Date: 11 Oct 2000 10:47:56 GMT
From: vek@pharmnl.ohout.pharmapartners.nl (Villy Kruse)
Subject: Re: What does $++ mean?
Message-Id: <slrn8u8h2t.1eh.vek@pharmnl.ohout.pharmapartners.nl>
On Wed, 11 Oct 2000 15:56:44 +1000,
Jaime Metcher <metcher@spider.herston.uq.edu.au> wrote:
>> What variable would that be?
>>
>> $+ +; syntax error as a lone plus after a variable doesn't make sense.
>> $+ is read-only anyway and can't be modified.
>>
>> $ ++; syntax error as a lone dollar sign doesn't make sense, and certainly
>> isn't a variable.
>>
>
>Isn't $+ the version number for the next version of perl (magical lookahead
>variable)? So $++ would actually speed up the development process by allowing
>us to skip a version. This is pure genius. Unfortunately, it won't compile
>until the version after that.
>
Not funny.
perldoc perlvar
.
.
.
$+ The last bracket matched by the last search
pattern. This is useful if you don't know which
of a set of alternative patterns matched. For
example:
/Version: (.*)|Revision: (.*)/ && ($rev = $+);
(Mnemonic: be positive and forward looking.) This
variable is read-only.
Villy
------------------------------
Date: Wed, 11 Oct 2000 10:00:33 GMT
From: Carfield Yim <carfield@programmer.net>
Subject: Will perl help me to create directory in writing file?
Message-Id: <8s1dnv$t2l$1@nnrp1.deja.com>
I would like to write something to a file:
open(FILE, ">>file_with_fullpath");
if the file and the the directory don't exist yet, will perl make the
directory for me? assume that the user run the perl program have the
right the create directory and write file.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 11 Oct 2000 11:30:37 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Will perl help me to create directory in writing file?
Message-Id: <slrn8u8k7u.ios.rgarciasuarez@rafael.kazibao.net>
Carfield Yim wrote in comp.lang.perl.misc:
>I would like to write something to a file:
>
>open(FILE, ">>file_with_fullpath");
>
>if the file and the the directory don't exist yet, will perl make the
>directory for me? assume that the user run the perl program have the
>right the create directory and write file.
No. (You could have tried it yourself.)
Some hints :
-d tests the existence of a directory
mkdir creates a directory
They're described in perlfunc.
And, test the return value of your opens! (and, of course, of your
mkdirs too!)
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
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 4583
**************************************
