expectperl-discuss Mailing List for Expect.pm

Hi!


I've recently tried to use expect in conjunction with
threads and haven't been succesful so far.

Expect always returns 2:EOF when used inside a thread.

Having searched the mailinglist archives, I found
a post saying "it doesn't work because io::tty is
not threadsafe".



I'm using Debian Sarge (3.1) with perl 5.8.4,
libexpect-perl 1.15 and libio-pty-perl 1.02.

Is there a way to make this work?




regards,
Nicolas

On Mon, Jun 27, 2005 at 01:41:39PM -0500, al....@ac... wrote:
> 
> Hello everyone,
> 
> Using Perl and Expect I have written a script to SFTP a file from over
> 20 remote servers. When I run the script from the command line it works
> fine.  I need to cron this script so that it can be run a couple of
> times each day.  For some unknown reason when the cron daemon starts up
> my script the spawned sftp command does not get the remote file and the
> following error message is logged to the standard error by the cron
> daemon:
> 
> Your "cron" job on test_server
>   /export/home/user5/get_records
> 
> produced the following output:
> 
> ssh_packet_wrapper_input: invalid packet received: len 1819239269
>  
> Has anyone experienced such an error before?  Is there any special
> settings (perhaps environment variables or PATH) that need to be
> modified to allow cron daemon execute Expect script for users other that
> root?  Any help is appreciated.  
> 

	I've seen that error using ssh v1 to connect to an ssh v2 server.
You might want to try calling the specific ssh binary by its full path to
make sure you have the right one.

	Austin

Hello everyone,

Using Perl and Expect I have written a script to SFTP a file from over
20 remote servers. When I run the script from the command line it works
fine.  I need to cron this script so that it can be run a couple of
times each day.  For some unknown reason when the cron daemon starts up
my script the spawned sftp command does not get the remote file and the
following error message is logged to the standard error by the cron
daemon:

Your "cron" job on test_server
  /export/home/user5/get_records

produced the following output:

ssh_packet_wrapper_input: invalid packet received: len 1819239269
=20
Has anyone experienced such an error before?  Is there any special
settings (perhaps environment variables or PATH) that need to be
modified to allow cron daemon execute Expect script for users other that
root?  Any help is appreciated. =20

Al




This message is for the designated recipient only and may contain =
privileged, proprietary, or otherwise private information.  If you have =
received it in error, please notify the sender immediately and delete =
the original.  Any other use of the email by you is prohibited.

Can I use the below code to change the size of my spawned terminal. If yes How. Thanks in advance. 
This code is from the man page of Expect module. 

How to propagate terminal sizes 

  my $exp = new Expect;  $exp->slave->clone_winsize_from(\*STDIN);  $exp->spawn("ssh somehost);  $SIG{WINCH} = \&winch;  sub winch {    $exp->slave->clone_winsize_from(\*STDIN);    kill WINCH => $exp->pid if $exp->pid;    $SIG{WINCH} = \&winch;  }  $exp->interact();


		
---------------------------------
Yahoo! Sports
 Rekindle the Rivalries. Sign up for Fantasy Football

Net::SMTP 

If you spam me, and I manage to find you, you'll regret ever asking.  That's not
a threat, just a commentary on modern life in the 21st century.

;)

Thanks for playing!
CA

Quoting Michael Will <mic...@gm...>:

> Hi,
> 
> for automatic smtp-testing via cron I used:
> echo -e 'helo abc\n.....'|netcat $IP 25
> 
> But netcat sends all lines with smtp-commands at once. For
> some MTAs (or in some circumstances) this is too fast and the 
> test fails. 
> Is there a program which is more suitable or is expectperl a
> good solution for this problem?
> Tia
>  Ronald
> 
> 
> 

Hi,

for automatic smtp-testing via cron I used:
echo -e 'helo abc\n.....'|netcat $IP 25

But netcat sends all lines with smtp-commands at once. For
some MTAs (or in some circumstances) this is too fast and the 
test fails. 
Is there a program which is more suitable or is expectperl a
good solution for this problem?
Tia
 Ronald

Hi Roland

Thanks very much for making Expect.pm available.  I need a tool like it =
for
a Windows application in developing.  I read in your documentation that
Expect for Windows is supported in a cygwin, and only on a 'it should =
work'
basis.  I've been using ActiveState Perl, and read that it specifically =
is
not supported.  Has there been any change in this since you penned =
those
words?

