perl学习—文本比对程序

最新推荐文章于 2021-01-28 11:39:38 发布

jason_child

最新推荐文章于 2021-01-28 11:39:38 发布

阅读量651

点赞数 1

分类专栏： perl学习笔记

本文链接：https://blog.csdn.net/jason_child/article/details/57418601

版权

这篇博客探讨了如何使用Perl编程语言来对比两个文本文件的差异，重点在于找出内容不一致的行数。

摘要由CSDN通过智能技术生成

perl学习—文本比对程序

比较两个文本文件中有多少行的内容不一致

#！usr/bin/perl
use strict;
use warnings;
my $line1;
my $num = 0;
open(FL1,"DATA1") || die "$!\n";            #句柄FL1，用于打开DATA1文件
open(FL2,"DATA2") || die "$!\n";

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

jason_child

关注关注

1
点赞
踩
3

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

perl文本处理总结[2]

红羊家园

09-17

4437

7. 文件成行读入把一个文件读入一个字符串方法: my $contents;{ local $/; $contents = ;}或my $contents = do {local $/; }例子: 文件中以空行为语块分割的标记，把语块内部顺序保留，而语块间逆序输出。#!open IN,"input.txt";open OUT,">output.txt";my $contents;{

双序列全局比对算法与双序列局部比对算法

07-05

使用Perl编程语言实现了双序列全局比对Needleman Wunsch算法，以及双序列局部比对Smith Waterman算法。该资源也可在github上下载：https://github.com/GouXiangJian/two_seq_alignment

参与评论您还未登录，请先登录后发表或查看评论

Perl文件内容对比

weixin_30600197的博客

03-03

474

比较经典的一种对比文件的方式。。看了这段代码有点感悟。但没有写出来，回头整理看看。。 #! /usr/bin/perl use 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'...

【Perl】序列匹配

weixin_33939843的博客

11-24

278

http://bbs.chinaunix.net/viewthread.php?tid=3621368&from=favorites Unix技术网的牛人就是多啊~~~一题目：有文本文件含5条序列（每行一条）GAGCATTCAGCATGACCATCCAGCTTGACCATCCTGGTAGACGATCTAGCATAGGCATCATGCAA要求对这些序列两两对比如果字符一样就在...

Perl与Python处理文本数值的一个比较

