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

RE: [Expectperl-discuss] Problem running in bg

[Roland G. <RGi...@cp...>]

Quoting Anders Wallgren <And...@ac...>:
> I've tried using nohup (from bash), but it doesn't fix the problem. 
> From what I've been able to find, this problem only exists on Solaris.

OK, I took a look at some nohup source code and indeed it only fixes 
SIGHUP, but not the problem with job control.  Sorry for the false lead.

> I found a good description of the problem at
> http://archive.develooper.com/per...@pe.../msg61417.html
> <http://archive.develooper.com/per...@pe.../msg61417.html> 
...
> IRIX64 6.5            : /dev/ttyq8 is a tty
> SunOS 5.6             : /dev/pts/11 is no tty
> Linux 2.2 (Redhat 7.0): /dev/pts/1 is a tty
> AIX 4.3               : /dev/pts/3 is a tty

I don't think this is the real reason.  What this list shows is that 
the _master_ part of the pty might not be a tty, which is annoying (you 
have to set tty parameters via the slave fd) but no bug by itself.

There might be a coincident that only Solaris shows this behaviour, but 
Solaris is different in many other ways too.

The problem with background execution has to do with the controlling 
terminal and process groups, I'm sure about that.  But I have no idea 
how to solve it within the realms of IO-Tty or Expect.

[BTW, the latest IO-Tty and Expect versions do take into account that 
the master pty may not be a tty; also IO::Stty is now optional, so that 
bug report is obsolete.]

Hope this clarifies somewhat.

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

RE: [Expectperl-discuss] Problem running in bg

[Anders W. <And...@ac...>]

I've tried using nohup (from bash), but it doesn't fix the problem.  From
what I've been able to find, this problem only exists on Solaris.

 

I found a good description of the problem at
http://archive.develooper.com/per...@pe.../msg61417.html
<http://archive.develooper.com/per...@pe.../msg61417.html>  --
this person seems to have tracked the problem down:

 

Please consider the following minimal perl program:

 

perl -MIO::Pty -e'$T=new IO::Pty;print ${*$T}{'io_pty_ttyname'};if(-t

$T){print " is a tty\n";}else{print " is no tty\n";}'

 

You would expect it to print "xxx is a tty" in _any_ case. In fact, it

does not.

 

IRIX64 6.5            : /dev/ttyq8 is a tty

SunOS 5.6             : /dev/pts/11 is no tty

Linux 2.2 (Redhat 7.0): /dev/pts/1 is a tty

AIX 4.3               : /dev/pts/3 is a tty

 

All of them are Perl 5.6 with current IO::Pty.

 

Tty.xs seems to have to wade through pretty thick muck to implement

OpenPTY (which is called by IO::Pty::new()). I guess something in there

goes wrong.

 

************* end original bugreport ********************

 

This might be good or bad, the problem is that this behavior breaks

Expect.pm. An Expect object inherits from IO::Pty. The function 

Expect::exp_stty() calls both POSIX::isatty() (which fails because its 

identical to -t) and IO::Stty::stty(). IO::Stty::stty() calls isatty() 

and a lot of terminal related stuff I don't really understand. Anyhow

the first isatty() will kill Expect::exp_stty().

 

This is the reason I believe this is a bug: It breaks the Expect module.

 

anders

 

-----Original Message-----
From: Roland Giersig [mailto:RGi...@cp...] 
Sent: Thursday, August 29, 2002 1:36 AM
To: Anders Wallgren
Cc: 'Blackstone, J. David'; Jason Penney; Alexander Bourov;
exp...@li...
Subject: RE: [Expectperl-discuss] Problem running in bg

 

> It's been a while since I tracked it down, but I seem to remember

> that it ran into trouble in IO::Pty::make_slave_controlling_terminal.

 

IO-Tty and Expect now correctly handle the controlling terminal of the 

spawned process, that is, the spawned process runs in its own process 

