RE: [Expectperl-discuss] Double prints to screen from one print statement?

[Sorrell, A. <Al_...@tr...>]

I get the same results using older versions of the software:

Solaris 6=20
Perl v5.60=20
IO-Tty-0.97_01 (beta)                 03/04/2002
Expect-1.13_08 (beta)                 03/04/2002

(sorrell@netops)$ $HOME/temp/xx.pl
<you will see this string twice ><you will see this string twice ><you
will see this string once >

-----Original Message-----
From: db...@CT... [mailto:db...@CT...]=20
Sent: Monday, July 07, 2003 11:14 AM
To: Chris Muth
Cc: Exp...@li...;
exp...@li...
Subject: Re: [Expectperl-discuss] Double prints to screen from one print
statement?



For what it's worth, I only get one print of the string instead of two
on
both my setups, which are as follows:

     Setup #1:
     OS=3DRedhat Linux 7.3
     IO::Tty=3D version 1.02
     Perl=3D5.6.1
     Expect.pm=3D 1.15

     Setup #2:
     OS=3DSolaris 7 (Sparc 4500)
     IO::Tty=3D version 1.02
     Perl=3D5.8.0
     Expect.pm=3D 1.15





=20

                    Chris Muth <mut...@mc...>

                    Sent by:                                    To:
Exp...@li...          =20
                    exp...@li...urc        cc:

                    eforge.net                                  Subject:
[Expectperl-discuss] Double prints to screen =20
                                                                from one
print statement?                                 =20
=20

                    07/06/2003 09:47 PM

=20

=20





Hey,

I have been having trouble with print statements in my perl scripts
printing to the screen twice.  They are just standard print statements
to STDOUT,  not much to do with Expect.

As seen in the fragment below the print before the call to spawn()
will get be seen in the output twice, and the one below will be seen
in the output once.

Is this a bug, or is this just an idiosyncrasy that one must simply make
allowances for?

Thanks,
Chris


#!/usr/bin/perl -w
#
#

use Expect;


$exp =3D new Expect;
$exp->raw_pty(1);

# Above spawn() we see it twice.
print "<you will see this string twice >";

$exp->spawn("/bin/ls");

# Below spawn() we see it once.
print "<you will see this string once >";

print "\n";

# EOF



-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100006ave/direct;at.asp_061203_01/01
_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
https://lists.sourceforge.net/lists/listinfo/expectperl-discuss






-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100006ave/direct;at.asp_061203_01/01
_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
https://lists.sourceforge.net/lists/listinfo/expectperl-discuss