老好人(廖海仁）的专栏

12-12

3357

最近有意地用Python写一些原来习惯于用Perl写的脚本。发现Perl还是有其自由之处，在处理数值与字符串时有很大的方便。我所要做的工作是简单根据广告类别对模拟实验结果进行平均。这个任务用Perl编写需要36行代码写成，Python需要43行。即使两者都尽可能一个语句一行，仍然是Python需要的行数多（Perl包括其括号）。 Python的额外工作在于： 1）字典Key的初始化(Python

perl导入打分矩阵并对序列比对时进行打分

04-08

通过这个程序，你可以学习到如何在Perl环境中处理生物信息学问题，这对于深入理解序列比对和进化分析等生物学概念非常有帮助。同时，这也是一个很好的实践案例，展示了如何将理论知识转化为实际代码。

LINUXPERL学习和分析生物学信息的电脑工具.pdf

07-14

Perl程序可以轻松处理文本、文件和系统进程，且能在多种操作系统上运行，包括常见的Unix、Linux和MacOSX。在生物信息学中，Perl常用于编写小工具来处理序列数据。例如，我们可以编写一个Perl脚本来搜索SWISS-PROT...

非常著名的perl学习手札(初学者有福了)

08-21

### 非常著名的Perl学习手札（初学者有福了） #### 1. 关于Perl5 **1.1 Perl的历史** Perl是由Larry Wall在1987年开发的一种高级编程语言，最初的设计目的是为了简化文本处理任务，后来发展成为一种功能强大的...

perl比较大小

weixin_34178244的博客

04-25

1677

在学perl 或者说记录吧比较数字大小 #! /usr/bin/perl -w use strict; #读入一串数字，将它们按照数字排序，将结果按右对齐的列打印出来 @_=(17,000,04,1.50,3.14159,-10,1.5,4,2001,90210,666); @_=sort {$a<=>$b}@_; for (@_) { ...

perl python文本处理_Perl 调用R分词进行文本数据分析

weixin_39862716的博客

01-28

228

最近有一个文本分析的需求，因分析系统用的是Perl，而Perl下优秀的中文文本分析包又少，所以调用R处理文本数据。为什么不用Python尽管Python拥有完备的NLP开源包支持，但是理由也很简单——因为Python目前接触不多，不敢班门弄斧，Python以后再说。目前，也只是需要的是一个快速原型，如果生产数据剧增，后期还需用c++重构下核心算法(顺便提一下，HMM就不重写了，吃力不讨好)。如何开...

perl 文本处理

shanling2004的专栏

12-08

568

<br />利用sar linux命令显示，cpu的使用率如下：<br />Linux 2.6.18-92.el5 (qa-lombardi7-10.qa.ebay.com) 11/24/2010 01:42:02 AM CPU %user %nice %system %iowait %steal %idle 01:42:03 AM all 0.00 0.00 0.00 60.30 0.00

Perl简单文本读写及注释

Crazy Bird

03-16

987

这是网上广泛流传的perl文本读写方法, 但是有些没有讲清楚, 所以我单独加了注释. 1、文件名前面没有">"表示读文件 open(FILE,"C:\test.txt"); while() { chomp; print "$_\n"; } close(FILE); 2、文件名前面有一个">"表示写文件，并覆盖原有内容 open(FILE,">

perl实现动态规划全局比对

weixin_45214599的博客

11-30

701

perl实现动态规划全局比对代码代码 #!/usr/bin/perl use warnings; @data=(); while(<DATA>) { chomp $_; @array=split("\t",$_); push (@data,[@array]); } $seq_A=$data[0][1]; $seq_B=$data[1][1]; $Match=$data[2][1]; $Mismatch=$data[3][1]; $Gap_symbol=$data[4][1]; @se

perl中正则匹配中文字符

u012553625的博客

08-22

2825

写下这个题目，首先要区分的是，不是在perl的正则中找到中文，那样只要根据字符集的范围就可以找到，而是要找到给定中文字符串中是否包括指定的字词，比如，当下的某个系统中需要过滤不厚先生的名字。通常，在脚本型语言如，PHP或者编译型语言如，Java中，要匹配某个字符串中是否有中文，如张老三，大致写成这样：/.*张老三.*/字符集的设定，应该跟程序的代码环境保持一致即可。在Perl中却是行不通，在...

perl脚本语言学习

Viro Yiheng

09-13

1154

来公司的第二个星期便看了一下perl语言，发现掌握一门脚本语言还是非常有用的。到现在为止已经入职两个月，用perl脚本做了这些活： 1. 修改了公司的一个爬取网页源代码的脚本 2. 改进了一个出特征库的脚本，根据svn status的状态，来优化，将只需要添加的DB的数据进行处理。 3. 编写了一个脚本，用于比对两个文件夹的文件（文件数量大约在+），之后选择需要处理的文件。用pe

perl比较两个目录中的文件内容是否相同

xiaocao9903的专栏

10-16

4453

#比较两个目录中的文件内容是否相同 #!/bin/perl if($#ARGV { print "usage:perl compare.pl dir1 dir2\n"; exit(-1); } #my($rec, $ref) = @ARGV; #!/bin/perl my($lat1,$lat2)=@ARGV; system ( "dir \/b \/s \/O:N $

生物信息学基础与Perl编程

2. **序列比对**：介绍如何使用Perl编写程序进行序列比对，寻找相似性，以揭示物种间的遗传关系或疾病相关变异。 3. **生物数据库查询**：阐述如何访问和检索NCBI（国家生物技术信息中心）等公共生物数据库，以及...