group and gets the slave pty set as its controlling terminal (otherwise 

Expect wouldn't be able to handle password prompts).

 

But this process group gets into the way of the shells job 

control. /bin/sh doesn't have job control, that's why the mentioned 

workaround works.  Another way would be to use the utility 'nohup' 

(don't know, which system it is available on, I have it here on AIX) 

for putting commands into the background.  It also handles the case 

that the background process would get a SIGHUP if the user logs out of 

the foregropund shell...

 

Hope this helps,

 

Roland

-- 

RGi...@cp...

RE: [Expectperl-discuss] Problem running in bg

[Blackstone, J. D. <jda...@ci...>]

> workaround works.  Another way would be to use the utility 'nohup' 
> (don't know, which system it is available on, I have it here on AIX) 

  nohup is fairly universal.  I know it's on Linux, Solaris, and
that-Alpha-UNIX-that-keeps-changing-its-name.

  But if it's not around, you can always roll your own with Perl!

#!perl
$SIG{HUP} = 'IGNORE';
exec @ARGV;



  I never realized you were on AIX.  Cool.

jdb

RE: [Expectperl-discuss] help with spawned xterm

[Roland G. <RGi...@cp...>]

> > I would like to spawn an xterm and then send messages to it.
> > 
> > ....
> > ....
> > $pid=Expect->spawn("/usr/bin/xterm");
> > # now send message to xterm
> > print $pid "Hello from parent";
> > ....
> > 
> > I get an xterm window with a shell prompt in it.
> > But i don't see my message in it.
> > Is there a way to do that ?
...
>   I think this kind of thing is discussed in the book Exploring
> Expect by Don Libes.  It's written for TCL Expect, but the general
> principles should be the same.  I never tried it, but I think
> it involves allocating two pseudo-terminals and passing some
> special options to xterm.

Yes, most xterms have an option '-S' to put them into slave mode.  What 
you basically do is: allocate a pty, get the name of the slave pty 
via 'ttyname($pty->slave)' and pass that via '-S' to the xterm.  I 
cannot be more specific, as the format of the '-S' option is very 
system-dependend.  And frankly, I haven't tried it with Perl/Expect but 
managed to do it with Tcl/Expect a long time ago...

Hope this helps,

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

RE: [Expectperl-discuss] Problem running in bg

[Roland G. <RGi...@cp...>]

> It's been a while since I tracked it down, but I seem to remember
> that it ran into trouble in IO::Pty::make_slave_controlling_terminal.

IO-Tty and Expect now correctly handle the controlling terminal of the 
spawned process, that is, the spawned process runs in its own process 
group and gets the slave pty set as its controlling terminal (otherwise 
Expect wouldn't be able to handle password prompts).

But this process group gets into the way of the shells job 
control. /bin/sh doesn't have job control, that's why the mentioned 
workaround works.  Another way would be to use the utility 'nohup' 
(don't know, which system it is available on, I have it here on AIX) 
for putting commands into the background.  It also handles the case 
that the background process would get a SIGHUP if the user logs out of 
the foregropund shell...

Hope this helps,

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

RE: [Expectperl-discuss] help with spawned xterm

[Blackstone, J. D. <jda...@ci...>]

> -----Original Message-----
> From: Debian User [mailto:bk2...@sk...]
> Sent: Wednesday, August 28, 2002 12:25 PM
> To: exp...@li...
> Subject: [Expectperl-discuss] help with spawned xterm
> 
> 
> Hello,
> 
> I would like to spawn an xterm and then send messages to it.
> 
> ....
> ....
> $pid=Expect->spawn("/usr/bin/xterm");
> # now send message to xterm
> print $pid "Hello from parent";
> ....
> 
> I get an xterm window with a shell prompt in it.
> But i don't see my message in it.
> Is there a way to do that ?
> 
> Thanks.
> 
> Pierre Bachelart.
> 
> PS:  I am using Expect-1.15 & Debian Woody

  I think this kind of thing is discussed in the book Exploring Expect by
Don Libes.  It's written for TCL Expect, but the general principles should
be the same.  I never tried it, but I think it involves allocating two
pseudo-terminals and passing some special options to xterm.

jdb

[Expectperl-discuss] help with spawned xterm

[Debian U. <bk2...@sk...>]

Hello,

I would like to spawn an xterm and then send messages to it.

....
....
$pid=Expect->spawn("/usr/bin/xterm");
# now send message to xterm
print $pid "Hello from parent";
....

I get an xterm window with a shell prompt in it.
But i don't see my message in it.
Is there a way to do that ?

Thanks.

Pierre Bachelart.

PS:  I am using Expect-1.15 & Debian Woody

RE: [Expectperl-discuss] Problem running in bg

[Anders W. <And...@ac...>]

In my case, I'm seeing the behavior with 5.6.1.  

It's been a while since I tracked it down, but I seem to remember that it
ran into trouble in IO::Pty::make_slave_controlling_terminal.

anders

-----Original Message-----
From: Blackstone, J. David [mailto:jda...@ci...] 
Sent: Wednesday, August 28, 2002 6:24 AM
To: Jason Penney; Alexander Bourov; exp...@li...
Subject: RE: [Expectperl-discuss] Problem running in bg



> -----Original Message-----
> From: Jason Penney [mailto:jas...@su...]
> Sent: Wednesday, August 28, 2002 6:37 AM
> To: Alexander Bourov; exp...@li...
> Subject: Re: [Expectperl-discuss] Problem running in bg
> 
> 
> That seems to work, but does anyone know why?  It's not an optimal 
> solution as this is an app that other's are using as well.  I 
> had been 
> running the same code fine under perl 5.6.1 with an older 
> Expect.pm and 
> IO::Pty.pm.
> 
> Thanks!
> Jay

  Did it change when you went to 5.8.0 then?  You might report it to p5p,
although at this point I don't think we have the behavior isolated down to
the root of what's causing it.  (Ideally someone with a lot of time would
trace through the code in Expect.pm to find out where it happens, and build
a minimal test case requiring no additional modules.)

jdb


-------------------------------------------------------
This sf.net email is sponsored by: Jabber - The world's fastest growing 
real-time communications platform! Don't just IM. Build it in! 
http://www.jabber.com/osdn/xim
_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

Re: [Expectperl-discuss] Problem running in bg

[Jason P. <jas...@su...>]

Blackstone, J. David wrote:
> 
>>-----Original Message-----
>>From: Jason Penney [mailto:jas...@su...]
>>Sent: Wednesday, August 28, 2002 6:37 AM
>>To: Alexander Bourov; exp...@li...
>>Subject: Re: [Expectperl-discuss] Problem running in bg
>>
>>
>>That seems to work, but does anyone know why?  It's not an optimal 
>>solution as this is an app that other's are using as well.  I 
>>had been 
>>running the same code fine under perl 5.6.1 with an older 
>>Expect.pm and 
>>IO::Pty.pm.

>   Did it change when you went to 5.8.0 then?  You might report it to p5p,
> although at this point I don't think we have the behavior isolated down to
> the root of what's causing it.  (Ideally someone with a lot of time would
> trace through the code in Expect.pm to find out where it happens, and build
> a minimal test case requiring no additional modules.)

I just rebuilt IO-Tty-1.02 and Expect-1.15 under a clean install of 
5.6.1 and the same thing happens.  It seems to happen somewhere during 
Expect::spawn.

Jay

RE: [Expectperl-discuss] Problem running in bg

[Blackstone, J. D. <jda...@ci...>]

> -----Original Message-----
> From: Jason Penney [mailto:jas...@su...]
> Sent: Wednesday, August 28, 2002 6:37 AM
> To: Alexander Bourov; exp...@li...
> Subject: Re: [Expectperl-discuss] Problem running in bg
> 
> 
> That seems to work, but does anyone know why?  It's not an optimal 
> solution as this is an app that other's are using as well.  I 
> had been 
> running the same code fine under perl 5.6.1 with an older 
> Expect.pm and 
> IO::Pty.pm.
> 
> Thanks!
> Jay

  Did it change when you went to 5.8.0 then?  You might report it to p5p,
although at this point I don't think we have the behavior isolated down to
the root of what's causing it.  (Ideally someone with a lot of time would
trace through the code in Expect.pm to find out where it happens, and build
a minimal test case requiring no additional modules.)

jdb

Re: [Expectperl-discuss] Problem running in bg

[Jason P. <jas...@su...>]

That seems to work, but does anyone know why?  It's not an optimal 
solution as this is an app that other's are using as well.  I had been 
running the same code fine under perl 5.6.1 with an older Expect.pm and 
IO::Pty.pm.

Thanks!
Jay


Alexander Bourov wrote:
> Jason, I had the same effect on Solaris under ksh and bash.
> Try the same from the sh and it will work fine.
> 
> -----Original Message-----
> From: Jason Penney [mailto:jas...@su...]
> Sent: Tuesday, August 27, 2002 12:48 PM
> To: exp...@li...
> Subject: [Expectperl-discuss] Problem running in bg
> 
> 
> Hi,
> 
> I'm trying to run my perl code in the background under Solaris (tried 
> under 5.6,7 and 9), but if I use Expect it hangs with "Suspended (tty 
> output)".  I'm using perl 5.8.0.
> 
> Here's my test file:
> 
> #!/usr/bin/env perl
> 
> use Expect;
> 
> print STDERR "launching\n";
> my $exp = Expect->new();
> $exp->spawn("/sbin/sh");
> print STDERR "launched\n";
> 
> 
> % ./test.pl
> launching
> launched
> 
> % ./test.pl &
> [3] 4179
> % launching
> [3]  + Suspended (tty output) ./test.pl
> 
> Any help would be greatly appreciated!
> 
> Thanks,
> Jay Penney
> 
> 
> 
> -------------------------------------------------------
> This sf.net email is sponsored by: OSDN - Tired of that same old
> cell phone?  Get a new here for FREE!
> https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

