Shell Programming and Scripting

We are using AIX version 7100-03-05-1524

Please provide shell script version (bash or ksh) of below perl code,since we need to have line breaks in huge XML files

Code:

#!/usr/bin/perl
#
# Purpose: Read an XML file and indent it for ease of reading
# Author:  RedGrittyBrick 2011. 
# Licence: Creative Commons Attribution-ShareAlike 3.0 Unported License
#
use strict;
use warnings;

my $filename = $ARGV[0];
die "Usage: $0 filename\n" unless $filename;

open my $fh , '<', $filename
  or die "Can't read '$filename' because $!\n";
my $xml = '';
while (<$fh>) { $xml .= $_; }
close $fh;

$xml =~ s|>[\n\s]+<|><|gs;                       # remove superfluous whitespace
$xml =~ s|><|>\n<|gs;                            # split line at consecutive tags

my $indent = 0;
for my $line (split /\n/, $xml) {

  if ($line =~ m|^</|) { $indent--; }

  print '  'x$indent, $line, "\n";

  if ($line =~ m|^<[^/\?]|) { $indent++; }             # indent after <foo
  if ($line =~ m|^<[^/][^>]*>[^<]*</|) { $indent--; }  # but not <foo>..</foo>
  if ($line =~ m|^<[^/][^>]*/>|) { $indent--; }        # and not <foo/>

}

Moderator's Comments:

Use code tags, thanks.

This forum is no drive-in where you place an order. This is driven by volunteers - not employees that do the job for you. So please form your wording a bit less demanding, thanks!

Zaxxon,sorry if my request sounded like demanding

I don't have knowledge about Perl scripting.Since we wanted to introduce line breaks for HUGE XML,i got this Perl code from internet

can someone guide me the in conversion of the perl code into shell scripting code which holds good for AIX 7.0.0.1 compiler

Sorry again!

I appreciate somebody's help on this

(1) What has the programming language to do with having or not having line breaks?

(2) I don't quite get the intention of your request: If you *know*, what your program is supposed to do, why don't you write it your self in the language of your choice (ksh, bash,....)? If you know neither shell scripting NOR Perl, what's the point in rewriting it? It would be easier to ask someone with Perl knowledge to help you with modifying the Perl program, instead to rewrite it from scratch.

Rovf,

We have a hugh size XML ~15 GB(record size is more than 32756 bytes),we want to do ftp the same to mainframe server

The maximum limit record size for a mainframe file is LRECL-32756

In order to reduce the record size of the XML,we are introducing line breaks from the command line and then do the FTP to mainframe server

As we follow shell scripting process in our existing framework, i found this Perl code in internet(Thanks to RedGrittyBrick) which introduces line breaks in an XML file

if the PERL to shell conversion is possible to introduce line breaks from command line that would be highly useful

We also tried with tr and sed commands on XML,but we could not arrive at the expected solution

Thanks again!

---------- Post updated at 05:09 AM ---------- Previous update was at 05:03 AM ----------

Rovf,

We have a hugh size XML ~15 GB(record size is more than 32756 bytes),we want to do ftp the same to mainframe server

The maximum limit record size for a mainframe file is LRECL-32756

In order to reduce the record size of the XML,we are introducing line breaks from the command line and then do the FTP to mainframe server

As we follow shell scripting process in our existing framework, i found this Perl code in internet(Thanks to RedGrittyBrick) which introduces line breaks in an XML file

if the PERL to shell conversion is possible to introduce line breaks from command line that would be highly useful

We also tried with tr and sed commands on XML,but we could not arrive at the expected solution

Thanks again!

Without diving into the logics of the above script, wouldn't a simple

Code:

sed 's/>/>\n/g'

do? Wouldn't be a prettyprint, though.

Below result i'm getting,instead of line breaks it puts simply n

see below example for that command output

Code:

<?xml version="1.0" ?>n<issuer>n

i tried

Code:

sed  -e 's/>/>\n/g'

command also,same result

Moderator's Comments:

NO- NONSENSE: Please use code tags as required by forum rules!