Shell Programming and Scripting

#!/usr/bin/env bash

# @(#) s1	Driver for perl detector.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C od perl

pl " Simple perl NEWLINE omission test code:"
cat p1

LIST="first.sh middle.sh last.sh"
rm -f $LIST
./create

for i in $LIST
do
  pl " Content of file $i from od:"
  od -bc $i
  ./p1 $i
done

exit 0

% ./s1

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.8 (lenny) 
bash GNU bash 3.2.39
od (GNU coreutils) 6.10
perl 5.10.0

-----
 Simple perl NEWLINE omission test code:
#!/usr/bin/env perl

# @(#) p1	Demonstrate detection of missing NEWLINE at last line.

use strict;
use warnings;

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

my ( $a, $b, $file, $f );

foreach $file (@ARGV) {
  if ( !open( $f, "<", $file ) ) {
    print STDERR " Cannot open file $file, skipping.\n";
    next;
  }
  while (<$f>) {
    $a = $_;
  }
  $b = substr( $a, -1, 1 );
  print " Last character of last line of file $file is :$b:\n" if $debug;
  if ( $b ne "\n" ) {
    print " File $file has no NEWLINE on last line.\n";
  }
}

exit 0;

-----
 Content of file first.sh from od:
0000000 143 165 164 012 157 146 146
          c   u   t  \n   o   f   f
0000007
 File first.sh has no NEWLINE on last line.

-----
 Content of file middle.sh from od:
0000000 167 151 156 144 157 167 163 015 012 163 164 171 154 145 015 012
          w   i   n   d   o   w   s  \r  \n   s   t   y   l   e  \r  \n
0000020

-----
 Content of file last.sh from od:
0000000 154 141 163 164 012 154 151 156 145 012
          l   a   s   t  \n   l   i   n   e  \n
0000012

for i in *.sh; do echo "<#>"| cat $i - |awk -vfn="$i" '/.<#>/ {gsub("<#>",""); print fn, $0}'; done
a.sh apple

find . -type f -name "*.sh" | 
while read f; do
  [ $(wc -l < "$f") -ne $(grep -c '' "$f") ] && echo "$f"
done

for i in *.sh; do 
[ -s "$i" ] && [ $(tail -1 $i | wc -l) = 0 ] && echo "$i has a missing '\n'" 
done