Re: [Expectperl-discuss] parsing non-ascii char's

[<db...@CT...>]

Generally speaking, those characters shouldn't be a problem; just ignore
them.  I'm assuming you're just interested in the printable stuff.

My approach is to match on one line at a time, and then parse that match
(an arbitrary line) for the desired info, only because it's what I'm used
to.  In the Tcl version, this keeps the expect buffers flushing as you look
for your match and this simulates more of a perlish feel.  That's just
personal preference.  The point really is just parse out what you need and
forget the rest.

For the purpose of illustration, I'll assume you are looking for MAC
addresses and ports they're on.  So for each line where we see something
that looks like a mac address followed by "Port: ", parse this stuff out
and print it to stdout:

#!/usr/local/bin/perl

use Expect;

$Expect::Log_Stdout=0;

$session = Expect->spawn("/bin/cat /tmp/mac.txt");
$timeout = 10;

expect($timeout,
    '-i',  $session,
    '-re', "([^\r\n]+)[\r\n]+", sub {
        my $line = ($session->matchlist)[0];
        if ($line =~ /(..-..-..-..-..-..).*Port:\s+(\d+)/) {
            print "mac $1 found on port $2\n";
        }
        exp_continue;
    }
);

I simply spawned a "cat" of the snippet of Catalyst output you included
with your email to simulate the effect, but obviously this would be
replaced with the login sequence and telnet specifics of a real session.  I
didn't bother doing the shift in the sub { } portion of code because I'm
assuming that $session is the only object you have (i.e., you have spawned
only one telnet to Catalyst switch).  You can use fancier patterns if you
feel it's warranted to eliminate ambiguity but that would be up to you.

Hope this helps,

David Basham
CTC Communications




                                                                                                                           
                    John Mahoney                                                                                           
                    <ex...@h0...t        To:     exp...@li...           
                    bi.com>                                     cc:                                                        
                    Sent by:                                    Subject:     [Expectperl-discuss] parsing non-ascii char's 
                    exp...@li...urc                                                                   
                    eforge.net                                                                                             
                                                                                                                           
                                                                                                                           
                    04/08/2003 08:38 AM                                                                                    
                                                                                                                           
                                                                                                                           




Could use some tips on how to handle/translate non-ascii
char's.

I am using Expect.pm v 1.15
           perl, v5.6.1
running on a Solaris 8 box.

I am using expect to log into Nortel switches and I want
to gather the forwarding database and vlan info.

When I simply telnet into a switch, I can see the
terminal screen cleared and then get text that looks
like:
                MAC Address Table

      Aging Time:                [ 300 seconds ]
      Find an Address:           [ 00-00-00-00-00-00 ]
      Fast Aging:                [ Enabled  ]

    00-00-86-1D-BF-BF             Port: 11
    00-00-86-4D-68-D4             Port:  1
etc,
BUT it's really one long line with lots of special
char's in it.

I've tried several things including adding the line
   $exp->raw_pty(1);
but, so far, I've been disappointed. I'm wondering if I
can get Expect, IO:Stty, and/or IO:Tty to send me text
that's easier to parse.

--
Thx
John Mahoney
ex...@h0...



-------------------------------------------------------
This SF.net email is sponsored by: ValueWeb:
Dedicated Hosting for just $79/mo with 500 GB of bandwidth!
No other company gives more support or power for your dedicated server
http://click.atdmt.com/AFF/go/sdnxxaff00300020aff/direct/01/
_______________________________________________
Expectperl-discuss mailing list
Exp...@li...
https://lists.sourceforge.net/lists/listinfo/expectperl-discuss