如何用Perl截取报文

beginline=`awk 'BEGIN{i=0}{if(
beginline=`awk 'BEGIN{i=0}{if($0~"<InterBOSS>") i=NR;if($0~"'$oprseq'"){print i;exit}}' $logname`
endline=`awk 'NR>'$beginline'{if($0~"</InterBOSS>"){print NR;exit}}' $logname`
awk 'NR>='$beginline'&&NR<='$endline'{print $0}' $logname
#!/usr/bin/perl
use strict;
my $flag=0;
my $line;
while(<>){
   if(/<InterBOSS>/ or $flag eq 1){
      $line .=$_;
      $flag=1;
   }
   if(/<\/InterBOSS>/){
      $flag=0;
      if($line =~ $ARGV[0]){
         print $line;
         last;
         }
      $line='';
    }
}
~"<InterBOSS>") i=NR;if(
beginline=`awk 'BEGIN{i=0}{if($0~"<InterBOSS>") i=NR;if($0~"'$oprseq'"){print i;exit}}' $logname`
endline=`awk 'NR>'$beginline'{if($0~"</InterBOSS>"){print NR;exit}}' $logname`
awk 'NR>='$beginline'&&NR<='$endline'{print $0}' $logname
#!/usr/bin/perl
use strict;
my $flag=0;
my $line;
while(<>){
   if(/<InterBOSS>/ or $flag eq 1){
      $line .=$_;
      $flag=1;
   }
   if(/<\/InterBOSS>/){
      $flag=0;
      if($line =~ $ARGV[0]){
         print $line;
         last;
         }
      $line='';
    }
}
~"BEGIN{i=0}{if(
beginline=`awk 'BEGIN{i=0}{if($0~"<InterBOSS>") i=NR;if($0~"'$oprseq'"){print i;exit}}' $logname`
endline=`awk 'NR>'$beginline'{if($0~"</InterBOSS>"){print NR;exit}}' $logname`
awk 'NR>='$beginline'&&NR<='$endline'{print $0}' $logname
#!/usr/bin/perl
use strict;
my $flag=0;
my $line;
while(<>){
   if(/<InterBOSS>/ or $flag eq 1){
      $line .=$_;
      $flag=1;
   }
   if(/<\/InterBOSS>/){
      $flag=0;
      if($line =~ $ARGV[0]){
         print $line;
         last;
         }
      $line='';
    }
}
~"<InterBOSS>") i=