perl problem

JJX · 10-10-2005, 05:58 AM

I am trying to create my first perl scripts...

Quote:

#!/usr/bin/perl

my $i= `rlogin 192.168.0.1 -l admin -p 22 --exec '..<command>....'` ;
print $i;
my $x = `$i | awk '{print $10}'`;
print $x;

my $x = `$input | awk '{print $10}'`;

this command is wrong! how can i filter the $input text??

thx

bigearsbilly · 10-10-2005, 07:48 AM

why are you calling awk from perl !?!?!?!?!

try something like this:

Code:

#!/usr/bin/perl

open OUT, "/bin/ls -l |" or die;

# print first and 9th field

while (<OUT>) {

    @line = split;
    print "$line[0], $line[8]\n";
}