Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Sorting lines between patterns in alphabetical order
Top Forums Shell Programming and Scripting Sorting lines between patterns in alphabetical order Post 302730799 by birei on Tuesday 13th of November 2012 04:52:43 PM
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>

 

10 More Discussions You Might Find Interesting

1. 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

2. 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

3. 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

4. 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

5. 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

6. 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

7. 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

8. 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

9. 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

10. 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

LEARN ABOUT DEBIAN

xml_pp

XML_PP(1p)						User Contributed Perl Documentation						XML_PP(1p)

NAME

       xml_pp - xml pretty-printer

SYNOPSYS

       xml_pp [options] [<files>]

DESCRIPTION

       XML pretty printer using XML::Twig

OPTIONS

       -i[<extension>]
	   edits the file(s) in place, if an extension is provided (no space between "-i" and the extension) then the original file is backed-up
	   with that extension

	   The rules for the extension are the same as Perl's (see perldoc perlrun): if the extension includes no "*" then it is appended to the
	   original file name, If the extension does contain one or more "*" characters, then each "*" is replaced with the current filename.

       -s <style>
	   the style to use for pretty printing: none, nsgmls, nice, indented, record, or record_c (see XML::Twig docs for the exact description
	   of those styles), 'indented' by default

       -p <tag(s)>
	   preserves white spaces in tags. You can use several "-p" options or quote the tags if you need more than one

       -e <encoding>
	   use XML::Twig output_encoding (based on Text::Iconv or Unicode::Map8 and Unicode::String) to set the output encoding. By default the
	   original encoding is preserved.

	   If this option is used the XML declaration is updated (and created if there was none).

	   Make sure that the encoding is supported by the parser you use if you want to be able to process the pretty_printed file (XML::Parser
	   does not support 'latin1' for example, you have to use 'iso-8859-1')

       -l  loads the documents in memory instead of outputing them as they are being parsed.

	   This prevents a bug (see BUGS) but uses more memory

       -f <file>
	   read the list of files to process from <file>, one per line

       -v  verbose (list the current file being processed)

       --  stop argument processing (to process files that start with -)

       -h  display help

EXAMPLES

	 xml_pp foo.xml > foo_pp.xml	       # pretty print foo.xml
	 xml_pp < foo.xml > foo_pp.xml	       # pretty print from standard input

	 xml_pp -v -i.bak *.xml 	       # pretty print .xml files, with backups
	 xml_pp -v -i'orig_*' *.xml	       # backups are named orig_<filename>

	 xml_pp -i -p pre foo.xhtml	       # preserve spaces in pre tags

	 xml_pp -i.bak -p 'pre code' foo.xml   # preserve spaces in pre and code tags
	 xml_pp -i.bak -p pre -p code foo.xml  # same

	 xml_pp -i -s record mydb_export.xml   # pretty print using the record style

	 xml_pp -e utf8 -i foo.xml	       # output will be in utf8
	 xml_pp -e iso-8859-1 -i foo.xml       # output will be in iso-8859-1

	 xml_pp -v -i.bak -f lof	       # pretty print in place files from lof

	 xml_pp -- -i.xml		       # pretty print the -i.xml file

	 xml_pp -l foo.xml		       # loads the entire file in memory
					       # before pretty printing it

	 xml_pp -h			       # display help

BUGS

       Elements with mixed content that start with an embedded element get an extra 


	 <elt><b>b</b>toto<b>bold</b></elt>

       will be output as

	 <elt>
	   <b>b</b>toto<b>bold</b></elt>

       Using the "-l" option solves this bug (but uses more memory)

TODO

       update XML::Twig to use Encode with perl 5.8.0

AUTHOR

       Michel Rodriguez <mirod@xmltwig.com>

perl v5.12.4							    2011-05-18								XML_PP(1p)
All times are GMT -4. The time now is 03:50 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy