[11427] in Perl-Users-Digest
Perl-Users Digest, Issue: 5027 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 1 17:07:23 1999
Date: Mon, 1 Mar 99 14:00:34 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 1 Mar 1999 Volume: 8 Number: 5027
Today's topics:
Adding directories to @INC <cobalt@dircon.co.uk>
Re: Can I do this w/ Perl? (Bart Lateur)
Re: Do you really need to do 'open(whatever, ..) or die <baillie@my-dejanews.com>
Re: Do you really need to do 'open(whatever, ..) or die <jdf@pobox.com>
Re: Do you really need to do 'open(whatever, ..) or die <jdf@pobox.com>
FAQ 7.20: How do I redefine a builtin function, operato <perlfaq-suggestions@perl.com>
file comfirmation <cplee@bigfoot.com>
Re: Forcing data to be a numeric float value (Larry Rosler)
Re: gethostbyname bug? <haye@cs.cornell.edu>
Getting File Version info on Win32 <jalil@corp.home.net>
Help Please: Script Optimization <kimntodd@dontspamus.execpc.com>
Re: how do I wildcard within eq '***' ? <Philip.Newton@datenrevision.de>
How does one 'tie' a db file to a hash' <paxtond@ix.netcom.com>
Image handling with Perl? <Magnus.Flysjo@emw.ericsson.se>
London.pm March Meeting dave@mag-sol.com
Re: newbie - writing html filter (Larry Rosler)
newbie baby script <aaden@erols.com>
Re: Nifty little expression (Sean McAfee)
Re: nmake, adding modules in Win 98 <gellyfish@btinternet.com>
OOP with wordpad <khhuntley@capitalnet.com>
open file problem <r.partridge@dewynters.com>
Re: Perl comment <Philip.Newton@datenrevision.de>
Re: randomize sequence (M.J.T. Guy)
reading/writing with pipes: newline question <Jeffrey_Davey-P93404@email.mot.com>
Re: sendmail doesn't work <philip.class@popcorn-studio.ch>
SMTP question (Rob Greenbank)
Re: Statistics for comp.lang.perl.misc <droby@copyright.com>
Re: Statistics for comp.lang.perl.misc <uri@ibnets.com>
Re: Statistics for comp.lang.perl.misc <uri@ibnets.com>
sysopen and NT (Monte Westlund)
system() question patowic_is_my_name@bouncespam.jurai.net
Re: The dumbest newbie question ever..? (Andrew M. Langmead)
The MAP function - Win32 PERL programming mirak63@my-dejanews.com
Re: URGENT help required!! <Tony.Curtis+usenet@vcpc.univie.ac.at>
Using DHTML object model symuser@my-dejanews.com
Re: Using Perl to resize image? <gpl@gamestats.com>
Re: Using Perl to resize image? <gpl@gamestats.com>
Re: What is %h=undef (assigning undef to a hash) suppos (M.J.T. Guy)
Win95 print question <pwmeyer@mitre.org>
Re: Win95 print question <pwmeyer@mitre.org>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 1 Mar 1999 21:40:33 -0000
From: "Paul Davies" <cobalt@dircon.co.uk>
Subject: Adding directories to @INC
Message-Id: <36db073f.0@newsread3.dircon.co.uk>
I wish to permanently add more directories to @INC so more modules can be
picked up and I don't have to specify search paths each time I start perl.
Can someone please tell me how to do this
Thanks
Paul
------------------------------
Date: Mon, 01 Mar 1999 20:17:38 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Can I do this w/ Perl?
Message-Id: <36daf4b9.498389@news.skynet.be>
Ken wrote:
>For an example of what I want to do see:
>
>http://www.net1plus.com/cgi-bin/socman.pl
>
>When I look at this code i don't see (what I recognize as) perl
>language. What does the .pl extension mean? How come when I try to
>save this file to my system it wants an html extension?
Because what you see is the result of the program (sorry, "script")
being run. Look, it's in the "cgi-bin" directory, which is "magic" to
many servers. The ".pl" extension will be treated as special by the
server too, so that this file gets executed by Perl instead of just
downloaded. (Exact details depend on the OS; Unix looks at "x" bit, and
if it's set, it looks at the first line: if it's starts with "#!", the
rest of the line tells the OS what program to run it with.)
Bart.
------------------------------
Date: Mon, 01 Mar 1999 20:00:57 GMT
From: Baillie <baillie@my-dejanews.com>
Subject: Re: Do you really need to do 'open(whatever, ..) or die..'
Message-Id: <7berlj$2je$1@nnrp1.dejanews.com>
In article <7beh57$3gv$2@info.uah.edu>,
Greg Bacon <gbacon@cs.uah.edu> wrote:
> In article <7bee9t$m4l$1@nnrp1.dejanews.com>,
> Baillie <baillie@my-dejanews.com> writes:
> : It seems as if a program will never die at the open line, but rather
> : at the close line. Why is that?
>
> I don't see this behavior:
>
> [10:58] ettsn% cat try
> #! /usr/bin/perl -w
>
> open FILE, "fooquux" or die "$0: failed open fooquux: $!\n";
> close FILE or die "$0: failed close fooquux: $!\n";
>
> [10:58] ettsn% ./try
> ./try: failed open fooquux: No such file or directory
>
True, but what about opening commands? Looking back, I didn't specify that,
but that's what I'm dealing with.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 01 Mar 1999 15:23:41 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Baillie <baillie@my-dejanews.com>
Subject: Re: Do you really need to do 'open(whatever, ..) or die..'
Message-Id: <m3aexxj6wi.fsf@joshua.panix.com>
Baillie <baillie@my-dejanews.com> writes:
> Even if the file doesn't exist the die never actually seems to happen, so
> what's the point in saying '|| die "error $!";'??
That's certainly not how perl behaves on my machine, neither in linux
nor in Win32. What version of perl are you using, and on what
platform?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 01 Mar 1999 15:34:33 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Baillie <baillie@my-dejanews.com>
Subject: Re: Do you really need to do 'open(whatever, ..) or die..'
Message-Id: <m3678lj6ee.fsf@joshua.panix.com>
Baillie <baillie@my-dejanews.com> writes:
> True, but what about opening commands? Looking back, I didn't
> specify that, but that's what I'm dealing with.
Oh, for Goddess's sake. *YOUR SAMPLE CODE SHOWED YOU OPENING A PLAIN
FILE*
Go away and read perlipc, particularly "Using open() for IPC".
And don't do that anymore!
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 28 Feb 1999 14:03:02 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 7.20: How do I redefine a builtin function, operator, or method?
Message-Id: <36d9af06@csnews>
(This excerpt from perlfaq7 - Perl Language Issues
($Revision: 1.24 $, $Date: 1999/01/08 05:32:11 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq7.html
if your negligent system adminstrator has been remiss in his duties.)
How do I redefine a builtin function, operator, or method?
Why do you want to do that? :-)
If you want to override a predefined function, such as open(), then
you'll have to import the new definition from a different module. See
the section on "Overriding Builtin Functions" in the perlsub manpage.
There's also an example in the section on "Class::Template" in the
perltoot manpage.
If you want to overload a Perl operator, such as `+' or `**', then
you'll want to use the `use overload' pragma, documented in the overload
manpage.
If you're talking about obscuring method calls in parent classes, see
the section on "Overridden Methods" in the perltoot manpage.
--
"Debugging is anticipated with distaste, performed with reluctance, and bragged
about forever."
--button at the Boston Computer Museum
------------------------------
Date: Tue, 02 Mar 1999 01:10:22 +0800
From: Cplee <cplee@bigfoot.com>
Subject: file comfirmation
Message-Id: <36DAC9FE.B5226BCD@bigfoot.com>
Howto use perl to confirm exist file
please help
Andy
------------------------------
Date: Mon, 1 Mar 1999 12:43:56 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Forcing data to be a numeric float value
Message-Id: <MPG.11449bebf035d7ab9896b9@nntp.hpl.hp.com>
In article <m3d82tjb4g.fsf@joshua.panix.com> on 01 Mar 1999 13:52:31 -
0500, Jonathan Feinberg <jdf@pobox.com> says...
...
> for (@results[$a,$b,$c,$d,$e]) {
> $_ = sprintf "%0.1", $_ || 0;
> }
Trade you a superfluous '0' for a required 'f':
'%.1f'
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 1 Mar 1999 15:41:40 -0500
From: "Haye Chan" <haye@cs.cornell.edu>
Subject: Re: gethostbyname bug?
Message-Id: <7beu28$dj0@blather.cs.cornell.edu>
Sorry. It's Perl 5.005_02 built for i86pc-solaris.
And actually even the C socket library on my solaris also has the same
problem. do you know any way to get all the IP addresses? Thanks.
Haye Chan
Computer Science
Cornell University
Tye McQueen wrote in message <7bcg0s$3ci@fumnix.metronet.com>...
>"Haye Chan" <haye@cs.cornell.edu> writes:
>) I am using gethostbyname to get the list of IP addresses for a host.
However
>) the implementation in
>
>) my version of Perl
>
>And what might that be?? Please, I don't read minds.
>
>) It only gives me one IP address,
>
>I think that the Win32 C run-time library has this same bug.
>--
>Tye McQueen Nothing is obvious unless you are overlooking something
> http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: Mon, 01 Mar 1999 21:44:00 GMT
From: "Jalil Feghhi" <jalil@corp.home.net>
Subject: Getting File Version info on Win32
Message-Id: <920324640.32972@zeppelin.svr.home.net>
Is there anyway to get file version info (available for exe and dll files)
on Win32 systems?
-Jalil
------------------------------
Date: Mon, 1 Mar 1999 15:27:56 -0600
From: "End User" <kimntodd@dontspamus.execpc.com>
Subject: Help Please: Script Optimization
Message-Id: <7bf0nn$5vk$1@ffx2nh3.news.uu.net>
here is a little scribble of code that I am sure can be prettied up:
It takes the following line and gives me the IP address of a server.
Pinging myserver.mynetwork.com [10.99.1.6] with 32 bytes of data:
$host = "myserver";
open(IP, "ping $host|");
while (defined($ip=<IP>)){
@ipaddr = split(/\s/,$ip);
$addr = $ipaddr[2];
$_ = $addr;
s/\[// && s/\]//;
$addr = $_;
print "$addr\n";
Can someone offer a tip on a cleaner way? If so, can you please also
explain the conventions used to clean it up an why it works.
Thank you very much,]
Todd
--
Todd Hayward
Global Analyst, Systems Engineer
MCSE, Compaq ACT
noc at bakernet dot com
------------------------------
Date: Mon, 01 Mar 1999 14:44:04 +0100
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: how do I wildcard within eq '***' ?
Message-Id: <36DA99A4.64F65C3B@datenrevision.de>
Heiko Marschall wrote:
>
> > How do I modify the line below to accept a wildcard before 'aol.com' ? I
> > want to re-direct AOL users to another URL but, like most ISPs, the front
> > end changes dynamically. I can't simply put '*.aol' in there. Anyone help?
> >
> > if ($ENV{'REMOTE_HOST'} eq 'aol.com') {$HostRedirector =
> > "http://mydomain.com/aolusers.html}
>
> if ($ENV{REMONTE_HOST}=~/.*?\.aol$/i) {...}
^
The $ at the end is wrong -- the address will, presumably, end in
"aol.com", not just in "aol".
Cheers,
Philip
------------------------------
Date: Mon, 01 Mar 1999 17:02:35 -0500
From: "J. Daniel Paxton" <paxtond@ix.netcom.com>
Subject: How does one 'tie' a db file to a hash'
Message-Id: <36DB0E72.B0D3AA85@ix.netcom.com>
Hi...
This code may look familiar to those who helped me with my syntax
problem (it turns out I was using perl 4 instead of perl 5...now i'm
using perl 5). Anyway, I can't seem to tie the users.dbmx file to a
hash. The process dies after the following line:
my $timesleft=tie %timesleft, "SDBM_File", "users.dbmx";
defined $timesleft or
die "Unable to open or create timesleft: \n";
Why? I've checked the permissions on the directory and the file. Am I
missing something in the code? Here is the code coming up to that line
and the code until the untie:
#!/usr/local/bin/perl5 -w
use SDBM_File;
# Enter the location of sendmail.
$mailprogram = "/usr/lib/sendmail -t";
# Enter the fields that are required.
@required = ('Account_Number','Email_Address','TesteeID','MLR','LLR',);
# Enter your e-mail address. Be sure to put a \ in front of the @.
$youremail = "CurryBus\@aol.com";
# Put the posted data into variables
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$id=$FORM{'Account_Number'};
# Check for user authorization and decrement
my $timesleft=tie %timesleft, "SDBM_File", "users.dbmx";
defined $timesleft or
die "Unable to open or create timesleft: \n";
if (exists $timesleft{$id}) {
$timesleft{$id}--;
}
else {
print "Content-type: text/html\n\n";
print "<html><head><title>Wrong USER
ID</title></head>\n";
print "<body><h1>Incorrect Information</h1><br>\n";
print "I'm sorry, but it would appear that you've made
an error\n";
print "filling out the Account Number field correctly.
Please click\n";
print "back and try again.\n";
print "</body></html>\n";
exit;
}
if ($timesleft{$id} <= 0) {
print "Content-type: text/html\n\n";
print "<html><head><title>No More
Credit</title></head>\n";
print "<body><h1>Out of Credit</h1><br>\n";
print "I'm sorry, but it would appear that you have
used\n";
print "all available credit for your account.\n";
print "Please call Michael A. McDaniel. Ph.D. at
804-364-8474 or \n";
print "email him at McDaniel\@Curryinc.com for additional
credit.\n\n";
print "</body></html>\n";
exit;
}
untie %timesleft;
------------------------------
Date: Mon, 01 Mar 1999 14:25:02 +0100
From: Magnus Flysjo <Magnus.Flysjo@emw.ericsson.se>
Subject: Image handling with Perl?
Message-Id: <36DA952E.E92331E3@emw.ericsson.se>
Does anyone know any freeware script that can
create charts from some kind of database files?
Or does anyone know any script that
can create GIF/JPG files?
Regards
Magnus Flyjsv
mailto:Magnus.Flysjo@emw.ericsson.se
Mail me AND the newsgroup not only the newsgroup!!!
------------------------------
Date: Mon, 01 Mar 1999 11:32:35 GMT
From: dave@mag-sol.com
Subject: London.pm March Meeting
Message-Id: <7bdtsj$7o8$1@nnrp1.dejanews.com>
Tempus just keeps on fugiting and it's already time for the next London Perl
M[ou]ngers meeting.
We'll be in Penderel's Oak on High Holborn (in the cellar bar) from about
6:15pm on Thursday 4th March.
As an added incentive, at this meeting I'll be taking orders for Perl Mongers
baseball caps.
More details about London.pm is on our web site at <http://london.pm.org>.
Dave...
p.s. A quick reminder - as far as I know, Penderel's Oak is the only regular
.pm venue where you can buy as drink called 'Thirsty Camel'. It's not
alcoholic but, hell, you can't have everything.
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 1 Mar 1999 13:50:25 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: newbie - writing html filter
Message-Id: <MPG.1144ab7e74a38c9d9896ba@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <7beufu$53u$1@nnrp1.dejanews.com> on Mon, 01 Mar 1999
20:49:06 GMT, Jamester76 <jdalldata@my-dejanews.com> says...
...
> #!/usr/local/bin/perl
Had you used the '-w' flag here, you would have gotten a warning that
would have identified the problem. You should *always* use it, as well
as 'use strict;' on the next line (which forces you to declare
variables).
> $i = 1;
> while (<>)
> {
> chomp;
> if (/<hr>/i) { # records begin with "<hr>" tag
You can simplify the program appearance and readability considerably by
replacing this by
next unless /<hr>/i;
> if (/<!--newrec-->/i) { # dummy header for record
And this...
> if (/<b>/i) { # "<b>" tage precedes name in file
And this too. The rest wouldn't be indented so far.
> @names = split(' ', $_[0]);
You have switched from manipulating $_ to $_[0]. This is the bug that
you would have been warned about. All you really need here is:
@names = split;
> $num_names = @names;
Not used.
> $fn[$i] = $names[0];
> $ln[$i] = $names[$#names];
A bit nicer would be:
$ln[$i] = $names[-1];
> print "$i $fn[$i] $ln[$i] \n";
> $i++;
> }
> }
> }
> }
--
Larry Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 1 Mar 1999 16:36:12 -0500
From: "Ahmed Aden" <aaden@erols.com>
Subject: newbie baby script
Message-Id: <7bf187$7j4$1@winter.news.rcn.net>
I am totally new to perl and somewhat new to linux, and do not have that
much experience with other programming languages to be honest. I picked up a
learning perl book and was going through some scripts and decided to compile
my own little (I mean simple) script. It doesn't seem to work the way I
wanted so I was just wondering if someone could help me out on this really
simple issue. What I wanted this script to do was to allow someone to enter
a 'secret word' and see if that secret word matched any of the words in the
@users array. I tried to modify it a little bit so that after 3 different
guesses (which is where the $numbers variable comes in), it would abort the
program without letting them authenticate. I even tried to put in my
rc.local start-up file as almost another security measure, but as I'm new to
all this, it will probably sound foolish. Without further adieu, here is the
script:
#!/usr/bin/perl -w
@users =
john
matthew
mike
);
print "Good morning, what is your name?\n";
$name = <STDIN>;
chomp ($name);
print "$name, to get in you have to enter the secret word, NOW!!:\n";
$word = <STDIN>;
chomp ($word);
$i = 0;
$number = 0;
$correct = "maybe";
while ($correct eq "maybe") {
if ( $users[$i] eq $word) { # if they guess right at any given $i
$correct = "incorrect"; # value, the while loop aborts, I
think
}
elsif ($i < 2) { # while they can still guess
$i= $i + 1; # increment $i so it can check
the next
$number = $number + 1; # @users scalar value & compare it.
}
elsif ( $i == 2 && $number == 9) { # if they don't get it
right by
# the time it's gone through @users[2] & haven't done it 3 times
print "You have been ejected due to security breaches!";
# see 'ya
}
}
elsif ($number < 9) { # if they haven't missed 3
times
print "You should not have to GUESS the secret word,
if you know it, \n";
print "all you have to do is enter it in!";
print "You will get another chance now!\n";
$word = <STDIN>;
chomp ($word);
}
}
------------------------------
Date: Mon, 01 Mar 1999 21:53:30 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: Nifty little expression
Message-Id: <u%DC2.9513$Ge3.37559411@news.itd.umich.edu>
In article <sj6C2.9308$Ge3.36676473@news.itd.umich.edu>, I wrote:
>(*SRan3, *Ran3) = @OtherPkg::Random::{'SRan3', 'Ran3'};
Of course, as I realized later, this only works if the parser has already
encountered a scalar, array, or whatever that's part of the SRan3 and Ran3
typeglobs in package OtherPkg::Random. IOW, this notation can't be used
for forward references. For that, one can use the somewhat-less-slick-but-
still-more-slick-than-aliasing-one-symbol-at-a-time idiom:
(*SRan3, *Ran3) = do { package OtherPkg::Random; (*SRan3, *Ran3) };
--
Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: 1 Mar 1999 00:28:08 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: nmake, adding modules in Win 98
Message-Id: <7bcmuo$1jt$1@gellyfish.btinternet.com>
<compg.lan.perl is dead>
In comp.lang.perl.misc Weapon <i.hate@spam.com> wrote:
> Jonathan Stowe wrote in message <7bc04i$d3$1@gellyfish.btinternet.com>...
>>In comp.lang.perl.misc tbird99@my-dejanews.com wrote:
>>> I am trying to add modules for Perl in Win 98. I am using Perl v5.005_02,
> and
>>> the path is correct. I get the error, "Bad command or file name" whenever
> I
>>> try to do the nmake step for adding a module. Am I doing something wrong?
>>>
>>
>>You probably have some other required tool missing - I would suggest using
>>PPM to install the module.
>>
>
> nmake is a make utility for a C compiler, probably the GNU port to Win32.
No. nmake is the Microsoft make utility that ships with their C compilers
and such - it is also freely available from their ftp site.
> You need a C compiler to compile it. It looks like the module is written in
> C and not Perl.
>
You dont need a C compiler to obtain nmake as it comes as a binary,
however certain Perl modules have XS components that do require one. In
this case and if one is using ActivePerl then it is probably far easier to
obtain and install a binary distribution using PPM the Perl Package
Manager that comes with that distribution.
> Do a good search on 'Win32 GNU C Compiler' in you fave search engine.
One could do that but its probably not worth the effort.
It is generally considered pretty lame to quote peoples signatures unless
one is actually refering to them and I consider it pretty lame to follow
up my posts in a manner that would suggests you think you are helping
with incorrect information.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Mon, 01 Mar 1999 21:14:40 GMT
From: "kris" <khhuntley@capitalnet.com>
Subject: OOP with wordpad
Message-Id: <4rDC2.2459$8c4.12561433@news.magma.ca>
I am a grade eleven student and I am wondering what I need to do to print
into a word file. I am just wondering what object references that I would
need to make to be able to print into a word document.
------------------------------
Date: Mon, 1 Mar 1999 13:22:19 -0000
From: "Richard Partridge" <r.partridge@dewynters.com>
Subject: open file problem
Message-Id: <36da94cd.0@nnrp1.news.uk.psi.net>
I want my perl script to open a data file on a seperate webserver...
so I thought I could use something like
(filehandle,">> http://www.somewhere.com/cgi-bin/datafile.txt");
Is this legal perl as it doesn't seem to be working for me.....
Regards
Richard
r.partridge@dewnters.com
------------------------------
Date: Mon, 01 Mar 1999 12:07:06 +0100
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Perl comment
Message-Id: <36DA74DA.90ABE48C@datenrevision.de>
KC wrote:
>
> dubing@lisco.com wrote:
> > Is there any easy way to comment out a block of Perl code (like how
> > /*....*/
> > is used in C) instead of putting '#' at the beginning of each line
> > line by
> > line?
>
> Nope. The pound sign is it.
...and the advantage over C comments is that Perl comments can be
"nested" ... if a line begins with '#' and you add another one, it's
still a comment, whereas /* /* ... */ */ will usually cause problems :)
But see the "podding out" technique elsewhere in this thread.
Cheers,
Philip
------------------------------
Date: 1 Mar 1999 18:29:28 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: randomize sequence
Message-Id: <7bema8$rau$1@pegasus.csx.cam.ac.uk>
Alexander Avtanski <sasho@staff.mgu.bg> wrote:
>Hello,
>
>I'm doing it that way:
>
> sub randomize {
> my $n=$#_+1;
> my $i,$t;
> for ($i=0;$i<$n;$i++) {
> $j=rand($n);
> $t=$_[$i]; $_[$i]=$_[$j]; $_[$j]=$t;
> }
> return @_;
> }
>
>However, it's not perlish enough... I'm looking for something
>much more effective and elegant.
Not only is it not very elegant, it's actually wrong (in a slightly
obscure way). You don't get a "random" permutation, in the sense that
not all permutations are equally likely. In the extreme case with n=3,
some permutations are 25% more likely than others.
( Hint: n! doesn't divide n**n, for n > 2. )
Others have pointed to the Fisher-Yates algorithm in the FAQ, which is
the Right Way to do this. (Though I notice that the form of it
given in the FAQ also isn't "random" as above, but the errors are much
much smaller.)
But here's a more perlish algorithm, based on the idea that a shuffle is
in a sense the opposite of a sort:
sub randomize { my %h = map {rand,$_} @_; @_[@h{sort keys %h}] };
Sadly, it's much slower than F-Y (about a factor of 4, for small n).
Mike Guy
------------------------------
Date: Mon, 01 Mar 1999 14:32:54 -0700
From: Jeffrey Davey <Jeffrey_Davey-P93404@email.mot.com>
Subject: reading/writing with pipes: newline question
Message-Id: <36DB0786.CE79A36B@email.mot.com>
Hello, all.
I need to write a program that writes out to and listens for input on
multiple pipes. Most examples show this form of communication reading
and writing a line at a time, terminated by '\n' characters.
My program needs to send and read information that is essentially raw
bytes within a string, using pack and unpack. The question I have is:
Can any data within the bytestrings get confused as a '\n' character
when being read, causing a earlier-than-expected end of data indicator?
If so, what would be a good way around this? I'd like to avoid static
sized packet communication if possible, or complicated frame
coordination.
Any information, opinions, or pointers would be well appreciated.
Thanks in advance,
Jeff Davey
------------------------------
Date: Mon, 1 Mar 1999 14:42:26 +0100
From: "Philip Class" <philip.class@popcorn-studio.ch>
Subject: Re: sendmail doesn't work
Message-Id: <7be5c8$jsp$1@bw107zhb.bluewin.ch>
OK.
Thanks to all (incl. Abigail).
Philip
------------------------------
Date: Mon, 01 Mar 1999 21:49:23 GMT
From: rob@frii.com (Rob Greenbank)
Subject: SMTP question
Message-Id: <36db0b14.258294265@news.frii.com>
Does anyone know if I can get the message ID of a message I send with
the perl SMTP module? I know SMTP servers return this, but I haven't
seen anything in the module to get at it.
Thanks,
Rob Greenbank
(rob@frii.com)
------------------------------
Date: Mon, 01 Mar 1999 21:00:26 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <7bev55$5mp$1@nnrp1.dejanews.com>
In article <x7zp5xdt72.fsf@home.sysarch.com>,
Uri Guttman <uri@home.sysarch.com> wrote:
>> OCR orig / body Posts Subject
> >> ----- -------------- ----- -------
> >>
> >> 0.945 ( 11.1/ 11.7) 5 Statistics for comp.lang.perl.misc
>
> JF> Hey, no fair!
>
> speaking of not fair, i have been on most of these lists from time to
> time and under multiple addresses so my real sums were higher than what
> was listed. greg, how about some smarts in the program to count posts by
> my real name instead of my login. i post from both home and work so it
> seems like i am in two places without being anywhere at all.
>
Making sure that the match is case-sensitive, so that we don't confuse uri
with Uri, should he arrive and start posting here...
Oh no! That doesn't work! Your real name has caps - why did you do that, uri?
;-)
I'd really be worried about this if your name were John Smith.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 01 Mar 1999 16:17:58 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <39d82sj4e1.fsf@ibnets.com>
>>>>> "GB" == Greg Bacon <gbacon@itsc.uah.edu> writes:
GB> In article <x7zp5xdt72.fsf@home.sysarch.com>, Uri Guttman
GB> <uri@home.sysarch.com> writes: : speaking of not fair, i have been
GB> on most of these lists from time to : time and under multiple
GB> addresses so my real sums were higher than what : was
GB> listed. greg, how about some smarts in the program to count posts
GB> by : my real name instead of my login. i post from both home and
GB> work so it : seems like i am in two places without being anywhere
GB> at all.
GB> You can arrange for that to happen automatically by having a
GB> Reply-To: header in all your posts that points to the same
GB> address. You (or anyone else concerned with this issue) could
GB> also send me a list of addresses from which you post, and I can
GB> fix that problem.
but my reply-to reflects where i am at so i can't use that to merge
my counts. maybe a way of registering my addresses or saying for these
addresses use the real name. this is very important as we must have
accurate posting stats or perl will perish for this world!
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 01 Mar 1999 16:22:35 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <39bticj46c.fsf@ibnets.com>
>>>>> "DR" == Don Roby <droby@copyright.com> writes:
DR> Making sure that the match is case-sensitive, so that we don't
DR> confuse uri with Uri, should he arrive and start posting here...
DR> Oh no! That doesn't work! Your real name has caps - why did you
DR> do that, uri?
just to annoy you.
DR> ;-)
DR> I'd really be worried about this if your name were John Smith.
i'd be even more worried if my name were john smith? which one would i
be? why is he spelling his name uri? and to think my name actually was
legally changed to uri when i was 18. but that is very off topic story.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Mon, 01 Mar 1999 20:35:16 GMT
From: montejw@memes.com (Monte Westlund)
Subject: sysopen and NT
Message-Id: <36dff9e9.13555008@news.memes.com>
Hello,
We've got a script on our ISP's NT server that uses
sysopen
function to create some temporary text files, writing them to the
harddrive, then writing several lines to the files.
We keep getting "Permission Denied" error from the server when running
our script.
The ISP sys admin thinks the temp files must already exist in order
for Perl to write to them.
Is this true? The documentation says sysopen will create a new file if
one doesn't already exist.
Anyone have a problem like this with NT?
Thanks in advance,
Monte
------------------------------
Date: Mon, 01 Mar 1999 21:40:51 GMT
From: patowic_is_my_name@bouncespam.jurai.net
Subject: system() question
Message-Id: <DPDC2.240$66.9366@ptah.visi.com>
I fully expect to be flamed heavily, but I've looked through the FAQ, and
looked through the Camel book, and I'm still stumped.
I'm trying to run a remsh command through a perl script, and while the
command string I'm trying runs fine from shell or shell script, my perl
program always stops after issuing the command. By this, I mean: I am running
the program in the background, and after issuing the pager command, it
halts, and I have to issue 'bg' to get it to keep going.
Here are the lines from my code which do the paging. I've been banging my
head against this for a while now, and am just stumped. I'd prefer to do
this in perl, but I can revert to ksh if necessary.
@arg = ("/usr/ucb/remsh telalert -l pager \"/usr/telalert/telalert -i
janderson -m \'try this one on for size\'\"");
print $arg[0] . "\n";
open (STDOUT,">/var/tmp/page.log") or die "can't open stdout!\n";
open(STDERR, ">&STDOUT");
system @arg;
close STDOUT;
close STDERR;
Can anyone lend me a clue on this?
--
Yeah, but Ford was the perfect President for his time. After the pure distilled
evil of Nixon, the country needed a big, lovable doofus.
-- Samurai, of heinous.net, Feb 4, 1999
------------------------------
Date: Mon, 1 Mar 1999 21:42:28 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: The dumbest newbie question ever..?
Message-Id: <F7xqys.721@world.std.com>
lr@hpl.hp.com (Larry Rosler) writes:
>As I try to do whenever it's relatively easy, I *did* test that before
>posting it (without the misprint of the final single-quote instead of
>double-quote, of course). Can you support your assertion that it
>doesn't work???
Although I had to reintall Windows 95 and Window's Perl on a machine
to prove it to myself, I have to admit that you were right.
Now I have to go back in my memory and figure out where the quoting
problems I had when I used COMMAND.COM were.
--
Andrew Langmead
------------------------------
Date: Mon, 01 Mar 1999 20:40:02 GMT
From: mirak63@my-dejanews.com
Subject: The MAP function - Win32 PERL programming
Message-Id: <7betv1$4jh$1@nnrp1.dejanews.com>
On page 24 of Dave Roth's book Win32 Perl Programming there is a sample script
that refers to the "map" function. I have inserted that below.
use Win32::NetAdmin;
if (Win32::NetAdmin::GetServers('','',SV_TYPE_NT, \@list))
{
print "The machines in this doamin are: \n";
map { $icount++; print "$icount) $_\n"} @list;
}
else {
print Win32::FormatMessage(Win32::NetAdmin::GetError());
}
My problem is I don't understand the syntax. Mainly; "icount)
Doesn't a close paren follow an open paren and likewise with the quote?
Please forgive the newbie question.
Thanks,
Karim Wall
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 01 Mar 1999 14:23:25 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: URGENT help required!!
Message-Id: <83yalhjqcy.fsf@vcpc.univie.ac.at>
Re: URGENT help required!!, Richard
<r.partridge@dewynters.com> said:
Richard> I want my perl script to open a data file
Richard> on a seperate webserver... so I thought I
Richard> could use something like
Richard> (filehandle,">>
Richard> http://www.somewhere.com/cgi-bin/datafile.txt");
That's a URL, not a file.
Richard> Is this legal perl as it doesn't seem to be
Richard> working for me.....
Well, the syntax ( presumably to an open() ) is
correct (apart from the return result not being
checked).
But what does it mean? You want to make an HTTP
connection to another HTTP server and create a file
there. This isn't a good idea (especially inside a
cgi area). <laughter style="maniacal">Just think of
all the files I could create spuriously on your
server</laughter>.
You can do this via LWP locally and CGI at the other
end and passing over a token to indicate the file to
be opened, but think carefully about the security
implications.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien. | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Mon, 01 Mar 1999 21:39:21 GMT
From: symuser@my-dejanews.com
Subject: Using DHTML object model
Message-Id: <7bf1e9$7sa$1@nnrp1.dejanews.com>
I wonder if that possible to use MS IEE 4 DHTMLa objects from CGI/perl script
in the same fashion as they used in vb- or jscript. I appreciate your help.
Thank you,
symuser
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 1 Mar 1999 14:42:00 -0600
From: "John" <gpl@gamestats.com>
Subject: Re: Using Perl to resize image?
Message-Id: <7beu0a$9ga$1@news.onramp.net>
If I use the stuff below I will need to get the GD Perl module right? Don't
I also need to get the GD graphics library too? Lastly I thought GD only
works with .GIF's? Does it work for JPEGS?
Thanks,
John
>----------------------------------
>try this:
>
>
>#!/usr/local/bin/perl
>
>
>use GD;
>
>
>
>################################# main stuff here #######################
>
># name of thumbnail directory
>$SMALLDIR = "./THUMBS";
>
>$thumbnailfile = "./thumbnail.html";
>
>
>mkdir ($SMALLDIR, 0755);
>
>$smallx = 100;
>$smally = 100;
>$smaller = 90;
>
>
>
>
>$smallimage = new GD::Image($smallx, $smally);
>$blankimage = new GD::Image($smallx, $smally);
>$red = $blankimage->colorAllocate(255,0,0);
>$smallimage->copy($blankimage,0,0,0,0,$smallx,$smally);
>$smallimage->transparent($red);
>
>
>open (HTML, ">"."$thumbnailfile");
>select (HTML);
>$|=1;
>printf(HTML "<html><body bgcolor=red>\n");
>
>################# now we should make a loop ##################
>
>opendir (DIR, ".");
>
>while ($filename = readdir(DIR)) {
> if (($filename =~ /gif/)
> || ($filename =~ /GIF/) ) {
>
> & procfile($filename,$filename);
>
> }
> if ($filename =~ /jpg|jpg/) { #convert it
> $tempfile = $filename.".gif";
> $conversion = `djpeg -gif $filename > $tempfile`;
> &procfile($filename,$tempfile);
> $conversion = `rm $tempfile`;
> }
>}
>
>closedir (DIR);
>
>
>################# finish it off ##############################
>
>select(HTML);
>$|=1;
>printf (HTML "\n<br></body></html>\n");
>close (HTML);
>
>chmod (0744, $thumbnailfile);
>
>exit 0;
>
>
>sub procfile {
>
> local ($filename,$tempname) = @_;
>
> open (GIF, $tempname);
> $fullimage = newFromGif GD::Image(GIF);
> close (GIF);
>
> ($largex, $largey) = $fullimage->getBounds();
>
> # resize the fullimage to fit in at most a $smaller x $smaller box,
with
> # perspective added
>
> $maxdim = $largex;
> if ($largey > $maxdim) {
> $maxdim = $largey;
> }
>
> $resizedx = $largex / $maxdim * $smaller;
> $resizedy = $largey / $maxdim * $smaller;
>
> # copy resized to small image
>
> $smallimage->copy($blankimage,0,0,0,0,$smallx,$smally);
> $smallimage->transparent($red);
> $smallimage->copyResized($fullimage,5,5,0,0,$resizedx,
$resizedy,$largex,$largey);
>
> # create the small image filename
> $smallfilename = $SMALLDIR."/small-"."$tempname";
>
> open (SMALL, ">"."$smallfilename") || die "cant create small file
$smallfilename";
> print SMALL $smallimage->gif;
> close (SMALL);
>
> chmod (0744, $smallfilename);
>
> select(STDOUT);
> printf("finished with %s\n",$filename);
>
> select(HTML);
> $|=1;
> printf ( HTML "<a href=\"%s\"><img
src=\"%s\"></a>\n",$filename,$smallfilename);
>}
>
>
>
>-------------------
>73 de Bill W5GFE
------------------------------
Date: Mon, 1 Mar 1999 14:42:00 -0600
From: "John" <gpl@gamestats.com>
Subject: Re: Using Perl to resize image?
Message-Id: <7beufl$9j5$1@news.onramp.net>
If I use the stuff below I will need to get the GD Perl module right? Don't
I also need to get the GD graphics library too? Lastly I thought GD only
works with .GIF's? Does it work for JPEGS?
Thanks,
John
>----------------------------------
>try this:
>
>
>#!/usr/local/bin/perl
>
>
>use GD;
>
>
>
>################################# main stuff here #######################
>
># name of thumbnail directory
>$SMALLDIR = "./THUMBS";
>
>$thumbnailfile = "./thumbnail.html";
>
>
>mkdir ($SMALLDIR, 0755);
>
>$smallx = 100;
>$smally = 100;
>$smaller = 90;
>
>
>
>
>$smallimage = new GD::Image($smallx, $smally);
>$blankimage = new GD::Image($smallx, $smally);
>$red = $blankimage->colorAllocate(255,0,0);
>$smallimage->copy($blankimage,0,0,0,0,$smallx,$smally);
>$smallimage->transparent($red);
>
>
>open (HTML, ">"."$thumbnailfile");
>select (HTML);
>$|=1;
>printf(HTML "<html><body bgcolor=red>\n");
>
>################# now we should make a loop ##################
>
>opendir (DIR, ".");
>
>while ($filename = readdir(DIR)) {
> if (($filename =~ /gif/)
> || ($filename =~ /GIF/) ) {
>
> & procfile($filename,$filename);
>
> }
> if ($filename =~ /jpg|jpg/) { #convert it
> $tempfile = $filename.".gif";
> $conversion = `djpeg -gif $filename > $tempfile`;
> &procfile($filename,$tempfile);
> $conversion = `rm $tempfile`;
> }
>}
>
>closedir (DIR);
>
>
>################# finish it off ##############################
>
>select(HTML);
>$|=1;
>printf (HTML "\n<br></body></html>\n");
>close (HTML);
>
>chmod (0744, $thumbnailfile);
>
>exit 0;
>
>
>sub procfile {
>
> local ($filename,$tempname) = @_;
>
> open (GIF, $tempname);
> $fullimage = newFromGif GD::Image(GIF);
> close (GIF);
>
> ($largex, $largey) = $fullimage->getBounds();
>
> # resize the fullimage to fit in at most a $smaller x $smaller box,
with
> # perspective added
>
> $maxdim = $largex;
> if ($largey > $maxdim) {
> $maxdim = $largey;
> }
>
> $resizedx = $largex / $maxdim * $smaller;
> $resizedy = $largey / $maxdim * $smaller;
>
> # copy resized to small image
>
> $smallimage->copy($blankimage,0,0,0,0,$smallx,$smally);
> $smallimage->transparent($red);
> $smallimage->copyResized($fullimage,5,5,0,0,$resizedx,
$resizedy,$largex,$largey);
>
> # create the small image filename
> $smallfilename = $SMALLDIR."/small-"."$tempname";
>
> open (SMALL, ">"."$smallfilename") || die "cant create small file
$smallfilename";
> print SMALL $smallimage->gif;
> close (SMALL);
>
> chmod (0744, $smallfilename);
>
> select(STDOUT);
> printf("finished with %s\n",$filename);
>
> select(HTML);
> $|=1;
> printf ( HTML "<a href=\"%s\"><img
src=\"%s\"></a>\n",$filename,$smallfilename);
>}
>
>
>
>-------------------
>73 de Bill W5GFE
------------------------------
Date: 1 Mar 1999 17:41:57 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: What is %h=undef (assigning undef to a hash) supposed to do ?
Message-Id: <7bejh5$ojr$1@pegasus.csx.cam.ac.uk>
Other respondents have suggested have suggested the correct way to
empty a hash (which is the answer to the question you probably should
have asked). I'll try to answer your actual question. :-)
Arnauld Van Muysewinkel <avm@atos.be> wrote:
>I'm debugging some ugly Perl code written by someone else.
When debugging Perl code, particularly when ugly and/or written by
someone else, you should always use -w.
>An error as shown up since I upgraded from Perl 5.004_04 to Perl
>5.005_02
>
>Somewhere in the code there is something like : %h=undef;
>In Perl 5.004_04 it results in %h containing : { } (an empty hash)
>In Perl 5.005_05 it results in %h containing : { "" => undef } (a hash
>containing one undef element)
And -w would have warned you of the dubious code:
Odd number of elements in hash list at ...
>What is the correct behaviour (5.004_04 or 5.005_02) ?
>I suspect it is a problem of context conversion (converting the (undef)
>array into a hash).
Yes - perl5.004_04 and earlier have a bug here. In fact, slightly
more complicated examples can cause assorted Perl crashes:
perl5.004_04 -we '@a = %a = undef'
Odd number of elements in hash list at -e line 1.
Bizarre copy of HASH in aassign at -e line 1.
This bug is mended in Perl versions 5.005 onwards, and will also be
mended in perl5.004_05, the next maintenance release of perl5.004:
perl5.004_05 -we '@a = %a = undef'
Odd number of elements in hash assignment at -e line 1.
Use of uninitialized value at -e line 1.
Mike Guy
------------------------------
Date: Mon, 01 Mar 1999 16:27:35 -0500
From: Peter Meyer <pwmeyer@mitre.org>
Subject: Win95 print question
Message-Id: <36DB0647.EAEBF920@mitre.org>
I'm running perl v5.005 under Win95. (I downloaded from ActivePerl, latest and greatest).
I'm running thru the exercises in Randal Schwartz (et al)'s book, Learning Perl on Win95/NT. I'm
having problems with one of the exercises in Chapter 3 (arrays).
I'm trying to print an array element ($foo[$bar-1]) but I can't get it to print out. I tried
running the answer from ORA and their version wouldn't work either! All my other print()s work
fine. I put print's before AND after the problem one.
Code follows:
use Sys::Hostname;
# Exercise 3.2 from the book
# write a program which reads a number followed
# by a list of strings on separate lines.
# print the string which corresponds with
# the number entered.
print "Enter the number: ";
chomp ($theNumber = <STDIN>);
print "Enter the strings (at least $theNumber): \n";
@theList = <STDIN>;
$foo = $theList[$theNumber-1];
print ("You asked for $foo"); # This is the print which won't
$host = hostname;
print "Tonight's host is $host"; # This prints ok
Thanks,
--
Peter W. Meyer
pwmeyer@mitre.org
"Verbosity leads to unclear, inarticulate things."
-- Vice President Dan Quayle
------------------------------
Date: Mon, 01 Mar 1999 16:35:23 -0500
From: Peter Meyer <pwmeyer@mitre.org>
Subject: Re: Win95 print question
Message-Id: <36DB081B.191DF3D5@mitre.org>
Peter Meyer wrote:
>
> I'm running perl v5.005 under Win95. (I downloaded from ActivePerl, latest and greatest).
>
> I'm running thru the exercises in Randal Schwartz (et al)'s book, Learning Perl on Win95/NT. I'm
> having problems with one of the exercises in Chapter 3 (arrays).
>
> I'm trying to print an array element ($foo[$bar-1]) but I can't get it to print out. I tried
> running the answer from ORA and their version wouldn't work either! All my other print()s work
> fine. I put print's before AND after the problem one.
>
BTW: I this code works fine using the debugger. (perl -d foo.plx)
> Code follows:
>
> use Sys::Hostname;
> # Exercise 3.2 from the book
> # write a program which reads a number followed
> # by a list of strings on separate lines.
> # print the string which corresponds with
> # the number entered.
> print "Enter the number: ";
> chomp ($theNumber = <STDIN>);
> print "Enter the strings (at least $theNumber): \n";
> @theList = <STDIN>;
> $foo = $theList[$theNumber-1];
> print ("You asked for $foo"); # This is the print which won't
> $host = hostname;
> print "Tonight's host is $host"; # This prints ok
>
> Thanks,
> --
> Peter W. Meyer
> pwmeyer@mitre.org
> "Verbosity leads to unclear, inarticulate things."
> -- Vice President Dan Quayle
--
Peter W. Meyer
pwmeyer@mitre.org
"Verbosity leads to unclear, inarticulate things."
-- Vice President Dan Quayle
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5027
**************************************
