Shell Programming and Scripting

.src_ref 0 "call.s" 24 first
      0x000000    0x5a80 0x0060         BRA.l 0x60
.src_ref 0 "call.s" 30 first
      0x000002    0x1bc5                RETI
.src_ref 0 "call.s" 31 first
      0x000003    0x6840                MOV R0L,R0L
.src_ref 0 "call.s" 35 first
      0x000004    0x1bc5                RETI

MOV
BRA.l
RETI
ADD
SUB
..
etc

#!/usr/bin/perl
use strict;
use warnings;

sub retriver();

my @lines;
my $lines_ref;
my $count;
$lines_ref=retriver();
@lines=@$lines_ref;
$count=@lines;
print "Count :$count\nLines\n";
print join "\n",@lines;

sub retriver()
{
    my $file='C:\Users\vk41286\Desktop\input.txt';
    open FILE, $file or die "FILE $file NOT FOUND - $!\n";
    my @contents=<FILE>;

    my @filtered=grep(/MOV R0L,R0L/,@contents);
    return \@filtered;
}

MOV has occured 2  times
RETI has occured 1 time

#! /usr/bin/perl -w
use strict;

my ( %keywords );
my ( $line, $key, $value );

open K, "< keyword.txt";
while ( $line = <K> ) {
    chomp ( $line );
    $keywords { $line } = 0;
}
close K;

open I, "< input.txt";
while ( $line = <I> ) {
    chomp ( $line );
    foreach $key ( keys %keywords ) {
        while ( $line =~ /$key/g ) {
            $keywords{ $key }++;
        }
    }
}
close I;

while ( ( $key, $value ) = each %keywords ) {
    print "$key has occured $value times.\n";
}

use strict;
use warnings;
use File::Basename;

$, = '';
$\ = "\n";

my $NAME   = basename $0;
my %COUNTS = ();

#-------------------------------------------------------------------------------
# Read in keyword list

my $keywordlistfile = shift @ARGV;
die $0, ': missing keywordlist' unless defined $keywordlistfile;

open KH, '<', $keywordlistfile or die $keywordlistfile;

while (<KH>) {
    chomp;
    $COUNTS{$_} = 0;
}

close KH;

#-------------------------------------------------------------------------------

while (<>) {
    my ($op) = m{^\s+(?:0x[0-9a-f]+ +)+(\S+)}i;
    next unless defined $op;
    $COUNTS{$op}++ if defined $COUNTS{$op};
}

#-------------------------------------------------------------------------------

while (my ($op, $n) = each %COUNTS) {
    printf "\%10d \%s\n", $n, $op;
}

parser keywordfile inputfile...

        0 SUB
         0 ADD
         1 BRA.l
         1 MOV
         2 RETI