Also, I need a tool that will allow me to have an ongoing dialogue with =
a
CLI program.  I had been using IPC::Run, but the CLI program I need to
dialogue with uses, at one point, getch() to accept input of a =
password, and
IPC::Run on Windows does not support this.  Do you know if Expect on =
Windows
should support getch()?

Thanks!
tl

Terry Lemons
CLARiiON Applications Integration Engineering
EMC=B2=20
where information lives
4400 Computer Drive, MS D239
Westboro MA 01580
Phone: 508 898 7312
Email: Lem...@em... <mailto:Lem...@em...>=20

Hi,
 We're (probably) changing platforms to RedHat's Enterprise Linux, and
I've been tasked to get some code working on that platform. The
problem is, after a few dozens of Expect sessions are created and
destroyed, I stop being able to allocate Pty's. Once this problem
occurs, I also cannot allocate Pty's for any other program. I've
created over a hundred Pty's (by simply spawning shells in screen
sessions) and there's no evidence that other programs have this
problem.


pty_allocate(nonfatal): getpt(): No such file or directory at ../perllib/cpan//IO/Pty.pm line 24.
pty_allocate(nonfatal): openpty(): No such file or directory at ../perllib/cpan//IO/Pty.pm line 24.
pty_allocate(nonfatal): open(/dev/ptmx): Input/output error at ../perllib/cpan//IO/Pty.pm line 24.
Cannot open a pty at ./test.pl line 14

Nothing in IO:Tty's Tty.c looks obviouly wrong to me, but that's where
these error messages seem to come from, and where the misbehaviour
seems to be.

Has anyone else seen anything like this, perhaps on a newer Linux platform?

It's not that easy. This workaround may work for you but will definitely
break backward-compatibility. Expect and IO::Pty must not make any
assumption about the charsets in use, instead they have to leave this
decision to the developer.

I will not incorporate that patch until I completely understand the
whole issue. I would guess that replacing print() with syswrite might
do the trick to pass everything through unmodified, but I have to dig
deeper into perl 5.8s internal utf8 handling...

Anyway, if that patch works for you, continue using it.

Best regards,

Roland

