Shell Programming and Scripting

ABC 1234 abc 12345
ABC 4567 678 XYZ
xyz ght 678
ABC 787 yyuu
ABC 789 7890 777
zxr hyip hyu
mno uii 678 776
ABC ty7 888

ABC 4567 678 XYZ
xyz ght 678
ABC 789 7890 777
zxr hyip hyu
mno uii 678 776

 
$ cat pp.pl
#!/usr/bin/perl -w
use strict;
chomp(my @arr=<>);
my $i=0;
for (@arr)
{
        if (!/^ABC/)
        {
                my $x=$i-1;
                print "Line ".$i.":".$arr[$x]."\n";
                print "Line ".($i+1).":".$_."\n";
        }
$i++;
}

 
$ ./pp.pl a.txt| sort -u

 
Line 2:ABC 4567 678 XYZ
Line 3:xyz ght 678
Line 5:ABC 789 7890 777
Line 6:zxr hyip hyu
Line 7:mno uii 678 776

cnt=1
cat input_file | while read line
do
typ=`echo "$line" | cut -c 1-3`
if [ $cnt -gt 1 ]
then
if [ typ != "ABC" ] || [ pre_typ != "ABC" ]
then
echo $pre_line >> output_file
fi
fi
cnt = 2
pre_typ=$typ
pre_line=$line
done
if [ typ != "ABC" ] || [ pre_typ != "ABC" ]
then
echo $pre_line >> output_file
fi

$ ./pp.pl a.txt| sort -u > ErrorFile.txt

$awk '$1 ~ /ABC/{if(x ~/ABC/){print $0};x=$1}($1 !~ /ABC/){x=$1;print}'  inputfile