expectperl-discuss — Discussions about Perl modules Expect.pm, IO::Tty and IO::Stty

Re: [Expectperl-discuss] pipeline question (fwd)

[<gl...@ma...>]

> 
> > Since you're interested, this is the guts of what I am trying to do:
> > 
> > spawn("rsh machine dump_cmd various args... mount-point |cat -|dd bs=64k of=tape-device");
> > 
> > then use expect to catch the message:
> > "End of tape reached.  Press RETURN when new tape loaded ..."
> > (message varies depending on the dump software - yes, I'm doing this
> > from multiple machines/OSes/dump commands, each with different
> > idiosyncrasies, arguments, etc...)
> > 
> > When I get the expect message, I call a sub to change tapes using the
> > tape robot.  That's the plan anyway.  :)
> 
> Oh, OK, that's a perfectly valid use for Expect... :-)
> 
> BTW, what's the use of that noop-cat inside that pipe?  'dd' already does
> all the buffering you need...

No, unfortunately not.  After a great deal of experimenting, we found
we needed to do this to get the blocking right.  Something to do with
buffering and rsh lags perhaps?

> Good luck with that project!

Thanks.  Believe me, I need it!

I tried the change to the exec in Expect.  Didn't help.  Currently
I am getting this:

Reached end of medium for /dev/nrmt1h; Please wait for file closing
Cannot prompt (can't open /dev/tty): No such device or address

expect is catching the "Press RETURN ..." message, and happily changing
tapes, but the 

print $bakupcmdobj "\r";

which I do after the tape is ready is evidently failing.
The script just hangs - I see this:

# ps -fu root | grep ...
root       3661    198  0.0 -        ??           0:00.00 <defunct>
root        198  12213  0.0 11:14:41 ttyra        0:00.38 perl /usr/local/sbin/bakup_master ....

Any thoughts?


thanks
Glen

-- 
Glen Davison			gl...@ma...
Computer System Administrator	phone: +61 2 9385 7018
Maths, UNSW			fax:   +61 2 9385 7123

Re: [Expectperl-discuss] pipeline question (fwd)

[Roland G. <r.g...@xs...>]

> Since you're interested, this is the guts of what I am trying to do:
> 
> spawn("rsh machine dump_cmd various args... mount-point |cat -|dd bs=64k of=tape-device");
> 
> then use expect to catch the message:
> "End of tape reached.  Press RETURN when new tape loaded ..."
> (message varies depending on the dump software - yes, I'm doing this
> from multiple machines/OSes/dump commands, each with different
> idiosyncrasies, arguments, etc...)
> 
> When I get the expect message, I call a sub to change tapes using the
> tape robot.  That's the plan anyway.  :)

Oh, OK, that's a perfectly valid use for Expect... :-)

BTW, what's the use of that noop-cat inside that pipe?  'dd' already does
all the buffering you need...

Good luck with that project!

Roland
--
RGi...@cp...

Re: [Expectperl-discuss] pipeline question (fwd)

[<gl...@ma...>]

Forwarded message:
> From: "Roland Giersig" <Ro...@a1...>
> To: gl...@ma...
> Cc: exp...@li...
> Date: Mon, 23 Jul 2001 17:07:52 +0200
> 
> > I am trying to do something like this:
> > 
> > $ob=Expect->spawn("rsh machine command arg | localcmd");
> > 
> > I get the impression that spawn cannot handle the pipeline.
> 
> Right, this is a bug, I will fix it in v1.12, which I'm testing
> and preparing for release right now.  But due to my pending vacation
> it will only be released mid to end of august.
> 
> You can of course just patch your copy of Expect.pm, simply
> substitute the "exec(@_)" inside sub spawn with "exec($cmd)".

Thanks :)  I'm about to try it out...

> > I am guessing that I need to do this:
> > 
> > $ob1=Expect->spawn("rsh machine command arg");
> > $ob2=Expect->spawn("localcmd");
> > 
> > and then use interconnect ....???
> 
> This is one possiblity, but probably not the best.  What is that
> localcmd you want to run at the end of the pipeline?  
> Couldn't you just use qx(rsh machine | localcmd) instead of expect and
> then process the output by regular means?  I can't imagine
> a case where a program within a pipe requires user interaction.
> 
> Oh, maybe rsh is asking for a password? ...

Nope.
Since you're interested, this is the guts of what I am trying to do:

spawn("rsh machine dump_cmd various args... mount-point |cat -|dd bs=64k of=tape-device");

then use expect to catch the message:
"End of tape reached.  Press RETURN when new tape loaded ..."
(message varies depending on the dump software - yes, I'm doing this
from multiple machines/OSes/dump commands, each with different 
idiosyncrasies, arguments, etc...)

When I get the expect message, I call a sub to change tapes using the
tape robot.  That's the plan anyway.  :)

Glen

-- 
Glen Davison			gl...@ma...
Computer System Administrator	phone: +61 2 9385 7018
Maths, UNSW			fax:   +61 2 9385 7123

Re: [Expectperl-discuss] pipeline question

[Roland G. <Ro...@a1...>]

> I am trying to do something like this:
> 
> $ob=Expect->spawn("rsh machine command arg | localcmd");
> 
> I get the impression that spawn cannot handle the pipeline.

Right, this is a bug, I will fix it in v1.12, which I'm testing
and preparing for release right now.  But due to my pending vacation
it will only be released mid to end of august.

You can of course just patch your copy of Expect.pm, simply
substitute the "exec(@_)" inside sub spawn with "exec($cmd)".

> I am guessing that I need to do this:
> 
> $ob1=Expect->spawn("rsh machine command arg");
> $ob2=Expect->spawn("localcmd");
> 
> and then use interconnect ....???

This is one possiblity, but probably not the best.  What is that
localcmd you want to run at the end of the pipeline?  
Couldn't you just use qx(rsh machine | localcmd) instead of expect and
then process the output by regular means?  I can't imagine
a case where a program within a pipe requires user interaction.

Oh, maybe rsh is asking for a password?  Well, it may be easier
just to set up the whole system so no passwords are needed, 
with proper .rhosts files or perhaps by substituting ssh for rsh 
and using RSA keys.

