[comp.lang.perl] Perl 3.0-18 open timeout?

walt@bcarh133.uucp (Walt Sullivan) (11/20/90)

I've modified the scan_password script ($Header: scan_passwd,v 3.0 89/10/18 15:15:43
 lwall Locked $) that came with Perl to scan the Yellow Pages passwords, by changing
the open statement to:

open(Pass,"ypcat passwd|") || die "Can't open passwd file: $!\n";

When I run it, the open fails. When I run it under the Perl debugger, it works!
It feels like a timeout problem to me. Any suggestions?
--
Walt Sullivan
9D35 Carling
Mail stop 104
ESN 393-7952
Unix mail: walt@bcarh133

lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) (11/21/90)

In article <WALT.90Nov20090759@bcarh133.uucp> walt@bcarh133.uucp (Walt Sullivan) writes:
: I've modified the scan_password script ($Header: scan_passwd,v 3.0 89/10/18 15:15:43
:  lwall Locked $) that came with Perl to scan the Yellow Pages passwords, by changing
: the open statement to:
: 
: open(Pass,"ypcat passwd|") || die "Can't open passwd file: $!\n";
: 
: When I run it, the open fails. When I run it under the Perl debugger, it works!
: It feels like a timeout problem to me. Any suggestions?

I would guess you're running it under cron and your PATH is null.  The open
shouldn't care about timing.  Try saying /usr/bin/ypcat.

Larry

walt@bcarh133.uucp (Walt Sullivan) (11/21/90)

In article <10488@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:

   In article <WALT.90Nov20090759@bcarh133.uucp> walt@bcarh133.uucp (Walt Sullivan) writes:
   : I've modified the scan_password script ($Header: scan_passwd,v 3.0 89/10/18 15:15:43
   :  lwall Locked $) that came with Perl to scan the Yellow Pages passwords, by changing
   : the open statement to:
   : 
   : open(Pass,"ypcat passwd|") || die "Can't open passwd file: $!\n";
   : 
   : When I run it, the open fails. When I run it under the Perl debugger, it works!
   : It feels like a timeout problem to me. Any suggestions?

   I would guess you're running it under cron and your PATH is null.  The open
   shouldn't care about timing.  Try saying /usr/bin/ypcat.

Nope, I'm typing the command myself, and my path is not null. Using "/usr/bin/ypcat"
doesn't help either - it still says "scan_yp_passwd: Networking error." unless
I run it with "perl -d" and single step past the open.
--
Walt Sullivan
9D35 Carling
Mail stop 104
ESN 393-7952
Unix mail: walt@bcarh133