📄 regenidl.pl
字号:
use strict;use Cwd;my $pwd = getcwd;opendir DIR, $pwd or die "$!";my @sub = grep -d && ! /^\.+$/ && !/\.svn/, readdir DIR;my $s;my $idl;for $s (@sub) { print "$pwd/$s\n"; chdir "$pwd/$s"; grep unlink, glob("Exodus_TLB.*"); e("copy ..\\..\\Exodus_TLB.pas"); $idl = (glob("*.idl"))[0]; die "no idl file in $s" unless $idl; e("midl -I \"..\\..\" " . $idl);}sub e { my $cmd = shift; print "$cmd\n"; system $cmd and exit(1);}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -