open(F1,"$infile");#原始文件open(F2,">$outfile");#新建文件while($s=<F1>){ ($k)=split(/\s /,$s); print F2 $s if (! $KEYS{$k});#输出不存在的行 $KEYS{$k}=1; #标记}close(F2);close(F1);
相关推荐:
- ESP8266氛围灯
- C#读取主板cpu硬盘网卡序列号并设置注册码
- Java 使用xs:all(提高篇
- C# 摇奖机Demo(入门级示例)
- 连续点击返回键,退出app实例源码(android)
- SqlServer自动备份,分离,附加,删除小工具
- c# bmp图片转 jpg格式实例 附源码
- 基于51单片机的智能加湿器
- Java 分割的窗体界面(基础篇
- asp.net企业意见管理系统源码(含数据库)
- android7新大陆sdk
- LPC824外设demo
- 基于QT的员工管理系统毕业设计论文.doc
- zend解码工具
- C#DropDownList下拉框带搜索提示(select自动补全)
- Python实现统计《红楼梦》完整版出场次数
- C# socket 聊天室(含文件传输)
- PHP轻量级企业网站管理系统(DouPHP)
- STM8L151例程
- 表单验证+密码强度检测(复杂度分:低级/中级/高级)
评论