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

最新推荐文章于 2025-04-15 14:55:18 发布

原创最新推荐文章于 2025-04-15 14:55:18 发布 · 2.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#windows #unix #join

perl学习专栏收录该内容

1 篇文章

订阅专栏

此博客展示了一段Perl脚本代码，用于处理当前目录下文件的换行符。脚本遍历目录中的文件，将Windows风格的换行符替换为Unix风格，还会保留文件的权限和所有者信息，最后删除临时文件。

#!/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);