convert text

[noyk]

Hi, i'm trying to write a script to read this

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

and convert into this

YAL044W-A 0000004, 0005554, 0008372

unfortunately, this is as far as i get

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

thanks for any help

 

[feherke]

Hi

For your sample input this is enough :

perl -pae 'chomp;s/^$p +/, /;$p=$F[0]' infile.txt > outputfile.txt

If it not gives what you want, you should give us more details about the input.

Feherke.

http://free.rootshell.be/~feherke/

 

[noyk]

thanks.

my infile would be somethiing like this

3834_t: g3498.t1
3834_t: ghmm.1
3835_t: g3499.t1
3835_t: g3500.t1
3835_t: ghmm.2
3835_t: ghmm.3
3836_t: g3500.t1
3836_t: ghmm.3
3836_t: ghmm.4

your one-liner works fine, just that i will need each key on a new line.

 

[feherke]

Hi

You did not tried to change the code to fit your requirement, right ?

perl -pae 'chomp;[highlight]print"\n"if$p&&$p ne$F[0];[/highlight]s/^$p +/, /;$p=$F[0]' infile.txt > outputfile.txt

Feherke.

http://free.rootshell.be/~feherke/

 

[noyk]

ok, thanks.

I was actually trying to do it the oppposite way

perl -pae 's/^$p +/, /;$p=$F[0]' infile.txt | sed "s/\n,/,/g" >outputfile.txt

doesnt work though.

btw, what is $F[0]' and -pae ?

 

[feherke]

Hi

btw, what is $F[0]' and -pae ?

See man perlrun | Command Switches for the complete description, or [tt]perl --help[/tt] for a short list.

Feherke.

http://free.rootshell.be/~feherke/