blur has asked for the wisdom of the Perl Monks concerning the following question:
EDIT: Comments about adding script are duely noted
This is the awk command in question:
awk '{indel=0;for(i=5;i<=NF,i++) {if(i~/REF/){split(i,a,";");split(a[1],b.":");} if(i~/[+-]) {split(a[1],c,":");indel+=c[2]}} print $1"_"$2+1,indel}' > parsed_dataI think that the " and ; symbols are giving perl grief... but I might be wrong
I have other awk cmd that I'd need to use and these are much longer (I don't want to backslash twenty symbols...
Thanks to everyone for their help!
Blur
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: awk cmd in perl (non-interpolated literal strings)
by LanX (Saint) on Oct 11, 2018 at 13:23 UTC | |
by blur (Initiate) on Oct 14, 2018 at 07:27 UTC | |
|
Re: awk cmd in perl
by haukex (Archbishop) on Oct 11, 2018 at 13:59 UTC | |
|
Re: awk cmd in perl
by kcott (Archbishop) on Oct 12, 2018 at 09:14 UTC | |
|
Re: awk cmd in perl
by Laurent_R (Canon) on Oct 11, 2018 at 21:47 UTC | |
|
Re: awk cmd in perl [Solution 2: no escaping]
by kcott (Archbishop) on Oct 12, 2018 at 09:32 UTC | |
|
Re: awk cmd in perl
by Anonymous Monk on Oct 11, 2018 at 16:20 UTC |