perl比较两个文件字符串的实例代码
发布时间：2023-02-15 15:40:18
标签：文件字符串
需求：取文件1中的一行，和文件2中所有的数据进行比较，有相同的保存起来，否则删除。
#!/usr/bin/perl
#use strict;
open(FILE1,"C:/Perl/BX/BX-Users.txt");
open(FILE2,"C:/Perl/BX/BX-Book-Ratings.txt");
open(result1,">C:/perl/BX/BX-Users_result.txt");
my $i=0;
my $j=0;
while((my $bxUser=<FILE1>)&&($i<10))
{
my $userId=substr($bxUser,0,index($bxUser,","));
while(my $rankUser=<FILE2>)
{
my $userIdCmp=substr($rankUser,0,index($rankUser,","));
if(($userId==$userIdCmp)&&($j==0))
{
syswrite(result1,"$bxUser");
$j++;
}
}
$j=0;
$i++;
}
close(FILE1);
close(FILE2);
close(result1);
0
投稿猜你喜欢
一：js原型继承四步曲//js模拟类的创建以及继承 //动物（Animal），有头这个属性，eat方法 //名字这个属性 //猫有名字属性，- 前言props指父组件往子组件中传入参数，我们来介绍下如何理解vue3的props的原理介绍了解其原理之前我们要清楚vue的虚拟节点是什么，
- 1.在Qt Designer中设计两个简单窗口2.将.ui文件转换成.py文件3.新建**.py文件#-*- coding:utf-8 -*
- 以前没见过这个效果，滚动纵向滚动条看看效果就明白了这样的效果，广告商应该比较喜欢。<!DOCTYPE html PUBLIC &quo
- 概述基于Swoole的websocket服务，计划整合3篇进行技术整理，该服务主要有2个核心业务，用户消息服务(消息计数统计)和 客服IM消
- 前言这是个在写计算机网络课设的时候碰到的问题，卡了我一天，所以总结一下。其实在之前就有用requests写过python爬虫，但是计算机网络
- 本文实例讲述了php基于协程实现异步的方法。分享给大家供大家参考，具体如下：github上php的协程大部分是根据这篇文章实现的：http:
- 一、CSS HACK以下两种方法几乎能解决现今所有HACK.1, !important随着IE7对!important的支持, !impor
- 钉钉开放平台传送门：https://open.dingtalk.com我司使用钉钉作为内部通讯工具，基本上大家在电脑和手机上都开着，消息可以
- Rotation滤镜可以使图片产生旋转效果，注意必须是IE5.5及IE6.0才能看到！方法如下：制作过程：一、准备图片1张。二、建立一个CS
- ul: unordered lists ol: ordered lists li: Listsol 有序列表:<ol>
- WebSocket的作用WebSock其实在平常使用，我们是时常见到的，用于实时通讯，例如我们常用的实时聊天、服务端向客户端消息推送、也可以
- 之前遇到技术问题总能在技术博客上得到启发，十分感谢各位的无私分享。而自己却很少发文，固然是水平有限，但也限制了知识积累和总结。今后多总结分享
- 本文实例讲述了Yii2框架实现登陆添加验证码功能。分享给大家供大家参考，具体如下：models中LoginForm.phppublic $v
- 一、框架架构二、项目目录结构三、框架功能说明解决痛点：通过session会话方式，解决了登录之后cookie关联处理框架天然支持接口动态传参
- 多进程&多线程服务端：多进程和多线程的开启方式相同。缺点：<1> 由于Cpython的GIL，导致同一时间无法运行多个线
- 运行效果实现代码# -*- coding: utf-8 -*-import tkinter as tkinterimport tkinter
- import turtle as tt.setup(800,600,0,0,)t.pensize(2)t.speed(1)t.color(&
- 实现目标：mysql下将自增主键的值，从10000开始，即实现自增主键的种子为10000。方案1）使用alter table `tablen
- ini文件是windows中经常使用的配置文件，主要的格式为：[Section1]option1 : value1option2 : val