FW: [Expectperl-discuss] Problem running in bg

[Alexander B. <ab...@en...>]

Jason, I had the same effect on Solaris under ksh and bash.
Try the same from the sh and it will work fine.

-----Original Message-----
From: Jason Penney [mailto:jas...@su...]
Sent: Tuesday, August 27, 2002 12:48 PM
To: exp...@li...
Subject: [Expectperl-discuss] Problem running in bg


Hi,

I'm trying to run my perl code in the background under Solaris (tried=20
under 5.6,7 and 9), but if I use Expect it hangs with "Suspended (tty=20
output)".  I'm using perl 5.8.0.

Here's my test file:

#!/usr/bin/env perl

use Expect;

print STDERR "launching\n";
my $exp =3D Expect->new();
$exp->spawn("/sbin/sh");
print STDERR "launched\n";


% ./test.pl
launching
launched

% ./test.pl &
[3] 4179
% launching
[3]  + Suspended (tty output) ./test.pl

Any help would be greatly appreciated!

Thanks,
Jay Penney



-------------------------------------------------------
This sf.net email is sponsored by: OSDN - Tired of that same old
cell phone?  Get a new here for FREE!
https://www.inphonic.com/r.asp?r=3Dsourceforge1&refcode1=3Dvs3390
_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

Re: [Expectperl-discuss] $object->exp_internal(1) question

