我有一个可用的 Perl 脚本,我想将它转换为 VBA 以在 Excel 宏中运行,以便可以轻松地将其共享给其他 PC。我有一个驱动 perl 脚本的 shell 脚本(我在其中传递参数)。我使用 Perl 脚本从一个固定宽度的文件(开头是 54,63)读取所有数据行的每个指定列,并将该数据与另一个文件进行比较并打印差异。我会在 Shell 脚本中传递参数,因为runpro.pl filea.txt fileb.csv > myoutput.txt
任何帮助都会很棒!特别是如果有人能指出我正确的方向,因为代码相当简单。谢谢!
#!/usr/bin/perl
#Perl Script runpro.pl
#***************************************************
use strict;
use warnings;
my ($fa, $fb) = @ARGV;
@ARGV = $fa;
my %codes;
while(<>) {
s/[\r\n]+\z//;
$_ = substr($_, 54, 63);
s/\s+\z//;
next if $_ eq "";
$codes{$_} =1;
}
@ARGV = $fb;
my %descrip;
while(<>) {
s/[\r\n]+\z//;
s/,.*//;
s/"//g;
$descrip {$_} = 1 if s/^1234//;
}
for (sort keys %codes) {$
print "$_\n" unless ($descrip{$_});
}