文件名更名操作

tonyliuy

想给文件夹里的文件更名，原文件名和新文件名在一个list里

1.    while (<IN>) {
   
2.        chomp;
   
3.        @chr = split;
   
4.       if ($i % 2 == 0) {
   
5.           system("mv $chr[5].1old $chr[0].1new") or print OUT "$!\n";
   
6.           system("mv $chr[5].2old $chr[0].2new") or print OUT "$!\n";
   
7.       }
   
8.       $i ++;
   
9.   }
   
10.   print OUT "$i\n";

复制代码

其中第六列是原文件名，第一列是新文件名，运行之后1new文件没问题，2new文件清了，全变成了每行都是“1”的文件
而且文件报错，$！信息是Inappropriate ioctl for device
求大神指教，错在哪里了？改怎么改脚本？

tonyliuy

求助各路大神帮忙解答~~~

tonyliuy

求大神解答，帖子不要沉~~

yybmsrs

http://stackoverflow.com/questio ... te-ioctl-for-device

$!只有失败操作时才有意义

另外你那个or用的不对，$!也不对

yybmsrs

http://stackoverflow.com/questio ... te-ioctl-for-device

$!只有失败操作时才有意义

另外你那个or用的不对，$!也不对

jason680

回复 1# tonyliuy

# perldoc -f rename
    rename OLDNAME,NEWNAME
            Changes the name of a file; an existing file NEWNAME will be
            clobbered. Returns true for success, false otherwise.

            Behavior of this function varies wildly depending on your system
            implementation. For example, it will usually not work across file
            system boundaries, even though the system mv command sometimes
            compensates for this. Other restrictions include whether it works
            on directories, open files, or pre-existing files. Check perlport
            and either the rename(2) manpage or equivalent system
            documentation for details.

            For a platform independent "move" function look at the File::Copy
            module.

   

tonyliuy

$!只有失败时才有意义这个我知道，你说的用的不对是指什么？我想的是system函数运行成功，or后面的就不运行了；system运行出错，就报出错误原因，看看是文件名的问题还是内存什么的其他问题回复 4# yybmsrs


   

yybmsrs

回复 7# tonyliuy


    实际跟你想的是反的，system成功返回的是0，失败返回的是非0

1.                Since "SIGINT" and "SIGQUIT" are ignored during the execution
   
2.                of "system", if you expect your program to terminate on receipt
   
3.                of these signals you will need to arrange to do so yourself
   
4.                based on the return value.
   
5. 
   
6.                    @args = ("command", "arg1", "arg2");
   
7.                    system(@args) == 0
   
8.                         or die "system @args failed: $?"
   
9. 
   
10.                If you’d like to manually inspect "system"’s failure, you can
    
11.                check all possible failure modes by inspecting $? like this:
    
12. 
    
13.                    if ($? == -1) {
    
14.                        print "failed to execute: $!\n";
    
15.                    }
    
16.                    elsif ($? & 127) {
    
17.                        printf "child died with signal %d, %s coredump\n",
    
18.                            ($? & 127),  ($? & 128) ? 'with' : 'without';
    
19.                    }
    
20.                    else {
    
21.                        printf "child exited with value %d\n", $? >> 8;
    
22.                    }
    

复制代码

tonyliuy

原来是这样... ...谢了~回复 8# yybmsrs


   

b114213903

直接用perl内置的rename是不是更好？