[8761] in Perl-Users-Digest
Perl-Users Digest, Issue: 2377 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 22 13:17:28 1998
Date: Wed, 22 Apr 98 10:05:18 -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 Wed, 22 Apr 1998 Volume: 8 Number: 2377
Today's topics:
Re: 'each' and recursion, do they mix? <rootbeer@teleport.com>
'wait' under perl5.004 (possibly a perl bug?) <Michael.Francis@gs.com>
Re: 'wait' under perl5.004 (possibly a perl bug?) <francm@jeeves.fi.gs.com>
Re: ---- Need Help Making Search.cgi Increment a Page C (Abigail)
Re: ..I'M...SO..SEXY..I..GOTTA..WEAR..SHADES... 42632 (Craig Berry)
Re: .= so why not =. ? (Michael J Gebis)
1st cgi script doesn't work <bchapman@best.com>
Re: 2 newbie questions <sneaker@earthling.net>
Re: 2 newbie questions (Andre L.)
Re: 2 newbie questions <rjk@coos.dartmouth.edu>
Re: 2 questions on screen controll <ebohlman@netcom.com>
Re: 2 questions on screen controll (Martien Verbruggen)
Re: A.B.I.G.A.I.L. <rootbeer@teleport.com>
Re: A.B.I.G.A.I.L. <rick.delaney@shaw.wave.ca>
Re: A.B.I.G.A.I.L. <sowmaster@juicepigs.com>
Re: A.B.I.G.A.I.L. (Tom Mornini)
Re: A.B.I.G.A.I.L. <rjk@coos.dartmouth.edu>
ANNOUNCE: Win32API::SerialPort Documentation (Bbirthisel)
Re: ANNOUNCE: Win32API::SerialPort Documentation (Matthew H. Gerlach)
Re: ANNOUNCE: Win32API::SerialPort Documentation (Bbirthisel)
Re: ANNOUNCE: Win32API::SerialPort Documentation (Bbirthisel)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 22 Apr 1998 01:14:47 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Jean-Louis Leroy <jll@skynet.be>
Subject: Re: 'each' and recursion, do they mix?
Message-Id: <Pine.GSO.3.96.980421175302.21174p-100000@user2.teleport.com>
On Tue, 21 Apr 1998, Jean-Louis Leroy wrote:
> it seems that 'each' uses a single iterator per hash. That's
> disappointing,
Sorry to hear that you're disappointed.
> 1) Can I say 'local' to something and have it save & restore the
> iterator?
Sorry, no. AFAIK.
> 2) If not, what is the most efficient *and* reentrant way of iterating
> over a hash, besides the obvious 'foreach my $val (keys %h)...'?
Make it a tied hash, and make hooks to let you save and restore the
iterator. Or, make pos(%hash) Do The Right Thing. (Hmmm... That _could_
work, with one caution... No, two. I think... :-)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
[ This is POD text. ]
=item pos HASH
Returns the hash key which is the current position of that hash's C<each>
iterator. That is, this is the key which C<each> will next return, or
C<undef> if c<each> has reached the end of the hash. Calling this function
does not advance the iterator. May be modified to set the hash's iterator;
setting it to a key which does not exist is the same as setting it to
C<undef> - the iterator is set to the end position.
Tied hashes may or may not support this function. If they don't, the
return value is always C<undef> and setting C<pos> has no effect. Also, a
warning will be generated, if warnings are enabled. You may check a tied
hash for the ability to use C<pos> with a test like
C<tied(%hash)-E<gt>can("POS")>.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
There! That's the documentation, and everybody knows that that's the
hardest part! :-) Now, we merely need the patch. Let us know when it's
ready! :-)
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 21 Apr 1998 08:34:46 +0100
From: Michael Francis FIR LDN <Michael.Francis@gs.com>
Subject: 'wait' under perl5.004 (possibly a perl bug?)
Message-Id: <353C4C15.34191ED4@gs.com>
It seems I may well have confused the issue with my earlier mail.
The important points are -
o wait, should block until the first child dies, if there are children,
else it returns -1.
o wait works correctly up until a sigalarm is handled.
o wait returns -1 after the sigalarm, even though there are a number of
child processes.
o This code worked under 5.001 and not under 5.004. (including 5.004_04)
o Operating system SunOS 4.1.3U1
I have attached a simple program that exhibits this problem. Run it
first as is and then run it with the flag -alarm. The second case
exhibits the bug, The same code running under 5.001 works as I would
expect.
Am I doing something wrong or is this a bug?
Mike
(Rob, thanks for your earlier help, it made me think some more about the
problem I was having.)
#!/opt/perl5/bin/perl5.004
#
# Simple program showing the problem with wait.
$time_out = 5;
for($i = 0; $i < 10; $i++)
{
# Set a delay between 30 and 90 secs
$delay = int(rand(60))+30;
$pid = fork;
if (!$pid)
{
# Child process
exec("/bin/sleep $delay");
# should not reach here
exit(1);
}
}
# Install the signal handler
$SIG{'ALRM'} = \&alarm_handler;
# Start the timer
alarm($time_out) if ($ARGV[0] =~ /-alarm/);
while(($pid = wait) != -1)
{
print "Child $pid exited\n";
}
print "All children are dead\n";
exit(0);
sub alarm_handler
{
alarm($time_out);
}
------------------------------
Date: Wed, 22 Apr 1998 10:36:19 +0100
From: Michael Francis FIR LDN <francm@jeeves.fi.gs.com>
Subject: Re: 'wait' under perl5.004 (possibly a perl bug?)
Message-Id: <353DBA12.1C587854@jeeves.fi.gs.com>
This is a multi-part message in MIME format.
--------------367B440A4F07A4DDB593A9E1
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Thnaks for your response, but the problem still exisis -
Here is the test program again. Incidentally this is a cut down version of my
full code, i.e. I have
not replicated all the checks that the full code uses, just the minimum to
show the problem. The output from this code is as follows -
First without the alarm going off (i.e. what I expect to see.)
[spud:~/perltest]%./test.pl
Child 14402 exited
Child 14394 exited
Child 14398 exited
Child 14400 exited
Child 14395 exited
Child 14401 exited
Child 14393 exited
Child 14396 exited
Child 14399 exited
Child 14397 exited
All children are dead
[spud:~/perltest]%
Next with the command line flag (i.e. with the signal handler.)
- This is what I don't expect to see. (and would work correctly in C/C++)
[spud:~/perltest]%./test.pl -alarm
All children are dead
[spud:~/perltest]%
Now looking at the process list -
[spud:~/perltest]%ps -auxww | grep sleep
francm 14472 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 33
francm 14476 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 68
francm 14475 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 68
francm 14467 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 56
francm 14473 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 53
francm 14468 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 86
francm 14469 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 44
francm 14474 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 50
francm 14471 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 56
francm 14470 0.0 0.0 16 0 p2 IW 09:34 0:00 /bin/sleep 44
This shows that the forks all worked correctly and that they correctly exec'd
the sub processes. The
'wait' call correctly blocked during the first time-out period, but when
called again returns -1.
Mike
Tom Phoenix wrote:
> On Tue, 21 Apr 1998, Michael Francis FIR LDN wrote:
>
> > I have attached a simple program that exhibits this problem.
>
> > Am I doing something wrong or is this a bug?
>
> I think you're doing something wrong. :-) But I'm not sure. Fix your test
> code to check for all possible errors - including especially a failed fork
> call - and let us know if it still shows a problem. I can't duplicate it
> on my system, though.
>
> Good luck!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
--------------367B440A4F07A4DDB593A9E1
Content-Type: application/x-perl; name="test.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="test.pl"
#!/wrk/perl/bin/perl
#
# Simple program showing the problem with wait.
$time_out = 5;
for($i = 0; $i < 10; $i++)
{
# Set a delay between 30 and 90 secs
$delay = int(rand(60))+30;
# 'bulletproof' checks .....
FORK:
{
if ($pid = fork)
{
# This is the parent process
}
elsif ( defined $pid )
{
# $pid is 0, this is the child process
exec("/bin/sleep $delay");
exit(1);
}
elsif ( $! =~ /No more processs/)
{
# EAGAIN recoverable fork error
sleep 5;
redo FORK;
}
else
{
# strange error
die "Can't fork: $!\n";
}
}
}
# Created 10 processes
# Install the signal handler
$SIG{'ALRM'} = \&alarm_handler;
# Start the timer
alarm($time_out) if ($ARGV[0] =~ /-alarm/);
while(($pid = wait) != -1)
{
print "Child $pid exited\n";
}
print "All children are dead\n";
exit(0);
sub alarm_handler
{
alarm($time_out);
}
--------------367B440A4F07A4DDB593A9E1--
------------------------------
Date: 20 Apr 1998 23:36:03 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: ---- Need Help Making Search.cgi Increment a Page Counter
Message-Id: <6hgm53$a9r$3@client3.news.psi.net>
Joe Kamenar (lksjdkfljsd@noway.net) wrote on MDCXCII September MCMXCIII
in <URL: news:353A58D2.328A@noway.net>:
++ I have a search.cgi script that calls a file called search_define.pl. In
++ this file, I have som html for a page counter. The problem is that each
++ time the .pl file is called without hitting "reload", the page counter
++ does not increment.
++
++ How do I make the page counter increment each time the search.cgi script
++ is run?
Just make sure you increment your counter (whereever you store that;
beans in a jar seems to be popular) each time search.cgi is called.
++ It seems that as long as you hit "BACK" with the browser, you can do
++ another submit without incrementing the page counter.
Well, without the code it's hard to tell.
++ Address replies to mailto:kamenar@webmall.net
Only for $150/h.
Followups set.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
------------------------------
Date: 18 Apr 1998 06:59:49 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: ..I'M...SO..SEXY..I..GOTTA..WEAR..SHADES... 42632
Message-Id: <6h9j15$g8$5@marina.cinenet.net>
sysop@deepsouthbbs.com wrote:
:
: http://xxx-18.com/xxx/
At first I thought this was off-topic, but
:
r?TmMkSZ-rmc)$KqBLEY
has just *got* to be a JAPH poem.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 20 Apr 1998 23:46:04 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: .= so why not =. ?
Message-Id: <6hgmns$png@mozo.cc.purdue.edu>
Brad Baxter <bmb@ginger.libs.uga.edu> writes:
}Okay, following is not a perl question, but most FAQ's and books I've read
}make use of the 'foobar' expression. Considering what this stands for, is
}anyone else out there slightly tired of seeing it, as am I? Chances are
}good that if I routinely used profane variable names in my posts, someone
}would call me on it.
Everybody should know this rule:
It's not really good source code unless you have to hire an intern to
remove all profanity before releasing it.
}On Thu, 16 Apr 1998, John Adams wrote:
}> Okay, if
}>
}> $string1 = "fuck";
}> $string2 = "bar";
}> $string1 .= $string2; #$string1 is now "fuckbar"
}>
}> then why doesn't
}>
}> $string1 = "fuck";
}> $string2 = "bar";
}> $string1 =. $string2; #$string1 is now "barfuck"
}>
}> Or am I missing something here?
}>
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Wed, 22 Apr 1998 09:29:11 -0700
From: Bill Chapman <bchapman@best.com>
Subject: 1st cgi script doesn't work
Message-Id: <353E1AD7.3C59@best.com>
I have a cgi script that I'm trying to make work. The script is at
http://www.best.com/~bchapman/cgi/htmlhello.cgi
if you want to look at the source (it's an html hello world) look at
http://www.best.com/~bchapman/cgi/htmlhello.txt
If I go to the directory and run "perl htmlhello.cgi" it works, except
of course it's not in a browser.
My ISP, Best, allows cgi but provides no support.
The file permissions are 750. The directory permissions are 755.
Best requires a cgi extension and I have provided one.
% perl -wc htmlhello.cgi yields
htmlhello.cgi syntax OK
When I try to run this script by putting the html path in Netscape,
a message box pops up that says
Document contains no data
<<<< Does anyone have any idea why this isn't working? >>>>
The return e-mail here works, please include it in your reply (ie Re:
Both on Netscape).
Bill
------------------------------
Date: Tue, 21 Apr 1998 00:20:54 GMT
From: Bill 'Sneex' Jones <sneaker@earthling.net>
Subject: Re: 2 newbie questions
Message-Id: <353BE4CA.16FBF890@earthling.net>
Matthew Bell wrote:
> *******
> I thought "/$ /" meant "match at the end of the string [space character]",
> but I continually get "No space found at end" as a result of my "if" test,
> and $teststring doesn't change after the attempt at substitution -- what's
> wrong with my code? Thanks.
>
/^$/ would match an empty line. The ^ means match what starts a line, and $ means match what ends
a line. So then, /\.hqx$/ would mean match full pathnames with '.hqx' at the end of the implied
filename. And this /\s/ would find the first whitespace, as opposed to a space, you know?
HTH,
Sneex :-)
__________________________
Bill Jones...............|
Sneaker's Nest...........|
Chasecreek Systemhouse...|
------------------------------
Date: Mon, 20 Apr 1998 21:56:25 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: 2 newbie questions
Message-Id: <alecler-2004982156250001@dialup-29.hip.cam.org>
if (/$ /) <-- this is not right. The $ must be _after_
the pattern you want to match.
This will delete any number of spaces at the end of the string:
######
$str = "Space, the final frontier \n";
chomp $str;
print 'Found ',
($str =~ s/ +$//) ? 'one or more ' : 'no ',
"spaces at end;\n",
"Result: $str.\n";
######
Found one or more spaces at end;
Result: Space, the final frontier.
HTH,
Andre
"I apologize to the group for answering this question despite the fact
that my name is not Tom Phoenix or Randall Schwartz."
=================================
In article <01bd6cad$ceeea410$8eeb42cf@priscilla>, "Matthew Bell"
<mbell@thedomaingroup.com> wrote:
[...]
> 2. I'm trying to write a line of code that will strip an ending space
> character from a string, and it's not working. Here's what I've written:
> ********
> $teststring = "one space at end ";
>
> open(TEST,">tester.txt");
> print TEST "$teststring\n";
>
> $_ = $teststring;
>
> if (/$ /) {
> print "Found space at end\n";
> }
> else {
> print "No space found at end\n";
> }
>
> s/$ //g; # substitute any space char at
END of line w/nothing
> # and repeat until string is
clean of space char at end
> print TEST "$teststring\n";
>
> exit[0];
> *******
> I thought "/$ /" meant "match at the end of the string [space character]",
> but I continually get "No space found at end" as a result of my "if" test,
> and $teststring doesn't change after the attempt at substitution -- what's
> wrong with my code? Thanks.
>
> --
> Matthew Bell
> MBell@TheUNSPAMDomainGroup.com
> (remove the obvious to reach me directly)
------------------------------
Date: Tue, 21 Apr 1998 00:17:12 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: 2 newbie questions
Message-Id: <353C1DCB.A7842@coos.dartmouth.edu>
Andre L. wrote:
>
> "I apologize to the group for answering this question despite the fact
> that my name is not Tom Phoenix or Randall Schwartz."
Actually, you should apologize for spelling Randal's name wrong. :-)
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 20 Apr 1998 23:00:41 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: 2 questions on screen controll
Message-Id: <ebohlmanErqIL5.5Az@netcom.com>
Aaron <aaronl@sunset.net> wrote:
: 2. Are there any good interfaces for perl to create a window? A perl
: GUI (win32 only, I know I can use Tcl/Tk in unix to do this)?
You can use Perl/Tk to create GUIs in both Unix and Win32.
------------------------------
Date: 20 Apr 1998 23:29:51 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: 2 questions on screen controll
Message-Id: <6hglpf$p4t$2@comdyn.comdyn.com.au>
In article <353AFF92.6C1B@sunset.net>,
Aaron <aaronl@sunset.net> writes:
> 1. I want to make an interactive program with a menu system, how can I
> place text at specific locations on the screen without the screen
> scrolling? eg. I want a persons name to start 3 rows down and 8 colums
> in from the left, also this would need to work on both unix and win32
> text screens.
http://www.perl.com/CPAN/modules/00modlist.long.html#8)UserInterface
This section of the module list deals with this sort of stuff.
> 2. Are there any good interfaces for perl to create a window? A perl
> GUI (win32 only, I know I can use Tcl/Tk in unix to do this)?
Gurusamy Sarathy's port of perl to win32 comes with Tk. you can get it
from http://www.perl.com/latest.html
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Sun, 19 Apr 1998 17:25:37 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Bob Trieger <sowmaster@juicepigs.com>
Subject: Re: A.B.I.G.A.I.L.
Message-Id: <Pine.GSO.3.96.980419102205.1173J-100000@user2.teleport.com>
On Sun, 19 Apr 1998, Bob Trieger wrote:
> To those of you that haven't figured it out yet. A.B.I.G.A.I.L.
> (Automatic Blurb Issuer Greeting All Interested Learners).
>
> This Bot is programmed with only a few blurbs, IE "It's in the FAQs" &
> "RTFM". But many taglines.
I understand that you have serious rancor towards Abigail. But do you have
an example where someone has posted an on-topic message (according to this
newsgroup's charter) which has resulted in an answer from Abigail which is
not correct? Of course, directing a questioner to the docs and FAQs is
correct, if those have their answer.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 19 Apr 1998 18:29:39 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: A.B.I.G.A.I.L.
Message-Id: <353A35EF.2D99FCD2@shaw.wave.ca>
Bob Trieger wrote:
>
> To those of you that haven't figured it out yet. A.B.I.G.A.I.L.
> (Automatic Blurb Issuer Greeting All Interested Learners).
>
> This Bot is programmed with only a few blurbs, IE "It's in the FAQs"
> & "RTFM". But many taglines.
>
It should be noted that ABIGAIL is meant to complement, not replace the
friendly Mark I version, Tom Phoenix (origin of name, unknown).
Research showed that TP was ineffective at reaching the really
(thick|thin)-skinned demographic. ABIGAIL was designed to cut through
anything so that there is no chance that the reply will be ignored.
ABIGAIL is, of course, not aimed at sensitive posters, but makes it
obvious to even the most delicate that the reply they get from TP is not
a flame.
Well done, Randal!
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sun, 19 Apr 1998 13:36:20 -0400
From: Bob Trieger <sowmaster@juicepigs.com>
To: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: A.B.I.G.A.I.L.
Message-Id: <353A3614.3BAD@juicepigs.com>
Tom Phoenix wrote:
>
> On Sun, 19 Apr 1998, Bob Trieger wrote:
>
> > To those of you that haven't figured it out yet. A.B.I.G.A.I.L.
> > (Automatic Blurb Issuer Greeting All Interested Learners).
> >
> > This Bot is programmed with only a few blurbs, IE "It's in the FAQs" &
> > "RTFM". But many taglines.
>
> I understand that you have serious rancor towards Abigail. But do you have
> an example where someone has posted an on-topic message (according to this
> newsgroup's charter) which has resulted in an answer from Abigail which is
> not correct? Of course, directing a questioner to the docs and FAQs is
> correct, if those have their answer.
I was just trying to get a chuckle at Abigail's expense. The truth is
that I agree with her 90% of the time.
I apologize if my intentions were misunderstood.
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: Sun, 19 Apr 1998 17:57:44 GMT
From: tmornini@netcom.com (Tom Mornini)
Subject: Re: A.B.I.G.A.I.L.
Message-Id: <tmorniniEro9w8.M0z@netcom.com>
Tom Phoenix (rootbeer@teleport.com) wrote:
: I understand that you have serious rancor towards Abigail. But do you have
: an example where someone has posted an on-topic message (according to this
: newsgroup's charter) which has resulted in an answer from Abigail which is
: not correct? Of course, directing a questioner to the docs and FAQs is
: correct, if those have their answer.
Subject: Re: Fastest "smallest power of 2 >= N" in Perl?
Date: 18 Apr 1998 10:38:40 GMT
Message-ID: <6h9vrg$c0k$1@client2.news.psi.net>
In this post, Abigail gave a solution that 1) Gave incorrect results, and
2) was nearly the slowest of all posted.
As I'm sure that I've heard her lambast others in the past, perhaps she
should have tested her code before she posted it. :-) Glass houses, don't
you know.
I, for one, have noticed a certain humanization of the A.B.I.G.A.I.L.
process since this unfortunate newbie-like incident. Perhaps we could
say it was good for her.
Just another clpm reader who appreciates Abigail's signatures and Perl
knowledge when she's in a good enough mood to use it rather than flame
others' posts.
-- Tom Mornini
-- InfoMania
------------------------------
Date: Sun, 19 Apr 1998 18:34:18 -0400
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
To: Bob Trieger <sowmaster@juicepigs.com>
Subject: Re: A.B.I.G.A.I.L.
Message-Id: <353A7BF2.33CF1A9C@coos.dartmouth.edu>
Bob Trieger wrote:
>
> To those of you that haven't figured it out yet. A.B.I.G.A.I.L.
> (Automatic Blurb Issuer Greeting All Interested Learners).
>
> This Bot is programmed with only a few blurbs, IE "It's in the FAQs" &
> "RTFM". But many taglines.
Hehe.
Except I think "Interested" should be changed to "Irritating" or something
like that. Because if they were actually 'interested' in learning, they'd
presumably put a little more effort into it.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 20 Apr 1998 15:49:26 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: ANNOUNCE: Win32API::SerialPort Documentation
Message-Id: <1998042015492600.LAA21082@ladder01.news.aol.com>
Hi All:
This is a preliminary announcement for a module that will soon be available
for public testing. Documentation in html and pod formats is available now
at: "http://members.aol.com/Bbirthisel".
I would appreciate feedback from those interested in this module (which is
NT/Win95 specific). The module is targeted at perl 5.005. A reduced performance
version for tesing on AS and GS ports will be available shortly.
Brief Summary: Use Win32 API calls to handle serial communications.
Implement non-blocking I/O.
Provide methods for setting serial port parameters.
Thanks,
-bill
------------------------------
Date: Tue, 21 Apr 1998 00:29:12 GMT
From: gerlach@netcom.com (Matthew H. Gerlach)
Subject: Re: ANNOUNCE: Win32API::SerialPort Documentation
Message-Id: <gerlachErqMoo.2sG@netcom.com>
Hi,
This this will be a very useful module and probably a highly used module
since so many people ask, "how can I get perl to read/write my PC's serial
port?"
I have two main comments:
1 - I would like to see something like an Expect() method. Where
the method would take a timeout and list of regular expressions
to "expect".
2 - Being a guy who must write code that is portable to many OS's, I wonder
how hard it would be to implement a POSIX termio layer on top of this
stuff.
Matthew H. Gerlach
In article <01bd6c99$5925fda0$0101a8c0@main2> "Dave Roth" <rothd@xrxoxtxhx.xnxextX> writes:
>
>
>Bbirthisel <bbirthisel@aol.com> wrote in article
><1998042015492600.LAA21082@ladder01.news.aol.com>...
>> Hi All:
>>
>> This is a preliminary announcement for a module that will
>soon be available
>> for public testing. Documentation in html and pod formats
>is available now
>> at: "http://members.aol.com/Bbirthisel".
>>
>> I would appreciate feedback from those interested in this
>module (which is
>> NT/Win95 specific). The module is targeted at perl 5.005.
>A reduced performance
>> version for tesing on AS and GS ports will be available
>shortly.
>>
>> Brief Summary: Use Win32 API calls to handle serial
>communications.
>> Implement non-blocking I/O.
>> Provide methods for setting
>serial port parameters.
>
------------------------------
Date: 21 Apr 1998 03:03:39 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: ANNOUNCE: Win32API::SerialPort Documentation
Message-Id: <1998042103033900.XAA11679@ladder01.news.aol.com>
Hi Joe:
>> Very cool! You may want to consider renaming it to
>> Win32::Serial or something like that--using the current
>> convention of the Win32 namespace.
>> I would love to see it.
>
>Or how about something more generic like
>
>IO::Serial
>
>alowing a win32 implementation as well as unix. It would still be nice
>to think that perl might become more of a cross platform language.
The functions in this module are intended to compensate for "missing"
elements in the Win32 world that are commonly included in versions of
Unix. While Win32 uses "ReadFile" and "WriteFile" commands to move
data from/to the port, any other resemblence to "file-like driver model"
is coincidental at best. There is no equivalent to "stty", "getty","termcap",
"termios", etc. Signals and events are handled differently.
I suspect a generic name would cause more confusion that it would
resolve. Many of the intended uses for this module involve making possible
on Win32 things that most perl programmers consider "native" OS functions.
And I run linux and Unixware as well as Win95 and NT- so I (at least try)
to maintain portability.
-bill
------------------------------
Date: 21 Apr 1998 03:17:56 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: ANNOUNCE: Win32API::SerialPort Documentation
Message-Id: <1998042103175600.XAA13884@ladder01.news.aol.com>
Hi Matthew:
>I have two main comments:
>
>1 - I would like to see something like an Expect() method. Where
> the method would take a timeout and list of regular expressions
> to "expect".
Interesting. I had thought of "readline" but not "expect" (which is a general
case of part of readline's functionality). I'll certainly look at it.
>2 - Being a guy who must write code that is portable to many OS's, I wonder
> how hard it would be to implement a POSIX termio layer on top of this
> stuff.
I HOPE it's possible. I looked at bit at "stty" - but not at POSIX. I don't
think
my "list" is going to get shorter anytime soon:-). I use linux and Unixware, so
I think I know what you'd like. There are limits in Win95 and NT 4.0 on how
much "multi-login" functionality you can get - but I haven't studied the exact
boundaries. But lots of Unix programs know about port settings/controls -
and don't care about "login details".
-bill
------------------------------
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 2377
**************************************
