#!/usr/bin/perl
use Shell;
open THEFILE, "C:\galileo_integration.txt" || die "Couldnt open the file!";
@wholeThing = <THEFILE>;
close THEFILE;
foreach $line (@wholeThing){
if ($line =~ m/\\0$/){
@nextThing = $line;
if ($line =~ s/\\0/\\LATEST/g){
@otherThing = $line;
@grep_results = qx{cleartool diff -ser @nextThing @otherThing};
print "@grep_results\n";
$inserted = grep( "inserted" | "/^>$/" | "wc-l", @grep_results);
print "Number of lines Inserted, $inserted\n";
$deleted = grep( "deleted" | "/^>/" | "wc-l", @grep_results);
print "Number of lines Deleted, $deleted\n";
$changed = grep( "changed" | "/^>/" | "wc-l", @grep_results);
print "Number of lines Changed, $changed\n";
}
}
}
Output it gives is:
Number of lines Inserted, 100
Number of lines Deleted, 100
Number of lines Changed, 100
All gives me the same wordcount, but i want to grep line count based on matching Inserted, Deleted, Changed.
Output should be like:
Number of lines Inserted, 100
Number of lines Deleted, 50
Number of lines Changed, 220
I donot have any clue to match the patterns and retrieve the line count. Please help me. Thanks!!!