首页 > 代码库 > 又写了一段Perl
又写了一段Perl
又写了一段Perl,帮同事减轻负担....就是搜索pas文件,提取信息而已。
use warnings; use strict; use File::Find; $/ = undef; find(\&subprocess, "E:\\GpsClient"); sub subprocess { processfile($_) if /.pas$/; }; sub processfile { open(FH, shift); my $contents = <FH>; my $DBTableName = $1 if $contents =~ /DBTableName\s*:=\s*\‘(.*)\‘/i; my $DBTableCHNName = $1 if $contents =~ /DBTableCHNName\s*:=\s*\‘(.*)\‘/i; my %dict = $contents =~ /AddField\s*\(\‘(.*?)\‘\s*,\s*\‘(.*?)\‘/gi ; if ($DBTableName) { print "$DBTableName:($DBTableCHNName) \n"; foreach my $key ( keys %dict ) { print ‘Field‘, "\t", $key, " \t ", $dict{$key}, "\n"; } print "-" x 32, "\n\n"; }; close(FH); }
运行方式 xx.pl > c:\1.log
又写了一段Perl
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。