删除windows代码文件中的'^M'

最新推荐文章于 2025-01-18 12:49:58 发布

sudolee

最新推荐文章于 2025-01-18 12:49:58 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： windows Linux C 文章标签： windows path 工具

本文链接：https://blog.youkuaiyun.com/sudolee/article/details/7068591

Linux 同时被 3 个专栏收录

32 篇文章

订阅专栏

windows

12 篇文章

订阅专栏

7 篇文章

订阅专栏

本文介绍如何通过简单的脚本来处理Windows复制过来的代码文件中的'^M'字符，使其看起来更整洁，并使用indent工具进一步整理代码格式。

有时从windows中copy过来的代码文件中会有很多'^M'(回车)字符，
这使代码看起来很不整洁。这里分享一个简单的处理办法。

思路：

找到文件中的'^M'字符，并全部替换为space。最后用indent整理代码。
'^M'的ascii是13。

代码：

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>

#define M_ASC 13

int main(int argc, char **argv)
{
	char ch, *path;
	int res;
	FILE *f;
	long pos;

	if (argc > 1)
		path = argv[1];

	f = fopen(path, "r+");
	if (!f) {
		fprintf(stderr, "Open() %s ERROR(%s)\n", path, strerror(errno));
		exit(EXIT_FAILURE);
	}

	do {
		pos = ftell(f);
		ch = fgetc(f);
		if (ch == M_ASC) {
			fseek(f, pos, SEEK_SET);
			fputc(' ', f);
		}
	} while (ch != EOF);

	fclose(f);
	exit(EXIT_SUCCESS);
}

用indent工具整理代码：

#!/bin/sh
PARAM="-npro -kr -i8 -ts8 -sob -l80 -ss -ncs -cp1"
indent $PARAM "$@"

--
其他方法：
perl-> http://www.perlmonks.org/?node_id=183567

#!/usr/bin/perl -w 

use strict;
my $out;

if(@ARGV!=1 && @ARGV!=2){
    print "Usage:\n\t$0 input [output];\n";
    exit;
}

open(IN, "<$ARGV[0]") or die "couldn't open $ARGV[0]: $!";

if(<IN>=~m/(^#!.*perl.*)/){
    $out.=$1;
}

while(<IN>){
    chomp;
    chop;
    $_.="\n";
    $out.=$_;
}

close IN;    

if(@ARGV==1){
    unlink $ARGV[0];
    open(OUT,">$ARGV[0]") or die "couldn't open $ARGV[0]: $!";
}
elsif(@ARGV==2){
    open(OUT,">$ARGV[1]") or die "couldn't open $ARGV[1]: $!";
}

print OUT $out;
close OUT;