edit text file

[noyk]

How do i change this

YAL044W-A 0000004, 0005554, 0008372

to this?

YAL044W-A 0000004
YAL044W-A 0005554
YAL044W-A 0008372

it doesnt have to be programmatic if there is a way doing it using 'replace with' function in any text editor

Thanks a lot

 

[PaulTEG]

read in your line
split it
write out the requisite lines

open FH, "<infile.txt" or die $!;
open OF, ">outputfile.txt";
while (<FH>) {
  ($key, @values)=split /\s+/, $_;
  foreach (@values) {
    print OF, "$key\t$_";
  }
}

You may wish to get rid of the commas, but I'll leave that up to you ...

NOT TESTED
}

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[noyk]

can you explain these lines

<code>
while (<FH>) {
($key, @values)=split /\s+/, $_;
foreach (@values) {
print OF, "$key\t$_";
}
</code>

 

[PaulTEG]

while (<FH>) {       # read the file, line by line into $_
  ($key, @values)=split /\s+/, $_; set $key to the first item in the line, and the rest of the values gathered by the split get dumped into the array
  foreach (@values) { # traverse the array, and output the key value, and each item in the array on a seperate line
    print OF, "$key\t$_";
  }
}

HTH

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)