文件重命名

sunzhiguolu

我有几个文件 (文件不重名), 可能是偶数或奇数.
如: a, b, c, d, e 或者 a, b, c, d, e, f
希望将文件名互换, 即:
a <=> e
b <=> d
c 不变
---------------------
a <=> f
b <=> e
c <=> d

代码该如何编写, 谢谢大家...

MMMIX

你啥地方不会呀？

sunzhiguolu

回复 2# MMMIX
大神好, 我感觉文件名互换的时候, 我的代码写的有点啰嗦. 而且有部分没有用 perl 的方法进行操作, 想看下大家是怎么解决的.

   

sunzhiguolu

文件内容大致这个意思: (请大家帮忙, 谢谢)

1. 
   
2. $ ls -1|grep "^[a-f]"|xargs -i grep -EH "[a-f]" {}
   
3. a:aaa
   
4. b:bbb
   
5. c:ccc
   
6. d:ddd
   
7. e:eee
   
8. f:fff
   

复制代码

MMMIX

sunzhiguolu 发表于 2016-04-03 20:53
回复 2# MMMIX
大神好, 我感觉文件名互换的时候, 我的代码写的有点啰嗦. 而且有部分没有用 perl 的方法进 ...

Post your code.

sunzhiguolu

回复 5# MMMIX

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @aFiles = sort {$a cmp $b} map {chomp; $_} `ls -1 ?`;
   
7. my $sIdx = $#aFiles;
   
8. foreach (0 .. $#aFiles){
   
9.         last if ($_ >= $sIdx);
   
10.         my ($sA, $sB) = ($aFiles[$_], $aFiles[$sIdx]);
    
11.         rename ($aFiles[$sIdx], "__x__");
    
12.         rename ($aFiles[$_], $sB);
    
13.         rename ("__x__", $sA);
    
14.         $sIdx--;
    
15. }
    

复制代码

MMMIX

sunzhiguolu 发表于 2016-04-04 14:08
回复 5# MMMIX

还真是 Perl和shell的乱炖，参考下这个实现：

use File::Spec::Functions qw/ curdir catfile /;
use File::Copy qw/ move /;
use File::Temp qw/ tempdir /;

sub swap_filename {
  my ($afile, $bfile) = @_;

  my $tmp = tempdir(DIR => curdir(), CLEANUP => 1);
  move($afile, $tmp);
  move($bfile, $afile);
  move(catfile($tmp, $afile), $bfile);
}

if (@ARGV < 1) {
  die "Usage: $0 dir";
}

chdir $ARGV[0] or die "Cannot change working directory to $ARGV[0]";

my @files = sort glob "*";
for (@files) {
  last if (@files <= 1);

  swap_filename(shift @files, pop @files);
}

sunzhiguolu

回复 7# MMMIX
向大神学了一手, 谢谢!