[Austin S. <te...@gb...>]

On Tue, Aug 27, 2002 at 10:44:36PM +0200, Debian User wrote:
> Hello,
> 
> $pid->exp_internal(1);
> $pid->expect(.....);
> print $pid ....;
> 
> $pid->interact();
> 
> 
> 
> I don't see any debugging info on my screen once i am inside
>   the interact().

	Try $pid->debug($debuglevel).

	exp_internal is generally just for debugging expect() calls.

	Austin

[Expectperl-discuss] $object->exp_internal(1) question

[Debian U. <bk2...@sk...>]

Hello,

$pid->exp_internal(1);
$pid->expect(.....);
print $pid ....;

$pid->interact();



I don't see any debugging info on my screen once i am inside
  the interact().

So, what should I do to see what I really send from STDIN or
  get from $pid ??
Did i miss something from the man ?

Thanks for your advice.

Pierre Bachelart.

RE: [Expectperl-discuss] Problem running in bg

[Anders W. <And...@ac...>]

I've run into this as well.  I've been able to work around it by start up a
plain-old sh and launching it from there.  Very annoying, though.

anders

-----Original Message-----
From: Jason Penney [mailto:jas...@su...] 
Sent: Tuesday, August 27, 2002 12:48 PM
To: exp...@li...
Subject: [Expectperl-discuss] Problem running in bg

Hi,

I'm trying to run my perl code in the background under Solaris (tried 
under 5.6,7 and 9), but if I use Expect it hangs with "Suspended (tty 
output)".  I'm using perl 5.8.0.

Here's my test file:

#!/usr/bin/env perl

use Expect;

print STDERR "launching\n";
my $exp = Expect->new();
$exp->spawn("/sbin/sh");
print STDERR "launched\n";


% ./test.pl
launching
launched

% ./test.pl &
[3] 4179
% launching
[3]  + Suspended (tty output) ./test.pl

Any help would be greatly appreciated!

Thanks,
Jay Penney



-------------------------------------------------------
This sf.net email is sponsored by: OSDN - Tired of that same old
cell phone?  Get a new here for FREE!
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

[Expectperl-discuss] Problem running in bg

[Jason P. <jas...@su...>]

