Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Sorting lines between patterns in alphabetical order

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Sorting lines between patterns in alphabetical order
# 1  
Old 11-13-2012
Sorting lines between patterns in alphabetical order
Hi, need help in sorting lines between strings "<section status = “ole-service”>" and "</section>" in alphabetical order, based on the text in red. Hoping for an AWK or SED solution. Thank you.

Code:
...
  <section status = “ole-service”>...
  <p service = "OOO">XZZ</p>
  <p service = "AAA">AAA BBC</p>
  <p service = "XYZ">XYZ</p></section>
  ...
  <section status = “ole-service”>...
  <p service = "ABCD">ABC</p>
  <p service = "BDE">B-DE (FGH)</p>
  <p service = "XYZ">XY-YZ</p>
  <p service = "MNO">M-NO</p>
  <p service = "NOPQ">NOPQ</p>
  <p service = "BCD">BCDE</p>
  <p service = "ECM">eCM</p></section>
  ...

Should change to:


Code:
...
  <section status = “ole-service”>...
  <p service = "AAA">AAA BBC</p>
  <p service = "XYZ">XYZ</p>
  <p service = "OOO">XZZ</p></section>
  ...
  <section status = “ole-service”>...
  <p service = "ABCD">ABC</p>
  <p service = "BCD">BCDE</p>
  <p service = "BDE">B-DE (FGH) </p>
  <p service = "ECM">eCM</p>
  <p service = "MNO">M-NO</p>
  <p service = "NOPQ">NOPQ</p>
  <p service = "XYZ">XY-YZ</p></section>
  ...

# 2  
Old 11-13-2012
Using shell script:-
Code:
rm -f sorted.txt

while read line
do
        if [ `echo ${line} | grep -c "</section>"` -ne 0 ]
        then
                echo ${line} >> tmp;
                egrep "ole-service" tmp >> sorted.txt; # HEADER
                egrep -v "ole-service" tmp | sort -t">" | sed 's#</section>##g' >> sorted.txt; #SORTING
                echo "</section>" >> sorted.txt;  # TRAILER
                rm -f tmp;
        else
                echo ${line} >> tmp;
        fi
done < input_file

Last edited by Yoda; 11-13-2012 at 05:29 PM..
# 3  
Old 11-13-2012
Hi pioavi,

One way using perl and the module XML::Twig.
Code:
$ cat infile                                                                                                                                                                                                                                 
<root>                                                                                                                                                                                                                                       
  <section status="ole-service">                                                                                                                                                                                                             
  <p service="OOO">XZZ</p>                                                                                                                                                                                                                   
  <p service="AAA">AAA BBC</p>                                                                                                                                                                                                               
  <p service="XYZ">XYZ</p></section>                                                                                                                                                                                                         

  <section status="ole-service">
  <p service="ABCD">ABC</p>
  <p service="BDE">B-DE (FGH)</p>
  <p service="XYZ">XY-YZ</p>
  <p service="MNO">M-NO</p>
  <p service="NOPQ">NOPQ</p>
  <p service="BCD">BCDE</p>
  <p service="ECM">eCM</p></section>
</root>
$ cat script.pl
#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;

