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

[Chris M. <mut...@mc...>]

Hey,

I was originally using Perl 5.5.3 (5.00503) (what came with RH6.2), and Expect-1.15, IO-Stty-.02, and IO-Tty-1.02.
I noticed that my old version of perl has the problem, perl 5.6.0 has the problem, but perl 5.6.1 does not.
I upgraded to perl 5.8.0 and I no longer see double output.

Thanks the help, I appreciate it.

-Chris

Original message from: "Sorrell, Al"
>I get the same results using older versions of the software:
>
>Solaris 6 
>Perl v5.60 
>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...] 
>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=Redhat Linux 7.3
>     IO::Tty= version 1.02
>     Perl=5.6.1
>     Expect.pm= 1.15
>
>     Setup #2:
>     OS=Solaris 7 (Sparc 4500)
>     IO::Tty= version 1.02
>     Perl=5.8.0
>     Expect.pm= 1.15
>
>
>
>
>
> 
>
>                    Chris Muth <mut...@mc...>
>
>                    Sent by:                                    To:
>Exp...@li...           
>                    exp...@li...urc        cc:
>
>                    eforge.net                                  Subject:
>[Expectperl-discuss] Double prints to screen  
>                                                                from one
>print statement?                                  
> 
>
>                    07/06/2003 09:47 PM
>
> 
>
> 
>
>
>
>
>
>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 = 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
>
>
>-------------------------------------------------------
>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