Shell Programming and Scripting

$ awk 'BEGIN{for(i=1;i<=5;i++)for(j=1;j<=5;j++)print j >"file"i".tmp"}'
$ ls file*.tmp -1
file1.tmp
file2.tmp
file3.tmp
file4.tmp
file5.tmp

$ awk '{ print FNR==1 && NR!=1 || NR==1 ? $0 FS FILENAME : $0 }' file*.tmp
1 file1.tmp
2
3
4
5
1 file2.tmp
2
3
4
5
1 file3.tmp
2
3
4
5
1 file4.tmp
2
3
4
5
1 file5.tmp
2
3
4
5

awk '

function write_2_og_file(file){
                                 system(sprintf("%s %s %s","cat","tmpfile>",file))
                              }

     NR==1 || NR!=1 && FNR==1{
                                  w  = "tmpfile"
                                  close(w)
                                  $0 = replace
                                  f = FILENAME
                             }
              NR!=1 && FNR==1{
                                  write_2_og_file(p)
                             }
                             {
                                  print $0 >w
                                  p=f
                             }
                          END{
                                  close(w)
                                  write_2_og_file(p)
                                  system("rm tmpfile")
                             }
    '   replace="<m200" file*.tmp

$ awk '{ print FNR==1 && NR!=1 || NR==1 ? $0 FS FILENAME : $0 }' file*.tmp
<m200 file1.tmp
2
3
4
5
<m200 file2.tmp
2
3
4
5
<m200 file3.tmp
2
3
4
5
<m200 file4.tmp
2
3
4
5
<m200 file5.tmp
2
3
4
5

#!/bin/ksh
for i in "$@"
do      ed -s "$i" <<EOF
                1s/.*/>mm200/
                w
                q
EOF
done