Hi,

I'm trying to run my perl code in the background under Solaris (tried 
under 5.6,7 and 9), but if I use Expect it hangs with "Suspended (tty 
output)".  I'm using perl 5.8.0.

Here's my test file:

#!/usr/bin/env perl

use Expect;

print STDERR "launching\n";
my $exp = Expect->new();
$exp->spawn("/sbin/sh");
print STDERR "launched\n";


% ./test.pl
launching
launched

% ./test.pl &
[3] 4179
% launching
[3]  + Suspended (tty output) ./test.pl

Any help would be greatly appreciated!

Thanks,
Jay Penney

RE: [Expectperl-discuss] URGENT HELP NEEDED ...

[Blackstone, J. D. <jda...@ci...>]

-----Original Message-----
From: Vijay Ramesh [mailto:vi...@in...]
Sent: Monday, August 26, 2002 6:05 AM
To: Austin Schutz
Cc: exp...@li...
Subject: Re: [Expectperl-discuss] URGENT HELP NEEDED ...


Hi , 
 Thanks for the reply ...  I did the same and it gives me an error like
this: 
vlsi
/user/user1/lib/perl/lib/site_perl/5.6.0>/user/user1/atpg/ATPG_johnb.0.1/bin
/runStuckat 
Can't locate loadable object for module IO::Tty in @INC (@INC contains: 



  Now you get to install another module. :)

  You need IO::Tty, which comes in a package with some other goodies.  Go to
the search.cpan.org website, type in the name of the module you need, and
download the .tar.gz file it links to.  Then do the "perl Makefile.PL ; make
; make test ; make install" thing again.

  Actually, the comment about "loadable object" may imply that part of
IO::Tty is installed, but part missing.  The best solution to that would
probably be to reinstall it as I just suggested.  If it still gives you the
message at that point, something is quite wrong with your perl installation,
and I suggest you seek out a forum like PerlMonks (perlmonks.org) for better
help.  You formulate your questions well and I'm sure that if it's something
more complicated those folks will be able to help you fairly quickly.



> Please help me out as the problem has become very critical and a release
is merely
> waiting for this...sorry for troubling u a lot... 

  If you have an imminent release but are having to learn module
installation as you go, I definitely recommend you ask your manager,
customer, or whatever responsible party for an extension so you can have the
time to learn what you need.  It took me about two years to gradually pick
up everything I needed to know about module installation.  Nowadays, the
situation is much better; typing "perldoc perlmodinstall" with a fairly
recent installation of perl will give a lot of help (all of which can be
found on the web at http://perldoc.com/perl5.8.0/pod/perlmodinstall.html).
Also, I recommend you get ahold of the latest editions of _Programming Perl_
by Larry Wall, et al ("the Camel book") and/or _Learning Perl_ by Randall
Schwartz, et al ("the Llama book").

jdb

Re: [Expectperl-discuss] URGENT HELP NEEDED ...

[Vijay R. <vi...@in...>]

Hi ,

 Thanks for the reply ...  I did the same and it gives me an error like this:

vlsi
/user/user1/lib/perl/lib/site_perl/5.6.0>/user/user1/atpg/ATPG_johnb.0.1/bin/runStuckat

Can't locate loadable object for module IO::Tty in @INC (@INC contains:
/user/user1/atpg/ATPG_johnb.0.1/bin/../lib /usr/perl5/5.00503/sun4-solaris
/usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris
/usr/perl5/site_perl/5.005 .) at /usr/perl5/5.00503/sun4-solaris/IO/Tty.pm line 26

BEGIN failed--compilation aborted at /usr/perl5/5.00503/sun4-solaris/IO/Pty.pm
line 7.
BEGIN failed--compilation aborted at /usr/perl5/5.00503/sun4-solaris/Expect.pm
line 14.
BEGIN failed--compilation aborted at
/user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
BEGIN failed--compilation aborted at
/user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/atpgStuckat.pm line 5.
BEGIN failed--compilation aborted at
/user/user1/atpg/ATPG_johnb.0.1/bin/runStuckat line 9.
vlsi /user/user1/lib/perl/lib/site_perl/5.6.0>

Please help me out as the problem has become very critical and a release is merely
waiting for this...sorry for troubling u a lot...

 I couldn't get any info regarding the above error in net ...

With Best Regards,
Vijay


Austin Schutz wrote:

