pick up the number in the brackets....awk way..

Hi, I have this sample data(from cobol fd) pic(13)v99 x(14)v99 pic(8) pic(9)v99 like...... it runs into 300 lines... i want to calculate the characters per field used and upto the line... from the above i want an output like this.. -------------- ln totupto ------------- 15 15 16 31 8 39 11 50 ....... tha is I want to pickup the number in the brackets add with the decimal chars. For the first line it is 13+2=15 and each line is summed upto that line i wrote code like this... awk -F"(" '{print $2}' .........but it gave the result as 13)v99 14)v99 8) 9)v99

On Apr 14, 9:58=A0pm, nag <visit...@gmail.com> wrote: > Hi, > > I have this sample data(from cobol fd) > pic(13)v99 > x(14)v99 > pic(8) > pic(9)v99 > like...... it runs into 300 lines... > > i want to calculate the characters per field used and upto the line... > > from the above i want an output like this.. > -------------- > ln =A0 totupto > ------------- > 15 =A0 15 > 16 =A0 31 > 8 =A0 =A0 39 > 11 =A0 50 > ...... > > tha is I want to pickup the number in the brackets add with the > decimal chars. For the first line it is 13+2=3D15 and each line is > summed upto that line > > i wrote code like this... > > awk -F"(" '{print $2}' .........but it gave the result as > > 13)v99 > 14)v99 > 8) > 9)v99 awk -F '[^[:digit:]]+' '{ln=3D$2+length($3); tot+=3Dln; print ln,tot}' file

nag escribi�: > Hi, > > I have this sample data(from cobol fd) > pic(13)v99 > x(14)v99 > pic(8) > pic(9)v99 > like...... it runs into 300 lines... > > i want to calculate the characters per field used and upto the line... > > from the above i want an output like this.. > -------------- > ln totupto > ------------- > 15 15 > 16 31 > 8 39 > 11 50 > ...... > > > that is I want to pickup the number in the brackets add with the > decimal chars. For the first line it is 13+2=15 and each line is > summed upto that line > > i wrote code like this... > > awk -F"(" '{print $2}' .........but it gave the result as > > 13)v99 > 14)v99 > 8) > 9)v99 Please try: BEGIN { FS="[()]" } { digits = match($NF,/[0-9]+/) ? RLENGTH : 0 print $2 "+" digits, field=$2+digits, line+=field } With your data, it gives: 13+2 15 15 14+2 16 31 8+0 8 39 9+2 11 50 -- Manuel Collado - http://lml.ls.fi.upm.es/~mcollado

On Apr 15, 5:33=A0pm, Ed Morton <mortons...@gmail.com> wrote: > On Apr 14, 9:58=A0pm, nag <visit...@gmail.com> wrote: > > > > > Hi, > > > I have this sample data(from cobol fd) > > pic(13)v99 > > x(14)v99 > > pic(8) > > pic(9)v99 > > like...... it runs into 300 lines... > > > i want to calculate the characters per field used and upto the line... > > > from the above i want an output like this.. > > -------------- > > ln =A0 totupto > > ------------- > > 15 =A0 15 > > 16 =A0 31 > > 8 =A0 =A0 39 > > 11 =A0 50 > > ...... > > > tha is I want to pickup the number in the brackets add with the > > decimal chars. For the first line it is 13+2=3D15 and each line is > > summed upto that line > > > i wrote code like this... > > > awk -F"(" '{print $2}' .........but it gave the result as > > > 13)v99 > > 14)v99 > > 8) > > 9)v99 > > awk -F '[^[:digit:]]+' '{ln=3D$2+length($3); tot+=3Dln; print ln,tot}' fi= le what the field separator tells here ([:digit:]]+ ). The + sign for what?

Wed, 15 Apr 2009 09:52:03 -0700, nag did cat : > On Apr 15, 5:33 pm, Ed Morton <mortons...@gmail.com> wrote: >> On Apr 14, 9:58 pm, nag <visit...@gmail.com> wrote: >> >> >> >> > Hi, >> >> > I have this sample data(from cobol fd) pic(13)v99 >> > x(14)v99 >> > pic(8) >> > pic(9)v99 >> > like...... it runs into 300 lines... >> >> > i want to calculate the characters per field used and upto the >> > line... >> >> > from the above i want an output like this.. -------------- >> > ln totupto >> > ------------- >> > 15 15 >> > 16 31 >> > 8 39 >> > 11 50 >> > ...... >> >> > tha is I want to pickup the number in the brackets add with the >> > decimal chars. For the first line it is 13+2=15 and each line is >> > summed upto that line >> >> > i wrote code like this... >> >> > awk -F"(" '{print $2}' .........but it gave the result as >> >> > 13)v99 >> > 14)v99 >> > 8) >> > 9)v99 >> >> awk -F '[^[:digit:]]+' '{ln=$2+length($3); tot+=ln; print ln,tot}' file > > what the field separator tells here ([:digit:]]+ ). The + sign for what? the plus is a repeater, means "one or more iterations of previous group" the group here is "any non digit" in the given example that's akin to: awk -F '[()v]+'