Storing passwords somewhere for such a purpose is a Bad Thing (tm)
IMnsHO.  You're better off in the long run to invest some thoughts 
into overall system security, who has to trust whom, what different
zones of trust there are etc.

Hope this helps,

Roland
--
RGi...@cp...

[Expectperl-discuss] pipeline question

[<gl...@ma...>]

Dear All,

I am trying to do something like this:

$ob=Expect->spawn("rsh machine command arg | localcmd");

@results=ob->expect("output1","output2",...);


I get the impression that spawn cannot handle the pipeline.
I am guessing that I need to do this:

$ob1=Expect->spawn("rsh machine command arg");
$ob2=Expect->spawn("localcmd");

and then use interconnect ....???

But I am very confused by the interconnect docs I have found
so far.  Can someone tell me whether I'm on the right track,
and a little guidance?  Or suggest another solution?

TIA
Glen

-- 
Glen Davison			gl...@ma...
Computer System Administrator	phone: +61 2 9385 7018
Maths, UNSW			fax:   +61 2 9385 7123

[Expectperl-discuss] Prerelease2 IO::Tty v0.05 fixed for FreeBSD

[Roland G. <r.g...@xs...>]

Hi Folks (again)!

Found a bug in the Makefile.PL which prevents compilation on
*BSD systems, so all Free(and other)BSD users (and others that
only have BSD-style tty/pty pairs), please try it out if it 
now works and tell me.

Thanks!

Roland
--
RGi...@cp...

[Expectperl-discuss] Prerelease Expect v1.12 & IO::Tty v0.05

[Roland G. <Ro...@a1...>]

Hi folks,

I finally found some time to get all those fixes and suggestions into 
the code. Find attached the prerelease versions for IO::Tty and 
Expect. Please try them out at your convenience. IO::Tty finally has 
some tests, so it should be easy to 'make test' and provide me with the 
results. I'm especially interested in results from FreeBSD and HPUX 
systems, as those had the most troubles in the past.

Most notable changes:

IO::Tty:

* finally should work under Windows NT (via Cygwin)!!
* slave PTY should now be a controlling terminal, so spawning ssh 
should work.
* some SVR4 only define __SVR4; fixed.
* OSF machines need termio.h for various macros
* AIX doesn't define VOIDSIG; fixed.
* added openpty() version for FreeBSD and others

Expect:

* interact should work better, escaping should now work.
* destroying an expect object shouldn't take half a minute anymore.

Have fun!

Roland
--
RGi...@cp...

Re: [Expectperl-discuss] keyboard input

[Roland G. <r.g...@xs...>]

a-i...@no... wrote:
> 
> Thanks for your advices. well I have read perlsec and stuff about tainted
> variables. But I don't really have time to change my code since my course
> project is due this Thursday. I am just trying to implement this key and
> encryption functions besides the regular e-commerce site. Now I think I am
> getting closer to find out a working - but probably not as secure as it sounds
> - implementation. First of all when I run the cgi script as setuid (I have
> created the script as a root) I got this error message before generating the
> key
> 
> Insecure $ENV{PATH} while running setuid at
> /usr/lib/perl5/site_perl/5.6.0/Expect.pm line 114. This is where expect
> executes the spawn command.

