sslug-teknik team mailing list archive

[Jacob Sparre Andersen <sparre@xxxxxx>]

Asbjørn Grandt skrev:

> find . -name \*.java -exec egrep -l "ics\.SQL\w*\(" {} \;
>
> nu har jeg så brug for at smide en import ind i hver af disse filer, det er
> faktisk underordnet hvor i importlisten, bare den indsættes sammen med de øvrige
> imports.

Selve problemet med at indsætte den ekstra linje i hver af de fundne 
filer ville jeg nok klare med et passende Perl-program (som jeg dog ikke 
selv kan skrive uden at kigge i en Perl-håndbog eller nogle af mine 
gamle notater).

Den samlede procedure kunne så (skrevet i POSIX Shell) være:

for fil in `find . -name \*.java -exec egrep -l "ics\.SQL\w*\(" {} \;`
do
   mv ${fil} ${fil}~
   indsæt_ekstra_linje < ${fil}~ > ${fil}
done

(hvor `indsæt_ekstra_linje` er det føromtalte Perl-program)

Jacob

PS: "sslug.perl" er nok et godt sted at få hjælp med Perl-programmet.
--
"Human beings just can't not communicate."