Shell Programming and Scripting

0.01474818	  0.16279070	M1	E1
0.01081743	  0.11940299	M2	E2
0.00765600	  0.08450704	M3	E3 
0.00441931	  0.04878049	M4	E5 
0.01904574	  0.21022727	M5	E10
0.00510400	  0.05633803	M6	E12
0.00905960	  0.10000000	M7	E16
0.00799376	  0.08823529	M8	E17
0.00424669	  0.04687500	M9	E18
0.01317759	  0.14545455	M12	E19
0.00403645	  0.04455446	M13	E20
0.01041333	  0.11494253	M16	E21
0.00683743	  0.07547170	M17	E22
0.00734562	0.08108108	M18	E23

#!/usr/bin/env bash

# @(#) s2	Demonstrate exercise of selector perl code.

echo
set +o nounset
LC_ALL=C ; LANG=C ; export LC_ALL LANG
echo "Environment: LC_ALL = $LC_ALL, LANG = $LANG"
echo "(Versions displayed with local utility \"version\")"
version >/dev/null 2>&1 && version "=o" $(_eat $0 $1) perl cmp sdiff diff
set -o nounset

echo " Lines in index file: $(wc -l <data1)"
echo " Lines in expected output: $(wc -l <expected-output.txt)"

echo
echo " Results:"
./p2 > t1
echo " Lines in output file: $(wc -l <t1)"
if cmp t1 expected-output.txt
then
  echo " Files are the same."
else
  echo " Files differ."
  sdiff -w78 -s t1 expected-output.txt
fi

exit 0

#!/usr/bin/perl

# @(#) p2	Demonstrate selection of tagged lines.

use warnings;
use strict;

my ($debug);
$debug = 1;
$debug = 0;

my ( $f1, $f2, $i, %selectors, $junk, $key, @parts, $t1 );

open( $f1, "<", "data1" ) || die(" Cannot open data1.\n");

# Get the tags into hash selectors.

while (<$f1>) {
  $t1 = (split)[3];
  $selectors{$t1}++;
}
print " selectors is :%selectors:\n" if $debug;
close $f1;

open( $f2, "<", "data2" ) || die(" Cannot open data2.\n");

# Read data file of words, check for exisitence in selectors hash.

while (<$f2>) {
  chomp;
  @parts = split( / /, $_, 2 );
  print " Working on tag $parts[0]\n" if $debug;
  if ( not exists( $selectors{ $parts[0] } ) ) {
    print " Skipping tagged line $parts[0]\n" if $debug;
    next;
  }
  print "$parts[1]\n\n";
}

exit(0);

% ./s2

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0 
GNU bash 3.2.39
perl 5.10.0
cmp (GNU diffutils) 2.8.1
sdiff (GNU diffutils) 2.8.1
diff (GNU diffutils) 2.8.1
 Lines in index file: 14
 Lines in expected output: 28

 Results:
 Lines in output file: 28
t1 expected-output.txt differ: char 744, line 9
 Files differ.
This was disclosed by ATSUM informati |	This was disclosed by ATSUM informati
During the meeting today, the delegat |	During the meeting today, the delegat