perl查找字符行
本帖最后由 jackbrown 于 2010-11-09 19:55 编辑
我们有一个txt文件[code]TAGAGCCTAGAAAAAAGTTACATGA 1250 1 chrY:11921135 F
GAAAAACAGGAACATTGTAGAGGAA 1250 1 chrY:11780373 F[/code]如何找出里面AAAA的个数，其中AAAAAA表示有3个AAAA
我本来是这样写的[code]#!/usr/bin/perl
open(ctr,'sss.txt')||die("Could not open sss.txt");
$text=
本帖最后由 chuanwj 于 2012-08-01 19:58 编辑 小弟刚刚入门，问个比较简单的问题。 要处理的文件是这样的：（**代表不关心的数据） ***** ***** start:a/b/c (abc) 23erq end:d/e/f/w (effa) erw wer ***** *** ** start:a/b/cd (abc) sef wqer swf end:d/e/ff/w (effa) ewe dfw wer ****** start:n/n/e/df (efe) we3r jpi ef end:e/f/v/fwe (ere) erqw w3er i8j ***** start:a/b/cc (ef) erq erq ip end:d/e/ff (er...
本帖最后由 blackantt 于 2014-01-11 07:36 编辑 想用gvim或者perl把50000以上的行随机排列，不动行内容，只要按行乱序。 (用 sort ,cat 等的组合好象都出错.) 已经找到了 #!/usr/bin/perl use List::Util qw(shuffle); my @text = <>; print @text[$_ .. $_ + 2] for shuffle grep { not $_ % 3 } 0 .. $#text;
各位大牛们，小弟会一点入门级perl语言，有一个问题想请教大家： 我想知道，perl对变量的模式匹配是如何操作的，例如，我有一个文件，里面数据的格式如下 javascript:; 数据名称为>后面的那些字符，我有一个文件，全是数据名称，我想提取出那些匹配的数据名称下面的字符（ttacg之类的），自己弄了个难看的脚本如下 #!/usr/bin/perl if (@ARGV < 2) { die "usage: outputseq See script for details...
现在要将文件中的每条记录中的指定字符串截取出来具体如下： 记录: WAP_GATEWAY_ID=XZ-WAPGW BEARER_TYPE=2 USER_MSISDN=+8618091019685 Pesu_ID= SP_Name= UserType= IMEI= WAP_GATEWAY_ID=XZ-WAPGW BEARER_TYPE=2 USER_MSISDN=+8618091019686 SP_Name= UserType= IMEI= 现在，我想要的是 第一条记录：XZ-WAPGW，2+8618091019685， ， ， ， 第二条记录（第二条记录中没有Pesu_ID= 这个内容但是我想取的是如果没有...
本帖最后由 liuqiong7618 于 2010-07-21 10:49 编辑 这是的自己写的一个perl脚本--我不太会写 麻烦大家帮我看看,怎么无法运行: 我的目的是，打开一个文件，然后查找某行文件是否包含字串“disable = yes”，如果有，则将yes修改为no if (!open(FILE,"文件名")) { print "The file cannot found"; exit; } else{ while ($line = <>) { printf $line; ...
现在我从一个文件中读取记录，记录如下：
21:25 user=<[email]chenzq@43436.com[/email]>,password=<1122345>,owner=
