Shell Programming and Scripting

Customer ID: none
VT : 002/89
 
Customer ID: Yes
VT: 001/89
 
Customer ID: none
VT: 006/85
 
Customer ID: Yes
VT: 003/56

VT: 001/89
VT: 003/56

my $in_file = 'check.doc';
open my $in_fh, '<', $in_file or die "Could not open file $in_file: $!
+";
my $out_file = 'output.txt';
open my $out_fh, '>', $out_file or die "Could not open file $out_file:
+ $!";
while ( my $line = <$in_fh> )
{
chomp ($_);
$line if ($_ =~ /^Customer ID: Yes/);
print "$out_fh}";
}
close $in_fh  or die "Could not close file $in_file: $!";
close $out_fh or die "Could not close file $out_file: $!";

for my $filename (@ARGV){

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

my $out_file = 'output.txt'; 
open (my $out_fh,'>',$out_file)||die "Couldn't open file $out_file:\n\t$!"; 
for my $in_file (@ARGV){
    open(my $in_fh, '<', $in_file or die "Couldn't open file $in_file:\n\t $!";
    while (<$in_fh>){
       chomp;
       if ($_ =~ /^Customer ID: Yes/){
          my $line = readline($in_fh);
          print $out_fh $line;
       }
    }
    close $in_fh  or die "Could not close file $in_file: $!";
}
close $out_fh or die "Could not close file $out_file: $!";

$ perl -ne '(/^Customer/ && /Yes$/)&&($f=1);if($f==1 && !/^Customer/){print $_;$f = 0}' inputfile
VT: 001/89
VT: 003/56

grep -A1 'Customer ID: Yes' inputfile | grep -v Customer | grep -v '\-\-'