perl 提取介于某个区间的几行文字(转)
2009-11-08 22:36
417 查看
提取介于某个区间的几行文字
flw原话:这是面向行处理的一种轻量级解决方法。
比那些对整个文件进行模式匹配的方法不知优雅了要多少倍。
$start 表示开始标记的模式,$end 表示结束标记的模式,
if ( (/$start/ .. /$end/) and !/$end/ ){
表示需要开始和结束之间的,但不需要结束的那一行。
#!/usr/bin/perl
use warnings;
use strict;
open (INFILE,"/home/liuguiyou/qujian.txt") or die "Cannot open the inputfile: $!/n";
open (OUTFILE,">/home/liuguiyou/result.txt")or die "Cannot open the outputfile: $!/n";
while(<INFILE>){
if(/>chromosome01/../>chromosome02/ and !/>chromosome02/ ){
print OUTFILE "$_";
}
}
exit;
[liuguiyou@localhost ~]$ more qujian.txt
>chromosome01 Indica cv. 93-11
CTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAA
CCCTAAACCCTAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACAGCT
GACAGTACGATAGATCCACGCGAGAGGAACCGGAGAGACAACGGGATCCAGGCGCCAGCG
>chromosome02 Indica cv. 93-11
CTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAA
CCCTAAACCCTAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACAGCT
GACAGTACGATAGATCCACGCGAGAGGAACCGGAGAGACAACGGGATCCAGGCGCCAGCG
>chromosome03 Indica cv. 93-11
运行完以后:
>chromosome01 Indica cv. 93-11
CTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAA
CCCTAAACCCTAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACCCTAAACAGCT
GACAGTACGATAGATCCACGCGAGAGGAACCGGAGAGACAACGGGATCCAGGCGCCAGCG
相关文章推荐
- perl大幅文字提示例(从MTK脚本提取)
- 根据时间提取介于某个时间段的信息 分类: python基础学习 2013-08-16 17:26 311人阅读 评论(0) 收藏
- 用OneNote从图片提取文字
- 自然图片文字提取
- 关于RTF提取图片和文字的方法 (转)
- HTML5 JavaScript实现图片文字识别与提取
- 可以直接在QQ上直接提取图片的文字啦
- 图片文字提取之路-01预处理
- Matlab提取文字部分MSER特征并初步分类
- 高手指点(各位大侠,请教如何从图片中提取图片中的文字?)
- 关于文字的提取
- Android中如何提取HTML源码内的所有文字内容
- 用perl语言去提取文件里的数字
- C#提取HTML代码中的文字(转)
- 电脑端的全能扫描王:图片转文字识别、识别pdf、图片中的文字,图片提取txt
- pdf文字提取软件该怎么选
- Perl提取wtmpx日志最近用户登录信息写到系统日志Syslog里
- [经验总结]Perl提取网页信息
- 图片文字提取之路-02数据预测(指数平滑法)
- 怎么把PDF中的文字提取出来