Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Expect, STDout, and formating

by cbro (Pilgrim)
on Jun 12, 2003 at 21:03 UTC ( #265498=note: print w/replies, xml ) Need Help??

in reply to Expect, STDout, and formating

Here's an example that you can port to your code:
use Expect; $exp = new Expect; $exp->log_stdout(0); $exp->log_file(\&formatoutput); $exp->spawn("/bin/sh"); $exp->send("/bin/cat /etc/passwd\n"); $exp->soft_close(); sub formatoutput { my $input = shift; # format however you'd like # e.g. $input =~ s/\$//g; # That will get rid of the $ output and leave you with # only data. You will also need to get rid of the # commands as they too will be passed to this function. # By that I mean /bin/cat /etc/passwd # You can do all types of good stuff for additional # formatting such as formline or format STDOUT_TOP = print STDOUT "\n\n$input\n\n"; # or if you used formline print STDOUT "$^A", etc. # but I'll leave the particulars to you. return; }

Update:changed $output to $input in the print STDOUT statement...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://265498]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2017-07-21 13:55 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (324 votes). Check out past polls.