> On Mon, Aug 26, 2002 at 11:54:20AM +0530, Vijay Ramesh wrote:
> >
> > Hi All,
> >
> > The error that i am getting is
> >
> > vlsi /user/user1>cd fastscan/
> > vlsi /user/user1/fastscan>./run
> > runIddq@    runStuckat@ runTrans@
> > vlsi /user/user1/fastscan>./runStuckat
> > Can't locate Expect.pm in @INC (@INC contains:
> > /user/user1/atpg/ATPG_johnb.0.1/bin/../lib
> > /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503
> > /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at
> >
> > /user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
> > BEGIN failed--compilation aborted at
> > /user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
> > BEGIN failed--compilation aborted at
> > /user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/atpgStuckat.pm line
> > 5.
> > BEGIN failed--compilation aborted at ./runStuckat line 9.
> >
> > Please  help me how to go about  installing the perl module step by step
> > as i am a novice to this field...(the PREFIX directory etc...)
> >
> >
>
>         perl Makefile.PL PREFIX=~/lib/perl
>         make
>         make test
>         make install
>
>         You have to set the environment var PERL5LIB=~/lib/perl before using.
> Also, perl will tend to install things under things like site_perl/, which perl
> won't check PERL5LIB for when including the modules. My solution to this has
> been to create a bunch of symlinks, e.g.:
>
> cd ~/lib/perl
> ln -s . lib
> ln -s . site_perl
> ln -s . 5.00503
> ln -s . sun4-solaris
>
>         And make sure all modules are therefore installed directly into what
> I've set as PREFIX.
>         Presumably there is a simpler way to accomplish this, but I've been
> too thickheaded to figure out what.
>
>         Austin
>
> -------------------------------------------------------
> This sf.net email is sponsored by: OSDN - Tired of that same old
> cell phone?  Get a new here for FREE!
> https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
> _______________________________________________
> Expectperl-discuss mailing list
> Exp...@li...
> https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

Re: [Expectperl-discuss] URGENT HELP NEEDED ...

[Austin S. <te...@of...>]

On Mon, Aug 26, 2002 at 11:54:20AM +0530, Vijay Ramesh wrote:
> 
> Hi All,
> 
> The error that i am getting is
> 
> vlsi /user/user1>cd fastscan/
> vlsi /user/user1/fastscan>./run
> runIddq@    runStuckat@ runTrans@
> vlsi /user/user1/fastscan>./runStuckat
> Can't locate Expect.pm in @INC (@INC contains:
> /user/user1/atpg/ATPG_johnb.0.1/bin/../lib
> /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503
> /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at
> 
> /user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
> BEGIN failed--compilation aborted at
> /user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
> BEGIN failed--compilation aborted at
> /user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/atpgStuckat.pm line
> 5.
> BEGIN failed--compilation aborted at ./runStuckat line 9.
> 
> Please  help me how to go about  installing the perl module step by step
> as i am a novice to this field...(the PREFIX directory etc...)
> 
> 

	perl Makefile.PL PREFIX=~/lib/perl
	make
	make test
	make install

	You have to set the environment var PERL5LIB=~/lib/perl before using.
Also, perl will tend to install things under things like site_perl/, which perl
won't check PERL5LIB for when including the modules. My solution to this has
been to create a bunch of symlinks, e.g.:

cd ~/lib/perl
ln -s . lib
ln -s . site_perl
ln -s . 5.00503
ln -s . sun4-solaris

	And make sure all modules are therefore installed directly into what
I've set as PREFIX.
	Presumably there is a simpler way to accomplish this, but I've been
too thickheaded to figure out what.

	Austin

[Expectperl-discuss] URGENT HELP NEEDED ...

[Vijay R. <vi...@in...>]

Hi All,

The error that i am getting is

vlsi /user/user1>cd fastscan/
vlsi /user/user1/fastscan>./run
runIddq@    runStuckat@ runTrans@
vlsi /user/user1/fastscan>./runStuckat
Can't locate Expect.pm in @INC (@INC contains:
/user/user1/atpg/ATPG_johnb.0.1/bin/../lib
/usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503
/usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at

/user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
BEGIN failed--compilation aborted at
/user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/Fastscan.pm line 5.
BEGIN failed--compilation aborted at
/user/user1/atpg/ATPG_johnb.0.1/bin/../lib/TI/ATPG/atpgStuckat.pm line
5.
BEGIN failed--compilation aborted at ./runStuckat line 9.

