一小段代码,求改写perl到python

weixin_43768101 2018-11-26 04:46:14
完全不会perl,求大神帮忙改写以下的perl script成python,如果能优化以下代码就更好了,感激不尽。谢谢

use warnings;
use strict;

if (scalar(@ARGV) != 2) {
print "Expecting 2 parameters: original file list and the new file list to compare to.\n";
} else {
open my $file1, '<', $ARGV[0] or die "Cannot open file: $!";
open my $file2, '<', $ARGV[1] or die "Cannot open file: $!";
open my $newfile, '>', 'output.txt';

my @oldlist = <$file1>;
my @newlist = <$file2>;
my $i = 0;
my $isEqual = 'false'; # A flag to identify new/modified entries #

# sorting the two arrays to make the comparison more efficient.
@oldlist = sort @oldlist;
@newlist = sort @newlist;

while (scalar(@newlist) != 0) {
$isEqual = 'false';
for (my $i=0; $i<scalar(@oldlist); $i++) {
if ($oldlist[$i] eq $newlist[0]) {
$isEqual = 'true';
last; # No more comparison is needed for this entry. Jump out of the loop #
}
}
if ($isEqual eq 'false') {
print $newfile shift @newlist;
} else {
shift @newlist;
splice(@oldlist,$i,1);
}
}

close $file1 or die "Cannot close file: $!";
close $file2 or die "Cannot close file: $!";
}

exit;
...全文
66 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
weixin_43768101 2018-11-26
  • 打赏
  • 举报
回复
https://bbs.csdn.net/topics/392482547 大概就这样
ruancan 2018-11-26
  • 打赏
  • 举报
回复
看不懂perl,你可以直接说一下功能
Backtrack5[bt5]中文指南【BackTrack Chinese Guide V0.7】 由神经元信息安全多元团队制作,迄今最全面的backtrack5中文操作指南,详解了backtrack5系统各个功能使用。 叫《backtrack5从入门到精通》应该没问题吧~呵呵 适用范围:Backtrack爱好者、Linux安全爱好者、渗透测试师、自由爱好者„„ ===================下面是序=========================== 再次感谢 backtrack让众多菜鸟爱上了 Linux。其实无论是 KDE、Fluxbox还是 GNOME,都只是一种 图形界面而已,本指南还是以KDE为主,为照顾菜鸟朋友,也加上了部分GNOME的内容。 Backtrack 中文指南会逐渐去掉了 backtrack5之前的所有内容。另外吸纳了 Kevin2600的建议加入了一 些新的内容,嘿嘿。 Backtrack基础部分已经逐渐完善,此后该指南主要添加各类工具的使用说明。根据 backtrack5的工具 分类,本指南也增加以下十五章内容。培训时间根据各项技术的内容而定。实例讲解各类工具的使用, 各类技术的原理和实践应用,各类工具的编写原理,高级 DIY改写各类工具。 以上课程分: 初级(Linux基础、python基础、perl基础)、 中级(backtrack各类工具应用,重点是 aircrack-ng系列工具和 metasploit framework)、 高级(backtrack各类技术原理、工具改写和汉化)等三个级别的训练组。 1. Linux基础知识 2. Information Gathering 信息搜集工具 3. Vulnerability Assessment 漏洞检测工具 4. Exploitation Tools 漏洞利用工具 5. Privilege Escalation 权限提升工具 6. Maintaining Access 维护访问工具 7. Reverse engineering 逆向工程工具 8. RFID Tools RFID工具 9. Stress Testing 压力测试工具 10. Forensics 取证工具 11. Reporting Tools 报告工具 12. Services 服务 13. Miscellaneous 杂项 14. python编程基础 15. perl编程基础

37,718

社区成员

发帖
与我相关
我的任务
社区描述
JavaScript,VBScript,AngleScript,ActionScript,Shell,Perl,Ruby,Lua,Tcl,Scala,MaxScript 等脚本语言交流。
社区管理员
  • 脚本语言(Perl/Python)社区
  • IT.BOB
加入社区
  • 近7日
  • 近30日
  • 至今

试试用AI创作助手写篇文章吧