output of a remote telnet command

[mike]

hi
i have a perl listing like this

$command = qq(perl -e 'while ( </tmp/*.txt> ) { print STDOUT $_ if -s ; }' );
my $telnet = Net::Telnet-> new
(
Timeout => 30,
Host=> server
);
$telnet-> login($name, $pass);
@listing = $telnet-> cmd("$command");
$telnet->close;
print @listing;

the output of @listing gives me
/tmp/test.txt/tmp/test2.txtserver

how can i make it append a newline such that
/tmp/test.txt
/tmp/test2.txt
server

i tried to change my $command to
$command = qq(perl -e 'while ( </tmp/*.txt> ) { print STDOUT "$_\n" if -s ; }' )

but the @listing gives me

" if -s ; }'


thanks for any help

 

[Walter Roberson]

:i have a perl listing like this

:$command = qq(perl -e 'while ( </tmp/*.txt> ) { print STDOUT $_ if -s ; }' );
:my $telnet = Net::Telnet-> new
: (
: Timeout => 30,
: Host=> server
: );
: $telnet-> login($name, $pass);
: @listing = $telnet-> cmd("$command");
: $telnet->close;
rint @listing;

:the output of @listing gives me
:/tmp/test.txt/tmp/test2.txtserver

:how can i make it append a newline such that
:/tmp/test.txt
:/tmp/test2.txt
:server

Two ways:

print join( "\n", @listing ), "\n";

Or

{
local( $" = "\n" );
print @listing, "\n";
}

 

[Paul Lalli]

:the output of @listing gives me
:/tmp/test.txt/tmp/test2.txtserver

:how can i make it append a newline such that
:/tmp/test.txt
:/tmp/test2.txt
:server

{
local( $" = "\n" );
print @listing, "\n";
}

Correction - $" will not affect the printing of @listing in that example.
Either change $" to $, or change the print statement to
print "@listing\n";

Paul Lalli