Достался cgi скрипт на перле, судя по всему писался он под виндой, в конце каждой строки стоит ^M. Подскажите пожалуйста, как их быстро удалить?

• RE: Удалить ^M,bass, 11:27 , 21-Ноя-02
• RE: Удалить ^M,J, 11:27 , 21-Ноя-02
• RE: Удалить ^M,lavr, 11:33 , 21-Ноя-02

>Достался cgi скрипт на перле, судя по всему писался он под виндой,
>в конце каждой строки стоит ^M. Подскажите пожалуйста, как их быстро
>удалить?

vi file
:%s/ctrl-v-enter//g

>Достался cgi скрипт на перле, судя по всему писался он под виндой,
>в конце каждой строки стоит ^M. Подскажите пожалуйста, как их быстро
>удалить?

#include <stdio.h>

int main(){
        char c;
        while(!feof(stdin)){
                c=fgetc(stdin);
                if (c == '\n')
                        fputc('\r', stdout);
                else if (c == EOF)
                        break;
                fputc(c, stdout);
        }
        return 0;
}

>Достался cgi скрипт на перле, судя по всему писался он под виндой,
>в конце каждой строки стоит ^M. Подскажите пожалуйста, как их быстро
>удалить?

sed -e "s/^M//g" input-filename > output-filename