[12167] in Perl-Users-Digest
Perl-Users Digest, Issue: 5767 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 24 20:07:30 1999
Date: Mon, 24 May 99 17:00:20 -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 Mon, 24 May 1999 Volume: 8 Number: 5767
Today's topics:
@INC - Require Problem <mch@publinx.com>
Re: Bizarre perl/linux/ppp problem <jdporter@min.net>
Re: Bizarre perl/linux/ppp problem (bill davidsen)
Re: can someone help me with locking??? <sugalskd@netserve.ous.edu>
Re: Chdir not working since I went to IIS4 <latsharj@my-dejanews.com>
chomp gives me an error greg@skymachine.com
Re: chomp gives me an error <rick.delaney@home.com>
Re: chomp gives me an error <jdporter@min.net>
Re: chomp gives me an error (Andrew Johnson)
Re: chomp gives me an error <tchrist@mox.perl.com>
Re: color map allocation <cassell@mail.cor.epa.gov>
Re: FAQ 8.10: How do I read and write the serial port? <cassell@mail.cor.epa.gov>
Re: How can I "poll" the serial port ?? <dchristensen@california.com>
Re: How to check for ASCII? <rick.delaney@home.com>
How to get a Listbox Horizontal Scroll Bar hansene3824@my-dejanews.com
Re: jerri rigged forms instead of CGI... bad? <jeromeo@atrieva.com>
Re: need relational database <cassell@mail.cor.epa.gov>
Re: New website *sigh* only 755 permission <coach_2000@my-dejanews.com>
Opening/Creating a file <upsetter@ziplink.net>
perl and oracle question mark_f_edwards@my-dejanews.com
Re: Perl on Win32 - How can I hide the process? <thomas@shurflo.com>
Pipe output from Serial Port session to Audio file <nospam@access-management.com>
Re: Saving and retrieving file..Help <jdporter@min.net>
Using Perl over server, Help (WebWizard0)
Re: wait(), zombies, and solaris: why won't my children (Alan Coopersmith)
Re: XS help with references! <sugalskd@netserve.ous.edu>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 24 May 1999 22:33:26 GMT
From: "Mike Hagstrom" <mch@publinx.com>
Subject: @INC - Require Problem
Message-Id: <01bea635$7f70d0d0$22c0dad1@www>
Hi folks -
I'm new to the group, and this is my first posting, so please bear with me.
I'm attempting to port a UNIX Perl program for use on NT Server. The
overall program contains a number of ".cgi" files which require the module
"options.pm". One file, "start.cgi" This file and the other ".cgi" files
all contain the following opening two lines
unshift (@INC, ".");
require (options);
Here's the issue: the files seem to run OK from a command prompt. However,
if I attempt to call the ".cgi" files from an HTML page (e.g.,
<FORM Method="POST" Action="http://www.mydomain.com/cgi-bin/start.cgi">
I get the following error message:
"The specified CGI application misbehaved by not returning a complete set
of HTTP headers.
The headers it did return are:
Can't locate options.pm in @INC at
C:\InetPub\wwwroot\sss\Hm\cgi-bin\start.cgi line 25."
If I remove the first line completely, and change the second line to read
require 'options.pm'
I still get the same error message, even though "@INC" has been removed.
I can't seem to get around the @INC.
Any ideas or suggestions?
------------------------------
Date: Mon, 24 May 1999 21:19:55 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Bizarre perl/linux/ppp problem
Message-Id: <7icfpo$jjj$1@nnrp1.deja.com>
In article <7icc4u$tgo$1@newssvr01-int.news.prodigy.com>,
davidsen@tmr.com (bill davidsen) wrote:
> Here's the odd part, if I do an internal perl kill, such as
> kill "HUP", $proc_id
> the process ends without running the ip-down script, while
> system("kill -HUP $proc_id")
> also kills the process, but it runs ip-down on the way out.
First of all, HUP is not 15, it's 1. 15 is TERM.
Now, if that doesn't set you straight, try:
kill -1, $proc_id; # negative HUP
--
John Porter
Put it on a plate, son. You'll enjoy it more.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 24 May 1999 23:24:15 GMT
From: davidsen@tmr.com (bill davidsen)
Subject: Re: Bizarre perl/linux/ppp problem
Message-Id: <7icn2v$179k$1@newssvr01-int.news.prodigy.com>
In article <7icfpo$jjj$1@nnrp1.deja.com>,
John Porter <jdporter@min.net> wrote:
| In article <7icc4u$tgo$1@newssvr01-int.news.prodigy.com>,
| davidsen@tmr.com (bill davidsen) wrote:
| > Here's the odd part, if I do an internal perl kill, such as
| > kill "HUP", $proc_id
| > the process ends without running the ip-down script, while
| > system("kill -HUP $proc_id")
| > also kills the process, but it runs ip-down on the way out.
|
| First of all, HUP is not 15, it's 1. 15 is TERM.
| Now, if that doesn't set you straight, try:
| kill -1, $proc_id; # negative HUP
Yes I meant TERM, I posted while refreshing a DNS server in another
window and HUP got caught in brain cache. The negative numbers kill the
process group, not just the process. Sorry for the typo.
The problem is that the perl kill is behaving like a kill -9, not only
doesn't the ip-down get called, but the /var/log/debug log does not
show any IP activity at the end of a connect.
When I do a shell kill I see something like:
May 22 13:13:23 gatekeeper pppd[14768]: Script /etc/ppp/ip-down started (pid 14785)
May 22 13:13:23 gatekeeper pppd[14768]: sent [LCP TermReq id=0x4 "User request"]
May 22 13:13:23 gatekeeper pppd[14768]: Script /etc/ppp/ip-down finished (pid 14785), status = 0x0
May 22 13:13:24 gatekeeper pppd[14768]: rcvd [LCP TermAck id=0x4]
while the perl kill just makes the process go away and the modem drop.
Most peculiar.
--
bill davidsen <davidsen@tmr.com> CTO, TMR Associates, Inc
One common problem is mistyping an email address and creating another
valid, though unintended, recipient. Always check the recipient's
address carefully when sending personal information, such as credit
card numbers, death threats or offers of sexual services.
------------------------------
Date: 24 May 1999 22:45:43 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: can someone help me with locking???
Message-Id: <7ickqn$64v$1@news.NERO.NET>
Bart Lateur <bart.lateur@skynet.be> wrote:
: Dan Sugalski wrote:
:>flock doesn't work on VMS, but it's normally not needed. VMS does
:>mandatory file locking for you.
: What does this mean? Does open() fail if a file is locked (as on some
: other systems, like DOS and Mac; at least: if you open the file with
: write access), or does it block until it can lock the file?
open fails if it can't open a file for any reason, including an
outstanding lock. $! and $^E are set appropriately, so you can tell why
the open failed.
Dan
------------------------------
Date: Mon, 24 May 1999 20:52:36 GMT
From: Dick Latshaw <latsharj@my-dejanews.com>
Subject: Re: Chdir not working since I went to IIS4
Message-Id: <7ice6j$ic7$1@nnrp1.deja.com>
In article <FC91Lt.Iyp@news.boeing.com>,
"news.boeing.com" <jim.ray@west.boeing.com> wrote:
> $filedir = $query->param(keywords);
> $filepath = "//NT-ZZZ-ZZ//epmr//Telecon//$filedir//;
All those // probably aren't helping.
> opendir(DIR,$filepath);
How about:
opendir(DIR,$filepath) || die "Couldn't open $filepath: $!";
> chdir ($filepath);
How about:
chdir ($filepath) || die "Couldn't cd to $filepath: $!";
> @list1 = readdir(DIR);
> $list1 = @list1;
--
Regards,
Dick
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 20:55:39 GMT
From: greg@skymachine.com
Subject: chomp gives me an error
Message-Id: <7icec9$ies$1@nnrp1.deja.com>
I am new to perl (I have just begun ch 1 of the lerning perl book by
o'reilly...) and for some reason, the chomp command creates an error
during the compile process. I am running BSD 3.1 and it looks like it
has multiple versions of perl installed. Could that be the problem? Has
anybody else encountered this?
Any info would be appreciated.
Thanks!
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 21:18:34 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: chomp gives me an error
Message-Id: <3749C1DD.B65EDBB1@home.com>
[posted & mailed]
greg@skymachine.com wrote:
>
> I am new to perl (I have just begun ch 1 of the lerning perl book by
> o'reilly...) and for some reason, the chomp command creates an error
> during the compile process. I am running BSD 3.1 and it looks like it
> has multiple versions of perl installed. Could that be the problem?
Yes, it surely is. chomp was added for version 5. You can check the
version from the shell:
$ /path/to/one/version/perl -v
or print it from within a script:
print "$]\n";
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Mon, 24 May 1999 21:05:34 GMT
From: John Porter <jdporter@min.net>
Subject: Re: chomp gives me an error
Message-Id: <7iceur$itc$1@nnrp1.deja.com>
In article <7icec9$ies$1@nnrp1.deja.com>,
greg@skymachine.com wrote:
> I am new to perl (I have just begun ch 1 of the lerning perl book by
> o'reilly...) and for some reason, the chomp command creates an error
> during the compile process. I am running BSD 3.1 and it looks like it
> has multiple versions of perl installed. Could that be the problem?
That's almost certainly the problem: chomp was not present in perl
before version 5. Your PATH environment variable should include
the location of the most up-to-date perl binary first, so that that's
always the one you get by default; and be sure to make that the one
you put on your scripts' #! lines. When in doubt, you can always
type out the full path.
Your system might be like mine, where /usr/bin/perl -v says:
This is perl, version 4.0
Patch level: 36
But /usr/local/bin/perl -v says:
This is perl, version 5.005_02
So I have /usr/local/bin before /usr/bin in my PATH, and I always
have #!/usr/local/bin/perl -w at the top of all my scripts.
--
Put it on a plate, son. You'll enjoy it more.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 21:23:21 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: chomp gives me an error
Message-Id: <drj23.15228$Q_5.2913745@news2.rdc1.on.home.com>
In article <7icec9$ies$1@nnrp1.deja.com>,
greg@skymachine.com <greg@skymachine.com> wrote:
! I am new to perl (I have just begun ch 1 of the lerning perl book by
! o'reilly...) and for some reason, the chomp command creates an error
! during the compile process. I am running BSD 3.1 and it looks like it
! has multiple versions of perl installed. Could that be the problem? Has
! anybody else encountered this?
! Any info would be appreciated.
chomp() wasn't introduced until perl5, so you'll want to find out
where perl5 is on your system (or upgrade if needed to the latest
version of perl: 5.00503).
In the meantime, you may use chop() in version 4, just be aware that
it simply chop()s off the last character rather than chomp()ing it off
only when it corresponds to the input record separator value.
regards
andrew
------------------------------
Date: 24 May 1999 15:43:26 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: chomp gives me an error
Message-Id: <3749c7fe@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, andrew-johnson@home.com writes:
:chomp() wasn't introduced until perl5,
Right -- only about *SIX YEARS AGO*.
It's long past time people stopped considering release 5 to be anything
even vaguely "new". That's many generations ago.
--tom
--
"Do we define evil as the absence of goodness? It seems only logical
that shit happens--we discover this by the process of elimination."
--Larry Wall
------------------------------
Date: Mon, 24 May 1999 14:59:39 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: Mike Godfrey <mtg82814@melsud.res.ray.com>
Subject: Re: color map allocation
Message-Id: <3749CBCB.69723079@mail.cor.epa.gov>
[courtesy cc sent to poster]
Mike Godfrey wrote:
>
> this really isn't a perl question,
I'll say. And so you already know you shouldn't be asking here.
> but this group seems the most
> computer knowledgable. i'm using a sparcstation 20, at times when i
But since you're flattering us so blatantly..
> bring up a color x term or some application that uses a few basic
> colors, the program cannot allocate the colrs because the color map is
> all full. usually this is because i have netscape running or some other
Or even one simple invocation of xloadimage. Sheesh!
Well, that's one thing M$ does better. But don't tell TomC
I said that. :-)
> graphic intensive application. is there a way to allocate some colors
> when i log in, maybe in the .cshrc file or something like that. i know
> with netscape that I can just run it with it's own color map, but it's
> not really netscape i have problems with.
You really ought to ask this question in either
comp.unix.solaris or comp.sys.sun.misc .
And if you're lucky, Barry Margolin or Casper H.S. Dik will
answer and give you a definitve answer. But most of the
time, you'll be given advice from someone you've never heard
of, who perhaps hasn't a clue about where to go with this.
Like me.
My best guess is to read the xloadimage manpage, and look at
the xloadimage options listed there, like -configuration
and -private. I haven't done anything with xloadimage in
several years, so I just don't remember how to fudge it.
SICHM,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 24 May 1999 14:32:44 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: Bbirthisel <bbirthisel@aol.com>
Subject: Re: FAQ 8.10: How do I read and write the serial port?
Message-Id: <3749C57C.9FDABCE2@mail.cor.epa.gov>
Bbirthisel wrote:
>
> Hi Tom:
>
> As long as this is up for "suggesions", you might
> want to add that none of it applies to $MS operating
> systems (actually, you can make a little of it work on
> NT, but the reliability is poor and, of course, no
> alarm() function for recovery). But modules do
> exist on CPAN to address this issue.
>
> I have no idea whether any of this works on Macs.
Bill, did you write this up and send it to
perlfaq-suggestions@perl.com ?
That's the best way to get one's point of view in the FAQ.
Whenever I have written a sentence or para that I thought
was needed in one of the answers, I cc'ed it to Tom
at that address. Of course, Tom knows I sometimes
use M$ OSes, so he may ignore me... :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 24 May 1999 14:18:13 -0700
From: "David Christensen" <dchristensen@california.com>
Subject: Re: How can I "poll" the serial port ??
Message-Id: <3749bfb4@news2.newsfeeds.com>
Rick:
Under the Win32 using C, you can set serial port read and write
timeouts via the GetCommTimeouts() and SetCommTimeouts() API calls.
I wrote a command line program to open the port, send out a
message, wait for and print the reply, and then close the port, all
using timeouts. I invoke it from Perl using back ticks. Ugly, but
it works...
People who know more about Win32 systems programming might know how
to make a serial port service (daemon) and talk to it using named
pipes and/or sockets (so that you're not constantly opening and
closing the port).
--
David
dchristensen@california.com
Rick Lim wrote in message <7i82ui$apb$1@sylvester.vcn.bc.ca>...
>I have tried
>open(SERIALPORT, "+>$Port");
>then a
>$sStringFromPort .= <SERIALPORT>;
>but if there is no data in the serial port then
>the program just blocks until something arrives.
>what I would like to do is just poll the port and
>if there is data then process it otherwise the program
>carrys on, the idea is to send data to the serial port
>and test for a response if not do some other process.
>
>--
>The wealth of reality, cannot be seen from your locality.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 24 May 1999 21:08:38 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: How to check for ASCII?
Message-Id: <3749BF89.18C6803@home.com>
[posted & mailed]
Mike Garcia wrote:
>
> Hey Larry,
>
> Thanks for the info, but I thought you were a bit rude in calling my
> v-card "crap"!
Why, did he hurt its feelings? :-)
> That is something that is required by my work and I didn't know it
> would be posted to the news group.
Your work requires you to attach proprietary signatures to all emails?
How very odd. What was that work again?
[following references]
Note to self: Beware Motorola.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Mon, 24 May 1999 22:46:54 GMT
From: hansene3824@my-dejanews.com
Subject: How to get a Listbox Horizontal Scroll Bar
Message-Id: <7ickst$n4m$1@nnrp1.deja.com>
With the Win32-GUI package, I can get a listbox
vertical scroll bar with syntax -style =>
WS_VSCROLL, but I can not get a horizontal scroll
bar on my list box with WS_HSCROLL. So what is
the deal? Can anyone lend a hand?
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 14:52:30 -0700
From: Jerome O'Neil <jeromeo@atrieva.com>
To: Matt Baker <matt@betcha.net>
Subject: Re: jerri rigged forms instead of CGI... bad?
Message-Id: <3749CA1E.CB018CF7@atrieva.com>
Matt Baker wrote:
> Here is the dillema:
> 1) Is it bad style or normal practice to have a CGI program spit out raw
> HTML to the web browser?
> I generally just do a
> print >>EOD;
> lots of HTML goes here
> EOD
It's not bad form. In many cases, it's preferable.
Good Luck!
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.atrieva.com
------------------------------
Date: Mon, 24 May 1999 15:27:16 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: need relational database
Message-Id: <3749D244.C38636A8@mail.cor.epa.gov>
anonymous wrote:
>
> I'm in the beginning stages of designing a website. It looks like I'm
> going to need a relational database. How do you hook up with such a
> resource in Perl? I've only used FoxPro and have never used databases
> with the other languages I'm familiar with, C++ and Java.
In Perl, you just install the DBI module and the appropriate
DBD::* modules. Since it looks like you're posting from a win32
box, that's as easy as using the ppm program that came with
ActiveState Perl. And since you've used FoxPro, you might
be interested to know that there's a DBD::XBase module that lets
you connect to XBase-d database files. I believe that it is
lacking in support for indices, though. There's also a
DBD::ODBC module for any ODBC-compliant RDBMS. And there's
support for ports of some of the popular unix-ish [and free]
databases like the DB_File module.
All these come with lots of documentation, which ppm will even
automatically installed in your HTML tree so it will show up
in your browser when you browse the HTML version of the Perl
docs.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 24 May 1999 22:30:26 GMT
From: LifeWalk Coach <coach_2000@my-dejanews.com>
Subject: Re: New website *sigh* only 755 permission
Message-Id: <7icju3$mcg$1@nnrp1.deja.com>
VERY GREAT!
Thank you Paul
In article <7hpvqm$2ij$1@news5.svr.pol.co.uk>,
"Mug-O-Milk" <webmaster@*nospam*mugomilk.freeserve.co.uk> wrote:
> Yes, there is a good service that allows this :O)
>
> www.hypermart.net
>
> Offer 10MB Web Space - and the ability to run CGI's and have FrontPage
> Extensions Installed, if you so wish. You can Chmod the files via
FTP.
>
> HTH
> Paul Lewis
> @mugomilk UK and Ireland
> http://www.mugomilk.cc.st
>
>
--
May you face the winds and walk the
good road to the day of quiet ...
LifeWalk Coach
http://members.tripod.com/ThunderHawk_/indianherbs.html
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 21:09:26 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Opening/Creating a file
Message-Id: <aej23.510$nn.138922@news.shore.net>
Greetings;
I have a question about file locking. In one of Randal's columns, he uses
the following form:
open MRV, "+>>$mrv" or die "Cannot open $mrv: $!";
flock MRV, 2; # wait for exclusive lock
Yet Tom's tutorial on opening claims that this syntax (appending and
reading) is "almost always wrong".
At the risks of starting a holy war, what's wrong with "+>>"? Is there
some non-obvious danger (other than the fact that you can only write to
the end of the file)? It seems like this is the most concise syntax to use
when you don't know whether or not a file exists already (I already know
why you can't use 'if (-e $file) {open (FILE,">$file")}').
Alternatively, if I want to do this the "precise" way (shown in the Perl
Cookbook) and use sysopen, I need to rely on the Fcntl module being
present. Has this module always been standard with Perl 5, or did it only
become standard with 5.004?
Thanks,
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Mon, 24 May 1999 22:43:11 GMT
From: mark_f_edwards@my-dejanews.com
Subject: perl and oracle question
Message-Id: <7icklv$n21$1@nnrp1.deja.com>
i am (still) trying to get perl to talk to oracle. someone suggested
compiling against the 32 bit libraries instead of the 64 bit. i am
getting further, but now i get the following error message:
HAS ANYONE SEEN THIS ONE??? (hp-ux B:11:0) perl 5-5-3
any help would be GREATLY appreciated!
$ perl tester.pl
/usr/lib/dld.sl: Can't shl_load() a library containing Thread Local
Storage: /usr/lib/libpthread.1
/usr/lib/dld.sl: Exec format error
install_driver(Oracle) failed: Can't load
'/home/medwards/perl/lib/site_perl/5.005/PA-RISC2.0/auto/DBD/Oracle/Orac
le.sl' for module
DBD::Oracle: Exec format error at
/home/medwards/perl/lib/5.00503/PA-RISC2.0/DynaLoader.pm line 169.
at (eval 1) line 3
at tester.pl line 5
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 23:36:25 GMT
From: Thomas/Shurflo <thomas@shurflo.com>
Subject: Re: Perl on Win32 - How can I hide the process?
Message-Id: <3749E20E.2E81930C@shurflo.com>
That doesn't seem to work I tried it and the DOS screen stays right there.
Bob Walton wrote:
> If you put:
>
> use Tk;
>
> at the start of your perl program (and, of course, you have the Tk package
> installed), the console window will be minimized shortly after execution
> starts. You don't have to use anything else from Tk. The user can click
> on the window in the task bar and bring it back up, so it isn't totally
> "hidden". There is undoubtedly some other way of doing this which isn't
> quite so ugly. Maybe you can figure out how Tk does it.
>
> Thomas/Shurflo wrote:
>
> > Anyone know how I can hide the process (dos box) that starts when I run
> > a Perl script? It could take a while to run and I don't want users
> > seeing it.
> >
> > I've been through the manuals and the newsgroups.
------------------------------
Date: Mon, 24 May 1999 16:28:21 -0700
From: "Sean Scannell" <nospam@access-management.com>
Subject: Pipe output from Serial Port session to Audio file
Message-Id: <7icjtd$7g0$1@pollux.dnai.com>
I'm working with Win32::Serial Port and wonder if I can capture the audio of
what transpired during a call from my modem to an automated telephony
system.
I'm using ActiveState 516 Perl 5.005_3.
------------------------------
Date: Mon, 24 May 1999 21:13:19 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Saving and retrieving file..Help
Message-Id: <7icfdc$j8l$1@nnrp1.deja.com>
In article <37491E6F.73D86FDF@home.com>,
Mitch <portboy@home.com> wrote:
> I'm working on a script where the user is connected to the serial
> console. At the scripts command line, I'd like them to be able to use
> the standard RZ and SZ commands from the ZModem protocol...
> Is there an implementation of ZModem in perl that I can get my hands?
> Where can I find some source (no matter the language) on Zmodem?
This is not a Perl question.
Did you ask AltaVista?
Last I heard, zmodem was highly proprietary. You might consider
ymodem or kermit instead, but I don't know...
--
John Porter
Put it on a plate, son. You'll enjoy it more.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 24 May 1999 23:56:17 GMT
From: webwizard0@aol.com (WebWizard0)
Subject: Using Perl over server, Help
Message-Id: <19990524195617.18115.00003009@ng-ce1.aol.com>
Im trying to run my perl script from over a server. A very simple program
like;
#!!/user/local/bin/perl
$temp = 'test';
print "$temp";
Fails when I try calling it from a browser by using the URL;
http://www.webpage.com/cgi-local/program.pl
I get internal (500) errors.
I know the path is ok and permissions are set ok. I am saving it as ascii. (
I have other canned cgi files that work fine on the same server/directory). I
even removed the print statement from the above program and retested it. Still
received the same error. Any suggestions? Thanks ~jeff~
------------------------------
Date: 24 May 1999 21:41:32 GMT
From: alanc@godzilla.eecs.berkeley.edu (Alan Coopersmith)
Subject: Re: wait(), zombies, and solaris: why won't my children die?
Message-Id: <7ich2c$fdn$1@agate.berkeley.edu>
Peter McMorran <mcmorran@norfolk.infi.net> wrote:
>Yes. Signal handlers on Solaris only fire once. So, you need some
>trickery to cause the handler to re-establish itself for the next
>signal. Otherwise, the second SIGCHILD will take you down. This
>should be in the FAQs or docs, since it's such a common
>annoyance.
It's in the docs, specifically in the man page for signal() which says:
If signal() is used, disp is the
address of a signal handler, and sig is not SIGILL, SIGTRAP,
or SIGPWR, the system first sets the signal's disposition to
SIG_DFL before executing the signal handler.
(It's not a problem with signal handlers in general, just with code that
tries to use the signal() function and expects it to be portable, which
it's not - use the POSIX signal functions if you want predictable
behavior across platforms.)
--
________________________________________________________________________
Alan Coopersmith alanc@godzilla.EECS.Berkeley.EDU
Univ. of California at Berkeley http://soar.Berkeley.EDU/~alanc/
aka: alanc@{CSUA,OCF,CS,BMRC,EECS,ucsee.eecs,cory.eecs}.Berkeley.EDU
------------------------------
Date: 24 May 1999 23:01:57 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: XS help with references!
Message-Id: <7iclp5$64v$2@news.NERO.NET>
Didimo Emilio Grimaldo Tunon <emilio_tunon@nl.compuware.com> wrote:
: Hi *,
: I am a Perl XS newbie and am exploring the concept. Having
: read ALL the man pages I found that none actually answered my
: questions (typical textbook problem) so here it is.
: I want to implement an extension function which takes three
: references (scalar, array, hash) for the purpose of asking
: everything in one example. The function not only accesses the
: strings in the parameters but also modifies them. From
: Perl:
: &myFunction( \$scalar, \@array, \%hash);
Prototypes are your friend. Declare this function with a prototype of
($\@\%). And toss the requirement that the scalar be a ref--that's mildly
silly.
: now, how on XS how would I:
: 1. Declare the three input parameters, all three are
: references, that I didn't find in the manual page.
The PROTOTYPE: keyword does what you want. Look for it in the perlxs
manual.
: 2. How do I access the string withing the 'scalar'
: reference, and the strings within the 'array' reference?
SvRV takes a reference and returns the SV of the referent. (Or AV, or
HV--cast as necessary) Once you've got the SV *, AV *, or HV *, just use
the normal scalar, array, and hash access functions.
: 3. How do I query a particular key of the 'hash' reference?
: what about the value?
Use hv_fetch or hv_fetch_ent to fetch entries out of a hash. Check the
perlguts doc for more details.
: 4. Modifying the referenced scalar, array, hash?
Once you've derefenced the passed refs, you'll be affecting the original
scalar/hash/array.
I'd recommend you read the perlguts doc. It details perl's API, more or
less. (The ultimate reference is the source, but that's not a great place
to start--it's a bit dense)
Dan
------------------------------
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 5767
**************************************
