Perl 编程经验

最新推荐文章于 2025-03-30 15:17:58 发布

转载最新推荐文章于 2025-03-30 15:17:58 发布 · 82 阅读

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/jthou/articles/764265.html

1.VC6编译脚本

#!/c:/perl/bin/perl #-w
#--------------------------------------------------------------------
system "msdev test.dsp /MAKE \"mfw - Win32 Debug\" /REBUILD  >DebugLog";
open(FILE, "<DebugLog") || die "Can't open the file DebugLog\n";
while($line = <FILE>)
{
    print $line;
}
close(FILE);
#---------------------------------------------------------------------
system "msdev test.dsp /MAKE \"mfw - Win32 Release\" /REBUILD >RleaseLog";
open(FILE, "<RleaseLog") || die "Can't open the file RleaseLog\n";
while($line = <FILE>)
{
    print $line;
}
close(FILE);

2.删除没有用的编译文件

sub DelBuildFiles
{
    $dir = @_[0];
    $ret = opendir(DIR, $dir) || die ("can not open $dir\n");
    @files = readdir(DIR);
    for(my $j=0; $j<@files; $j++)
    {
        if(@files[$j] ne "test.dll" &&
           @files[$j] ne ".." &&               # Be careful this.
           @files[$j] ne ".")
        {
            system "del /F/Q $dir\\@files[$j] ";
        }
    }
}

3.创建文件夹并拷贝文件

sub CopyTargetToBin
{
    my $dir = @_[0];
    my $target = "..\\..\\..\\bin";
    if(!opendir(DIR, "$target.\\$dir"))
    {
      if(!opendir(TARGDIR, $target))
      {
        if(!mkdir($target, 777))
        {
            print "make $target failed\n";
            exit(0);
        }
     }
     if(!mkdir("$target"."\\$dir", 777))
     {
        print "make $target.\\$dir failed\n";
        exit(0);
      }
   }
   system "copy $dir\\* $target.\\$dir\\*";
}

转载于:https://www.cnblogs.com/jthou/articles/764265.html