[22036] in Perl-Users-Digest
Perl-Users Digest, Issue: 4258 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Dec 13 09:05:55 2002
Date: Fri, 13 Dec 2002 06:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 13 Dec 2002 Volume: 10 Number: 4258
Today's topics:
Building DBD::Chart prerequisite GDTextUtil-0.80 on cyg (M Buckle)
copy, rename, open - more confusion? (qanda)
Re: copy, rename, open - more confusion? <tassilo.parseval@post.rwth-aachen.de>
Re: Creating COM Objects in Perl <ouellmi@videotron.ca>
Re: Delete series of bit sequences 1A1A from end of fil <bik.mido@tiscalinet.it>
hash efficiency and key/value/array reading file (qanda)
Re: hash efficiency and key/value/array reading file <tassilo.parseval@post.rwth-aachen.de>
matching words starting and ending with defined letters (liglin)
Re: matching words starting and ending with defined let <ingo@home.de>
Re: matching words starting and ending with defined let <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: Most Useful Win32 Utility (Phil Hibbs)
Re: perl bad interpreter: No such file or directory <flavell@mail.cern.ch>
Re: Spawn a new process in Perl? <me@privacy.net>
Re: unix2dos newbie question <bart.lateur@pandora.be>
whatever happened to Tom Christiansen? klassa@nc.rr.com
Re: which UI for Perl? <scriptyrich@yahoo.co.uk>
Win32::OLE writing to excel. <spikey-wan@bigfoot.com>
XML::Parser <ingo@home.de>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Dec 2002 05:44:01 -0800
From: markbuckle30@hotmail.com (M Buckle)
Subject: Building DBD::Chart prerequisite GDTextUtil-0.80 on cygwin fails - perl 5.8.0 and very recent and complete cygwin
Message-Id: <d3868cb5.0212130544.33bc4222@posting.google.com>
Has anyone built DBD::Chart under cygwin successfully, if so can they
post details of how they went about it.
I get this error with the prerequisite GDTextUtil :-
bash-2.05b$ cd ../GDTextUtil-0.80
bash-2.05b$ ls
Changes
MANIFEST
Makefile.PL
README
Text
Text.pm
cetus.ttf
demo
t
bash-2.05b$ perl Makefile.PL
Checking if your kit is complete...
Looks good
C:\cygwin\bin\perl.exe: *** unable to remap C:\cygwin\bin\cygpng12.dll
to same address as parent(0xB90000) != 0xC00000
22 [main] perl 263 sync_with_child: child 249(0xD8) died before
initialization with status code 0x1
48450 [main] perl 263 sync_with_child: *** child state child loading
dlls
C:\cygwin\bin\perl.exe: *** unable to remap C:\cygwin\bin\cygpng12.dll
to same address as parent(0xB90000) != 0xC00000
5155811 [main] perl 263 sync_with_child: child 270(0x124) died before
initialization with status code 0x1
5194941 [main] perl 263 sync_with_child: *** child state child loading
dlls
C:\cygwin\bin\perl.exe: *** unable to remap C:\cygwin\bin\cygpng12.dll
to same address as parent(0xB90000) != 0xC00000
10314362 [main] perl 263 sync_with_child: child 322(0x110) died before
initialization with status code 0x1
10353532 [main] perl 263 sync_with_child: *** child state child
loading dlls
C:\cygwin\bin\perl.exe: *** unable to remap C:\cygwin\bin\cygpng12.dll
to same address as parent(0xB90000) != 0xC00000
15462024 [main] perl 263 sync_with_child: child 291(0x110) died before
initialization with status code 0x1
15509727 [main] perl 263 sync_with_child: *** child state child
loading dlls
Process shell interrupt
------------------------------
Date: 13 Dec 2002 04:19:38 -0800
From: fumail@freeuk.com (qanda)
Subject: copy, rename, open - more confusion?
Message-Id: <62b4710f.0212130419.765f910e@posting.google.com>
Hi all
I'm all confused again - the more of my Camel book, perldoc man pages,
this newsgroup and faqs I read the more confused I seem to get!
Background ...
I need to process x number of files, each with 1 record per line.
Each record has a record identifier within a field (say the 15th
field). As I read each file I write out different record types to new
files, eg if the current file has 5 records with ID's a, b, c, d and
e, I want to write out all the records with ID a to a_type.txt, b to
b_type.txt. However I'm not interested in types c or e, so I write
out types d to d_type.txt; types c and e need to go back into the
original file.
I'm happy with record processing, my question concerns copy/rename
etc. I imagine the best way is to use the current file for record
splitting putting ignored types into ignore.txt for eg, then when when
the current file is finished, close it then rename ignore to original.
So we end up with types c and e only in the original file.
The perl must be efficeint, portable and robust (ie commercially safe
to use).
I've seen examples using open to create a tempfile, the rename
function, sysopen and the File::Copy but am confused taking the above
into account what to use.
Any ideas, suggestions?
Thanks.
------------------------------
Date: 13 Dec 2002 12:54:49 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: copy, rename, open - more confusion?
Message-Id: <atclap$isv$1@nets3.rz.RWTH-Aachen.DE>
Also sprach qanda:
> I'm all confused again - the more of my Camel book, perldoc man pages,
> this newsgroup and faqs I read the more confused I seem to get!
>
> Background ...
> I need to process x number of files, each with 1 record per line.
> Each record has a record identifier within a field (say the 15th
> field). As I read each file I write out different record types to new
> files, eg if the current file has 5 records with ID's a, b, c, d and
> e, I want to write out all the records with ID a to a_type.txt, b to
> b_type.txt. However I'm not interested in types c or e, so I write
> out types d to d_type.txt; types c and e need to go back into the
> original file.
>
> I'm happy with record processing, my question concerns copy/rename
> etc. I imagine the best way is to use the current file for record
> splitting putting ignored types into ignore.txt for eg, then when when
> the current file is finished, close it then rename ignore to original.
> So we end up with types c and e only in the original file.
>
> The perl must be efficeint, portable and robust (ie commercially safe
> to use).
In this case you must make special considerations with respect to race
conditions. An obvious (but wrong) approach would be to find a name for
a temp file by previously checking with '-e' if such a file already
exists:
if (! -e 'tempfile') {
open F, ">", 'tempfile' or die $!;
...
}
This can go horribly wrong if between the -e test and the opening
another process creates a file called 'tempfile'. So you need an atomic
approach.
File::Temp will help you to safely create tmp-files:
use File::Copy;
use File::Temp;
my ($handle, $name) = tempfile("tmpXXXX", UNLINK => 1);
while (<ORIG>) {
# do the filtering here
print $handle $_;
}
close ORIG;
copy($name, "original");
The UNLINK switch will tell File::Temp to automatically remove the file
when your program exits. The first argument to tempfile() is a template.
'tmp' is the prefix of the file while XXXX is replaced with random
letters by File::Temp so that the filename is guaranteed to be unique.
> I've seen examples using open to create a tempfile, the rename
> function, sysopen and the File::Copy but am confused taking the above
> into account what to use.
File::Temp internally uses sysopen() with the appropriate flags to
atomically open a file so you don't have to care for that yourself.
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: Fri, 13 Dec 2002 06:49:57 -0500
From: "Michele Ouellet" <ouellmi@videotron.ca>
Subject: Re: Creating COM Objects in Perl
Message-Id: <yPjK9.8781$xH3.140091@weber.videotron.net>
You could start with the Win32::OLE documentation.
Good LUck,
Michele.
"KP" <snazystyl@hotmail.com> wrote in message
news:dc2b0830.0212121139.1f7d45d7@posting.google.com...
> I have created COM Objects in VBScript/Windows Host Scripting.
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
>
> ... My question is: How does one Create COM Objects in Perl? I'm
> looking for Samples, Examples and Links to any constructive answers to
> how one could create COM Objects in perl.
------------------------------
Date: Fri, 13 Dec 2002 10:28:03 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Delete series of bit sequences 1A1A from end of file.
Message-Id: <039jvuko1jqmfgljnqlhdihrrpfs8h9odh@4ax.com>
On 12 Dec 2002 21:46:04 -0800, Patrick Flaherty
<Patrick_member@newsguy.com> wrote:
>Hi,
>
>As an artifact of the software that we use to span our old and new systems
>(software = PATHworks old system = VMS new system = Windows), we get an artifact
>at the end of VMS text files (at some point opened and then saved from Windows)
>where there are word-aligned series of the sequence 1A1A at the end of the file
>(my ASCII table tells me that 1A is SUB whatever that means).
They're text files, so the following should work:
perl -pi -e 's/\x1a//g' test.txt
or, just to be sure,
perl -p0777 -i -e 's/\x1a+$//g' test.txt
caveat: I'm a beginner!!
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: 13 Dec 2002 01:27:21 -0800
From: fumail@freeuk.com (qanda)
Subject: hash efficiency and key/value/array reading file
Message-Id: <62b4710f.0212130127.38afd42e@posting.google.com>
Hi all
I'm having trouble learning some basics
I have a file like this:
# comment1
# comment 2
key1 = val1
key2 = val2 # comment
key3
key4 = # configure later
...
key9999 = val9999
I have a list of known keys (say key1, key50, key192) that I want to
check for values. I got stuck on the basics ...
(only relevant sections shown)
# read each line in file
while( my $rec =<CFG_FILE )
# remove newline
chomp( $rec );
# ignore comment and blank lines
if( $rec !~ /^\s*#|^\s*$/ )
I'm sure there's an easier way in perl of doing this matching
I then had trouble trying to figure out how to read the relevant
fields in each matching line, ie should I read the whole file into a
hash (noting that I need fields 0 and 2, including empty fields) or
just fields 0 and 2 in the hash if field 2 has a value? Alternatively
should I build a list of keys wanted (say key3,7,25) then read the
file only filling a hash with wanted keys that have a value; I'm lost
with this kind of thinking at the moment.
I then got stuck with arrays
I can read a file of records ok, with for example
...
while( my $rec =<AFILE> )
{
chomp($rec);
my @flds = split( /<pat>/, $rec, -1 );
foreacy my $fld (@flds)
{
# do something
And all works OK, however when I try the same approach for the above
everything goes bad
I'm learning - slowly, ever so slowly, until I become competent any
help would be, well - helpful! But seriously appreciated.
Thanks.
------------------------------
Date: 13 Dec 2002 10:26:56 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: hash efficiency and key/value/array reading file
Message-Id: <atcclg$9d8$1@nets3.rz.RWTH-Aachen.DE>
Also sprach qanda:
> I'm having trouble learning some basics
>
> I have a file like this:
> # comment1
> # comment 2
> key1 = val1
> key2 = val2 # comment
> key3
> key4 = # configure later
> ...
> key9999 = val9999
>
> I have a list of known keys (say key1, key50, key192) that I want to
> check for values. I got stuck on the basics ...
>
> (only relevant sections shown)
> # read each line in file
> while( my $rec =<CFG_FILE )
^
^
Please do not type code, use copy and paste.
> # remove newline
> chomp( $rec );
> # ignore comment and blank lines
> if( $rec !~ /^\s*#|^\s*$/ )
>
> I'm sure there's an easier way in perl of doing this matching
Depending in your needs there might be. Your data are probably best
preprocessed by removing the unwanted parts out: that includes
whitespaces and comments. Thus, anything that is left after this
preprocessing can be considered relevant data.
> I then had trouble trying to figure out how to read the relevant
> fields in each matching line, ie should I read the whole file into a
> hash (noting that I need fields 0 and 2, including empty fields) or
> just fields 0 and 2 in the hash if field 2 has a value? Alternatively
> should I build a list of keys wanted (say key3,7,25) then read the
> file only filling a hash with wanted keys that have a value; I'm lost
> with this kind of thinking at the moment.
>
> I then got stuck with arrays
>
> I can read a file of records ok, with for example
> ...
> while( my $rec =<AFILE> )
> {
> chomp($rec);
> my @flds = split( /<pat>/, $rec, -1 );
> foreacy my $fld (@flds)
^
!!!!!
> {
> # do something
>
> And all works OK, however when I try the same approach for the above
> everything goes bad
Unfortunately I don't understand at all how the above while-loop is to
operate on your sample data so I can't comment on this.
Anyway, here is a little loop that preprocesses the data as described
further above. It makes the distinction between 'val=' and 'val'. In the
first case it results in 'val => ""' whereas in the second it is 'val =>
undef' which might be useful:
my %hash;
while (<DATA>) {
chomp;
s/\s*#.*//;
$_ or next; # line empty after preprocessing => next line
s/\s+//g; # squeeze whitespaces of what is left
$hash{$1} = $2, next if /(.+)=(.*)/;
$hash{$_} = undef; # only if no '=' shows up
}
__DATA__
# comment1
# comment 2
key1 = val1
key3
key4 = # configure later
key2 = val2 # comment
This results in:
$VAR1 = {
'key1' => 'val1',
'key2' => 'val2',
'key3' => undef,
'key4' => ''
};
If you want to distinguish between key3 and key4 you have to use
if(exists $hash{key3} && !defined $hash{key3})
whereas for key4 it has to be
if (exists $hash{key4} && defined $hash{key4})
For all other is is simply:
if ($hash{key})
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: 13 Dec 2002 01:06:44 -0800
From: liglinlillibli@hotmail.com (liglin)
Subject: matching words starting and ending with defined letters
Message-Id: <db9bdb31.0212130106.1ddd314c@posting.google.com>
How must I modify this code so it returns all words starting with M
AND ending with a?
Thanks, Liglin
@names=qw(Maria Marion Martha Barbara Carina);
foreach(@names){
if(/a$/){print "Success: $_\n";}
if(/^M/){print "Success: $_\n";}
}
------------------------------
Date: Fri, 13 Dec 2002 10:22:30 +0100
From: "Ingo" <ingo@home.de>
Subject: Re: matching words starting and ending with defined letters
Message-Id: <atc8sq$53q$1@nets3.rz.RWTH-Aachen.DE>
"liglin" <liglinlillibli@hotmail.com> schrieb im Newsbeitrag
news:db9bdb31.0212130106.1ddd314c@posting.google.com...
> How must I modify this code so it returns all words starting with M
> AND ending with a?
>
> Thanks, Liglin
>
> @names=qw(Maria Marion Martha Barbara Carina);
>
> foreach(@names){
if(/^M.*a$/){print "Success: $_\n";
> }
------------------------------
Date: Fri, 13 Dec 2002 09:23:28 +0000 (UTC)
From: Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: matching words starting and ending with defined letters
Message-Id: <atc8ug$kop$2@korweta.task.gda.pl>
In article <db9bdb31.0212130106.1ddd314c@posting.google.com>, liglin
wrote:
> How must I modify this code so it returns all words starting with M
> AND ending with a?
>
> Thanks, Liglin
>
> @names=qw(Maria Marion Martha Barbara Carina);
>
> foreach(@names){
> if(/a$/){print "Success: $_\n";}
> if(/^M/){print "Success: $_\n";}
> }
One of many ways is:
foreach (@names) {
print "Success: $_\n" if /^M.*a$/;
}
another way less dependant on the example data you gave:
foreach (@names) {
if (/^M/ and /a$/) {
print "Success: $_\n";
}
else {
next;
}
}
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: 13 Dec 2002 02:40:24 -0800
From: gg@snark.freeserve.co.uk (Phil Hibbs)
Subject: Re: Most Useful Win32 Utility
Message-Id: <a9ec249e.0212130240.492c41ee@posting.google.com>
Oh, the other one I use a lot is one that takes the clipbaord text and
puts <blockquote><i> in front of it, and </i></blockquote> after it. I
use this to include portions of the previous post whenever I reply on
Slashdot.
------------------------------
Date: Fri, 13 Dec 2002 11:27:24 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: perl bad interpreter: No such file or directory
Message-Id: <Pine.LNX.4.40.0212131125110.10895-100000@lxplus073.cern.ch>
On Dec 12, Stas Neuberger inscribed on the eternal scroll:
[to Tad]
> That did it. YOU are right. I'm wrong. actually, i don't know where
> the \n\r came from, but thank you very much, and sorry for the stupid
> question.
Don't worry about it, it's all part of the learning experience and,
thanks to your candid followup, others can learn from that: so the net
outcome is positive. IMHO.
cheers
--
Caution: sysadmin. Keep away from bright light and naked flames.
Always read the instructions on the package. May contain traces of nut.
------------------------------
Date: Fri, 13 Dec 2002 20:23:01 +1100
From: "Tintin" <me@privacy.net>
Subject: Re: Spawn a new process in Perl?
Message-Id: <atc8tk$118dls$1@ID-172104.news.dfncis.de>
"Kasp" <kasp@NO_SPAMepatra.com> wrote in message
news:ataijc$j6o$2@newsreader.mailgate.org...
> I have another question.
> In Unix, we have fork() to spawn a process & Exec().
> Is there something in Perl like that? I want to run multiple instances of
my
> program and I must ensure that it runs on both - Unix or Windows.
That's the best SAQ I've seen for quite a while.
BTW, exec does not spawn a process.
------------------------------
Date: Fri, 13 Dec 2002 12:00:03 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: unix2dos newbie question
Message-Id: <8jijvuclkqbti2gnj2j3l2q6oa4qcmr4rk@4ax.com>
Tad McClellan wrote:
>Edward Quick <vervoom@hotmail.com> wrote:
>
>> I need to perform a unix2dos function on $ftpbuf,
>> but I'm not too sure how to do this in Perl.
>
>
>If your Perl program is running on Unix:
>
> $ftpbuf =~ s/\n/\r\n/g;
If you're doing this on DOS/Windows, you don't need to do anything.
Just don't use binmode() on the output handle. The I/O will take care of
it, then.
I just hope this works for the kind of application you have in mind. It
sure works for normal file handles. Thus, if you read a file on DOS/Win
without binmode() applied to it, CRLF sequences will be turned into a
bare "\n" = LF. You have to use binmode() on the handle to prevent that.
In the same way, "\n" will be converted back to CRLF when printing to a
handle to which you didn't apply binmode(). Again, binmode() will
prevent that.
binmode() does nothing on Unix.
--
Bart.
------------------------------
Date: Fri, 13 Dec 2002 07:43:59 -0600
From: klassa@nc.rr.com
Subject: whatever happened to Tom Christiansen?
Message-Id: <zv-cnYjkQ8OCeWSgXTWcqA@portbridge.com>
Seems like some of the "olde guarde" have disappeared (not just from here,
but from a visible presence in the perl community, period)... Is everybody
doing well, and just getting away from perl?
------------------------------
Date: Fri, 13 Dec 2002 12:39:27 +0000
From: Scripty <scriptyrich@yahoo.co.uk>
Subject: Re: which UI for Perl?
Message-Id: <atckcq$jic$1@news7.svr.pol.co.uk>
Erik Braun wrote:
> I'm looking for a Perl Module, which provides interactive dialogs,
> and some extensions like Radio buttons or file requestors.
>
> I found some Modules (Dialog, Perlmenu, Cdk, Curses), but did not test
> everything, as this is a lot of work. Is someone around here, who
> had the same problem and can me recommend or discourage from one
> of these?
>
> erik
One that hasnt been mentioned, because IIRC its not on CPAN. is libDrakx:
Overview on:
http://builder.com.com/article.jhtml?id=u00220021017ben01.htm&page=1
Mandrake forum info:
http://www.mandrakeforum.com/article.php?sid=2487&lang=en
Havent used it myself, but if you want to build simple UIs quickly and
easily, its probably unbeatable.
I've looked at the code and its not terribly nice to read, but it does
appear to work fine, and is used by Mandrake to develop their own
configuration software.
Cheers,
--
Scripty
scriptyrich@yahoo.co.uk
------------------------------
Date: Fri, 13 Dec 2002 13:25:57 -0000
From: "Richard S Beckett" <spikey-wan@bigfoot.com>
Subject: Win32::OLE writing to excel.
Message-Id: <atcn6h$hdt$1@newshost.mot.com>
Hello World!
Guys,
I'm having a horrendous time trying to write to cells in my spreadsheet that
are specified by variables.
I'm trying to write like this:
$active_sheet -> Cells ($set, ($loop + 24)) -> {Value} = ("$loop");
$active_sheet -> Cells (($set + 1), ($loop + 24)) -> {Value} = ("some
text");
I've tried all combinations of brackets and quotes that I can think of, and
I've also tried using Range as well, but I can't get it to write anything.
I've succeeded in doing a simple write to the sheet, so I know it's my write
commands that are at fault, but the docs aren't very helpful. Someone out
there must be doing this!
Thanks.
R.
------------------------------
Date: Fri, 13 Dec 2002 10:27:13 +0100
From: "Ingo" <ingo@home.de>
Subject: XML::Parser
Message-Id: <atc95j$5fm$1@nets3.rz.RWTH-Aachen.DE>
Hi there!
I use XML::Parser and I want to get the value of multiple Child-Elements.
Unfortunatelly, I only get the value of the last Child-Element.
Can anyone tell me why and how to make it better?
Yours,
Ingo
##############
use XML::Parser;
use vars qw($key %enum);
$p1 = new XML::Parser(Style => 'Stream');
$p1->parsefile('test.xml');
sub StartDocument {
print "<Root>\n";
}
sub EndDocument {
print "</Root>\n";
}
sub StartTag {
my $p = shift;
$key = shift;
}
sub EndTag {
my $p = shift;
my $t = shift;
undef $key;
if ($t eq "EnumDefinition") {
printEnumDef(%enum);
}
}
sub Text {
return if (! defined($key) || $key eq "EnumDefinition" );
$enum{$key} = $_;
}
sub printEnumDef {
my (%hash) = @_;
if ($old eq $hash{'Code'}) {
print " <EnumElement>\n";
print " <Key>".$hash{'Key'}."</Key>\n";
print " </EnumElement>\n";
} elsif (! defined($old)) {
print " <EnumDefinition>\n";
print " <Code>".$hash{'Code'}."</Code>\n";
print " <EnumElement>\n";
print " <Key>".$hash{'Key'}."</Key>\n";
print " </EnumElement>\n";
}
else {
print " </EnumDefinition>\n";
print " <EnumDefinition>\n";
print " <Code>".$hash{'Code'}."</Code>\n";
print " <EnumElement>\n";
print " <Key>".$hash{'Key'}."</Key>\n";
print " </EnumElement>\n";
}
$old = $hash{'Code'};
}
------------------------------
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.
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 4258
***************************************
