Shell Programming and Scripting

#!/usr/bin/env ksh

awk -v RS=">" '                      # we dont need closing tag mark; make it the record seperator
        /Percent/ {                    # data we are interested in has this field
                data = 0;
                gsub( " = ", "=" );             # easier to work with if there are no spaces round equal signs
                gsub( "\"", "" );               # for this case we dont expect blanks in the value so ditch quote marks
                for( i = 1; i < NF; i ++ )     # for each token that is var=value
                {
                        if( (x = split( $(i), a, "=" )) == 2 )   # split and save the value
                        {
                                data++;           # may not be necessary, but safe
                                var[a[1]] = a[2];
                        }
                }

                if( data )                    # if we saw data, print it
                {
                        printf( "%c %6.3f %6.3f%%\n", 65+idx, var["Price"], var["Percent"]);
                        idx++;
                }
        }' <current.xml

#!/usr/bin/env ksh

awk -v RS=">" '

        function snarf_vars( )           # capture all name=value pairs on the current line. 
        {
                delete var;
                gsub( " = ", "=" );             # easier to deal without spaces
                for( i = 1; i <= NF; i ++ )
                {
                        if( (x = split( $(i), a, "=" )) == 2 )
                        {
                                $(i) = a[2];
                                for( ; i <= NF; i++ )     # snarf up all tokens in the quotes
                                {
                                        var[a[1]] = var[a[1]] $(i) " ";    # capture next token
                                        if( match( $(i), /"$/ ) )             # this has ending quote 
                                        {
                                                gsub( "\"", "", var[a[1]] );  # one replace of all quotes (does not handle escaped quotes)
                                                break;
                                        }
                                }
                        }
                }
        }

        /DateTime/{
                snarf_vars();
                printf( "%s \n", var["DateTime"] );
        }

        /Percent/ {
                snarf_vars();
                if( var["Price"] )
                        printf( "%c %6.3f %6.3f%%\n", 65+(idx++), var["Price"], var["Percent"]);
        }' <test.xml

awk -F\" '{for(i=1;++i<NF;){if($i~"Percent"){x=$(i+1)}if($i~"Price"){printf "%c: %s (%s %s)\n",65+_,$(i+1),"%",x;_++}}}' endeks.asp
A: 64.264 (% 0.22)
B: 81.470 (% 0.42)
C: 1.4840 (% -0.60)
D: 1.9840 (% 1.28)