{
        my $twig = XML::Twig->new(
                twig_handlers => {
                        'section[@status="ole-service"]' => sub {
                                my @childs = 
                                        map { $_->[0] } 
                                        sort { $a->[1] cmp $b->[1] } 
                                        map { [$_, do { my $t = $_->text; $t =~ s/\W//g; lc $t } ] } 
                                        $_->cut_children( 'p' );

                                for my $c ( @childs ) {
                                        $c->paste( last_child => $_ );
                                }
                        },
                },
                pretty_print => 'indented',
        );

        $twig->parsefile( shift );
        $twig->print;
}
$ perl-5.14.2 script.pl infile
<root>
  <section status="ole-service">
    <p service="AAA">AAA BBC</p>
    <p service="XYZ">XYZ</p>
    <p service="OOO">XZZ</p>
  </section>
  <section status="ole-service">
    <p service="ABCD">ABC</p>
    <p service="BCD">BCDE</p>
    <p service="BDE">B-DE (FGH)</p>
    <p service="ECM">eCM</p>
    <p service="MNO">M-NO</p>
    <p service="NOPQ">NOPQ</p>
    <p service="XYZ">XY-YZ</p>
  </section>
</root>

# 4  
Old 11-14-2012
perl
Code:
local $/="<\/section>\n";
while(<DATA>){
  if(/(<section .*?>)(.*)<\/section>/ms){
	my $pre = $1;
	my $mid = $2;
	print $pre,"\n";
	my %hash =  $mid =~ /(<.*?>(.*?)<\/p>)/g;	
	print join "\n", sort {$hash{$a} cmp $hash{$b}} keys %hash;
	# print join "\n", values %hash;
	print "\n<\/section>\n";
  }
}
__DATA__
<section status = "ole-service">
  <p service = "OOO">XZZ</p>
  <p service = "AAA">AAA BBC</p>
  <p service = "XYZ">XYZ</p>
</section>
<section status = "ole-service">
  <p service = "ABCD">ABC</p>
  <p service = "BDE">B-DE (FGH)</p>
  <p service = "XYZ">XY-YZ</p>
  <p service = "MNO">M-NO</p>
  <p service = "NOPQ">NOPQ</p>
  <p service = "BCD">BCDE</p>
  <p service = "ECM">eCM</p>
</section>

Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

How to create a summary file of all files in a directory sorted in reverse alphabetical order.?

I have an interactive script which works terrific at processing a folder of unsorted files into new directories. I am wondering how I could modify my script so that( upon execution) it provides an additional labelled summary file on my desktop that lists all of the files in each directory that... (4 Replies)
Discussion started by: Braveheart
4 Replies

2. Shell Programming and Scripting

Want to grep records in alphabetical order from a file and split into other files

Hi All, I have one file containing thousands of table names in single column. Now I want that file split into multiple files e.g one file containing table names starting from A, other containing all tables starting from B...and so on..till Z. I tried below but it did not work. for i in... (6 Replies)
Discussion started by: shekhar_4_u
6 Replies

3. UNIX for Dummies Questions & Answers

Script to list applications in alphabetical order

I've looking over a script for work and I've had a problem with the script not listing the files in alphabetical order. To look up PIDs for apps, it would be beneficial to have them listed in that order. Here is what I've been reviewing. #!/usr/bin/perl $str = sprintf "%4s %-40s", "PID",... (7 Replies)
Discussion started by: whysolucky
7 Replies

4. Shell Programming and Scripting

multiple sorting with different order

Hi Guys, I have data like this HOS05 23/12/2008 10AM HOS06 15/12/2008 2PM HOS62 29/12/2008 10AM HOS64 23/12/2008 2PM HOS70 26/12/2008 10AM ZFT01 06/12/2008 10AM HOS73 11/12/2008 2PM MHOS0 05/12/2008 10AM MHOS0 20/12/2008 2PM MHOS0 27/12/2010 2PM MHOS0 11/12/2008 10AM MHOS0 30/12/2009... (1 Reply)
Discussion started by: ckarunprakash
1 Replies

5. Shell Programming and Scripting

[SHELL] Userlist alphabetical order

Hi everyone! I am new to the forum and have recently started working with Linux. Quick question, I want a user list in alphabetical order as the output of a shell script. Who can help me!? Thanks! From the netherlands ;) (5 Replies)
Discussion started by: dennisbest85
5 Replies

6. Shell Programming and Scripting

Counts a number of unique word contained in the file and print them in alphabetical order

What should be the Shell script that counts a number of unique word contained in a file and print them in alphabetical order line by line? (7 Replies)
Discussion started by: proactiveaditya
7 Replies

7. UNIX for Dummies Questions & Answers

How can I list the file under a directory both in alphabetical and in reverse alphabetical order?

How can I list the file under current directory both in alphabetical and in reverse alphabetical order? (1 Reply)
Discussion started by: g.ashok
1 Replies

8. Shell Programming and Scripting

alphabetical order with out using sort command

hai, how can i sort a file alphabetically without using sort command (6 Replies)
Discussion started by: rahul801
6 Replies

9. Shell Programming and Scripting

shell program for sorting strings in an alphabetical order

Hi, I trying to find the solution for writing the programming in unix by shell programming for sorting thr string in alphabetical order. I getting diffculty in that ,, so i want to find out the solution for that Please do needful Thanks Bhagyesh (1 Reply)
Discussion started by: bp_vanarse
1 Replies

10. UNIX for Dummies Questions & Answers

Order sorting

How do you sort text in order using sed? :confused: For example 01 B D A C to 01 ABCD (3 Replies)
Discussion started by: evoGage
3 Replies
Login or Register to Ask a Question