Modifying text file

[torres09]

Hi

I have a text file , so I want to convert that text file such that each word has a comma following it. please help

[toolic]

Here is one way to get started using s///

use warnings;
use strict;

while (<DATA>) {
    s/(\w+)/$1,/g;
    print;
}

__DATA__
This is a word.
Here is another sentence.

Prints:

This, is, a, word,.
Here, is, another, sentence,.

See also perlintro

[torres09]

hey I have extracted my text file into an array by splitting it , so can I put it in a new array with each word terminated by comma , If we can plz tell me <\p>

[toolic]

Show the code that you have so far. Then we can make specific recommendations.

[torres09]

the problem I am having is say I have entry as -9.10 it will split it as -9,10 so it breaks one entity into two , but I want it to be a ......,-9.10,..... . so can you please help out

[Anonymous Monk]

So replace \w+ with something to match numbers (see perlfaq6)

better idea is to learn to use Text::CSV or App::CCSV

[hdb]

I am smelling an XY Problem. So here is some code that takes $text and creates an array @words containing all the words in $text. In addition, it adds a comma to each word, but my guess is, that you are not really interested in that...

use strict;
use warnings;

my $text = <<EOTEXT;
This is a word.
Here is another sentence.
EOTEXT

my @words = $text =~ /\b(\w+)\b/g;
print "@words\n";
$_.="," for @words;
print "@words\n";

Thanks to toolic for the sample text.

[torres09]

Sir

I actually want it , i.e. I want that each word in the text file should be in an array , with a comma in between .Even the spaces

[hdb]

Apologies if you perceived my answer as being patronizing.

If you want to split your text into words AND keep the spaces, split might be an alternative. Using a capture group in the regex in split, the delimiters are not discarded. So splitting on words will give you the words and the characters inbetween:

use strict;
use warnings;
use Data::Dumper;

my $text = <<EOTEXT;
This is a word.
Here is another sentence.
EOTEXT

my @words = split /\b(\w+)\b/, $text;
print Dumper \@words;

results in

$VAR1 = [
          '',
          'This',
          ' ',
          'is',
          ' ',
          'a',
          ' ',
          'word',
          '.
',
          'Here',
          ' ',
          'is',
          ' ',
          'another',
          ' ',
          'sentence',
          '.
'
        ];

[2teez]

Hi torres09,
Welcome to the Monastery.
Though you have been given a head up, I think it worth the note to check this How do I post a question effectively?.
And in addition to what has been given, you could also think of use the module Text::CSV or Text::CSV_XS

Update: Code to illustrate...

use warnings;
use strict;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new( { binary => 1, auto_diag => 1 } );

while (<DATA>) {
    for ( [split] ) {
        $csv->print( \*STDOUT, $_ );
        print $/;
    }
}

__DATA__
 Mary had a little lamb
 whose fleece was white as snow.

[space_monk]

Something like:

perl -pie 's/(\w+)/$1,/g' yourFile