Shell Programming and Scripting

while ( $iop = <TST>)
{
  if($iop =~ /$ra/)
{
  print "$iop \n";
  last;
  }
}

I 000000000000096C 48000000  * 000000000000096C         b         *

33: # printing the iop corresponding to real address
34: open (TST, '<psi.tst');
35: while ( $iop = <TST>)
36: {
37:   if($iop =~ /$ra/){
38:     last;
39:  }
40:  }
41:  print $iop;

Use of uninitialized value in print at psi.pl line 41, <TST> line 51574.

hi
line2 has 000000000000096C
line3 is here.

line 5 also has 000000000000096C
line3 twice.

#!/usr/bin/perl -w
use 5.010;
my $ra="000000000000096C";
say "INPUT IS:$ra";

while (<>){
chomp;
if ( /$ra/ ) {
say;
last;
}
}

print "$ra\n";
print;

$ra = substr ($lastword,$n);
print "$lastword";
print "$ra";
chomp($ra);
# printing the iop corresponding to real address
open (TST, '<psi.txt');

while ( $iop = <TST>)
{ # chomp;
  if( $iop =~ /$ra/ ){
      print "$iop";
      last;
  }
}