Right.  And the error means that you haven't set or filtered the PATH.
When perl runs setuid root, it automatically enabels taint checking.
As the PATH comes from outside (not under perl's control), it is set
tainted, which means that it needs special treatment so as to not open
a security hole (by changing the PATH, an intruder could run arbitrary
programs as root).

The solution is simple: just set $ENV{PATH} to some fixed value appropriate
for your system inside your script, e.g. /bin:/usr/bin:/path/to/pgp
That way, the PATH becomes untainted and the exec succeeds.

Hope this helps,

Roland

PS: don't know if you are required to use PGP keys, but if not it would be
much easier just to give the customer a list of TANs upon sign-up and the
customer has to send one TAN with every e-mail order.  Creation of TANs
is very easy to do by yourself (just create them randomly from a dictionary
of letter and numbers, leaving out similar characters like 'l' and '1',
'0' and 'O', '8' and 'B'), it makes no difference if you store the PGP keys
or the TAN lists and the verification process isn't too different either.
But the customer has to get a new TAN list from time to time, when
the old ones are depleted.

Re: [Expectperl-discuss] keyboard input

[<a-i...@no...>]

Thanks for your advices. well I have read perlsec and stuff about tainted 
variables. But I don't really have time to change my code since my course 
project is due this Thursday. I am just trying to implement this key and 
encryption functions besides the regular e-commerce site. Now I think I am 
getting closer to find out a working - but probably not as secure as it sounds 
- implementation. First of all when I run the cgi script as setuid (I have 
created the script as a root) I got this error message before generating the 
key 

Insecure $ENV{PATH} while running setuid at 
/usr/lib/perl5/site_perl/5.6.0/Expect.pm line 114. This is where expect 
executes the spawn command. 

if I run the perl script as normal permissions (execute for owner, others and 
users) then I received to different responses depending that I am connected to 
the net or not. If I am, right after expect module finishes generating the pgp 
key something happens and I start seeing on my web browser thousands of "key 
generation completed" string without stopping and I have to hit the stop 
button. If I am not connected to the net and run the script from localhost. 
Everything is fine except that since I am not connected to the net it doesn't 
send the encrypted purchase orders via email. 

Funny thing is when I run the script with given information on the command line 
and disabling cgi module then it runs perfectly(even sends the email) from both 
 apache user and as a root. I don't really know what to do. So what do you 
think is the problem? thanks 

aziz 
> 
> Aziz Ihsanoglu wrote: 
> > 
> > thanks for warning me for the security issues. What I am trying to do is 
> > building an e-commerce for my course project. It requires that the 
customers 
> > should sign the purchase order and mail it to the orders department so he 
> > cannot deny that he did the order. That's why I have to generate keys for 
> > every customer when they register to the site. 
> 
> OK, it's only for a course, but this design has severe security flaws 
> in it.  How exactly are you verifying your customers identity when he 
> registers at your website?  The best you can do is to verify his address 
> by sending him a password via postal mail and/or his phone number by 
> calling him back.  Just letting anybody register and giving them a 
> key for later perusal doesn't buy anything security-wise. 
> 
> Also, are you requiring that your customers install PGP?  Not a good choice. 
> PGP needs too much technical expertise to handle and install. 
> I would use other ways:  you can have the webbrowser create a key pair, 
> sending the public part to your server and storing the private part. 
> Netscape uses a <KEYGEN> HTML tag, don't know about Explorer. 
> 
> Only my EUR 0.02 
> 
> > I couldn't find any ways 
> > doing this without using expect. I actually solved that part with send_slow 
> > function and some loops. but my cgi script is not working great from 
> > apache. when I run it with root access it doesn't have any problem. I tried 
> > to setuid the script but it gives an error on the 114th line of the 
> > expect.pm. 
> 
> It would have been helpful if you had posted the error message... 
> 
> > What do you think is problem. ANy help would be appreciated/ 
> > Thank you. 
> 
> I guess it's a tainting problem.  Some part of the command given to 
> spawn comes from an unreliable source and is thus tainted.  See 
> 'perldoc perlsec'... 
> 
> Hope this helps, 
> 
> Roland 
> 
> > > 
> > > a-i...@no... wrote: 
> > > > 
> > > > I have a small problem with expect.pm. I am using expect module to 
create pgp 
> > > > keys with my pgp program. The problem is since expect just enters the 
data with 
> > > > constant time, pgp cannot doesn't collect enough random data and that's 
why 
> > > > cannot create the keys instantly and requires user to enter some random 
data 
> > > > from the keyboard. I tried to print some long random text but pgp 
doesn't get 
> > > > any of it. I think it requires the random data to be inputted from the 
> > > > keyboard. Is there any way to do that? Any help would be appreciated. 
Thanks in 
> > > > advance. 
> > > 
> > > Well, this isn't supposed to work that way.  PGP does everything to get 
> > > real random numbers by timing the user keystrokes, and this requires 
> > > low-level interaction wiht the keyboard driver, circumventing the regular 
> > > pty that Expect uses. 
> > > 
> > > So basically, this is a PGP issue: if you can get PGP to not query the 
user 
> > > for random bits, then it is doable. 
> > > 
> > > On the other hand:  why would you want to automate such a 
security-sensitive 
> > > action?  The keys are to be protected by a pass-phrase, which should be 
> > > kept secret by all means, so automating this is counter-productive. 
> > > Creating a public/secret key pair is analogue to opening a bank account, 
> > > something that you don't do on a daily basis either. 
> > > 
> > > Hope this helps, 
> > > 
> > > Roland 
> > > -- 
> > > RGi...@cp... 
> > > 
> > > _______________________________________________ 
> > > Expectperl-discuss mailing list 
> > > Exp...@li... 
> > > http://lists.sourceforge.net/lists/listinfo/expectperl-discuss 
> > > 
> 
> -- 
> RGi...@cp... 
> 
> _______________________________________________ 
> Expectperl-discuss mailing list 
> Exp...@li... 
> http://lists.sourceforge.net/lists/listinfo/expectperl-discuss 
> 

Re: [Expectperl-discuss] keyboard input

[Roland G. <r.g...@xs...>]

Aziz Ihsanoglu wrote:
> 
> thanks for warning me for the security issues. What I am trying to do is
> building an e-commerce for my course project. It requires that the customers
> should sign the purchase order and mail it to the orders department so he
> cannot deny that he did the order. That's why I have to generate keys for
> every customer when they register to the site.

OK, it's only for a course, but this design has severe security flaws
in it.  How exactly are you verifying your customers identity when he 
registers at your website?  The best you can do is to verify his address
by sending him a password via postal mail and/or his phone number by
calling him back.  Just letting anybody register and giving them a
key for later perusal doesn't buy anything security-wise.

Also, are you requiring that your customers install PGP?  Not a good choice.
PGP needs too much technical expertise to handle and install.
I would use other ways:  you can have the webbrowser create a key pair,
sending the public part to your server and storing the private part.
Netscape uses a <KEYGEN> HTML tag, don't know about Explorer.

Only my EUR 0.02

> I couldn't find any ways
> doing this without using expect. I actually solved that part with send_slow
> function and some loops. but my cgi script is not working great from
> apache. when I run it with root access it doesn't have any problem. I tried
> to setuid the script but it gives an error on the 114th line of the
> expect.pm.

It would have been helpful if you had posted the error message...

> What do you think is problem. ANy help would be appreciated/
> Thank you.

I guess it's a tainting problem.  Some part of the command given to
spawn comes from an unreliable source and is thus tainted.  See
'perldoc perlsec'...

Hope this helps,

Roland

> >
> > a-i...@no... wrote:
> > >
> > > I have a small problem with expect.pm. I am using expect module to create pgp
> > > keys with my pgp program. The problem is since expect just enters the data with
> > > constant time, pgp cannot doesn't collect enough random data and that's why
> > > cannot create the keys instantly and requires user to enter some random data
> > > from the keyboard. I tried to print some long random text but pgp doesn't get
> > > any of it. I think it requires the random data to be inputted from the
> > > keyboard. Is there any way to do that? Any help would be appreciated. Thanks in
> > > advance.
> >
> > Well, this isn't supposed to work that way.  PGP does everything to get
> > real random numbers by timing the user keystrokes, and this requires
> > low-level interaction wiht the keyboard driver, circumventing the regular
> > pty that Expect uses.
> >
> > So basically, this is a PGP issue: if you can get PGP to not query the user
> > for random bits, then it is doable.
> >
> > On the other hand:  why would you want to automate such a security-sensitive
> > action?  The keys are to be protected by a pass-phrase, which should be
> > kept secret by all means, so automating this is counter-productive.
> > Creating a public/secret key pair is analogue to opening a bank account,
> > something that you don't do on a daily basis either.
> >
> > Hope this helps,
> >
> > Roland
> > --
> > RGi...@cp...
> >
> > _______________________________________________
> > Expectperl-discuss mailing list
> > Exp...@li...
> > http://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> >

--
RGi...@cp...

Re: [Expectperl-discuss] keyboard input

[Roland G. <r.g...@xs...>]

a-i...@no... wrote:
> 
> I have a small problem with expect.pm. I am using expect module to create pgp
> keys with my pgp program. The problem is since expect just enters the data with
> constant time, pgp cannot doesn't collect enough random data and that's why
> cannot create the keys instantly and requires user to enter some random data
> from the keyboard. I tried to print some long random text but pgp doesn't get
> any of it. I think it requires the random data to be inputted from the
> keyboard. Is there any way to do that? Any help would be appreciated. Thanks in
> advance.

Well, this isn't supposed to work that way.  PGP does everything to get
real random numbers by timing the user keystrokes, and this requires
low-level interaction wiht the keyboard driver, circumventing the regular
pty that Expect uses.  

So basically, this is a PGP issue: if you can get PGP to not query the user
for random bits, then it is doable.

On the other hand:  why would you want to automate such a security-sensitive
action?  The keys are to be protected by a pass-phrase, which should be
kept secret by all means, so automating this is counter-productive.
Creating a public/secret key pair is analogue to opening a bank account,
something that you don't do on a daily basis either.

Hope this helps,

Roland
--
RGi...@cp...

[Expectperl-discuss] keyboard input

[<a-i...@no...>]

I have a small problem with expect.pm. I am using expect module to create pgp 
keys with my pgp program. The problem is since expect just enters the data with 
constant time, pgp cannot doesn't collect enough random data and that's why 
cannot create the keys instantly and requires user to enter some random data 
from the keyboard. I tried to print some long random text but pgp doesn't get 
any of it. I think it requires the random data to be inputted from the 
keyboard. Is there any way to do that? Any help would be appreciated. Thanks in 
advance. 

note to the admin: you can discard my previous email from 
ai...@lu.... Thank you. 

here is my code: 

#!/usr/bin/perl 
# deneme.pl -- my first perl script! 



use Expect; 

#optional debugging 
$Expect::Debug=1; 
$Expect::Exp_Internal=1; 
$Expect::Log_Stdout=0; #on by default 


$keytype = 2; 
$keysize = 1; 
$expire = 0; 
$name = 'aziz'; 
$email = 'chi...@ho...'; 
$passphrase = 'vasdfasdfi;iejfaekajsdcm,.xzmnaijd;fkdfadjf;kfjajf'; 
$defaultsignkey = 'n '; 
$randomtext = 
';asf;j9u9243rk;nfmnamsfdoiajh;dfadjfkadj;fiwu4riow34234lkjaljdfkajdf;23j;rkjakjfkadj;flajj;akdjf;ei'; 

($pgp = Expect->spawn("pgp -kg")) || die "Couldn't spawn pgp, $!"; 

unless ($pgp->expect(10,"Choose 1 or 2: ")) { 
    die "never got algorithm prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$keytype\r"; 

unless ($pgp->expect(10,"Choose 1, 2, or enter desired number of bits: ")) { 
    die "never got keysize prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$keysize\r"; 

unless ($pgp->expect(10,"Enter a user ID for your public key: ")) { 
    die "never got user ID prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$name <$email>\r"; 

unless ($pgp->expect(2," (the default is 0): ")) { 
    die "never got validity period prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$expire\r"; 

unless ($pgp->expect(2,"Enter pass phrase: ")) { 
    die "never got pass phrase prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$passphrase\r"; 

unless ($pgp->expect(2," pass phrase again:")) { 
    die "never got second  pass phrase prompt ".$pgp->exp_error()."\n"; 
} 

print $pgp "$passphrase\r"; 

if ($pgp->expect(10," required data ")) { 
    print $pgp "$randomtext"; 
    print $pgp "$randomtext"; 
} 


unless ($pgp->expect(2," (Y/n) ")) { 
    die "never got the default signing key prompt".$pgp->exp_error()."\n"; 
} 

print $pgp "$defaultsignkey\r"; 

Re: [Expectperl-discuss] Interact escape sequence

[Roland G. <Rol...@a1...>]

Simon Taylor wrote:
> 
> Bryan,
> 
> > I've been banging my head off the wall trying to figure out why interact
> > doesn't recognize the escape sequence on Linux.  Thus far, the only
> > results are holes in both my head and the wall, so I'd appreciate any
> > insight into the issue.
> 
> I tried your test code and got the same results. I also tried a few changes
> but to no avail. See this email in the Expectperl-discuss archives archives:
> 
>     http://www.geocrawler.com/archives/3/4369/2001/4/0/5491735/
> 
> as I think the problem you're having with interact() is the same as the one I
> encountered.

Yes, there is a bug with the interact escape sequence which is solved by
the patch mentioned in that message.  It will be fixed in the next
release,
which is overdue, but I still have to find a free day to do it. :-(

> P.S. Anyone associated with Expectperl going to the Perl 5 conference?
> If so, why don't we set up a BOF session?

Sorry, definitely not me, but if you manage to get a discussion with
some BOFs going, I'd be very interested in criticism, enhancement
suggestions and the lot.  Up to now, my only feedback has been
some bug reports and FAQs...

Cheers!

Roland
--
RGi...@cp...

Re: [Expectperl-discuss] Interact escape sequence

[Simon T. <si...@un...>]

Bryan,

> I've been banging my head off the wall trying to figure out why interact
> doesn't recognize the escape sequence on Linux.  Thus far, the only
> results are holes in both my head and the wall, so I'd appreciate any
> insight into the issue.

I tried your test code and got the same results. I also tried a few changes 
but to no avail. See this email in the Expectperl-discuss archives archives:

    http://www.geocrawler.com/archives/3/4369/2001/4/0/5491735/

as I think the problem you're having with interact() is the same as the one I
encountered.

Regards,

Simon Taylor

P.S. Anyone associated with Expectperl going to the Perl 5 conference?
If so, why don't we set up a BOF session? 

[Expectperl-discuss] Interact escape sequence

[Bryan T. S. <br...@sp...>]

I've been banging my head off the wall trying to figure out why interact 
doesn't recognize the escape sequence on Linux.  Thus far, the only 
results are holes in both my head and the wall, so I'd appreciate any 
insight into the issue.

Thanks in advance.

Bryan

Source script:
#!/usr/bin/perl

use Expect;

my $exp = Expect->spawn("/usr/bin/bc");

print "Version = ", Expect::version(), "\n";

$Expect::Debug = 1;
$exp->debug(3);
$exp->interact(\*STDIN, "\027");

print "Interact exited\n";

Output from script:
Version = 1.11
Initialized STDIN.'
Initialized handle id(6).'
Escape seq. 'v' function for STDIN set to 'CODE(0x836f070)()'
Read handles:
         Read handle: 'spawn id(3)'
                 Listen Handles: 'handle id(6)'.
         Read handle: 'STDIN'
                 Listen Handles: 'spawn id(3)'.
Setting STDIN to tty mode '-g'
Setting tty for STDIN to 'raw -echo'.
Setting STDIN to tty mode 'raw -echo'
Attempting interconnection
interconnect: read 169 byte(s) from spawn id(3).
bc 1.05
Copyright 1991, 1992, 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
This is free software with ABSOLUTELY NO WARRANTY.
For details type `warranty'.
Printed '\027' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
Printed 'q' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
qPrinted 'u' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
uPrinted 'i' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
iPrinted 't' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
tPrinted '\r' to spawn id(3) from STDIN.
interconnect: read 2 byte(s) from spawn id(3).

interconnect: read 1 byte(s) from spawn id(3).
Got EOF (spawn id(3) died) reading spawn id(3)
Setting STDIN to tty mode 
'189:1280:13:35387:5:13:3:28:127:21:4:0:1:17:19:26:0'
Interact exited
Closing handle id(6).
         Expect::soft_close('Expect=GLOB(0x8101ab0)') called at 
/home/systest/lib/perl5/site_perl/5.6.0/Expect.pm line 1458
         Expect::DESTROY('Expect=GLOB(0x8101ab0)') called at 
/home/bryan/t.pl line 0
         require 0 called at /home/bryan/t.pl line 

[Expectperl-discuss] Interace escape sequence

[Bryan T S. <bs...@ad...>]

I've been banging my head off the wall trying to figure out why interact 
doesn't recognize the escape sequence on Linux.  Thus far, the only 
results are holes in both my head and the wall, so I'd appreciate any 
insight into the issue.

Thanks in advance.

Bryan

Source script:
#!/usr/bin/perl

use Expect;

my $exp = Expect->spawn("/usr/bin/bc");

print "Version = ", Expect::version(), "\n";

$Expect::Debug = 1;
$exp->debug(3);
$exp->interact(\*STDIN, "\027");

print "Interact exited\n";

Output from script:
Version = 1.11
Initialized STDIN.'
Initialized handle id(6).'
Escape seq. 'v' function for STDIN set to 'CODE(0x836f070)()'
Read handles:
         Read handle: 'spawn id(3)'
                 Listen Handles: 'handle id(6)'.
         Read handle: 'STDIN'
                 Listen Handles: 'spawn id(3)'.
Setting STDIN to tty mode '-g'
Setting tty for STDIN to 'raw -echo'.
Setting STDIN to tty mode 'raw -echo'
Attempting interconnection
interconnect: read 169 byte(s) from spawn id(3).
bc 1.05
Copyright 1991, 1992, 1993, 1994, 1997, 1998 Free Software Foundation, Inc.
This is free software with ABSOLUTELY NO WARRANTY.
For details type `warranty'.
Printed '\027' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
Printed 'q' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
qPrinted 'u' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
uPrinted 'i' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
iPrinted 't' to spawn id(3) from STDIN.
interconnect: read 1 byte(s) from spawn id(3).
tPrinted '\r' to spawn id(3) from STDIN.
interconnect: read 2 byte(s) from spawn id(3).

interconnect: read 1 byte(s) from spawn id(3).
Got EOF (spawn id(3) died) reading spawn id(3)
Setting STDIN to tty mode 
'189:1280:13:35387:5:13:3:28:127:21:4:0:1:17:19:26:0'
Interact exited
Closing handle id(6).
         Expect::soft_close('Expect=GLOB(0x8101ab0)') called at 
/home/systest/lib/perl5/site_perl/5.6.0/Expect.pm line 1458
         Expect::DESTROY('Expect=GLOB(0x8101ab0)') called at 
/home/bryan/t.pl line 0
         require 0 called at /home/bryan/t.pl line 0

Re: [Expectperl-discuss] PerlExpect for file

[Roland G. <Rol...@a1...>]

> Ankush wrote:
> Expect->exp_init(\*STDIN);

What is this supposed to do?  It creates an Expect object and attaches
STDIN
to it so you could parse user input.  But as the result isn't stored,
it's 
a NOP.

> $object=Expect->spawn("Makefile.PL");

Ahem, Makefile.PL is a perlscript, but it usually isn't executable 
like a normal script.  Instead, this probably should read
"perl Makefile.PL".

> $object->expect(10,"Enter the apppropriate number [3]:") ;
> $object->send(10,'1\r');

This looks strange too.  'send' is just an alias for 'print', so
what's the 10 doing in front?  Or was this just copied from
'send_slow' (which takes a delay argument)?

Also, the string should be in double quotes so the "\r" gets
sent as <CR> and not as '\' and 'r'.

> $object->exp_match();
> $object->exp_after();
> $object->exp_match_number();

This also doesn't make a lot of sense, as these methods return
results about the last expect match, but again, the return values
are discarded.

> $object->send_slow(10,'1\r');
> $object->hard_close();
> >>>And here is a string of the output
> 
> Waiting for new data (10 seconds)...
> spawn id(3): new data.
> spawn id(3): EOF
> spawn id(3): exit(2304)

As you can see here, the spawned command immediately exits with
an error code.  This is probably due to Makefile.PL not being
executable.

> spawn id(3): closing...
> Closing spawn id(3).
>         Expect::hard_close('Expect=GLOB(0x82ca850)') called at
> /usr/lib/perl5/site_perl/5.005/Expect.pm line 743
>         Expect::_multi_expect(10, undef, 'ARRAY(0x82cbe94)') called at
> /usr/lib/perl5/site_perl/5.005/Expect.pm line 462
>         Expect::expect('Expect=GLOB(0x82ca850)', 10, 'Enter the
> apppropriate number [3]:') called at perlexp line 8
> spawn id(3) closed.
> Returning from expect with TIMEOUT or EOF
> Printed character '1' to spawn id(3).
> Printed character '\\' to spawn id(3).
> Printed character 'r' to spawn id(3).

Here you see that the single quotes prevent the correct interpretation
of "\r".

> Closing spawn id(3).
>         Expect::hard_close('Expect=GLOB(0x82ca850)') called at perlexp
> line 27
> Closing spawn id(3).
>         Expect::soft_close('Expect=GLOB(0x82ca850)') called at
> /usr/lib/perl5/site_perl/5.005/Expect.pm line 1458
>         Expect::DESTROY('Expect=GLOB(0x82ca850)') called at perlexp
> line 0
>         eval {...} called at perlexp line 0
> 
> So I dont find my pattern matching.Please let me know where am I
> wrong. Please send a sample perlexpect script for "file input output"
> if you have any.

I'm not sure what you mean by "file input output".  The script could 
be written like this:

use Expect;
my $object = Expect->spawn("perl Makefile.PL");
$object->expect(10, 
                [ "Enter the appropriate number \[3\]:",
                  sub { my $obj = shift; $obj->send("1\r");
exp_continue; } ],
                [ "Enter another value: ",
                  sub { my $obj = shift; $obj->send("$value\r";
exp_continue; } ],
                # we wait for the configuration to be finished
                [ eof => sub { } ],
               );

Hope this helps,

Roland

[Expectperl-discuss] PerlExpect for file

[Ankush <an...@en...>]

Hi,
I am trying for an automatic user interaction with a user from a file on =
the same machine(and not from any remote login).

#!eusr/bin/perl
use Expect;
Expect->exp_init(\*STDIN);
$Expect::Log_Stdout=3D1;
$Expect::Debug=3D3;
$Expect::Exp_Internal=3D1;
$object=3DExpect->spawn("Makefile.PL");
$object->expect(10,"Enter the apppropriate number [3]:") ;
$object->send(10,'1\r');
$object->exp_match();
$object->exp_after();
$object->exp_match_number();
$object->send_slow(10,'1\r');
$object->hard_close();

>>>And here is a string of the output

Waiting for new data (10 seconds)...
spawn id(3): new data.
spawn id(3): EOF
spawn id(3): exit(2304)
spawn id(3): closing...
Closing spawn id(3).
        Expect::hard_close('Expect=3DGLOB(0x82ca850)') called at =
/usr/lib/perl5/site_perl/5.005/Expect.pm line 743
        Expect::_multi_expect(10, undef, 'ARRAY(0x82cbe94)') called at =
/usr/lib/perl5/site_perl/5.005/Expect.pm line 462
        Expect::expect('Expect=3DGLOB(0x82ca850)', 10, 'Enter the =
apppropriate number [3]:') called at perlexp line 8
spawn id(3) closed.
Returning from expect with TIMEOUT or EOF
Printed character '1' to spawn id(3).
Printed character '\\' to spawn id(3).
Printed character 'r' to spawn id(3).
Closing spawn id(3).
        Expect::hard_close('Expect=3DGLOB(0x82ca850)') called at perlexp =
line 27
Closing spawn id(3).
        Expect::soft_close('Expect=3DGLOB(0x82ca850)') called at =
/usr/lib/perl5/site_perl/5.005/Expect.pm line 1458
        Expect::DESTROY('Expect=3DGLOB(0x82ca850)') called at perlexp =
line 0
        eval {...} called at perlexp line 0

So I dont find my pattern matching.Please let me know where am I wrong. =
Please send a sample perlexpect script for "file input output" if you =
have any.
Thanks,
Ankush

RE: [Expectperl-discuss] 'make test' as non-root user?

[Warren P. <wpo...@ve...>]

Preliminary report from our SA folks regarding 'make test' failure as
non-root on IRIX box:

"/usr/sbin/mkpts should be 4755 not 700 for this to work"

They're checking the security implications before making the change
permanent.

-----Original Message-----
From: exp...@li...
[mailto:exp...@li...]On Behalf Of
Warren Pollans
Sent: Friday, April 20, 2001 9:05 AM
To: exp...@li...
Cc: r.g...@xs...
Subject: RE: [Expectperl-discuss] 'make test' as non-root user?


I installed this at home on my linux box (RH6.1) - no problem with 'make
test' as either myself of root EXCEPT that test #7 failed.

One of our SA guys (at work) is trying to figure out what the pty problem is
on the IRIX box - I'll let you know what he finds out.

Test#7 - you'll probably have to change the test - there's no "version" in
the perl5.6.0 'perl -v'.

-------[ perl5.6.0 ]-----------
# perl -v

This is perl, v5.6.0 built for IP27-irix

Copyright 1987-2000, Larry Wall

Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

--------[ perl 5.005_02 ]----------
$ perl -v

This is perl, version 5.005_02 built for IP27-irix

Copyright 1987-1998, Larry Wall

Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

-----Original Message-----
From: exp...@li...
[mailto:exp...@li...]On Behalf Of
Roland Giersig
Sent: Friday, April 20, 2001 4:44 AM
To: wpo...@ve...
Cc: exp...@li...
Subject: Re: [Expectperl-discuss] 'make test' as non-root user?


> > I have a problem running 'make test' (Expect-1.11) as an ordinary user -
> > works fine as root
>
> [snip]
>
> > Expect: Could not assign a pty at blib/lib/Expect.pm line 87.
>
> I had the same problem at an early revision of Caldera Open Linux
> (2.2 I think). Though in my case, I had the problem with expect/tcl, not
> expect.pm.
>
> The OS was not configured to grant additional pty's (pseudo terminals) to
> non-root users.
>
> I suspect this may be a kernel configuration issue for Irix, but I have no
> experience with that Unix. I believe that this was the solution to the
> problem on Caldera Linux, but I didn't have to go down that path as I
> upgraded the OS, and the problem went away.

Can anyone verify this?  I'd like to put that into the FAQ.

Roland
--
RGi...@cp...

_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
http://lists.sourceforge.net/lists/listinfo/expectperl-discuss


_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
http://lists.sourceforge.net/lists/listinfo/expectperl-discuss

RE: [Expectperl-discuss] 'make test' as non-root user?

[Warren P. <wpo...@ve...>]

I installed this at home on my linux box (RH6.1) - no problem with 'make
test' as either myself of root EXCEPT that test #7 failed.

One of our SA guys (at work) is trying to figure out what the pty problem is
on the IRIX box - I'll let you know what he finds out.

Test#7 - you'll probably have to change the test - there's no "version" in
the perl5.6.0 'perl -v'.

-------[ perl5.6.0 ]-----------
# perl -v

This is perl, v5.6.0 built for IP27-irix

Copyright 1987-2000, Larry Wall

Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

--------[ perl 5.005_02 ]----------
$ perl -v

This is perl, version 5.005_02 built for IP27-irix

Copyright 1987-1998, Larry Wall

Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5.0 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

-----Original Message-----
From: exp...@li...
[mailto:exp...@li...]On Behalf Of
Roland Giersig
Sent: Friday, April 20, 2001 4:44 AM
To: wpo...@ve...
Cc: exp...@li...
Subject: Re: [Expectperl-discuss] 'make test' as non-root user?


> > I have a problem running 'make test' (Expect-1.11) as an ordinary user -
> > works fine as root
>
> [snip]
>
> > Expect: Could not assign a pty at blib/lib/Expect.pm line 87.
>
> I had the same problem at an early revision of Caldera Open Linux
> (2.2 I think). Though in my case, I had the problem with expect/tcl, not
> expect.pm.
>
> The OS was not configured to grant additional pty's (pseudo terminals) to
> non-root users.
>
> I suspect this may be a kernel configuration issue for Irix, but I have no
> experience with that Unix. I believe that this was the solution to the
> problem on Caldera Linux, but I didn't have to go down that path as I
> upgraded the OS, and the problem went away.

Can anyone verify this?  I'd like to put that into the FAQ.

Roland
--
RGi...@cp...

_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
http://lists.sourceforge.net/lists/listinfo/expectperl-discuss

Re: [Expectperl-discuss] Question about interact()

[Roland G. <r.g...@xs...>]

Wes Morgan wrote:
> 
> I am having some difficulty with Expect.pm.  Here is a simple command line that duplicates the behavior I'm seeing, but not on all versions of Perl/Expect.pm.
> 
> perl -e 'use Expect;$exp = Expect->spawn("script", 
> "test.script"); $exp->interact();print "All done\n";'
> 
> When I run that on my system (Perl 5.6.0, Expect.pm 1.11), it takes about 30 seconds after I exit the script program before I see "All done".  When I set Expect->Debug to 1, it says that it times out waiting for an EOF a couple times.  That seems to be where the delay is coming from.  

Can you send me the output with Debug=1?  Maybe I can sort some things out.

The long delay comes from the DESTROY method of expect being too
nice.  It first tries to do a soft_close() which waits for 15 seconds
for the process to finish, then closes the filehandle, waits another
15 seconds, then sends a SIGTERM and waits *another* 15 seconds.
That's much too nice for a doomed process and will be fixed in the
next release.

Hope this helps,

Roland

Re: [Expectperl-discuss] 'make test' as non-root user?

[Roland G. <r.g...@xs...>]

> > I have a problem running 'make test' (Expect-1.11) as an ordinary user -
> > works fine as root
> 
> [snip]
> 
> > Expect: Could not assign a pty at blib/lib/Expect.pm line 87.
> 
> I had the same problem at an early revision of Caldera Open Linux
> (2.2 I think). Though in my case, I had the problem with expect/tcl, not
> expect.pm.
> 
> The OS was not configured to grant additional pty's (pseudo terminals) to
> non-root users.
> 
> I suspect this may be a kernel configuration issue for Irix, but I have no
> experience with that Unix. I believe that this was the solution to the
> problem on Caldera Linux, but I didn't have to go down that path as I
> upgraded the OS, and the problem went away.

Can anyone verify this?  I'd like to put that into the FAQ.

Roland
--
RGi...@cp...

[Expectperl-discuss] Question about interact()

[Wes M. <we...@sl...>]

I am having some difficulty with Expect.pm.  Here is a simple command line that duplicates the behavior I'm seeing, but not on all versions of Perl/Expect.pm.

perl -e 'use Expect;$exp = Expect->spawn("script", "test.script");$exp->interact();print "All done\n";'

When I run that on my system (Perl 5.6.0, Expect.pm 1.11), it takes about 30 seconds after I exit the script program before I see "All done".  When I set Expect->Debug to 1, it says that it times out waiting for an EOF a couple times.  That seems to be where the delay is coming from.  I have had others try to help me with this and they have reported that interact() returned immediately (using Perl 5.004 and Expect.pm 1.07 I believe).  Is there something different I can do to make this work more quickly or is this related to the bug mentioned earlier on this list that will be fixed in the next release?  Thanks.

-- 
Wes Morgan

we...@sl...
wmo...@ca...

Debian: apt-get into it.


-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.0.4 (GNU/Linux)
Comment: For info see http://www.gnupg.org

mQGiBDrckPYRBACX731+mhYmj3oFUCGclJFn3YfM3FCmuLoPxGCy5QtRzHZY4XtM
gQ54gSLkTNafhpLC0S+/BfYVpsumLrkif2AGTg0Dnuww0/xDSLKdWhFZUhcopRy5
xXBnz1PZQCJnCjDcSHl4RaVoywmKcZ3TfaDNnu1/RLtlr9tx5XNbWBnw3wCgntC+
lbCBz+LidCrRrEC2N/PlYpMD/0Icn7Uex7jRYcDx2R78cFKDpUGHMtx7VCzGyQbC
L3kz94mm1/aXt0ELqbq5k8qKPq80kXhJkx7jwSqn0V6XO9GAk85Dkk3GHm/iCli6
KhSzC4m485ZKvPKnEU3Nue9hgvC08YSjrfvXosEZsm5kwcniHphugbviW0C+AdmA
BWEoA/9qoxeIntesKq1MsUAXTgDCkT1BCBGn9YoxWhbiyz5iLPn4nTq2hwR1xqhQ
xztHYJkmSlBHeUIhAicPsk3U8gd9L5S3FEWrelm+1GRBhy1/HRBam33ypgg9U5i6
IDST1hqExj3WPG68pJsRl6TwKkrUGNIXi8/yl2ximBOYooFx7rQrV2VzIE1vcmdh
biAoQmFzc0hvbWJyZSkgPHdlc21Ac2xhY2tuZXQub3JnPohXBBMRAgAXBQI63JD2
BQsHCgMEAxUDAgMWAgECF4AACgkQVHVnnbHtaCXu9wCfQBJ5Vsep8waEZEP7cT5/
el7CIF4AoI3dZamvLWsMK7YPdatRNObsf6/guQENBDrckPoQBADZpcFo6MyA0rhP
q43mNdpfMJm4JnmD5kMnRSli/HDdLk2Epa3EY1wgMB6NovLr8fV/2cp/5KdXg8j/
V780qOZhpQpTL8AXvIw9yMAIwwpARpFl//VVK+3l1+IgzHRWiQC7SWhTsqIk4ppP
kRafwefx8r3KYFxljAmlV2zKNSiQrwADBQP+KDV3Lh/k3IHORiX1FV5fZALbJi+X
TTs+onMndtZyhIPpZ6Z6AMygdXa2WQy2U24tkvmMQdMuIOTCZiCuXsbnBw5FwwvL
tfSloF1R6xfvme8yATDZXJnPFUW5jFwwMto3Hnoh95MqJLfXTpu1FrBXVE4YVSJa
eA1FuaQJnnllGu+IRgQYEQIABgUCOtyQ+gAKCRBUdWedse1oJbQIAJ9uDRktfJHP
5veOAfncvrX99hnHKQCgmdySczcSbc9/YxTAJ+GfA1/OOtU=
=PCOv
-----END PGP PUBLIC KEY BLOCK-----

Re: [Expectperl-discuss] 'make test' as non-root user?

[Simon T. <si...@un...>]

Warren,

> I have a problem running 'make test' (Expect-1.11) as an ordinary user -
> works fine as root

[snip]

> Expect: Could not assign a pty at blib/lib/Expect.pm line 87.

I had the same problem at an early revision of Caldera Open Linux 
(2.2 I think). Though in my case, I had the problem with expect/tcl, not
expect.pm.

The OS was not configured to grant additional pty's (psuedo terminals) to 
non-root users.

I suspect this may be a kernel configuration issue for Irix, but I have no
experience with that Unix. I believe that this was the solution to the
problem on Caldera Linux, but I didn't have to go down that path as I
upgraded the OS, and the problem went away.

You may be able to find a quick answer by searching for the keywords
"Irix" and "pty" on the net.

Hope this helps.

Regards,

Simon Taylor
--
(+613 9568 2005)
Unisolve Pty Ltd 
Melbourne, Australia

[Expectperl-discuss] 'make test' as non-root user?

[Warren P. <wpo...@ve...>]

Hello,

I have a problem running 'make test' (Expect-1.11) as an ordinary user -
works fine as root

$ make test
        PERL_DL_NONLAZY=1
/usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/local/lib/perl5/5.00502/irix-n32
-mips3 -I/usr/local/lib/perl5/5.00502 test.pl
1..7
ok 1
Expect: Could not assign a pty at blib/lib/Expect.pm line 87.
Expect: Could not assign a pty at blib/lib/Expect.pm line 87.
*** Error code 22 (bu21)

The line it's complaining about (Expect.pm line 87):

      die "$class: Could not assign a pty" unless $self->IO::Pty::ttyname();


Is this a permissions problem (something I can fix)?  Or ???

I plan to have my Expect script called from a CGI script so I don't want to
have to run it as root - I would prefer to 'su' from within my expect
script - I have root access to this box and can set up whatever (almost) I
need.

Thanks,

Warren

-------------[ perl -V ]----------------
$ perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 2) configuration:
  Platform:
    osname=irix, osvers=6.5, archname=IP27-irix
    uname='irix64 nexus 6.4 02121744 ip27 '
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef useperlio=define d_sfio=define
  Compiler:
    cc='cc -n32 -mips3', optimize='-O3', gccversion=




cppflags='-D_BSD_TYPES -D_BSD_TIME -OPT:Olimit=0 -I/u/rford/buildperl/sfio/i
nclude -I/usr/local/include -I/u/local/n32msql2/include -DLANGUAGE_C'
    ccflags ='-D_BSD_TYPES -D_BSD_TIME -woff
1009,1110,1184 -OPT:Olimit=0 -I/u/rford/buildperl/sfio/include -I/usr/local/
include  -I/u/local/n32msql2/include -DLANGUAGE_C'
    stdchar='unsigned char', d_stdstdio=undef, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='ld', ldflags
=' -L/usr/local/lib32 -L/usr/local/lib -L/u/rford/buildperl/sfio/lib'
    libpth=/usr/local/lib /usr/lib32 /lib32 /lib /usr/lib
    libs=-lgdbm -lm -lc -lsfio
    libc=/usr/lib32/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
cdlflags='  -Wl,-rpath,/usr/local/lib/perl5/5.00502/irix-n32-mips3/CORE'
    cccdlflags=' ',
lddlflags='-n32 -shared -L/usr/local/lib32 -L/usr/local/lib -L/u/rford/build
perl/sfio/lib'


Characteristics of this binary (from libperl):
  Built under irix
  Compiled at Dec 10 1998 11:41:39
  @INC:
    /usr/local/lib/perl5/5.00502/irix-n32-mips3
    /usr/local/lib/perl5/5.00502
    /usr/local/lib/perl5/site_perl/5.005/irix-n32-mips3
    /usr/local/lib/perl5/site_perl/5.005
    .