[7229] in Perl-Users-Digest
Perl-Users Digest, Issue: 854 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 12 15:17:14 1997
Date: Tue, 12 Aug 97 12:00:37 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 12 Aug 1997 Volume: 8 Number: 854
Today's topics:
Re: [Q]How to write in textarea with over 30000 charact (jason carr)
Re: any SMTP servers require domain name (Jeremy D. Zawodny)
Architects Needed <cgaston@lds.com>
emacs? No thank you <KenVogt@rkymtnhi.com>
Re: emacs? No thank you (Andrew M. Langmead)
FTP Script <mcnsat@club-internet.fr>
Re: FTP Script (Jeremy D. Zawodny)
Function Call <ejammes@infogrames.fr>
Re: Function Call <mortensi@idt.ntnu.no>
Re: Function Call <rootbeer@teleport.com>
Re: Got an error in DBM <mortensi@idt.ntnu.no>
Re: Help, Help, Help... This is killing me... <mortensi@idt.ntnu.no>
Help:Can't find Config.pm <w4vu@unb.ca>
Re: Help:Can't find Config.pm (Jeremy D. Zawodny)
Re: Help:Can't find Config.pm (Jeremy D. Zawodny)
How to force EOF on file opened for input|output <rmczerw@asp.biogeo.uw.edu.pl>
Re: How to force EOF on file opened for input|output (Mike Stok)
Re: How to force EOF on file opened for input|output (Jot Powers)
Re: How to force EOF on file opened for input|output <rootbeer@teleport.com>
Re: How to ID File Path under Windows NT? (Malcolm Hoar)
Re: How to open a file to a variable instead of an arra <mortensi@idt.ntnu.no>
Re: How to treat "\n" as "\n" ? (Honza Pazdziora)
how to use format to build strings <duplisse@rentwks1.golden.csc.com>
How to/is handle/ed mutliple inheritance in constructor <sgermain@nortel.ca>
issuing commands to another xterm (Teebu Philip)
Re: looking for winperl scripts (Jeremy D. Zawodny)
map problem (Marek Rouchal)
Re: map problem (David Bonner)
Re: map problem (Mike Stok)
Re: map problem <rootbeer@teleport.com>
New Perl Site For Beginners <jeff@webdesigns1.com>
Re: NEWBIE help with sybperl <mpeppler@mbay.net>
Newbie Question re: <SELECT> menu & search results (Jo Ann)
Re: Numbers to strings with preceeding 000's <usenet-tag@qz.little-neck.ny.us>
Re: Pattern matching problem (Andreas Schmidt)
Re: Perl mail interface (Neil Briscoe)
Re: Problem with ENV{REMOTE_USER} <petri.backstrom@icl.fi>
Running process to set up environment then running anot <bboone@lexmark.com>
SelfLoader and -T <chris@ixlabs.com>
Re: Trouble using an Array (Honza Pazdziora)
Walking the tree <jmasiello@presstar.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Aug 1997 17:00:56 GMT
From: jasonc@nstar.net (jason carr)
Subject: Re: [Q]How to write in textarea with over 30000 characters.
Message-Id: <5sq4s8$ds3$1@alcor.nstar.net>
: The textarea tag displays
: all characters, but I can't put in new characters in
: the textarea-form before the size is below 30000 character.
: Max characters at each line is 1024.
I think the amount you can stuff in there is
browser-dependant. I've had to split up files before to get
around the limit.
--
jason carr
mouse@mousetrap.net
http://www.mousetrap.net
------------------------------
Date: Tue, 12 Aug 1997 16:23:33 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: any SMTP servers require domain name
Message-Id: <33f08dd6.351725113@igate.hst.moc.com>
[cc'd to original author]
On 12 Aug 1997 14:03:06 GMT, "Sergio Stateri Jr"
<serginho@alpha.hydra.com.br> wrote:
>Hi ! When I log in a SMTP server, I've to send HELO command...The problem
>is that, if I'm in my home (Acessing using an internet provider), I don't
>have a domain name, and any SMTP servers require it (If I'm in the office,
>always's OK because I've a domain name). The internet provider send me a
>dynamic IP. I'd like to know if it's possible to emulate a domain name for
>the SMTP servers that require one.
This message would appear to belong somewhere in the comp.mail.*
groups.
However, if you're interested in using Perl to send SMTP-based mail,
I'd suggest using the Net:SMTP module, availabe at your local CPAN
site.
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Tue, 12 Aug 1997 11:57:20 -0400
From: Chris Gaston <cgaston@lds.com>
Subject: Architects Needed
Message-Id: <33F087E0.6549A542@lds.com>
Logical Design Solutions, a leader in the design and development of
Interactive Business Communications has an immediate full-time opening
in their Morristown, NJ office for a Web Architect.
Job Description:
In this visible role, the ideal candidate will possess experience in
configuration of Internet technologies as part of a multi-tiered
information technology architecture. Keeping up-to-date with
current technology trends is essential, as is the ability to evaluate
appropriate technology components for development and delivery
environments. This individual must also have the ability to integrate
application support technologies with preexisting client IT
infrastructure. Experience with C/C++, Perl, HTML, Java, CGI and
knowledge of Internet protocols and standards is required.
Knowledge of Active X a plus.
Send resume with cover letter and salary requirements or contact:
Technical Recruiter
Logical Design Solutions
Phone: (201) 971-0100
Fax: (201) 971-0103
email: recruiter@lds.com
For further info: http://www.lds.com
------------------------------
Date: Tue, 12 Aug 1997 12:01:44 -0600
From: Kenneth Vogt <KenVogt@rkymtnhi.com>
Subject: emacs? No thank you
Message-Id: <33F0A508.3890@rkymtnhi.com>
John Dallman wrote:
>
> In article <33EADD49.432F@rkymtnhi.com>, KenVogt@rkymtnhi.com (Kenneth
> Vogt) wrote:
>
> > I can't seem to find a perl IDE for Win95 anywhere. What do you folks
> > use? Is perl not worthy of anything more robust that Notepad?
>
> A load of hard work to write. Emacs does the job nicely - get version
> 19.34 for Win95/NT, since it's a noticeable improvement on previous
> versions.
>
> ---
> John Dallman
Thanks to everyone that suggested emacs for Windows. However, it is one
of the UGLIEST things I have ever seen! (I'm not trying to start an
editor war, folks.) I should make myself clearer. I have an EDITOR I
like. What I need is a way to DEBUG perl under Windows 95.
--
O O O O
O O O O Kenneth Vogt
O O O O
O O O O KenVogt@rkymtnhi.com
O O O
------------------------------
Date: Tue, 12 Aug 1997 18:39:44 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: emacs? No thank you
Message-Id: <EEtD68.K7C@world.std.com>
Kenneth Vogt <KenVogt@rkymtnhi.com> writes:
> I should make myself clearer. I have an EDITOR I
>like. What I need is a way to DEBUG perl under Windows 95.
Then maybe you shouldn't have brought up Notepad as the alternative.
In an attempt to be helpful, (and in case anyone is questioning it,
yes, all my post are attempts to be helpful) does your editor have a
macro language? Does the macro language have the ability to run an an
external processes? If so, maybe you could set up something where you
activate something (something being a key sequence or menu item,
depending on which editor it is.) and it calls "perl -d" with the
current buffer's filename as an argument.
--
Andrew Langmead
------------------------------
Date: Tue, 12 Aug 1997 18:16:34 +0100
From: MCNSAT SERVICE <mcnsat@club-internet.fr>
Subject: FTP Script
Message-Id: <33F09A72.137E@club-internet.fr>
Greetings all !
I am looking for a Perl script to be ran on Windows NT that would
automate the transfer of a data file from a server to various
distant IP-station. The IP addresses are sent to the server in a
attribute file along with the data file to be broadcast.
I would be most grateful if one of you could help me ! It is urgent...
Patrick
------------------------------
Date: Tue, 12 Aug 1997 16:54:46 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: FTP Script
Message-Id: <33f09537.353614841@igate.hst.moc.com>
[cc'd to original author]
On Tue, 12 Aug 1997 18:16:34 +0100, MCNSAT SERVICE
<mcnsat@club-internet.fr> wrote:
>I am looking for a Perl script to be ran on Windows NT that would
>automate the transfer of a data file from a server to various
>distant IP-station. The IP addresses are sent to the server in a
>attribute file along with the data file to be broadcast.
Net::FTP or Win32::Internet modules may get you started in the right
direction. Both should be available on CPAN.
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: 12 Aug 1997 17:21:42 GMT
From: "UC 518" <ejammes@infogrames.fr>
Subject: Function Call
Message-Id: <01bca744$ac337740$4003420a@uc518.infogrames.fr>
Hello,
I'd like to call in a script perl a function which is in another script. I
do *NOT* want do use a 'require', because the name of the function I want
to call is already used in my script. I also cannot change the name of this
function for quite complex reasons.
So, I'd like to call this function precising the name of the script where
it is located.
The solution is probably simple, but I could not be able to find it.
thanks in advance.
MANU.
------------------------------
Date: 12 Aug 1997 18:40:17 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Re: Function Call
Message-Id: <5sqamh$n77$3@due.unit.no>
UC 518 <ejammes@infogrames.fr> wrote:
: Hello,
: I'd like to call in a script perl a function which is in another script. I
: do *NOT* want do use a 'require', because the name of the function I want
: to call is already used in my script. I also cannot change the name of this
: function for quite complex reasons.
: So, I'd like to call this function precising the name of the script where
: it is located.
Just a thought: If you use require you address your functions by
packagename::functionname()
I can't see that there could be any conflicts with the functionname.
Morten Simonsen
------------------------------
Date: Tue, 12 Aug 1997 11:46:20 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: UC 518 <ejammes@infogrames.fr>
Subject: Re: Function Call
Message-Id: <Pine.GSO.3.96.970812114040.19561F-100000@julie.teleport.com>
On 12 Aug 1997, UC 518 wrote:
> I'd like to call in a script perl a function which is in another script.
Maybe you want to copy-and-paste the text of the other script into your
own? Or maybe you want to make a module out of the other script?
> I do *NOT* want do use a 'require', because the name of the function I
> want to call is already used in my script. I also cannot change the name
> of this function for quite complex reasons.
>
> So, I'd like to call this function precising the name of the script where
> it is located.
There's no easy (or safe) way to call a subroutine which is part of
another program. But you _could_ read the other program's code into
memory, parse it to cut out anything you don't want, and then eval the
rest - but I don't really recommend that.
Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 12 Aug 1997 18:23:18 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Re: Got an error in DBM
Message-Id: <5sq9mm$n77$1@due.unit.no>
Mike Heins <mheins@prairienet.org> wrote:
: Morten Simonsen (mortensi@idt.ntnu.no) wrote:
: It means you are trying to write more key/value data
: than your DBM can handle. NDBM and SDBM are often limited
: to 1024 or 4096 bytes.
That explains it. I can have very many values for each key, and that makes the
error. But does it have to be this way? Does other DB-formats support larger
entries?
: : $$databaseref{$key} = $attributelist;
: This looks doubtful. I you have used tie(), you should
: be able to set the tied variable directly without using a reference.
Yes, I am still a newbie, but I think I will start to use the tie() and
the other object-oriented functions of perl when I return to the work
on this project. But would it make any difference in this particular
problem?
Morten Simonsen
------------------------------
Date: 12 Aug 1997 18:47:28 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Re: Help, Help, Help... This is killing me...
Message-Id: <5sqb40$n77$4@due.unit.no>
Stephon <webmaster@sony.com> wrote:
: if ($log =~ /$files[$num]/) {
Do you set the variable @files anywhere?
Morten Simonsen
------------------------------
Date: Tue, 12 Aug 1997 11:43:06 -0400
From: David Tweedie <w4vu@unb.ca>
Subject: Help:Can't find Config.pm
Message-Id: <33F0848A.42F3@unb.ca>
Hi,
Our current installation of perl does not contain the Config.pm file
which is necessary to use the Net::FTP module. Apparently the Config.pm
is a core module of perl's and so I don't understand why it is not
already on our system.
Can anyone point me to a location to retrive it. It is not in the CPAN
area. There is a link to it, but there is nothing there.
Thanks,
Dave
------------------------------
Date: Tue, 12 Aug 1997 16:27:03 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: Help:Can't find Config.pm
Message-Id: <33f08e1d.351796516@igate.hst.moc.com>
[cc'd to original author]
On Tue, 12 Aug 1997 11:43:06 -0400, David Tweedie <w4vu@unb.ca> wrote:
>Our current installation of perl does not contain the Config.pm file
>which is necessary to use the Net::FTP module. Apparently the Config.pm
>is a core module of perl's and so I don't understand why it is not
>already on our system.
>
>Can anyone point me to a location to retrive it. It is not in the CPAN
>area. There is a link to it, but there is nothing there.
Dave,
I, too, had this problem. It turns out that Config.pm is generated (on
Unix systems) during the 'make' of the Net::* modules. Unfortunately,
we can't run the make on Win32 based systems, so we're left with a
less-than-functional Net::FTP.
Here's a trimmed copy of mine. As you can see, it's just a bunch of
constants...
---snip---
package Net::Config;
require Exporter;
use vars qw(@ISA @EXPORT %NetConfig);
use strict;
@EXPORT = qw(%NetConfig);
@ISA = qw(Exporter);
sub set
{
my $pkg = shift if @_ % 2;
my %cfg = @_;
return unless @_;
# Only require these modules if we need to
require Data::Dumper;
require IO::File;
require Carp;
require File::Copy;
my $mod = $INC{'Net/Config.pm'} or
Carp::croak "Can't find myself";
my $bak = $mod . "~";
print "Updating $mod...\n";
File::Copy::copy($mod,$bak) or
Carp::croak "Cannot create backup file $bak: $!";
print "...backup at $bak\n";
my $old = new IO::File $bak,"r" or
Carp::croak "Can't open $bak: $!";
my $new = new IO::File $mod,"w" or
Carp::croak "Can't open $mod: $!";
# If we fail below, then we must restore from backup
local $SIG{'__DIE__'} = sub {
print "Restoring $mod from backup!!\n";
unlink $mod;
rename $bak, $mod;
print "Done.\n";
exit 1;
};
%NetConfig = (%NetConfig, %cfg);
while (<$old>)
{
last if /^%NetConfig/;
$new->print($_);
}
$new->print ( Data::Dumper->Dump([\%NetConfig],['*NetConfig']) );
$new->print("\n1;\n");
close $old;
close $new;
}
# WARNING WARNING WARNING WARNING WARNING WARNING WARNING
# WARNING WARNING WARNING WARNING WARNING WARNING WARNING
#
# Below this line is auto-generated, *ANY* changes will be lost
%NetConfig = (
test_hosts => '1',
nntp_hosts => ['igate.hst.moc.com'],
snpp_hosts => ['mail.fdy.moc.com'],
pop3_hosts => ['mail.fdy.moc.com'],
ftp_ext_passive => '0',
smtp_hosts => ['mail.fdy.moc.com'],
ftp_testhost => 'mweb.fdy.moc.com',
inet_domain => 'fdy.moc.com',
ph_hosts => ['ph.fdy.moc.com'],
test_exist => '0',
daytime_hosts => ['fdyrs01.fdy.moc.com'],
ftp_int_passive => '0',
ftp_firewall => 'houinet.hst.moc.com',
time_hosts => ['houinet.hst.moc.com'],
);
1;
---snip---
I built that on my Linux box, copied it to NT, and then modified all
the variables below the WARNING notice to be what I watned them to be.
(Yes, that's exactly what it says not to do.)
Good Luck,
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Tue, 12 Aug 1997 16:28:20 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: Help:Can't find Config.pm
Message-Id: <33f08efb.352018285@igate.hst.moc.com>
[cc'd to original author]
Oh, I should also mention that comp.lang.perl does not exist, and
hasn't for quite sometime. You might let your news admin know this.
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Tue, 12 Aug 97 19:34:46 CST
From: <rmczerw@asp.biogeo.uw.edu.pl>
Subject: How to force EOF on file opened for input|output
Message-Id: <80838.rmczerw@asp.biogeo.uw.edu.pl>
Hi,
I've got data file which is processed this way:
open(DSP, '+<vote.dat');
flock(DSP, 2);
while(<DSP>) {
.... %list is created
}
seek(DSP, 0, 0);
foreach $key (keys %list) {
write DSP $key, $list{$key};
write DSP "\n";
}
flock(DSP, 8);
close(DSP);
I need to put EOF right after the last character I write to the file.
In this case, when I write less characters to the file than was in
opened file, EOF remains on its old position :(. Maybe it should be
realized in some other way ?
Minor problem: how to count elements in %list. Now I count them in a loop.
There have to be a smarter way of doing this!
Regards,
Robert
--
======================================================================
Robert M. Czerwinski e-mail: robert@asp.biogeo.uw.edu.pl
Warsaw University/Poland
Visit my Delphi Super Page: http://sunsite.icm.edu.pl/delphi/
======================================================================
------------------------------
Date: 12 Aug 1997 18:33:38 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: How to force EOF on file opened for input|output
Message-Id: <5sqaa2$178@news-central.tiac.net>
In article <80838.rmczerw@asp.biogeo.uw.edu.pl>,
<rmczerw@asp.biogeo.uw.edu.pl> wrote:
> I need to put EOF right after the last character I write to the file.
>In this case, when I write less characters to the file than was in
>opened file, EOF remains on its old position :(. Maybe it should be
>realized in some other way ?
You can use tell to determine where you are in the file and truncate to
truncate the file there e.g.
truncate FH, tell FH;
> Minor problem: how to count elements in %list. Now I count them in a loop.
>There have to be a smarter way of doing this!
$count = keys %list;
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: 12 Aug 1997 18:34:31 GMT
From: news@bofh.com (Jot Powers)
Subject: Re: How to force EOF on file opened for input|output
Message-Id: <5sqabn$rhe$1@gazette.corp.medtronic.com>
In article <80838.rmczerw@asp.biogeo.uw.edu.pl>,
rmczerw@asp.biogeo.uw.edu.pl wrote:
>Hi,
>
> I've got data file which is processed this way:
>
> open(DSP, '+<vote.dat');
> flock(DSP, 2);
> while(<DSP>) {
> .... %list is created
> }
> seek(DSP, 0, 0);
> foreach $key (keys %list) {
> write DSP $key, $list{$key};
> write DSP "\n";
> }
> flock(DSP, 8);
> close(DSP);
>
> I need to put EOF right after the last character I write to the file.
>In this case, when I write less characters to the file than was in
>opened file, EOF remains on its old position :(. Maybe it should be
>realized in some other way ?
I'm going to ignore your problem here. :) If it were me, I'd
use a temp file, but I'm sure you have your reasons. (And someone
else probably has a better chance of answering this without getting
slapped later. :)
> Minor problem: how to count elements in %list. Now I count them in a loop.
>There have to be a smarter way of doing this!
man perlfaq4...
How can I know how many entries are in a hash?
If you mean how many keys, then all you have to do is take
the scalar sense of the keys() function:
$num_keys = scalar keys %hash;
In void context it just resets the iterator, which is faster
for tied hashes.
And, an example showing it:
main::(-e:1): 1
DB<1> %bob = ( 'bob' => 1, 'fred' =>2, 'jane' => 3);
DB<2> x %bob
0 'fred'
1 2
2 'bob'
3 1
4 'jane'
5 3
DB<3> p scalar keys %bob
3
HTH
-Jot
--
Jot Powers news@bofh.com
Unix System Administrator
"Sometimes you just have to grab the bull by the tail and face the situation."
------------------------------
Date: Tue, 12 Aug 1997 11:51:19 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: rmczerw@asp.biogeo.uw.edu.pl
Subject: Re: How to force EOF on file opened for input|output
Message-Id: <Pine.GSO.3.96.970812114657.19561H-100000@julie.teleport.com>
On Tue, 12 Aug 1997 rmczerw@asp.biogeo.uw.edu.pl wrote:
> I've got data file which is processed this way:
>
> open(DSP, '+<vote.dat');
Always check that open is successful.
> flock(DSP, 2);
> while(<DSP>) {
> .... %list is created
> }
> seek(DSP, 0, 0);
> foreach $key (keys %list) {
> write DSP $key, $list{$key};
> write DSP "\n";
> }
> flock(DSP, 8);
Never release the flock.
> close(DSP);
>
> I need to put EOF right after the last character I write to the file.
> In this case, when I write less characters to the file than was in
> opened file, EOF remains on its old position :(. Maybe it should be
> realized in some other way ?
You probably want truncate().
> Minor problem: how to count elements in %list.
$count = keys %list;
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 12 Aug 1997 18:07:52 GMT
From: malch@malch.com (Malcolm Hoar)
Subject: Re: How to ID File Path under Windows NT?
Message-Id: <5sq8pp$g0h$1@nntp1.ba.best.com>
In article <33EFBA0D.D3C9BDF4@aol.com>, Vik Rubenfeld <VikR@aol.com> wrote:
>My PERL script needs to know the path name to a given folder on the web site
>it is in. Under Unix, you can Telnet in and use the pwd command to find out a
>path name:
>
> shell8: {5} cd secure
> shell8: {6} pwd
> /webadmin/home/web1/test/public_html/secure
>
>How do you find out a path name like this if the server is running under
>Windows NT?
I use:
cd [with no arguments]
:-))
--
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Malcolm Hoar "The more I practice, the luckier I get". |
| malch@malch.com Gary Player. |
| http://www.malch.com/ Shpx gur PQN. |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 12 Aug 1997 18:37:32 GMT
From: Morten Simonsen <mortensi@idt.ntnu.no>
Subject: Re: How to open a file to a variable instead of an array?
Message-Id: <5sqahc$n77$2@due.unit.no>
: >How can i open a file to a variable instead of an array?
: What do you mean by "open a file to a variable"? Do you want to put
: the contents of a file into a single variable? Do you want to open a
: file whose name is conatined in a variable?
: Have you read any of the Learning Perl documentation?
I think the previous post is a good example of what sould NOT
be posted. It has no information except: "read the docs". It even
shows that he has trouble understanding what the question is, I would
say it's only to make trouble. Here is my solution to the question
(which I did understand), but I don't know wether it's especially
efficient, it's just a solution:
open(FILE,$filename);
read(FILE,$filevar,stat(FILE)[7]);
Now the $filevar contains the whole FILE.
Morten Simonsen
------------------------------
Date: Tue, 12 Aug 1997 13:36:24 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: How to treat "\n" as "\n" ?
Message-Id: <adelton.871392984@aisa.fi.muni.cz>
thommy@cs.tu-berlin.de (Thomas Bahls) writes:
[...]
> I have tried eval in different ways but not successful.
>
> So my question still is:
>
> Is there a way bring back the "special meaning" of certain
> character sequences?
I might be comming late, but consider this example:
$a = 'This is the first line.\n"Nope!"';
$b = eval "qq($a)";
print "a is $a\nb is $b\n";
__END__
prints
a is This is the first line.\n"Nope!"
b is This is the first line.
"Nope!"
on output which looks pretty like what you want. But using this kind
of eval, you are in fact doing eval of
qq('This is the first line.\n"Nope!"')
the $a gets interpolated and the you use the result as an double
quotish string.
Hope this helps.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
European RC5 56 bit cracking effort -> http://www.cyberian.org/
------------------------------
Date: Tue, 12 Aug 1997 12:41:45 -0600
From: Ian Duplisse <duplisse@rentwks1.golden.csc.com>
Subject: how to use format to build strings
Message-Id: <33F0AE69.2F1C@rentwks1.golden.csc.com>
In Perl5, how can one use format statements to construct a string? I
know write() uses a filehandle, but are there any tricks to write to a
buffer using formats? I know there is sprintf, but that doesn't provide
the same formatting capabilities.
TIA,
Ian Duplisse
------------------------------
Date: Tue, 12 Aug 1997 12:20:48 -0400
From: "Sylvain St.Germain" <sgermain@nortel.ca>
Subject: How to/is handle/ed mutliple inheritance in constructor?
Message-Id: <33F08D60.4C97@nortel.ca>
Hi all,
Let's say we have a base class (ClassA) and a derived classes
ClassA
|- ClassB
In new of B I have:
sub new {
my $that = shift;
my $type = ref($that) || $that;
my @args = @_;
my $self = $type->SUPER::new(@args[0]);
...
}
The question is, what do I do if a new class (ClassC - which also define
a function called new) arrives and become the parent of ClassB as
well??
I intend to try it but in case someone knows (I am sure!)...
Will perl look for a new functions is all the first level ancestors?
Regards,
Sylvain.
------------------------------
Date: 12 Aug 1997 18:12:11 GMT
From: tphilip@bnr.ca (Teebu Philip)
Subject: issuing commands to another xterm
Message-Id: <5sq91r$hre@brtph500.bnr.ca>
I would like to do the following. Have the user input commands, and then
interactively issue those commands to a specified xterm not the one where
the perl script is currently executing. Is there any way to do this without
using sockets? Remember it has to be interactive.
Any help would be appreciated. Thanks.
--
Teebu Philip EMAIL: tphilip@nortel.ca
NORTEL (RTP Lab) XPM Diagnostic Development, Dept. 3X41
35 Davis Dr. Voice: (919) 991-2602 ESN: 294-2602
RTP, NC 27709 FAX: (919) 991-4126 ESN: 294-4126
------------------------------
Date: Tue, 12 Aug 1997 16:20:16 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: looking for winperl scripts
Message-Id: <33f08bc0.351191496@igate.hst.moc.com>
[cc'd to original author]
On Tue, 12 Aug 1997 15:04:44 GMT, kkubish@nei.com (Kevin Kubish)
wrote:
>The local SMTP server is a cc:mail link to smtp gateway that doesn't
>have telnet service.
That all makes sense, except for the telnet part, but anyway...
>The web server is a Windows NT Server 4.0
>machine. Most scripts don't work since they try to access the smtp
>gateway via telnet.
Most mailing scripts, I assume you mean?
>However, a few scripts seem to work but only in
>certain instances. The problem is in the 'sendmail' portion, so
>scripts that use an external mailer like WindMail won't help me much.
So you want a script that can do the mailing all by itself, right?
>I was wondering where I could find more Perl form mailing scripts that
>I could play with and hopefully figure how the working scripts send
>the mail.
Hm. What we use here is a slightly modified version of Licoln Stein's
MailMerge perl script. See
<URL:http://www-genome.wi.mit.edu/ftp/distribution/software/WWW/mailmerge/>
to get MailMerge.
The modified part is that I wrote a Perl module which sends mail via
our internal SMTP to GroupWise Gateway (similar to your Lotus <-> SMTP
gateway, I assume).
>They send it fast, which makes it hard to believe that they
>would be using an external smtp gateway somewhere. I get the mail in
>my cc:mail mailbox within a couple of minutes.
Why would you expect it to be slow? Stuff moves throuh our SMTP <->
GroupWise gateway pretty quick...
>Any ideas?
Just those above. :-)
Good Luck,
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: 12 Aug 1997 16:28:59 +0200
From: Marek.Rouchal@-nospam-hl.siemens.de (Marek Rouchal)
Subject: map problem
Message-Id: <5sprvb$gjf@buffalo.HL.Siemens.DE>
I want to use map() to cut off some string (conditionally) from array elements.
Please consider:
@a = qw( aaabb cccbb ddd eee );
@b = map { s/bb$//; } @a;
The result: @bbb is equal to ('1','1','',''). Obviously the @b array is filled
with "true" or "false", depending on whether or not the substitution succeeded,
but I'd rather like to have the result of the substitution, i.e.
('aaa','ccc','ddd','eee'). Can You please give me a hint what's wrong here?
Can I use map() at all for this task?
TIA
Marek
PS. To reply by Email, please remove -nospam- from the addresses. Thank you.
--
Marek Rouchal Phone : +49 89/636-25849
SIEMENS AG, HL CAD SYS Fax : +49 89/636-23650
Balanstr. 73 mailto:Marek.Rouchal@-nospam-hl.siemens.de
81541 Muenchen PCmail:Marek.Rouchal.PC@-nospam-hl.siemens.de
------------------------------
Date: 12 Aug 1997 15:44:30 GMT
From: davidb@news.kenan.com (David Bonner)
Subject: Re: map problem
Message-Id: <5sq0cu$qqh@pony.kenan.com>
Marek Rouchal (Marek.Rouchal@-nospam-hl.siemens.de) wrote:
: I want to use map() to cut off some string (conditionally) from array
: elements. Please consider:
: @a = qw( aaabb cccbb ddd eee );
: @b = map { s/bb$//; } @a;
: The result: @bbb is equal to ('1','1','',''). Obviously the @b array is
: filled with "true" or "false", depending on whether or not the
: substitution succeeded, but I'd rather like to have the result of the
: substitution, ie. ('aaa','ccc','ddd','eee'). Can You please give me a
: hint what's wrong here?
Try checking the value of @a after you've done that. It should hold the
values you're looking for. Apparently map passes the values to the block
by reference, not value.
--
#==========================================================================#
#"it's the word's suppression that gives it the power, | david bonner #
# the violence, the viciousness" - lenny bruce | dbonner@cs.bu.edu #
#==========================================================================#
------------------------------
Date: 12 Aug 1997 17:02:21 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: map problem
Message-Id: <5sq4ut$o82@news-central.tiac.net>
In article <5sprvb$gjf@buffalo.HL.Siemens.DE>,
Marek Rouchal <Marek.Rouchal@-nospam-hl.siemens.de> wrote:
>I want to use map() to cut off some string (conditionally) from array elements.
>Please consider:
>
>@a = qw( aaabb cccbb ddd eee );
>
>@b = map { s/bb$//; } @a;
You might want to say
foreach (@b = @a) { s/bb$//; }
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Tue, 12 Aug 1997 11:37:16 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Marek Rouchal <Marek.Rouchal@-nospam-hl.siemens.de>
Subject: Re: map problem
Message-Id: <Pine.GSO.3.96.970812112738.19561E-100000@julie.teleport.com>
On 12 Aug 1997, Marek Rouchal wrote:
> I want to use map() to cut off some string (conditionally) from array
> elements.
Are you wanting to modify those elements? If so, you should probably use
foreach. If you want to get a list of modified _copies_ of the elements,
that's a job for map.
> @a = qw( aaabb cccbb ddd eee );
>
> @b = map { s/bb$//; } @a;
That's modifying @a and putting (nearly) useless stuff in @b. Here are the
two ways I might do that, depending upon which you want.
If you want to modify @a:
for (@a) { s/bb$// }
If you want a modified copy of @a:
@b = map {
(my $copy = $_) =~ s/bb$//; # make copy, modify it
$copy; # return the copy
} @a;
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 12 Aug 1997 10:31:44 -0500
From: "Jeff Oien" <jeff@webdesigns1.com>
Subject: New Perl Site For Beginners
Message-Id: <5spvf3$3lp@newsops.execpc.com>
Perl Primer is aimed at guiding beginners to books and
Web resources. You can find it at:
http://www.webdesigns1.com/perl/
--
Jeff Oien, WebDesigns
http://www.webdesigns1.com/
jeff@webdesigns1.com
------------------------------
Date: Tue, 12 Aug 1997 08:39:29 -0700
From: Michael Peppler <mpeppler@mbay.net>
Subject: Re: NEWBIE help with sybperl
Message-Id: <33F083B1.4531@mbay.net>
Kevin Lambright wrote:
>
> Per Fredrik Kvarme <perkva@itk.ntnu.no> writes:
>
> >
> > Hello
> >
> > I'm setting up a database on a sybase server, and I want to use
> > sybperl to write a CGI interface. Unfortunately I'm all new to perl, and
> > so I REALLY need simple, plain, detailed instructions on what I need to
> > do to set up sybperl, include modules and libraries, etc, and how to do
> > sybperl calls in my script.
> >
> > Please, somebody help me, or point me to some understandable
> > source, because I haven't really found anything that makes sense on the
> > net so far :) Thanks in advance!
> >
> >
> > - Per Fredrik Kvarme
>
> It is not exactly a simple, straightforward process. Get the Sybperl module
> from CPAN and read through all of the instructions. We have the Sybase
> interface statically linked into our perl executable, although I believe
> you can have it so that it uses shared libraries as well. Anyhow, the
> documentation for the module should cover this. Once you have it
> installed, you will have to go through the man pages (there is 1 main
> manpage) which are fairly lengthy and will take you some time. From
> Sybperl.3, the following is roughly the minimum you would have to do
> to open a database connection and perform a query:
>
> use Sybase::DBlib;
>
> $dbh = new Sybase::DBlib 'sa', $pwd, $server, 'test_app';
> $dbh->dbcmd("select * from sysprocesses\n");
> $dbh->dbsqlexec;
> $dbh->dbresults;
> while(@data = $dbh->dbnextrow)
> {
> .... do something with @data ....
> }
>
> and believe me, it can get much more complicated than this (although maybe
> it won't in your situation).
You should also get CGI.pm from CPAN - it's really useful for writing
CGI scripts.
Additional Sybperl info can be found on my homepage, see my .sig below.
Michael
--
Michael Peppler -||- Data Migrations Inc.
mpeppler@datamig.com -||- http://www.mbay.net/~mpeppler
------------------------------
Date: Tue, 12 Aug 1997 13:36:27 -0400
From: celery@bway.REMOVE.net (Jo Ann)
Subject: Newbie Question re: <SELECT> menu & search results
Message-Id: <celery-1208971336280001@dyn22.access2.nyc.i-2000.net>
Hi! I'm trying to edit Selena Sol's database manager for a record store.
So far, so good, but I've implemented a Select Menu to help narrow
down search results, and now I am having trouble getting accurate search
results.
If you select "ALL" from the select menu, it *will* display *all* of the
records.
If you select one of the categories, it will show all records within that
category.
In this sense, the select menu works just fine. Granted, I don't know what value
to assign to the ALL option, so I've been playing around with them, (think I'm
currently using "." )
--But!-- If you use any other field in the search form to narrow down your
search,
you receive a NO HITS message every time, even if you select "ALL". Like I said,
it seems to work just fine until you include another field.
The other search fields worked just fine until I implemented the select menu.
I'm stumped. Something tells me there's a simple solution for this, but
I'm having
a tough time finding it.
Suggestions, please? Thank you for your attention.
Jo Ann
sample the database manager at:
http://www.bway.net/~celery/cgi/Database_manager/db_manager.cgi?setup_file=non-classical.setup
read through the script at:
http://www.bway.net/~celery/non-classical.setup (maybe search for "sub
display_generic_search_form")
And then, if I'm not already asking too much, please e-mail me at:
celery@bway.net
Thank You Thank You Thank You
------------------------------
Date: 12 Aug 1997 18:49:03 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: Numbers to strings with preceeding 000's
Message-Id: <eli$9708121443@qz.little-neck.ny.us>
Tom Phoenix <rootbeer@teleport.com> wrote:
> On Mon, 11 Aug 1997, Brian Lavender wrote:
> > @list = 1..30;
> > I want to make this list into a list of strings so the strings are in
> > the format: @stringlist = ('001','002','003'...) . How do I do this?
> Use the map function and sprintf with a format containing "03". Hope this
> helps!
Wow, I just wrote about this in another group. Below I cannibalize the post.
E. <erisson@sw-tech.com> wrote:
> for one function, and I had a brain lapse when I wrote it, so the code to
> go from, say "243" to "rfc0243.txt" (specifically the 0-padding) is NOT a
> simple sprintf. <sigh>
Oh come on, it's perl. There's More Than One Way To Do It. Here's ten.
$i=243;
$zero=sprintf("%04d",$i);
$one="0"x(4-$i=~y/0-9/0-9/)."$i";
$two=reverse(substr(reverse("$i")."0000",0,4);
$three=($tmp="0000$i",$tmp=~s/.*(....)/$1/,$tmp);
$four=($"="",@tmp=split(//,"0000$i"),"@tmp[$#tmp-3..$#tmp]");
$five=($"="",@tmp=split(//,"0000$i"),@tmp=splice(@tmp,-4),"@tmp")
$six=($six=$i)=~s/\d*/($tmp="0000$&",$tmp=~s:.*(....):$1:,$tmp)/e;
$seven=(@tmp=("0","0","0","0",split(//,$i)),join("",splice(@tmp,-4)));
$eight=(@tmp=split(//,$i),unshift(@tmp,("0")x4),join("",@tmp[$#tmp-3..
$#tmp]));
$nine=join("",reverse(@tmp=(split(//,reverse(join("",("0"x4,split(//,
$i))))))[0..3]));
Elijah
------
$one is how I would probably do it, $six is my favorite obfuscation of these
------------------------------
Date: 12 Aug 1997 16:37:31 GMT
From: schmidt@miserv2iai.kfk.de (Andreas Schmidt)
To: "CPT" <cpt@cvd.com.tw>
Subject: Re: Pattern matching problem
Message-Id: <5sq3gb$4pc$1@nz12.rz.uni-karlsruhe.de>
hola nick
In article <01bca6c3$2c052720$1003010a@stfa116.cvd.com.tw>, "CPT" <cpt@cvd.com.tw> writes:
|> Hi ,
|> I have encountered a pattern matching problem like below.
|> I have two file.One is a department file.One is a mail log file.
|> I want to calculate mail usage.
|>
<snip>
|> while (<LOG>) {
|> if ($_ =~ /$dept/) {
|> print "OK","\n";
|> }
|>
|> Result:
|> It won't print any OK.But I change $dept to mis .It works fine.
|> Could you tell me what's wrong with my code.
|> Thanks!
|>
|> -Nick
the problem in this case is, that in $dept is standing a whole line of the
department file, including a return character.
remove the trailing '\n' or '\r\n' (depending on your operating
system) characters from the '$dept' string and the code
should run correctly.
hopethathelps
smiff
========================================================================
andreas schmidt email: schmidt@iai.fzk.de
institut fuer angewandte informatik (iai) phone: +49 7247 82 5714
forschungszentrum karlsruhe gmbh
- technik und umwelt -
postfach 3640 76021 karlsruhe (germany)
------------------------------
Date: 12 Aug 1997 17:13:34 GMT
From: neilb@zetnet.co.uk (Neil Briscoe)
Subject: Re: Perl mail interface
Message-Id: <memo.19970812181333.16925A@skep.compulink.co.uk.cix.co.uk>
In article <5soakg$fjr@news.service.uci.edu>, friedman@uci.edu (Eric D.
Friedman) wrote:
> In article <33ef7f17.0@oit.umass.edu>,
> RD Web Design <rdweb@wilde.oit.umass.edu> wrote:
> <email. I can handle all the sending stuff, but the receiving part has
> me
> <perplexed. I don't want to have to have to create new unix accounts fo
> r
> <all the users, just to get a mail spool for them. Could they go throug
> h
> <a single account, and be filtered efficiently? I am more worried about
>
>
> Investigate procmail. You could use it to filter incoming mail into
> individual folders, one per user.
>
Yup, seconded. I dump all mail for a certain domain into a single mail
drop, so thats just one unix account. My customer uses procmail to
retrieve the contents of this mail drop and re-distribute it. Make sure
that when you do this, you convert the envelope details into some suitable
header for procmail to use, otherwise, if one of your users subscribes to
a mailing list, things will get into a very nasty mail loop.
Regards
Neil
------------------------------
Date: Tue, 12 Aug 1997 20:43:22 +0300
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Problem with ENV{REMOTE_USER}
Message-Id: <33F0A0BA.2197@icl.fi>
Mai Yang [I] wrote:
>
> I need to know the name of the person who is accessing my homepage. I
> examined the enviroment variable ENV{REMOTE_USER} and ENV{HTTP_FROM} to
> get the user's name and email. But both turned out to be null. I then
> displayed all the enviroment variables. I found the above two variables
> were not defined at all.
Your question doesn't really have anything to do with Perl
(even if you happen to be using Perl to write your CGI
scripts). This is a general HTTP/CGI issue.
Anyway, REMOTE_USER is only set to a username if your pages
require authentication, and if the user provided a valid
username/password (that passed your web server's
authentication).
This means that you have to register users you want to
identify in this fashion.
With anonymous users - which is the normal situation -
REMOTE_USER is empty, and you have no way whatsoever
to really know who is accessing your page (which most
people - I'm sure - think is a good thing).
See
http://www.ast.cam.ac.uk/~drtr/cgi-spec.html
for the CGI specification.
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: 12 Aug 97 15:55:29 GMT
From: "Billy Boone" <bboone@lexmark.com>
Subject: Running process to set up environment then running another process
Message-Id: <01bca737$602bbbd0$1c20b89d@bboone>
I am attempting to write some Perl code to automate our compilation
process. We are compiling some Win 16 and Win 32 code. We are utilizing
Visual C++ for our compiler.
To do command line compilations Visual C++ creates a batch file during the
installation of the compiler to set up the appropriate environment
variables. So before doing any command line compilations you should first
run the appropriate batch file then run nmake. So the process from a
command prompt is:
For Win 16:
msvcvars
nmake /f test.mak
For Win 32:
vcvars32 x86
nmake /f test.mak
Doing this from a command line works just fine. But I would like to write
some perl scripts that read from text files to determine what needs to be
compiled. I would like to make the setup batch file part of the text file
to be run before the compilation.
My problem however is that when you attempt to make a system call with this
batch file as the parameter it creates a child process. So you have a
child process run that alters the environment variables ... but only for
that process. So then when the compilation process starts the environment
is not setup correctly.
Basically I want to run the batch file to setup the environment then begin
running all of the compilations in the same environment. How can I do this
in perl?
Billy
------------------------------
Date: Tue, 12 Aug 1997 11:12:25 -0700
From: Chris Schoenfeld <chris@ixlabs.com>
Subject: SelfLoader and -T
Message-Id: <33F0A789.638A@ixlabs.com>
I've posted this question before, and from checking DejaNews, so has
someone else, but neither garnered a response. I figured it was time to
revisit it.
As following in the preaching of Tom Christiansen, et al, I religiously
use -Tw in all my scripts. However, I get insecure dependancies within
the SelfLoader module when I run with this option. Hence, none of my big
CGI scripts can use SelfLoader.
Has this been fixed?
Chris
------------------------------
Date: Tue, 12 Aug 1997 14:46:25 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Trouble using an Array
Message-Id: <adelton.871397185@aisa.fi.muni.cz>
babyvis@mail.teleport.com (ken) writes:
> Newbie problem... help appreciated;
>
> I'm trying to read a file, stuff each new line of text into an
> array so I can use the sort function to organize the
> file (by line). All the examples I've seen so far seem to
> use arrays to contain the elements within a line...?
And what is the trouble then? The example below shows the way how to
do it, isn't it?
> @array_of_lines = <LOG>; Hoping that this "loads" the array
> array_of_lines[0] = first line in LOG
> array_of_lines[1] = second line, etc
>
> sort(@array_of_lines);
> print(@array_of_lines);
You might wanted to send the question here?
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
European RC5 56 bit cracking effort -> http://www.cyberian.org/
------------------------------
Date: Tue, 12 Aug 1997 14:41:01 -0400
From: Jeff Masiello <jmasiello@presstar.com>
Subject: Walking the tree
Message-Id: <33F0AD62.3E3D@presstar.com>
We have a Unix server which needs massive cleaning. I just learned perl
but I would like to write a program which walks the directory structure
and catalogs files by directory giving their locations. it would be
easy if the foreach loops read directories first but they don't. I'm
using the -d test but how do I get it so it lists all the files first
and then moves on to the next subdir?
I think mosltly it's a logic problem so any hints would be appreciated.
This is supposed to be a learning experience as well as useful. If I
can get the program running it would save a lot of time.
TIA
Jeff
jmasiello@presstar.com.net (please remove the last 4 chars to reply)
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 854
*************************************
