转化一个目录中windows文件为unix文件

address2

于 2004-08-03 15:31:00 发布

阅读量2.3k

点赞数

分类专栏： perl学习文章标签： windows unix join

本文链接：https://blog.csdn.net/address2/article/details/59934

版权

perl学习专栏收录该内容

1 篇文章 0 订阅

订阅专栏

#!/usr/bin/perl -w

opendir TheDir, ".";
@filename = readdir(TheDir);
#print join("/n", @filename);
foreach $fname (@filename)
{
    if ($fname =~ /^/./)
    {
        next;
    }
    my $tmpfileName = "$fname.tmp.tmp.tmp";
    open srcFILE, "<$fname" ;
    open tmpFILE, ">$tmpfileName";

    while( )
    {
        if ($_ =~ /^(.*)/r/n$/)
        {
            print tmpFILE $1."/n";
        }
        else
        {
            print tmpFILE $_;
        }
    }
    close srcFILE;
    close tmpFILE;

    my @fileStatus = stat($fname);
    chmod($fileStatus[2], $tmpfileName);
    chown($fileStatus[4], $fileStatus[5], $tmpfileName);

    #delete srcfile
    unlink($fname);
    `mv $tmpfileName $fname`;

}
`rm *.tmp.tmp.tmp`;
closedir(TheDir);