UNIX for Beginners Questions & Answers

perl -i -pe "chomp if eof” */*

 
   020  1751           1.7
   020  1851           1.7
   020  1951           1.1
   020  2051            .6
   020  2151             -
   020  2251             -
   020  2351             -
   021  0051           -.6
   021  0151          -1.1

 
   020  1751           1.7
   020  1851           1.7
   020  1951           1.1
   020  2051           0.6
   020  2151          -9.0
   020  2251          -9.0
   020  2351          -9.0
   021  0051          -0.6
   021  0151          -1.1

#!/bin/ksh
for file in [A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9]0[01][0-9]
do	m=${file#????????}
	y=${file#???}
	y=${y%???}
	jd1=$(printf '%(%j)T' "$m/01/$y")
	printf '%s,%s\n' "$file" "$jd1"
done | awk -F ' *, *' '
FNR == NR {
	jdb[ARGV[ARGC++] = $1] = $2 - 1
	next
}
NF == 0 {
	next
}
FNR == 1 {
	nofny = substr(FILENAME, 1, 7) ".txt"
	if(ofny && ofny != nofny)
		close(ofny)
	ofny = nofny
	if(ofnm)
		close(ofnm)
	ofnm = FILENAME ".txt"
	gsub(/,/, " ")
	print > ofnm
	print > ofny
	next
}
FNR == 2 {
	gsub(/,/, " ")
	print > ofnm
	print > ofny
	next
}
FNR == 3 {
	printf("Julian  %s  %s\n", $2, $9) > ofnm
	printf("Julian  %s  %s\n", $2, $9) > ofny
	fmt = sprintf("   %%03d  %%4.4s  %%%d.1f\n", length($9))
	next
}
{	printf(fmt, $1 + jdb[FILENAME], $2, $9 ? $9 : -9) > ofnm
	printf(fmt, $1 + jdb[FILENAME], $2, $9 ? $9 : -9) > ofny
}' -