写个脚本删除所有文件的行尾空白符，并将.c.h文件的\t转换为4个空格

yjh777

UID: 1700
帖子: 1
积分: 2
在线时间: 10 分钟

1^# yjh777 发表于 2008-07-15 22:40

写个脚本删除所有文件的行尾空白符，并将.c.h文件的\t转换为4个空格

#!/usr/bin/perl

use File::Find;
use File::Copy;

my @files;
my @dirs = ".";
my $extention = ".bak";

find(sub { push(@files, $File::Find::name) if -f && !/\.bak$/ }, @dirs);

for (@files) {
my $file = $_;
my $bakfile = $file . $extention;

if (-f && !/\.o$/) {
      print $file . "\n";
      copy $file, $bakfile or die "Copy failed: $!";
      open FO, $bakfile or die "Cannot open '$bakfile': $!";
      open FN, ">$file" or die "Cannot open '$file': $!";

      if (/\.(pl|[ch])$/) {
         while (<FO>) {
            s/\t/ /g;
            s/[ \r]+$//;
            print FN $_ or die "write '$file' err: $!";
         }
      } else {
         while (<FO>) {
            s/[ \t\r]+$//;
            print FN $_ or die "write '$file' err: $!";
         }
      }

      close FN;
      close FO;
      unlink $bakfile;
}
}

net_robber

UID: 43048
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# net_robber 发表于 2008-07-15 22:45

grep -v '^$'
sed 's/\t/\ \ \ \ /g'

net_robber

UID: 43048
帖子: 167
积分: 384
在线时间: 1 天 14 小时

3^# net_robber 发表于 2008-07-15 22:46

对于你这个要求，用shell可能比perl实现的快

yjh777

UID: 1700
帖子: 1
积分: 2
在线时间: 10 分钟

4^# yjh777 发表于 2008-07-15 22:52

QUOTE:

原帖由 net_robber 于 2008-7-15 22:46 发表
对于你这个要求，用shell可能比perl实现的快

shell方法我会；
在wondows下用的(unix下当然也能用)，遍历所有文件，删除行尾空白，并s/\t/ /。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

5^# flw 发表于 2008-07-16 08:57

QUOTE:

原帖由 net_robber 于 2008-7-15 22:46 发表
对于你这个要求，用shell可能比perl实现的快

man indent

a_789_123

UID: 31260
帖子: 91
积分: 209
在线时间: 11 小时

6^# a_789_123 发表于 2008-07-16 09:07

$a =~ s/^\s+//;删除开头空格
$a=~ s/\s+$//;删除结尾空格

net_robber

UID: 43048
帖子: 167
积分: 384
在线时间: 1 天 14 小时

7^# net_robber 发表于 2008-07-16 09:32

QUOTE:

原帖由 flw 于 2008-7-16 08:57 发表

man indent

你这个更狠

哈哈