论坛 › Perl › Perl 编程经验

wendu 发表于 2015-12-28 10:02:35

Perl 编程经验

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 = @_;
    $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 carefulthis.
         @files[$j] ne ".")
      {
            system "del /F/Q $dir\\@files[$j] ";
      }
    }
}

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

sub CopyTargetToBin
{
    my $dir = @_;
    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\\*";
}

查看完整版本: Perl 编程经验