Help please

Hi all i'm newbye
i need to do i little PERL script but i have not study PERL.
i need it in my university thesys... someone can help me??

this is my script but it's incomplete:

#!/usr/bin/perl
#use lib /root/.cpan/build;
use Net::SSH::Perl;
my $host="10.5.0.254";
my $user="admin";
my $pass="cisco";
my $cmd="show spanning-tree summary | begin vlan";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);


i need the output is saved in a txt file. How i can do???


thank u all for your help.

Can't you just print it to a file?

Now i have
Print $stdout

But i need to save the output in a file before so i can add other comands such as GREP and AWK

I do not see:



in your code in the first post.

Where do you have it. Please post a more complete code snippet, at this point seem things seem to be missing.

If you want to print to a file:
1. first open the file

;

2. Then, whenever you want to print to the file:



3. Don't forget to close the file before you try to awk or grep it:

Since perl can perform all the functions of grep and awk without calling them, you would probably find it worthwhile to learn the language and do the whole job that way.