#!/bin/sh -f
for i in `ll *` 
do

	cat $i | awk -F"[Ss][Rr][Cc]=" '{  print $2 }' | awk -F'"' '{ print $2 }' > ./$$tmpFile
	cat $$tmpFile|sed '/^$/d' | while read FIC
	do
	
		echo $FIC | awk '{print tolower($0)}' > ./$$fic
	
		fictmp=`cat $$fic|cut -f1 -d" "| sed 's/\./\\\./' `
		echo $fictmp
	
		FICtmp=`echo $FIC| sed 's/\./\\\./'`

ed - $i << fin
g/$FICtmp/s/$FICtmp/$fictmp/n
w
q
fin

	done
done
rm ./$$fic
rm ./$$tmpFile