Shell Programming and Scripting

 LP 5
RP 6
like this

[root@host dir]# cat>test.pl
#! /usr/bin/perl -w
use strict;

my ($count, $line, @x, $padChar, $arrCnt);

open I, "< input";
for $line (<I>) {
    chomp ($line);
    $count = ($line =~ tr/@/@/);
    @x = (chr(97)..chr(97+$count-1));
    $arrCnt = 0;
    while ($line =~ /@([^@]+)/g) {
        $padChar = $1;
        if ($padChar =~ /^<+$/) {
            print "\$$x[$arrCnt] LP ", length($padChar), "\n";
            $arrCnt++;
        }
        elsif ($padChar =~ /^>+$/) {
            print "\$$x[$arrCnt] RP ", length($padChar), "\n";
            $arrCnt++;
        }
        elsif ($padChar =~ /^<+S+$/) {
            print "\$$x[$arrCnt] LP ", ($padChar=~tr/</</), " Space ", ($padChar=~tr/S/S/), "\n";
            $arrCnt++;
        }
        elsif ($padChar =~ /^>+S+$/) {
            print "\$$x[$arrCnt] RP ", ($padChar=~tr/>/>/), " Space ", ($padChar=~tr/S/S/), "\n";
            $arrCnt++;
        }
    }
}
close I;
[root@host dir]#
[root@host dir]# cat input
@<<<<<<<@>>@>>>>>>>>>>SSS@<<<<<<<<<<<<<<@<<<<<<<<@<<<<<<<@<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<SSS
[root@host dir]# ./test.pl
$a LP 7
$b RP 2
$c RP 10 Space 3
$d LP 14
$e LP 8
$f LP 7
$g LP 7
$h LP 24
$i LP 14 Space 3
[root@host dir]#

perl -ne '$a=$b=$c=0;
@flds=split(/@/);
foreach (@flds) {
$a=($line=$_)=~s/<//g; print $a," LP " if $a;
$b=($line=$_)=~s/>//g;print $b," RP " if $b;
$c=($line=$_)=~s/S//g; print $c," Space  " if $c;
print "\n"}' Filename