Please  help me how to go about  installing the perl module step by step
as i am a novice to this field...(the PREFIX directory etc...)


With Best Regds,
Vijay

RE: [Expectperl-discuss] Limit on number of Expect sessions?

[Richards, K. <Kei...@Co...>]

Thanks for your reply, which put me on the right track.

Yes, you're right. I was believing ulimit, but it was lying to me. It seems
that in Solaris, you can increase the fds available to open(), but not
fopen(), which is limited to 256. It's a stdio limit for 32-bit apps.

Fixes seem to be, rebuild perl with the sfio library. Or rebuild perl as a
64-bit app. I'll give one or other of these a try...

Cheers,

Keith.

> -----Original Message-----
> From: Roland Giersig [mailto:Ro...@Gi...]
> Sent: 20 August 2002 09:27
> To: Richards, Keith
> Cc: 'exp...@li...'
> Subject: Re: [Expectperl-discuss] Limit on number of Expect sessions?
> 
> 
> > I'd like to maintain a number of simultaneous ssh connections from
> > one host to maybe 300 others. I've been looking at using Perl
> > Expect for this, and it's been working well for small numbers
> > of connections.
> > 
> > This script:
> > 
> > #!/usr/local/bin/perl -w
> > use Expect;
> > @exps = ();
> > for $i (1 .. 300) {
> >   print "$i\n";
> >   my $exp = new Expect;
> >   $exp->log_stdout(0);
> >   $exp->spawn("ssh gend51");
> >   my $match = $exp->expect(30, "gend51> ");
> >   push(@exps, $exp);
> > }
> > 
> > falls over when it hits 251, with the error:
> > 
> > Cannot open pipe: Illegal seek at
> > /usr/local/lib/perl5/site_perl/5.6.0/Expect.pm line 105.
> > 
> > I guess this is something to do with limited file descriptors, but
> > I've upped my fd limit (as reported by ulimit -n and limit
> > descriptors) to 1024, and no change.
> 
> Are you sure about that?  Have you tried with a simple script 
> that just 
> opens files and counts how many can be opened?
> 
> Let's count the fds: stdin/out/err are 3, plus 250 open ptys 
> gives 253; 
> when spawning, Expect creates a pty/tty pair, makes 255, and then 
> creates an anonymous pipe with 2 fd, which pushes the total 
> count over 
> 256, so this seems to be the limit, and it looks like a system limit. 
> As the default Solaris fd limit is 256, this seems the most plausible 
> explanation, as I don't think that there is a hard limit like that in 
> the perl interpreter (there is definitely no limit in Expect). Maybe 
> you are running under a different user with a different limit?
> 
> > I'm on Solaris 8, perl 5.6.0, Expect 1.15, 2GB RAM, 8GB swap.
> > 
> > Any thoughts about how to avoid the above problem?
> 
> Upgrading to 5.6.1 might help, but this is a rather long shot.
> 
> Hope this helps,
> 
> Roland
> --
> Ro...@Gi...
> 


********************************************************************** 
This communication is confidential and is intended only for 
the person to whom it is addressed.  If you are not that person you
are not permitted to make use of the information and you are requested 
to notify <mailto:LON...@co...> immediately that 
you have received it and then destroy the copy in your possession.
Commerzbank AG is regulated by the FSA for the conduct of investment
business in the UK.
**********************************************************************

Re: [Expectperl-discuss] Limit on number of Expect sessions?

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

> I'd like to maintain a number of simultaneous ssh connections from
> one host to maybe 300 others. I've been looking at using Perl
> Expect for this, and it's been working well for small numbers
> of connections.
> 
> This script:
> 
> #!/usr/local/bin/perl -w
> use Expect;
> @exps = ();
> for $i (1 .. 300) {
>   print "$i\n";
>   my $exp = new Expect;
>   $exp->log_stdout(0);
>   $exp->spawn("ssh gend51");
>   my $match = $exp->expect(30, "gend51> ");
>   push(@exps, $exp);
> }
> 
> falls over when it hits 251, with the error:
> 
> Cannot open pipe: Illegal seek at
> /usr/local/lib/perl5/site_perl/5.6.0/Expect.pm line 105.
> 
> I guess this is something to do with limited file descriptors, but
> I've upped my fd limit (as reported by ulimit -n and limit
> descriptors) to 1024, and no change.

