请问如何用perl统计一个字符串里面特定字符的个数？

gigigou

比如说有一个文件，每一行都是类似于以下的字符串（其实是DNA序列）
TCTCATGTGAAAAACTATATCAATAATATAAAAACA
TTGCTGGCTCCGGTGCGCTTGTGACGGCCCGTGGAA
TGTTCAATCGTCTTGAATGCAAAAATTGTTTTATTA
ACATGNNANNNNNNNNNNNNNNNNNNNNNNNNNNNN

用perl处理的时候先打开文件，然后while(<IN>
但是这样每次$_得到的都是整个一行的字符，也就是第一次  $_='TCTCATGTGAAAAACTATATCAATAATATAAAAACA'
我想要统计其中某个特定字符的个数（比如G的个数），想用shift,pop，但是变量类型不对
我刚开始学perl，请教各位应该怎么做？
谢谢！

谢谢各位的帮助！
祝大家中秋快乐！

3P主义

$_='TCTCATGTGAAAAACTATATCAATAATATAAAAACA';
my $count = () = /G/g;
print $count, "\n";

xti9er

C:\>perl -e "@a=shift=~/a/g;print scalar(@a)" asdaad
3

afukada

剛好之前有寫過~XD

1. While(<IN>)
   
2. {
   
3.   $all_length=length($_);
   
4.   $_=~s/G//g;
   
5.   $no_G_length=length($_);
   
6.   $G_count=$all_length-$no_G_length;
   
7.   $sum_G_count+=$G_count;
   
8. }
   
9. print $sum_G_count;
   

复制代码

thomaslyang

$_='TCTCATGTGAAAAACTATATCAATAATATAAAAACA';
my $count = () = /G/g;
print $count, "\n";
3P主义 发表于 2011-09-09 16:51

1. #!/usr/bin/python
   
2.   print( "TCTCATGTGAAAAACTATATCAATAATATAAAAACA".count("G"), end="\n");

复制代码

1. #!/usr/bin/perl -w
   
2. 
   
3. my $string = "TCTCATGTGAAAAACTATATCAATAATATAAAAACA";
   
4. 
   
5. my $count = 0;
   
6. ++$count while($string =~ m/A/g);

复制代码

zzmmgjj

1. perl -0777 -wnl -e 'print s/a//g, "\n"' <filename>

复制代码

afukada

再來一個~XD

1. $/="G";
   
2. @G_splice=<DATA>;
   
3. print $G_splice[$#G_splice]=~/G/ ? scalar(@G_splice) : $#G_splice;

复制代码

TIMTOWTDI

thomaslyang

zzmmgjj 发表于 2011-09-09 17:37

1. $_ = "TCTCATGTGAAAAACTATATCAATAATATAAAAACA";
   
2. 
   
3. print s/(A)/$1/g, "\n";

复制代码

gigigou

回复 5# thomaslyang


    谢谢！
实在太感谢了！

gigigou

谢谢以上各位！
非常感谢你们的热情帮助！
祝大家中秋快乐！