How do i read each line of the file into string?

[anjaana78]

I have a text file that has one word per line.... now i have to read that file into a string and also add a comma after each word. for example the text file is gonna look something like this... tariq rashid mike mushi and i have to get the output something like this tariq, rashid, mike, mushi thanks for your help in advance....

[alfie]

open (FILE, "<my_file") || die "can't open my_file: $!";
my @stuff = <FILE>;   # get whole file into array
close(FILE);
chomp @stuff;         # cut out trailing newlines
my $string = join(', ', @stuff);  # join to one string
undef @stuff;         # clean up behind us

[koolade]

my $string;

# Open the file
open(FILE, "$file_name") or die "could not open $file_name : $!";

# Iterate over each line of the file
while (<FILE>) {

  # Take off trailing newline
  chomp;

  # Append line and comma to the string
  $string .= "$_,";
}

# Close the file
close(FILE);

# Chop off trailing comma
chop $string;

[knobunc]

use IO::File;

my $fh = IO::File->new("<$filename")
    or die "Unable to open $filename: $!";

my $string =
    join(", ",
         map({ chomp; $_ }
             $fh->getlines)
         );

$fh->close;

[jeroenes]

If you have enough RAM:

undef $/;
$file = <>;
s/\s*\n/,/s;  #catches spaces as well.
print;

If not:

chomp; print; print ',' while ( <> );

(I didn't worry about trailing comma's)

Jeroen
"We are not alone"(FZ)