[6322] in Perl-Users-Digest
Perl-Users Digest, Issue: 944 Volume: 7
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 13 23:07:17 1997
Date: Thu, 13 Feb 97 20:00:24 -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 Thu, 13 Feb 1997 Volume: 7 Number: 944
Today's topics:
advise with require in perl5 (Bob Mariotti)
case-insensitive grep()? <kin@sampras.isi.com>
command line parameters (.bat vs .pl) <lancej@chatlink.com>
Compiling Perl on UnixWare (David Getchell)
Re: Getting "return status" from cmd in a rsh call <tchrist@mox.perl.com>
Re: getting STDERR from `backtick_exec` <spicano@ptdcs2.intel.com>
HELP loop prob <lewis@thereel.com>
Re: HELP loop prob <billc@tibinc.com>
Re: HELP loop prob (Mike Stok)
Re: Help please with text wrap <gabriele@lachesis.inxpress.net>
Help save Randal's reputation <rob@netcentral.net>
Re: HELP: Communication between processes <gabriele@lachesis.inxpress.net>
Re: HELP: variable interpretation?? <billc@tibinc.com>
Re: HELP: Week of year in perl only <cbaron@nwrain.com>
Re: how to e-mail the content of a associate arry? <rootbeer@teleport.com>
How to return exit values to UNIX ?!?!? (Pathfinder)
Re: initialization of hash while resolving? (Brian L. Matthews)
Re: learning perl (Helen)
Match any char EXCEPT [char] <aroman@nmsu.edu>
MLDBM issues - is it transparent? (Ken Williams)
OK I know that I am a newbie But I need HELP!! <aaron@longsword.com>
Re: Perl object dealing with MIME-messages? <eryq@enteract.com>
PING in Perl for Win32 (Paul Downing)
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 14 Feb 1997 02:52:24 GMT
From: rmariott@tiac.net (Bob Mariotti)
Subject: advise with require in perl5
Message-Id: <5e0jnb$u8@news-central.tiac.net>
several of my perl scripts use the SAME subroutines. Rather than
include all the code in each, it makes mucho sense to require them in
the scripts. At the beginning of the scripts there are several
require "filename.pl"; lines but when executed a message stating that
the code at line # did NOT return a positive value.
These subroutines function if included in their entirety without
require and even with require, as seen in several examples, the
subroutines end with 1; }
I tried all of the things I would think of or find reference to.
And yes, I searche the perl faq's extensively without finding any
references.
Can anyone shed some light on this? It must be a simple error.
Thanks in advance.
-------------------------------------------------
Bob Mariotti Financial DataCorp (FDC)
bobm@cunix.com Credit Union Specialists
(860) 657-8983 voice 703 Hebron Avenue
(860) 657-8987 fax Glastonbury, CT 06033 USA
-------------------------------------------------
------------------------------
Date: 13 Feb 1997 19:04:28 -0800
From: Kin Cho <kin@sampras.isi.com>
Subject: case-insensitive grep()?
Message-Id: <nw3ev0jdfn.fsf@sampras.isi.com>
There does not appear to be a way to grep() with case off.
Am I missing something?
By the way, [A-Za-z] isn't so great in what I'm trying to do.
-kin
--
Kin Cho, Staff Engineer (408)542-1644 Fax (408)542-1958
Integrated Systems Inc., 201 Moffett Park Drive, Sunnyvale, CA 94089
http://www.isi.com
I'll procrastinate tomorrow
-- Garfield.
------------------------------
Date: 14 Feb 1997 00:58:12 GMT
From: "Lance Julander" <lancej@chatlink.com>
Subject: command line parameters (.bat vs .pl)
Message-Id: <01bc1a13$a1cb7e60$cb723ace@ob1.terragon.com>
Hi,
My email server (Imail from Ipswitch) will send mail to an external
program. It does this by sending a temp filename to the external program.
I've tried having it call a .bat file with success. Imail sends out the
data like so: test.bat <temp_file_name>
*test.bat* contains the following single line:
copy %1 bluebird.txt
This .bat works fine. The email ends up in 'bluebird.txt'
I can't seem to get the same thing to work in perl. I want to have a
perl script that will take the temp file and then post it on a web page.
When I have Imail call the perl script, the temp filename appears to be
null. If I call the perl script from the command line, everything works
great. So, somehow there is a difference between executing from the
command line and having Imail call the script.
My perl script is grabbing the temp filename like such:
$a=$ARGV[0];
# $a should now contain the temp filename #
What am I doing wrong?
Thanks,
Lance
lancej@terragon.com
------------------------------
Date: Thu, 13 Feb 1997 19:26:06 GMT
From: david.getchell@paonline.com (David Getchell)
Subject: Compiling Perl on UnixWare
Message-Id: <33036a69.23483879@snews.zippo.com>
I am having a hard time getting Perl to compile on UnixWare 2.1. The
version of Perl is 5.003. It fails several of the tests during the
self-check. I also was unable to use dynamic loading. Suggestions?
------------------------------
Date: 14 Feb 1997 00:45:00 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Getting "return status" from cmd in a rsh call
Message-Id: <5e0cic$b3a$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
grajek@orasis.com writes:
:I am having no luck getting the execution status of "tar"
:using "rsh" in a perl script.
http://ww2.altavista.digital.com/cgi-bin/news?msg@51164@comp%2elang%2eperl%2emisc%26Maarten+Litmaath
--
Tom Christiansen tchrist@jhereg.perl.com
echo "Congratulations. You aren't running Eunice."
--Larry Wall in Configure from the perl distribution
------------------------------
Date: Thu, 13 Feb 1997 16:14:35 -0800
From: Silvio Picano <spicano@ptdcs2.intel.com>
To: roychri@total.net
Subject: Re: getting STDERR from `backtick_exec`
Message-Id: <3303AE6B.41C6@ptdcs2.intel.com>
Try the obvious first:
http://www.perl.com/perl/faq/Q5.15.html
Silvio
------------------------------
Date: Thu, 13 Feb 1997 18:11:48 -0800
From: Lewis Taylor <lewis@thereel.com>
Subject: HELP loop prob
Message-Id: <3303C9E4.742A@thereel.com>
I have tried to emulate the following code:
print OUTPUT ":$FORM{'qu1'}";
print OUTPUT ":$FORM{'qu2'}";
print OUTPUT ":$FORM{'qu3'}";
print OUTPUT ":$FORM{'qu4'}";
etc ...
in a loop thus:
for ($i=1; $i <= 14; $i++)
{
$field=$FORM{'qu$i'};
print OUTPUT ":$field";
}
but this loop (and variations) do not seem to work. What a I doing
wrong?
Thanks in advance,
Lewis (nexus@nexusint.com)
------------------------------
Date: Thu, 13 Feb 1997 21:34:57 -0500
From: Bill Cowan <billc@tibinc.com>
To: lewis@thereel.com
Subject: Re: HELP loop prob
Message-Id: <3303CF51.1456@tibinc.com>
Lewis Taylor wrote:
>
> I have tried to emulate the following code:
>
> print OUTPUT ":$FORM{'qu1'}";
> print OUTPUT ":$FORM{'qu2'}";
> print OUTPUT ":$FORM{'qu3'}";
> print OUTPUT ":$FORM{'qu4'}";
> etc ...
>
> in a loop thus:
>
> for ($i=1; $i <= 14; $i++)
>
> {
> $field=$FORM{'qu$i'};
^^^^^^
No interpolation of $i inside single quotes.
Try something like: $field=$FORM{"qu$i"}
or $field=$FORM{'qu' . $i}
> print OUTPUT ":$field";
> }
>
> but this loop (and variations) do not seem to work. What a I doing
> wrong?
>
> Thanks in advance,
>
> Lewis (nexus@nexusint.com)
-- Bill
-----------------------------------------------------------------------
Bill Cowan <billc@tibinc.com> Voice:919-490-0034 Fax:919-490-0143
Tiburon, Inc./3333 Durham-Chapel Hill Blvd Suite E-100/Durham, NC 27707
------------------------------
Date: 14 Feb 1997 02:53:48 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: HELP loop prob
Message-Id: <5e0k3s$3rn@news-central.tiac.net>
In article <3303C9E4.742A@thereel.com>,
Lewis Taylor <lewis@thereel.com> wrote:
>in a loop thus:
>
>for ($i=1; $i <= 14; $i++)
>
>{
>$field=$FORM{'qu$i'};
Those single quotes don't interpolate, maybe you want $field=$FORM{"qu$i"};
>print OUTPUT ":$field";
>}
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 Feb 1997 16:20:57 -0600
From: Gabriele R Fariello - 608-576-8660 <gabriele@lachesis.inxpress.net>
To: gabriele@clotho.com, preston@clotho.com
Subject: Re: Help please with text wrap
Message-Id: <m2vi7xfyye.fsf@lachesis.inxpress.net>
Eric Wong <egwong@netcom.com> writes:
> My favorite word wrap routine is (of course) a regexp:
> s/(.{1,80})\s+/$1\n/g;
>
> If this doesn't make sense, the perlre manpage can help
> you decipher this.
>
> [ cc'd ]
Yes, this is a quick and dirty way of doing it, but you might want to
be a little careful using it. As it is, lines that are shorter than
80 chars will still get split so if you have a line like this:
This is a test
Then you are going to get this
This is a
Test
Which isn't that bad, but....
On the other hand,
s/(.{70}\S+)\s/$1\n/g
Is a teeny tiny bit better, at least in some respects if not in others, but
it will still mess up on some lines. You could, however, check first to make
sure that the line we are going to chop is in fact longer than 80 chars with
something like this:
if(m/.{80}/)
{
s/(.{1,80})\s+/$1\n/g;
}
Which will work much better, but if you are trying to wrap a whole bunch of
80-90 character lines, it's going to look pretty ugly. In that case,
you might want to guess paragraphs by doing a
s/\n([^\n])/$1/sg;
which is a cheapo way of guessing paragraphs, but works rather well. It
assumes that everything with just a single return is part of a continuing
line and that double returns are paragraph markers. Double returns are, alas,
not preserved, but s/\n/\n\n/g will restore them. Applying the if statement
above would then make it a pretty neato word-wrap.
[more ramble withheld]
Well, if that works for you please let me know cuz I need a word wrap routine
that is fairly robust. If I'm all wrong, please let me know also.
Thanks for reading my posts ;)
-Gabriele
P.S. Typos are a bad thing.
--
Gabriele R. Fariello | Clotho Internet Consulting
gabriele@clotho.com | 33 University Square No. 251
(608)-576-8660 | Madison, WI 53715
------------------------------
Date: Thu, 13 Feb 1997 16:39:38 -0600
From: Rob Huffstedtler <rob@netcentral.net>
Subject: Help save Randal's reputation
Message-Id: <3303982A.5EA690B4@netcentral.net.no.spam>
In a recent article, Fortune just sort of tossed out that Randal
Schwartz had "stolen a password file" at Intel. I am sure that you all
have been keeping up with the whole mess. If you haven't please check
out Randal's web-page to get the details.
Anyway, please read the Fortune article (on-line, don't waste your money
buying it). Then send email to fortune-letters@pathfinder.com to let
them know what really happened in Oregon.
Randal's done a lot for all (or at least most) of us. Let's turn around
and do something for him.
thanks,
Rob Huffstedtler
Systems Developer
Netcentral, Inc
rob@netcentral.net.no.spam
Note; The .no.spam is just there to fool span-bots
------------------------------
Date: 12 Feb 1997 15:55:55 -0600
From: Gabriele R Fariello - 608-576-8660 <gabriele@lachesis.inxpress.net>
Subject: Re: HELP: Communication between processes
Message-Id: <m2wwsdg044.fsf@lachesis.inxpress.net>
"T. de Konink" <konink@telebyte.nl> writes:
> I've got the following question. When I fork a child proces from the
> parent, how can I let the two processes communicate ?
Probably one of the best explanations you'll find is in Programming Perl
2nd Ed - starting at page 337 "Cooperating with Other Processes".
In any case, you will probably want to define the %SIG hash and use SIGALARM
to communicate between processes so long as your communication needs are
simple.
This, however, depends what kind of communication you are looking for.
If you really want the processes "talking" to each other I'm afraid that
Sockets is the way to go.
-Gabriele
--
I am far from perfect, corrections welcome.
--
Gabriele R. Fariello | Clotho Internet Consulting
gabriele@clotho.com | 33 University Square No. 251
(608)-576-8660 | Madison, WI 53715
------------------------------
Date: Thu, 13 Feb 1997 21:28:58 -0500
From: Bill Cowan <billc@tibinc.com>
Subject: Re: HELP: variable interpretation??
Message-Id: <3303CDEA.7F49@tibinc.com>
Robert A. Goff wrote:
>
> > Can anyone point me in the right direction? I've searched my O'Reilly
> > books, but haven't ferreted out the answer...
>
> The perlref man page has a fascinating discussion of this.
> --
> =================================================
> Robert Goff email: ragoff@sandia.gov
> Sandia National Labs Phone: (505)284-3639
Also see perlop man page for "interpolating" (vs. "interpretation" found
in subject line).
-- Bill
-----------------------------------------------------------------------
Bill Cowan <billc@tibinc.com> Voice:919-490-0034 Fax:919-490-0143
Tiburon, Inc./3333 Durham-Chapel Hill Blvd Suite E-100/Durham, NC 27707
------------------------------
Date: Thu, 13 Feb 1997 18:37:53 -0800
From: Chris Baron <cbaron@nwrain.com>
Subject: Re: HELP: Week of year in perl only
Message-Id: <3303D001.240A@nwrain.com>
Jo Havik wrote:
>
> Hi!
>
> I hope someone can help me on this one:
>
> I need to find the week of year from a given date. My problem is that
> the target system is without a compiler, so using C libraries or Perl
> modules interfacing C is not an option.
>
> Any help, hints or references is greatly appreciated!
> -------------------------------------------------------------------------------
> Jo Havik
> jo@bergens-tidende.no
> - They gave me an offer I couldn't understand.
Search around for a module called date.pl. Try CPAN or Selena Sol's
archive. You can use it to get the Julian day for a specific date then
just divide by 7. It should work on Perl4 or 5, no C needed.
--
Chris Baron
chris@hypertising.com - http://www.hypertising.com/
Look for my new book "Drag n Drop CGI -
Enhancing your web site without programming"
from Addison-Wesley Developer's Press - mid '97
------------------------------
Date: Thu, 13 Feb 1997 14:58:51 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Zhitao Wang <5u16wangz@vms.csd.mu.edu>
Subject: Re: how to e-mail the content of a associate arry?
Message-Id: <Pine.GSO.3.95q.970213145328.15428L-100000@julie.teleport.com>
On 13 Feb 1997, Zhitao Wang wrote:
> I got to e-mail the content of a associate arry to somebody, could
> somebody give me some instruction on how to do that please?
You can do that in two steps. First, convert the contents of the hash
(associative array) to a string. For that, I recommend using join and map,
and possibly sort, all of which are documented in perlfunc(1). Second,
send that string by e-mail. I recommend opening a pipe to sendmail, which
(of course) has its own documentation. (Opening a pipe to an external
program is documented in perlfunc(1) under 'open'.) Please post again if
you can't find out how to do either of those steps on your own. Hope this
helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Thu, 13 Feb 1997 16:06:53 -0500
From: "David J. Topper (Pathfinder)" <dtopper@pathfinder.com>
Subject: How to return exit values to UNIX ?!?!?
Message-Id: <3303826D.4A05@pathfinder.com>
Hello,
I am having a hell of a time returning exit codes to the
UNIX OS. Here's an example using perl4.
#!/usr/local/bin/perl
print "ERROR TEST SCRIPT";
&error_sub; #call the subroutine
print "Exiting with error $error\n";
return $error;
sub error_sub {
print "Please enter a value: ";
$error = <STDIN>;
}
I am using an automation package (Autosys) to catch the return
from this, and it ain't gettin' nothin' ?!?!?
Thanks,
DT
--
David J. Topper dtopper@pathfinder.com
Associate Systems Engineer (212) 522-9587
Time Inc. New Media Pathfinder
------------------------------
Date: 13 Feb 1997 16:41:26 -0800
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: initialization of hash while resolving?
Message-Id: <5e0cbm$9kf$1@halcyon.com>
In article <33009F18.147E@denkart.be>, Sven Akkermans <sa@denkart.be> wrote:
|$x = $SGS{SE}{X};
|if( exists($SGS{SE}))
|{
| print "SE exists from the second time on\n";
|}
|Surprisingly to me, this prints "SE exists from the second
|time on".
|Is this a normal behaviour?
If you read perlref again, you'll see a statement that perl brings
references into existence as needed, so when you do the assignment,
perl sets $SGS{SE} to a reference to an empty hash, thus it exists.
Brian
--
Brian L. Matthews Illustration Works, Inc.
For top quality, stock commercial illustration, visit:
http://www.halcyon.com/artstock
------------------------------
Date: Thu, 13 Feb 1997 21:29:01 GMT
From: forr@ultranet.ca (Helen)
Subject: Re: learning perl
Message-Id: <33038601.12843692@news.ultranet.ca>
On Tue, 11 Feb 1997 15:34:13 +0000, David Darwent
<david@bradda.demon.co.uk> wrote:
. So I bought a book and started to read.
>But I soon realised that it wasn't going to be as easy as I thought. As
>this is my first experience with programming.
>Is this why I am find perl difficult? Am I trying to run before I can
>walk?
I'm in a similar position myself. I found that both Camel books
(Learning Perl being one of them, Programming Perl being the other)
became clearer as I learned more unix. They assume a unix background
in the reader. Not to have done so would have made them twice as
thick. Fortunately, unix isn't that hard to pick up. Learning unix is
useful even if you plan to use Perl on NT or whatever.
------------------------------
Date: Thu, 13 Feb 1997 19:23:35 -0600
From: Augusto Roman <aroman@nmsu.edu>
Subject: Match any char EXCEPT [char]
Message-Id: <3303BE97.41C6@nmsu.edu>
Hello! :)
In a program I'm working on, I need to search through a string and match
a pattern that contains any character except one specific char. Can
this be done?!
I seem to remember reading about this in a book, but I no longer have
access to this book.
I've searched the FAQ and the programming reference, but I can't seem to
find it anywhere! It's possible (likely, even) that I'm simply too
brain-dead at this point to see it, but I've looked quite a bit.
Thanks!
- Augusto
------------------------------
Date: Thu, 13 Feb 1997 18:26:13 -0500
From: ken@forum.swarthmore.edu (Ken Williams)
Subject: MLDBM issues - is it transparent?
Message-Id: <ken-1302971826130001@news.swarthmore.edu>
Hi there-
I just downloaded the MLDBM package, which I think may be just what I
need. I have grown to love the multidimensional data structure
capabilities of Perl 5, and the idea of saving them to disk is, as I'm
sure most people would agree, quite attractive.
However, I have run into a couple of problems, and I also have some
questions about things I don't understand.
(1) Is it efficient? What I mean is, how fast can I open up databases?
My fear is that MLDBM stores a data structure to disk, and then whenever I
open up that structure again, via a tie(), it reads the ENTIRE data
structure into memory. Personally, I think that would defeat the whole
purpose of putting things into dbm files and not just using text files or
something. I really like the way the regular (one-dimensional) tie()
routines know how to look up keys & values without reading in the entire
database, and if MLDBM doesn't do that I can't use it.
(2) How come the each() function doesn't seem to work like I thought it
would? Here's some code:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
use Fcntl;
use lib "/home/ken/temp/MLDBM-1.22";
use MLDBM(DB_File);
tie (%db, MLDBM, 'testmldbm2', O_CREAT|O_RDWR, 0640) or die $!;
$db{'002340'} = {'001' => "blah blah blah ",
'006' => "I am six!",
'hiya'=> "Howdy!"};
untie (%db);
tie (%db, MLDBM, 'testmldbm2', O_RDONLY, 0640) or die $!;
while(($k, $v) = each %{$db{'002340'}}) {
print ("$k: $v\n");
}
untie (%db);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
It outputs an infinite loop:
001: blah blah blah
001: blah blah blah
001: blah blah blah
001: blah blah blah
001: blah blah blah
001: blah blah blah
001: blah blah blah
001: blah blah blah
Again, if MLDBM doesn't implement the each(%hash) feature correctly, I
can't use it.
(3) What plans are being made for a more seamless storage implementation
of multidimensional data structures? I like to use statements like this:
$db{'002340'}{'001'} = "blah blah blah ";
rather than this:
$db{'002340'} = {'001' => "blah blah blah "};
I guess the reason I can't use the first statement is that tie(%hash)
doesn't know any better. But it seems like there's no reason future
versions of tie(%hash) couldn't allow for built-in, seamless storage of
multidimensional data. Comments or ideas?
By the way, I did not perform a full Makefile installation of Data::Dumper
or MLDBM, since I'm just testing them out. I just unzipped and untarred
the files I got from CPAN, and those are the files I'm 'use'ing. Perhaps
a full installation would clean up the problems with each()?
I'm using perl version 5.003, and I'm running Digital UNIX V3.2G
Worksystem Software (Rev. 62) on a DEC AlphaServer 1000/266.
Thanks for your time,
Ken Williams
ken@forum.swarthmore.edu
------------------------------
Date: 14 Feb 1997 02:15:07 GMT
From: "Aaron-Technical Support" <aaron@longsword.com>
Subject: OK I know that I am a newbie But I need HELP!!
Message-Id: <01bc1a1c$45409c80$031fe4cf@coupe.greatbasin.net>
I totally blew my buffer today. My boss saw me reading "Learning Perl" and
asked me to write a script. OK, no prob; I wrote a functional script. It
uses `grep blah blah blah` to look up some info in six different error
logs. The script I wrote works but unfortunatly I only retrievs the
specific error code that I am looking for in the logfile (i.e. 1 line) when
I need to retrive "2" specific lines from the log (the date and time of the
log entry and the error code) from among the multiple lines in the log. Am
I just over looking something here?
I anyone would be kind enough to respond (thank you, thank you) please do
so by email.
aaron@longsword.com
TIA
------------------------------
Date: Thu, 13 Feb 1997 17:27:34 -0600
From: Eryq <eryq@enteract.com>
To: Moosauer@steinecker.com
Subject: Re: Perl object dealing with MIME-messages?
Message-Id: <3303A366.BF8E156@enteract.com>
Reinhard Moosauer wrote:
>
> Hello,
>
> Does anybody know about a free Perl module, which can be used to
> pack/unpack MIME-messages?
>
> tnx 4 any little help from
You want the MIME-tools package, available at your local CPAN
site. Start with www.perl.com, and keep going until you find
the CPAN. Make sure you get MIME-tools 3.x.
MIME-tools actually gives you several modules, and can be used
to encode or decode messages. There are also some sample
standalone applications, for doing things from the command line.
Docs online at:
http://www.enteract.com/~eryq/CPAN/MIME-tools/docs
And stay tuned for MIME::Lite...
(And also for new Pod:: modules to turn POD into that nifty HTML
you see in my docs :-) )
--
___ _ _ _ _ ___ _ Eryq (eryq@enteract.com)
/ _ \| '_| | | |/ _ ' / Hughes STX, NASA/Goddard Space Flight Cntr.
| __/| | | |_| | |_| | http://www.mcs.net/~eryq
\___||_| \__, |\__, |__
|___/ |___/ Make $$$ easy! Just hit shift, then 444!
------------------------------
Date: Fri, 14 Feb 1997 02:41:44 GMT
From: enc@pobox.com (Paul Downing)
Subject: PING in Perl for Win32
Message-Id: <3303d031.838032@207.126.101.80>
I am trying to get a simple little Perl script to work. In fact it is
the example out of the "Programming Perl" book.
>#!/usr/local/bin/perl
>use Net::Ping;
>$hostname = 'mail.premier.net';
>$timeout = 10;
>print ("Mail.premier.net is alive.\n") if pingecho($hostname, &timeout);
This is the script. I am working on a 486 DX/133 (AMD), 16 MB, and
Win95 OSR2. I have also tried it on NT 3.51 and 4.0 to no avail. I
keep getting this message: "Error: Parse exception". Yes, the address
exists :)
Can someone please help me?
Paul Downing
------------------------------------------------------------
Enterprise Network Consulting / owner
Baker, Louisiana
E-mail: enc@pobox.com
-------------------------------------------------------------
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 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.
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 V7 Issue 944
*************************************
