Perl Expect send array

[ruud]

I am having a logfile called "log".
I am reading the whole logfile into an array:

open (FPTR,"/home/ruud/log");
@logfile = <FPTR>;

When i do print "@logfile"; i get the correct output.
But when i want to send the log to an (internal) newsgroup like this:

$exp->send ("@logfile");
It adds between every line an enter (\n)

Is there a way to work around that ?

 

[Anno Siegel]

I am having a logfile called "log".
I am reading the whole logfile into an array:

open (FPTR,"/home/ruud/log");
@logfile = <FPTR>;

When i do print "@logfile"; i get the correct output.
But when i want to send the log to an (internal) newsgroup like this:

$exp->send ("@logfile");
It adds between every line an enter (\n)

Is there a way to work around that ?

perldoc -f chomp

Anno

 

[ruud]

perldoc -f chomp

Thank you for the help, it's working now.