Zitat von jun ma <maj...@ho...>:
> I try again, the workaround should be like this:
>
>           } elsif ($pattern->[1] eq '-re') {
>             # m// in array context promises to return an empty list
>             # but doesn't if the pattern doesn't contain brackets (),
>             # so we kludge around by adding an empty bracket
>             # at the end.
>             if(is_utf8(${*$exp}{exp_Accum})) {
>             } else {
>                 ${*$exp}{exp_Accum} = decode("utf8",
> ${*$exp}{exp_Accum}) ;
>             }
>
> So, we should add the workaround just before the matching work
> starts.
> Thanks
>
> >From: "jun ma" <maj...@ho...>
> >To: exp...@li...
> >CC: RGi...@cp..., as...@us...
> >Subject: RE: [Expectperl-discuss] A question about utf8 with
> Expect.pm
> >Date: Fri, 03 Jun 2005 01:58:49 +0000
> >
> >Hi, there
> >  I figured out a workaround for this issue:
> >
> >In the Expect.pm code, I added some code to convert buffer to utf8
> strings:
> >
> >          # read in what we found.
> >          my $buffer;
> >          my $nread = sysread($exp, $buffer, 2048);
> >
> >        # Jun Ma added
> >        if(is_utf8($buffer)) {
> >                print STDOUT  "yes"  ;
> >        } else {
> >                print STDOUT "no" ;
> >                $buffer = decode("utf8", $buffer) ;
> >        }
> >
> >Now, it works well.
> >
> >Thanks
> >Jun
> >>From: "jun ma" <maj...@ho...>
> >>To: exp...@li...
> >>CC: RGi...@cp..., as...@us...
> >>Subject: RE: [Expectperl-discuss] A question about utf8 with
> Expect.pm
> >>Date: Fri, 03 Jun 2005 00:07:51 +0000
> >>
> >>Actually, I wonder Expect.pm maybe does not handle the utf8
> properly. I am
> >>using perl 5.8, which is natively supporting utf8;
> >>
> >>In the Expect.pm, I add some code in the _print_handler function.
> >>  if(is_utf8($print_this)) {
> >>        print STDOUT  "yes"  ;
> >>  } else {
> >>        print STDOUT "no" ;
> >>  }
> >>
> >>I got the following result:
> >>vanrdsol68 jma/autoinstall> perl test.pl
> >>noLANG=fr_FR.UTF-8
> >>LC_CTYPE="fr_FR.UTF-8"
> >>LC_NUMERIC="fr_FR.UTF-8"
> >>LC_TIME="fr_FR.UTF-8"
> >>LC_COLLATE="fr_FR.UTF-8"
> >>noLC_MONETARY="fr_FR.UTF-8"
> >>LC_MESSAGES="fr_FR.UTF-8"
> >>LC_ALL=fr_FR.UTF-8
> >>noRecherche des correctifs recommand&Atilde;&copy;s...
> >>
> >>As you saw, the "no" means that print_this is not a utf8 string.
> >>
> >>So, I converted the string to utf8 by decode funtion.
> >>$print_this = decode("utf8",$print_this) ;
> >>
> >>This time, I got:
> >>vanrdsol68 jma/autoinstall> perl test.pl
> >>noLANG=fr_FR.UTF-8
> >>LC_CTYPE="fr_FR.UTF-8"
> >>LC_NUMERIC="fr_FR.UTF-8"
> >>LC_TIME="fr_FR.UTF-8"
> >>LC_COLLATE="fr_FR.UTF-8"
> >>yesLC_MONETARY="fr_FR.UTF-8"
> >>LC_MESSAGES="fr_FR.UTF-8"
> >>LC_ALL=fr_FR.UTF-8
> >>Recherche des correctifs recommand¨¦s...
> >>
> >>See, it is yes, and the french character is correct.
> >>
> >>But the expect function is not tried by me now. So, I do not know
> if the
> >>expect function can work with this way.
> >>
> >>>From: "jun ma" <maj...@ho...>
> >>>To: exp...@li...
> >>>Subject: [Expectperl-discuss] A question about utf8 with Expect.pm
> >>>Date: Thu, 02 Jun 2005 23:59:47 +0000
> >>>
> >>>   I am using the Expect.pm to do some automation tasks on Solaris
> 5.9.
> >>>It is a really good tool. Thanks for your effort.
> >>>   However, I found the utf8 strings are not correctly shown when
> I ran
> >>>some multilingual programs.
> >>>   For example, I have a sh shell script (output.sh) which just
> outputs
> >>>some French strings:
> >>>
> >>>     #!/bin/sh
> >>>locale
> >>>echo "Recherche des correctifs recommandés..."
> >>>
> >>>I set my locales like this:
> >>>LANG=fr_FR.UTF-8
> >>>LC_CTYPE="fr_FR.UTF-8"
> >>>LC_NUMERIC="fr_FR.UTF-8"
> >>>LC_TIME="fr_FR.UTF-8"
> >>>LC_COLLATE="fr_FR.UTF-8"
> >>>LC_MONETARY="fr_FR.UTF-8"
> >>>LC_MESSAGES="fr_FR.UTF-8"
> >>>LC_ALL=fr_FR.UTF-8
> >>>But this is not my default locale, I just manually set it in my
> shell.
> >>>
> >>>When I use the following Perl code :
> >>>use Expect;
> >>>use Time::localtime;
> >>>use utf8;
> >>>
> >>>my $exp = new Expect;
> >>>my $Command = "output.sh";
> >>>
> >>>        $exp->raw_pty(1);
> >>>        $exp->log_stdout(1);     # 0 to turn off the output of the
> >>>spawned comma
> >>>        $Expect::Debug = 3;      # 1,2,3 for more verbose output^M
> >>>        $Expect::Exp_Internal=1; # output pattern matching iion
> for expec
> >>>        $exp->spawn($Command) or die "Cannot spawn $Command: $! \n
> >>>AutoEngine.pl
> >>>end fail!";
> >>>
> >>>        $exp->soft_close() ;
> >>>
> >>>     I got the output like this:
> >>>>perl test.pl
> >>>LANG=fr_FR.UTF-8
> >>>LC_CTYPE="fr_FR.UTF-8"
> >>>LC_NUMERIC="fr_FR.UTF-8"
> >>>LC_TIME="fr_FR.UTF-8"
> >>>LC_COLLATE="fr_FR.UTF-8"
> >>>LC_MONETARY="fr_FR.UTF-8"
> >>>LC_MESSAGES="fr_FR.UTF-8"
> >>>LC_ALL=fr_FR.UTF-8
> >>>Recherche des correctifs recommandés...
> >>>   A French character is not correctly shown.
> >>>
> >>>   Do you guys know what happens there? Maybe I failed to do some
> >>>required configuration? Please show me some hints.
> >>>   Thanks a lot.
> >>>
> >>>
> >>>Jun
> >>>
> >>>
> >>>
> >>>
> >>>-------------------------------------------------------
> >>>This SF.Net email is sponsored by Yahoo.
> >>>Introducing Yahoo! Search Developer Network - Create apps using
> Yahoo!
> >>>Search APIs Find out how you can build Yahoo! directly into your
> own
> >>>Applications - visit
> >>>http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
> >>>_______________________________________________
> >>>Expectperl-discuss mailing list
> >>>Exp...@li...
> >>>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> >>
> >>
> >>
> >>
> >>-------------------------------------------------------
> >>This SF.Net email is sponsored by Yahoo.
> >>Introducing Yahoo! Search Developer Network - Create apps using
> Yahoo!
> >>Search APIs Find out how you can build Yahoo! directly into your
> own
> >>Applications - visit
> http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
> >>_______________________________________________
> >>Expectperl-discuss mailing list
> >>Exp...@li...
> >>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> >
> >
> >
> >
> >-------------------------------------------------------
> >This SF.Net email is sponsored by Yahoo.
> >Introducing Yahoo! Search Developer Network - Create apps using
> Yahoo!
> >Search APIs Find out how you can build Yahoo! directly into your own
> >Applications - visit
> http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
> >_______________________________________________
> >Expectperl-discuss mailing list
> >Exp...@li...
> >https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>
>
>


--
RGi...@cp...

I try again, the workaround should be like this:

          } elsif ($pattern->[1] eq '-re') {
            # m// in array context promises to return an empty list
            # but doesn't if the pattern doesn't contain brackets (),
            # so we kludge around by adding an empty bracket
            # at the end.
            if(is_utf8(${*$exp}{exp_Accum})) {
            } else {
                ${*$exp}{exp_Accum} = decode("utf8", ${*$exp}{exp_Accum}) ;
            }

So, we should add the workaround just before the matching work starts.
Thanks

>From: "jun ma" <maj...@ho...>
>To: exp...@li...
>CC: RGi...@cp..., as...@us...
>Subject: RE: [Expectperl-discuss] A question about utf8 with Expect.pm
>Date: Fri, 03 Jun 2005 01:58:49 +0000
>
>Hi, there
>  I figured out a workaround for this issue:
>
>In the Expect.pm code, I added some code to convert buffer to utf8 strings:
>
>          # read in what we found.
>          my $buffer;
>          my $nread = sysread($exp, $buffer, 2048);
>
>        # Jun Ma added
>        if(is_utf8($buffer)) {
>                print STDOUT  "yes"  ;
>        } else {
>                print STDOUT "no" ;
>                $buffer = decode("utf8", $buffer) ;
>        }
>
>Now, it works well.
>
>Thanks
>Jun
>>From: "jun ma" <maj...@ho...>
>>To: exp...@li...
>>CC: RGi...@cp..., as...@us...
>>Subject: RE: [Expectperl-discuss] A question about utf8 with Expect.pm
>>Date: Fri, 03 Jun 2005 00:07:51 +0000
>>
>>Actually, I wonder Expect.pm maybe does not handle the utf8 properly. I am 
>>using perl 5.8, which is natively supporting utf8;
>>
>>In the Expect.pm, I add some code in the _print_handler function.
>>  if(is_utf8($print_this)) {
>>        print STDOUT  "yes"  ;
>>  } else {
>>        print STDOUT "no" ;
>>  }
>>
>>I got the following result:
>>vanrdsol68 jma/autoinstall> perl test.pl
>>noLANG=fr_FR.UTF-8
>>LC_CTYPE="fr_FR.UTF-8"
>>LC_NUMERIC="fr_FR.UTF-8"
>>LC_TIME="fr_FR.UTF-8"
>>LC_COLLATE="fr_FR.UTF-8"
>>noLC_MONETARY="fr_FR.UTF-8"
>>LC_MESSAGES="fr_FR.UTF-8"
>>LC_ALL=fr_FR.UTF-8
>>noRecherche des correctifs recommand&Atilde;&copy;s...
>>
>>As you saw, the "no" means that print_this is not a utf8 string.
>>
>>So, I converted the string to utf8 by decode funtion.
>>$print_this = decode("utf8",$print_this) ;
>>
>>This time, I got:
>>vanrdsol68 jma/autoinstall> perl test.pl
>>noLANG=fr_FR.UTF-8
>>LC_CTYPE="fr_FR.UTF-8"
>>LC_NUMERIC="fr_FR.UTF-8"
>>LC_TIME="fr_FR.UTF-8"
>>LC_COLLATE="fr_FR.UTF-8"
>>yesLC_MONETARY="fr_FR.UTF-8"
>>LC_MESSAGES="fr_FR.UTF-8"
>>LC_ALL=fr_FR.UTF-8
>>Recherche des correctifs recommand¨¦s...
>>
>>See, it is yes, and the french character is correct.
>>
>>But the expect function is not tried by me now. So, I do not know if the 
>>expect function can work with this way.
>>
>>>From: "jun ma" <maj...@ho...>
>>>To: exp...@li...
>>>Subject: [Expectperl-discuss] A question about utf8 with Expect.pm
>>>Date: Thu, 02 Jun 2005 23:59:47 +0000
>>>
>>>   I am using the Expect.pm to do some automation tasks on Solaris 5.9. 
>>>It is a really good tool. Thanks for your effort.
>>>   However, I found the utf8 strings are not correctly shown when I ran 
>>>some multilingual programs.
>>>   For example, I have a sh shell script (output.sh) which just outputs 
>>>some French strings:
>>>
>>>     #!/bin/sh
>>>locale
>>>echo "Recherche des correctifs recommandés..."
>>>
>>>I set my locales like this:
>>>LANG=fr_FR.UTF-8
>>>LC_CTYPE="fr_FR.UTF-8"
>>>LC_NUMERIC="fr_FR.UTF-8"
>>>LC_TIME="fr_FR.UTF-8"
>>>LC_COLLATE="fr_FR.UTF-8"
>>>LC_MONETARY="fr_FR.UTF-8"
>>>LC_MESSAGES="fr_FR.UTF-8"
>>>LC_ALL=fr_FR.UTF-8
>>>But this is not my default locale, I just manually set it in my shell.
>>>
>>>When I use the following Perl code :
>>>use Expect;
>>>use Time::localtime;
>>>use utf8;
>>>
>>>my $exp = new Expect;
>>>my $Command = "output.sh";
>>>
>>>        $exp->raw_pty(1);
>>>        $exp->log_stdout(1);     # 0 to turn off the output of the 
>>>spawned comma
>>>        $Expect::Debug = 3;      # 1,2,3 for more verbose output^M
>>>        $Expect::Exp_Internal=1; # output pattern matching iion for expec
>>>        $exp->spawn($Command) or die "Cannot spawn $Command: $! \n 
>>>AutoEngine.pl
>>>end fail!";
>>>
>>>        $exp->soft_close() ;
>>>
>>>     I got the output like this:
>>>>perl test.pl
>>>LANG=fr_FR.UTF-8
>>>LC_CTYPE="fr_FR.UTF-8"
>>>LC_NUMERIC="fr_FR.UTF-8"
>>>LC_TIME="fr_FR.UTF-8"
>>>LC_COLLATE="fr_FR.UTF-8"
>>>LC_MONETARY="fr_FR.UTF-8"
>>>LC_MESSAGES="fr_FR.UTF-8"
>>>LC_ALL=fr_FR.UTF-8
>>>Recherche des correctifs recommandés...
>>>   A French character is not correctly shown.
>>>
>>>   Do you guys know what happens there? Maybe I failed to do some 
>>>required configuration? Please show me some hints.
>>>   Thanks a lot.
>>>
>>>
>>>Jun
>>>
>>>
>>>
>>>
>>>-------------------------------------------------------
>>>This SF.Net email is sponsored by Yahoo.
>>>Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
>>>Search APIs Find out how you can build Yahoo! directly into your own
>>>Applications - visit 
>>>http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
>>>_______________________________________________
>>>Expectperl-discuss mailing list
>>>Exp...@li...
>>>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>>
>>
>>
>>
>>-------------------------------------------------------
>>This SF.Net email is sponsored by Yahoo.
>>Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
>>Search APIs Find out how you can build Yahoo! directly into your own
>>Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
>>_______________________________________________
>>Expectperl-discuss mailing list
>>Exp...@li...
>>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>
>
>
>
>-------------------------------------------------------
>This SF.Net email is sponsored by Yahoo.
>Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
>Search APIs Find out how you can build Yahoo! directly into your own
>Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
>_______________________________________________
>Expectperl-discuss mailing list
>Exp...@li...
>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

Hi, there
  I figured out a workaround for this issue:

In the Expect.pm code, I added some code to convert buffer to utf8 strings:

          # read in what we found.
          my $buffer;
          my $nread = sysread($exp, $buffer, 2048);

        # Jun Ma added
        if(is_utf8($buffer)) {
                print STDOUT  "yes"  ;
        } else {
                print STDOUT "no" ;
                $buffer = decode("utf8", $buffer) ;
        }

Now, it works well.

Thanks
Jun
>From: "jun ma" <maj...@ho...>
>To: exp...@li...
>CC: RGi...@cp..., as...@us...
>Subject: RE: [Expectperl-discuss] A question about utf8 with Expect.pm
>Date: Fri, 03 Jun 2005 00:07:51 +0000
>
>Actually, I wonder Expect.pm maybe does not handle the utf8 properly. I am 
>using perl 5.8, which is natively supporting utf8;
>
>In the Expect.pm, I add some code in the _print_handler function.
>  if(is_utf8($print_this)) {
>        print STDOUT  "yes"  ;
>  } else {
>        print STDOUT "no" ;
>  }
>
>I got the following result:
>vanrdsol68 jma/autoinstall> perl test.pl
>noLANG=fr_FR.UTF-8
>LC_CTYPE="fr_FR.UTF-8"
>LC_NUMERIC="fr_FR.UTF-8"
>LC_TIME="fr_FR.UTF-8"
>LC_COLLATE="fr_FR.UTF-8"
>noLC_MONETARY="fr_FR.UTF-8"
>LC_MESSAGES="fr_FR.UTF-8"
>LC_ALL=fr_FR.UTF-8
>noRecherche des correctifs recommand&Atilde;&copy;s...
>
>As you saw, the "no" means that print_this is not a utf8 string.
>
>So, I converted the string to utf8 by decode funtion.
>$print_this = decode("utf8",$print_this) ;
>
>This time, I got:
>vanrdsol68 jma/autoinstall> perl test.pl
>noLANG=fr_FR.UTF-8
>LC_CTYPE="fr_FR.UTF-8"
>LC_NUMERIC="fr_FR.UTF-8"
>LC_TIME="fr_FR.UTF-8"
>LC_COLLATE="fr_FR.UTF-8"
>yesLC_MONETARY="fr_FR.UTF-8"
>LC_MESSAGES="fr_FR.UTF-8"
>LC_ALL=fr_FR.UTF-8
>Recherche des correctifs recommand¨¦s...
>
>See, it is yes, and the french character is correct.
>
>But the expect function is not tried by me now. So, I do not know if the 
>expect function can work with this way.
>
>>From: "jun ma" <maj...@ho...>
>>To: exp...@li...
>>Subject: [Expectperl-discuss] A question about utf8 with Expect.pm
>>Date: Thu, 02 Jun 2005 23:59:47 +0000
>>
>>   I am using the Expect.pm to do some automation tasks on Solaris 5.9. It 
>>is a really good tool. Thanks for your effort.
>>   However, I found the utf8 strings are not correctly shown when I ran 
>>some multilingual programs.
>>   For example, I have a sh shell script (output.sh) which just outputs 
>>some French strings:
>>
>>     #!/bin/sh
>>locale
>>echo "Recherche des correctifs recommandés..."
>>
>>I set my locales like this:
>>LANG=fr_FR.UTF-8
>>LC_CTYPE="fr_FR.UTF-8"
>>LC_NUMERIC="fr_FR.UTF-8"
>>LC_TIME="fr_FR.UTF-8"
>>LC_COLLATE="fr_FR.UTF-8"
>>LC_MONETARY="fr_FR.UTF-8"
>>LC_MESSAGES="fr_FR.UTF-8"
>>LC_ALL=fr_FR.UTF-8
>>But this is not my default locale, I just manually set it in my shell.
>>
>>When I use the following Perl code :
>>use Expect;
>>use Time::localtime;
>>use utf8;
>>
>>my $exp = new Expect;
>>my $Command = "output.sh";
>>
>>        $exp->raw_pty(1);
>>        $exp->log_stdout(1);     # 0 to turn off the output of the spawned 
>>comma
>>        $Expect::Debug = 3;      # 1,2,3 for more verbose output^M
>>        $Expect::Exp_Internal=1; # output pattern matching iion for expec
>>        $exp->spawn($Command) or die "Cannot spawn $Command: $! \n 
>>AutoEngine.pl
>>end fail!";
>>
>>        $exp->soft_close() ;
>>
>>     I got the output like this:
>>>perl test.pl
>>LANG=fr_FR.UTF-8
>>LC_CTYPE="fr_FR.UTF-8"
>>LC_NUMERIC="fr_FR.UTF-8"
>>LC_TIME="fr_FR.UTF-8"
>>LC_COLLATE="fr_FR.UTF-8"
>>LC_MONETARY="fr_FR.UTF-8"
>>LC_MESSAGES="fr_FR.UTF-8"
>>LC_ALL=fr_FR.UTF-8
>>Recherche des correctifs recommandés...
>>   A French character is not correctly shown.
>>
>>   Do you guys know what happens there? Maybe I failed to do some required 
>>configuration? Please show me some hints.
>>   Thanks a lot.
>>
>>
>>Jun
>>
>>
>>
>>
>>-------------------------------------------------------
>>This SF.Net email is sponsored by Yahoo.
>>Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
>>Search APIs Find out how you can build Yahoo! directly into your own
>>Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
>>_______________________________________________
>>Expectperl-discuss mailing list
>>Exp...@li...
>>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
>
>
>
>
>-------------------------------------------------------
>This SF.Net email is sponsored by Yahoo.
>Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
>Search APIs Find out how you can build Yahoo! directly into your own
>Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
>_______________________________________________
>Expectperl-discuss mailing list
>Exp...@li...
>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

Actually, I wonder Expect.pm maybe does not handle the utf8 properly. I am 
using perl 5.8, which is natively supporting utf8;

In the Expect.pm, I add some code in the _print_handler function.
  if(is_utf8($print_this)) {
        print STDOUT  "yes"  ;
  } else {
        print STDOUT "no" ;
  }

I got the following result:
vanrdsol68 jma/autoinstall> perl test.pl
noLANG=fr_FR.UTF-8
LC_CTYPE="fr_FR.UTF-8"
LC_NUMERIC="fr_FR.UTF-8"
LC_TIME="fr_FR.UTF-8"
LC_COLLATE="fr_FR.UTF-8"
noLC_MONETARY="fr_FR.UTF-8"
LC_MESSAGES="fr_FR.UTF-8"
LC_ALL=fr_FR.UTF-8
noRecherche des correctifs recommandés...

As you saw, the "no" means that print_this is not a utf8 string.

So, I converted the string to utf8 by decode funtion.
$print_this = decode("utf8",$print_this) ;

This time, I got:
vanrdsol68 jma/autoinstall> perl test.pl
noLANG=fr_FR.UTF-8
LC_CTYPE="fr_FR.UTF-8"
LC_NUMERIC="fr_FR.UTF-8"
LC_TIME="fr_FR.UTF-8"
LC_COLLATE="fr_FR.UTF-8"
yesLC_MONETARY="fr_FR.UTF-8"
LC_MESSAGES="fr_FR.UTF-8"
LC_ALL=fr_FR.UTF-8
Recherche des correctifs recommand¨¦s...

See, it is yes, and the french character is correct.

But the expect function is not tried by me now. So, I do not know if the 
expect function can work with this way.

>From: "jun ma" <maj...@ho...>
>To: exp...@li...
>Subject: [Expectperl-discuss] A question about utf8 with Expect.pm
>Date: Thu, 02 Jun 2005 23:59:47 +0000
>
>   I am using the Expect.pm to do some automation tasks on Solaris 5.9. It 
>is a really good tool. Thanks for your effort.
>   However, I found the utf8 strings are not correctly shown when I ran 
>some multilingual programs.
>   For example, I have a sh shell script (output.sh) which just outputs 
>some French strings:
>
>     #!/bin/sh
>locale
>echo "Recherche des correctifs recommandés..."
>
>I set my locales like this:
>LANG=fr_FR.UTF-8
>LC_CTYPE="fr_FR.UTF-8"
>LC_NUMERIC="fr_FR.UTF-8"
>LC_TIME="fr_FR.UTF-8"
>LC_COLLATE="fr_FR.UTF-8"
>LC_MONETARY="fr_FR.UTF-8"
>LC_MESSAGES="fr_FR.UTF-8"
>LC_ALL=fr_FR.UTF-8
>But this is not my default locale, I just manually set it in my shell.
>
>When I use the following Perl code :
>use Expect;
>use Time::localtime;
>use utf8;
>
>my $exp = new Expect;
>my $Command = "output.sh";
>
>        $exp->raw_pty(1);
>        $exp->log_stdout(1);     # 0 to turn off the output of the spawned 
>comma
>        $Expect::Debug = 3;      # 1,2,3 for more verbose output^M
>        $Expect::Exp_Internal=1; # output pattern matching iion for expec
>        $exp->spawn($Command) or die "Cannot spawn $Command: $! \n 
>AutoEngine.pl
>end fail!";
>
>        $exp->soft_close() ;
>
>     I got the output like this:
>>perl test.pl
>LANG=fr_FR.UTF-8
>LC_CTYPE="fr_FR.UTF-8"
>LC_NUMERIC="fr_FR.UTF-8"
>LC_TIME="fr_FR.UTF-8"
>LC_COLLATE="fr_FR.UTF-8"
>LC_MONETARY="fr_FR.UTF-8"
>LC_MESSAGES="fr_FR.UTF-8"
>LC_ALL=fr_FR.UTF-8
>Recherche des correctifs recommandés...
>   A French character is not correctly shown.
>
>   Do you guys know what happens there? Maybe I failed to do some required 
>configuration? Please show me some hints.
>   Thanks a lot.
>
>
>Jun
>
>
>
>
>-------------------------------------------------------
>This SF.Net email is sponsored by Yahoo.
>Introducing Yahoo! Search Developer Network - Create apps using Yahoo!
>Search APIs Find out how you can build Yahoo! directly into your own
>Applications - visit http://developer.yahoo.net/?fr=offad-ysdn-ostg-q22005
>_______________________________________________
>Expectperl-discuss mailing list
>Exp...@li...
>https://lists.sourceforge.net/lists/listinfo/expectperl-discuss

   I am using the Expect.pm to do some automation tasks on Solaris 5.9. It 
is a really good tool. Thanks for your effort.
   However, I found the utf8 strings are not correctly shown when I ran some 
multilingual programs.
   For example, I have a sh shell script (output.sh) which just outputs some 
French strings:

     #!/bin/sh
locale
echo "Recherche des correctifs recommandés..."

I set my locales like this:
LANG=fr_FR.UTF-8
LC_CTYPE="fr_FR.UTF-8"
LC_NUMERIC="fr_FR.UTF-8"
LC_TIME="fr_FR.UTF-8"
LC_COLLATE="fr_FR.UTF-8"
LC_MONETARY="fr_FR.UTF-8"
LC_MESSAGES="fr_FR.UTF-8"
LC_ALL=fr_FR.UTF-8
But this is not my default locale, I just manually set it in my shell.

When I use the following Perl code :
use Expect;
use Time::localtime;
use utf8;

my $exp = new Expect;
my $Command = "output.sh";

        $exp->raw_pty(1);
        $exp->log_stdout(1);     # 0 to turn off the output of the spawned 
comma
        $Expect::Debug = 3;      # 1,2,3 for more verbose output^M
        $Expect::Exp_Internal=1; # output pattern matching iion for expec
        $exp->spawn($Command) or die "Cannot spawn $Command: $! \n 
AutoEngine.pl
end fail!";

        $exp->soft_close() ;

     I got the output like this:
>perl test.pl
LANG=fr_FR.UTF-8
LC_CTYPE="fr_FR.UTF-8"
LC_NUMERIC="fr_FR.UTF-8"
LC_TIME="fr_FR.UTF-8"
LC_COLLATE="fr_FR.UTF-8"
LC_MONETARY="fr_FR.UTF-8"
LC_MESSAGES="fr_FR.UTF-8"
LC_ALL=fr_FR.UTF-8
Recherche des correctifs recommandés...
   A French character is not correctly shown.

   Do you guys know what happens there? Maybe I failed to do some required 
configuration? Please show me some hints.
   Thanks a lot.


Jun