Are you sure about that?  Have you tried with a simple script that just 
opens files and counts how many can be opened?

Let's count the fds: stdin/out/err are 3, plus 250 open ptys gives 253; 
when spawning, Expect creates a pty/tty pair, makes 255, and then 
creates an anonymous pipe with 2 fd, which pushes the total count over 
256, so this seems to be the limit, and it looks like a system limit. 
As the default Solaris fd limit is 256, this seems the most plausible 
explanation, as I don't think that there is a hard limit like that in 
the perl interpreter (there is definitely no limit in Expect). Maybe 
you are running under a different user with a different limit?

> I'm on Solaris 8, perl 5.6.0, Expect 1.15, 2GB RAM, 8GB swap.
> 
> Any thoughts about how to avoid the above problem?

Upgrading to 5.6.1 might help, but this is a rather long shot.

Hope this helps,

Roland
--
Ro...@Gi...

[Expectperl-discuss] Limit on number of Expect sessions?

[Richards, K. <Kei...@Co...>]

Hi,

I'd like to maintain a number of simultaneous ssh connections from one host
to maybe 300 others. I've been looking at using Perl Expect for this, and
it's been working well for small numbers of connections.

This script:

#!/usr/local/bin/perl -w
use Expect;
@exps = ();
for $i (1 .. 300) {
  print "$i\n";
  my $exp = new Expect;
  $exp->log_stdout(0);
  $exp->spawn("ssh gend51");
  my $match = $exp->expect(30, "gend51> ");
  push(@exps, $exp);
}

falls over when it hits 251, with the error:

Cannot open pipe: Illegal seek at
/usr/local/lib/perl5/site_perl/5.6.0/Expect.pm line 105.

I guess this is something to do with limited file descriptors, but I've
upped my fd limit (as reported by ulimit -n and limit descriptors) to 1024,
and no change.

I'm on Solaris 8, perl 5.6.0, Expect 1.15, 2GB RAM, 8GB swap.

Any thoughts about how to avoid the above problem?

Many thanks,

Keith.


********************************************************************** 
This communication is confidential and is intended only for 
the person to whom it is addressed.  If you are not that person you
are not permitted to make use of the information and you are requested 
to notify <mailto:LON...@co...> immediately that 
you have received it and then destroy the copy in your possession.
Commerzbank AG is regulated by the FSA for the conduct of investment
business in the UK.
**********************************************************************

Re: [Expectperl-discuss] Strange time out and hard close

[<ex...@ih...>]

On Sun,  4 Aug 2002 12:12:11 +0200
Roland Giersig <RGi...@cp...> wrote:

> > Whatever the case I still think it should wait forever trying to
> > match.
> 
> It probably did, it matched on the first 'y', 'e' OR 's' that came
> along. D'oh!

Umm no, read the original thread again.

RE: [Expectperl-discuss] quotes around $scalar

[Blackstone, J. D. <jda...@ci...>]

> -----Original Message-----
> From: Roland Giersig [mailto:RGi...@cp...]
> Sent: Sunday, August 04, 2002 3:50 PM
> To: Austin Schutz
> Cc: exp...@li...
> Subject: Re: [Expectperl-discuss] quotes around $scalar
> 
> 
> >>Hmm, I offhand don't know a means to find out if a given 
> scalar already
> >>contains a precompiled regexp.  If such a check is 
> available I'd surely
> >>implement it to make expect() even more DWIMmish in that 
> regard, making
> >>sure that a precompiled regexp wouldn't be handled with a 
> substr match...
> >>
> >>Anybody got an idea?
> >>
> >>
> > 
> > $foo = qr /stuff/;
> > print ref($foo);
> > 
> > 	prints "Regexp". Is that what you mean?
> 
> 
> *smack*
> 
> Ugh, yes, and I was looking into Scalar::Util and thought 
> about digging 
> into perl internas and write some .xs code...
> 
> Looks like it's time to add some more DWIM to Expect...

  I just remembered something significant, something you're not going to
want to hear.  I think the return value of ref for a precompiled regex
changed at some point for consistency.

  Hmmm... digging through old perldeltas ...  I don't see it.  Maybe I just
dreamed it.  Or maybe they were just talking about it.

  At any rate, a test with 5.00502 seems to yield the same results as 5.8.0,
so never mind.  (But be wary in case they jump up and change it some day.)

jdb