On Apr 15, 5:33=A0pm, m.coll...@domain.invalid wrote: > nag escribi=F3: > > > > > Hi, > > > I have this sample data(from cobol fd) > > pic(13)v99 > > x(14)v99 > > pic(8) > > pic(9)v99 > > like...... it runs into 300 lines... > > > i want to calculate the characters per field used and upto the line... > > > from the above i want an output like this.. > > -------------- > > ln =A0 totupto > > ------------- > > 15 =A0 15 > > 16 =A0 31 > > 8 =A0 =A0 39 > > 11 =A0 50 > > ...... > > > that is I want to pickup the number in the brackets add with the > > decimal chars. For the first line it is 13+2=3D15 and each line is > > summed upto that line > > > i wrote code like this... > > > awk -F"(" '{print $2}' .........but it gave the result as > > > 13)v99 > > 14)v99 > > 8) > > 9)v99 > > Please try: > > BEGIN { FS=3D"[()]" } > { > =A0 =A0 digits =3D match($NF,/[0-9]+/) ? RLENGTH : 0 > =A0 =A0 print $2 "+" digits, field=3D$2+digits, line+=3Dfield > > } > > With your data, it gives: > > 13+2 15 15 > 14+2 16 31 > 8+0 8 39 > 9+2 11 50 > > -- > Manuel Collado -http://lml.ls.fi.upm.es/~mcollado Thank you alot it gave me required result... but here when you are defining FS =3D "[()]", i understood that here fs is (), then how it is taking the digits in the brackets as $2?

nag wrote: > On Apr 15, 5:33 pm, m.coll...@domain.invalid wrote: > >>nag escribi�: >> >> >> >> >>>Hi, >> >>>I have this sample data(from cobol fd) >>>pic(13)v99 >>>x(14)v99 >>>pic(8) >>>pic(9)v99 >>>like...... it runs into 300 lines... >> >>>i want to calculate the characters per field used and upto the line... >> >>>from the above i want an output like this.. >>>-------------- >>>ln totupto >>>------------- >>>15 15 >>>16 31 >>>8 39 >>>11 50 >>>...... >> >>>that is I want to pickup the number in the brackets add with the >>>decimal chars. For the first line it is 13+2=15 and each line is >>>summed upto that line >> >>>i wrote code like this... >> >>>awk -F"(" '{print $2}' .........but it gave the result as >> >>>13)v99 >>>14)v99 >>>8) >>>9)v99 >> >>Please try: >> >>BEGIN { FS="[()]" } >>{ >> digits = match($NF,/[0-9]+/) ? RLENGTH : 0 >> print $2 "+" digits, field=$2+digits, line+=field >> >>} >> >>With your data, it gives: >> >>13+2 15 15 >>14+2 16 31 >>8+0 8 39 >>9+2 11 50 >> >>-- >>Manuel Collado -http://lml.ls.fi.upm.es/~mcollado > > > Thank you alot it gave me required result... > > but here when you are defining FS = "[()]", i understood that here fs > is (), No. Here FS is either ( or ). > then how it is taking the digits in the brackets as $2? For example, in pic(13)v99 you have two delimiters, ( and ), that separate the parts 'pic' ($1), '12' ($2), and v99 ($3). Janis

Similiar Articles:

pick up the number in the brackets....awk way.. - comp.lang.awk ...
Hi, I have this sample data(from cobol fd) pic(13)v99 x(14)v99 pic(8) pic(9)v99 like..... it runs into 300 lines... i want to calculate the characters per field used ...

change field separator - comp.lang.awk
pick up the number in the brackets....awk way.. - comp.lang.awk ... Change length of legend line sample? - comp.soft-sys.matlab ... pick up the number in the brackets ...

Counting comma seperated fields - comp.lang.awk
pick up the number in the brackets....awk way.. - comp.lang.awk ... Counting comma seperated fields - comp.lang.awk pick up the number in the brackets....awk way.. - comp ...

Change length of legend line sample? - comp.soft-sys.matlab ...
pick up the number in the brackets....awk way.. - comp.lang.awk ... Change length of legend line sample? - comp.soft-sys.matlab ... pick up the number in the brackets ...

counting the digits in a number, exponential format problem - comp ...
... 3E-6) = strlen((float)3E-5) = strlen(0.000003) = 6 don't get hung up on the numbers ... is just not consistent at all. imho a function like strlen() should pick one way ...

change value and concatenate - comp.lang.awk
... my perception of "quick") way to write an awk script to do what he appears to want, nor is there enough information in the posting to pick ... concatenate variable number of ...

Finding common lines between text files - comp.unix.programmer ...
... tabs were inserted in the resulting file which ended up ... perl -lne 'print unless $seen{$_}++;' Or an awk one ... 0] == 0 { print } { x[$0] += 1} The straightforward way ...

Converting date to serial date (Beginner problem) - comp.soft-sys ...
I want the results to end up in the 'time' vector ... having problems here to since I cannot find a way ... Convert DATE to NUMBER - comp.lang.awk Converting date to serial date ...

Which Bluetooth adapter to choose? - comp.sys.laptops.thinkpad ...
Going by my experience with IBM / Lenovo part numbers the ... around an annoyance in the Nano Editor # cat | awk ... wiring - comp.home.automation If you should pick up too ...

Random number in Fortran 90/95 - comp.lang.fortran
You can try this way. Hope it helps. Ndl module m ... saw your later mention of coarrays, I didn't pick up ... numbers from FORTRAN - comp.lang.awk... lang.awk Random number ...

change field separator - comp.lang.awk | Computer Group
pick up the number in the brackets....awk way.. - comp.lang.awk ... Change length of legend line sample? - comp.soft-sys.matlab ... pick up the number in the brackets ...

7/25/2012 11:30:47 AM