Perl文件内容对比

比较经典的一种对比文件的方式。。看了这段代码有点感悟。

但没有写出来，回头整理看看。。

#! /usr/bin/perluse strict;
use warnings;my $src_lines_1_ref = get_lines_from_file('1.txt');
my $src_lines_2_ref = get_lines_from_file('2.txt');
my @dst_lines = grep {my $line = $_;                                              grep $_ eq $line, @$src_lines_1_ref;
} @$src_lines_2_ref;
write_lines_to_file('3.txt', \@dst_lines);sub get_lines_from_file {my $file = shift || "";my @lines;open my $FILE, "<$file" or die "Cannot open $file: $!";while (<$FILE>) {chomp;       next if /^\s*$/ #删除空行s/^\s*//;           # 注释掉行头的空格s/\s*$//;           # 注释掉行尾的空格push @lines, $_;}close $FILE;return \@lines;
}sub write_lines_to_file {my $file = shift || "";my $lines_ref = shift || "";open my $FILE, ">$file" or die "Cannot open $file: $!";for (@$lines_ref) {print $FILE $_."\n";}close $FILE;
}

转载于:https://www.cnblogs.com/xiaoCon/archive/2013/03/03/2942105.html

Perl文件内容对比相关推荐

python 文件内容对比
1.将两份文件内容一行行的对比数据是否有对应的内容 # 倆文件对比 # python3 fileby.py /Users/Desktop/aa.txt /Users/Desktop/aa2.txt # ...
perl 文件内容替换
命令: perl 命令可以批量替换文件中的一些内容,操作起来非常高效.下面举几个例子: perl -pi -e "s/aaa/bbb/gi" test.txt 上面的命令把test ...
php 文件内容对比,php 比较两个文件是否相同
-### php比较两个文件是否相同小一点的文件直接实用内置函数就可以了 function md5_files($filename,$filename1){ $file1 = md5_file($f ...
文件内容替换：SED 命令和 Perl
Linux文件内容替换 Perl 把文件file.txt中的before改为after perl -pi -e 's/before/after/g' file.txt -p 表示匹配文件的每一行 ...
java对比俩个word文件内容差异
java对比俩个word文件内容差异添加依赖: <dependency><groupId>e-iceblue</groupId><artifactId> ...
别再手动比对文件啦，Python 让你轻松实现文件内容以及目录对比！！！
目录一.文件内容差异对比方法 1.1 两个字符串的差异对比 1.2 生成美观的对比HTML格式文档二.文件目录差异对比方法 2.1 单文件对比 2.2 多文件对比 2.3 目录对比问题引入:有这 ...
php 对比两个压缩包内容,php实现的zip文件内容比较类
本文实例讲述了php实现的zip文件内容比较类.是一个非常实用的PHP类文件.分享给大家供大家参考.具体分析如下: 该php zip文件比较类主要实现比较两个zip文件的内容,返回新增,删除,及相同的 ...
java tika 读取文件_【apache tika】apache tika获取文件内容(与FileUtils的对比)
Tika支持多种功能: 文档类型检测内容提取元数据提取语言检测重要特点: 统一解析器接口:Tika封装在一个单一的解析器接口的第三方解析器库.由于这个特征,用户逸出从选择合适的解析器库的负担, ...
php读取文件内容不全,php读取文件内容的三种方法
//**************第一种读取方式***************************** 代码如下: header("content-type:text/html;chars ...
Linux 下删除大量文件效率对比
今天我们来测试一下Linux下面删除大量文件的效率. 首先建立50万个文件 $ test for i in $(seq 1 500000);do echo text >>$i.txt;do ...

Perl文件内容对比

Perl文件内容对比相关推荐

最新文章

热门文章