求教一个perl程序题：从文件中读取内容（内容就一排，是一些文字列），统计出连续的文字列

perl 编程，读取文件然后修改文件内容的问题~

ify_flag;
While(my $readin=<FH>){
if ($readin 匹配第一个条件) ## 匹配第一个条件，标记一下后，直接跳出循环
elsif ($readin 匹配第二个条件)
elsif ($readin 匹配第三个条件)
else ## 如果不匹配上述三个条件，则原样输出
}
close FH;
if (not defined $not_modify_flag){
print $output; ## 最后输出;
}
else {
print "匹配第一个条件，不做修改"."
";
}
exit(0);

#!/usr/bin/perl -w
die "perl $0
" unless(@ARGV == 1);
open IN,$ARGV[0];
open OUT,">Output.fa";
my $count = 1;
while(){
if($_) { #这个判断存在问题
print ">Leaf_$count
";
print OUT ">Leaf_$count
";
$count++;
}
}
close IN;
close OUT;

将if($_) 这个去掉再试试吧。
或者将这一句修改为 if($_=~/[ATCG]/gi)也可以
因为看你说的输出结果，文件句柄应该是打开了的，否则执行不到wile循环里面来，所以只可能是那一个判断的问题了。

#!/usr/bin/perl -w
use strict;
die "perl $0 <data1>" unless(@ARGV==1);
open (IN,$ARGV[0]) or die "Can't open file $ARGV[0]!\n";
open (OUT,">data2") or die "Can't create file data2\n";
while(<IN>){
chomp;
my @tmp=split /\t/,$_;
for(my $tmpc=1;$tmpc<@tmp;$tmpc++){
if($tmp[$tmpc-1] eq $tmp[$tmpc]){
print OUT "$tmp[$tmpc-1]\@2\t\@\@\@"；
$tmpc++;
next;
}
print OUT "\t$tmp[$tmpc-1]";
}
print OUT "\n";
}

perl -lane '$tmp=join "-", @F; $tmp=~s/\b(\S+)-\1/$1\@2 \@\@\@/g; print (join " ", (split /-/, $tmp))' data1>data2

---

嘉禾县15931278695： 求教一个perl程序题:从文件中读取内容(内容就一排,是一些文字列),统计出连续的文字列 - ？
宠胡三七： #!/usr/bin/perl -w use strict; die ＂perl $0 ＂ unless(@ARGV==1); open (IN,$ARGV[0]) or die ＂Can't open file $ARGV[0]!\n＂; open (OUT,＂>data2＂) or die ＂Can't create file data2\n＂; while(){ chomp;my @tmp=split /\t/,$_; for(my $tmpc=1;$...

嘉禾县15931278695： Perl如何读写文件 - ？
宠胡三七： 在Perl中可以用open或者sysopen函数来打开文件进行操作,这两个函数都需要通过一个文件句柄(即文件指针)来对文件进行读写定位等操作.下面以open函数为例:读:open(文件句柄,＂<文件名＂)/open(文件句柄,＂文件名＂),...

嘉禾县15931278695： perl如何读入一个.txt文本中的内容,将文本里的内容放到一个数组里 - ？
宠胡三七： 很简单的,例子代码如下:open(FD,＂1.txt＂); @lines=<FD>; close(FD);上面的代码之后,就可以使用@lines数组了,比如显示第三行的语句:print $lines[2];

嘉禾县15931278695： perl 读取文件夹下所有txt,并处理数据 - ？
宠胡三七： 还是昨天的那个程序,假设你的文件分为 1.txt 2.txt 3.txt,这个时候不要包含文件头,即所有的文件都是内容 程序修改为:#$head = <>; while(<>) { @line = split(/,/,$_); $lwfs = $line[7]; $user = join('|',$line[1],$line[2],$line[3],$line[4],$line[6],$line[7]); ...

嘉禾县15931278695： 学习笔记 如何读写Perl文件 - ？
宠胡三七： 本文和大家重点讨论一下如何读写 Perl 文件,主要包括打开、关闭 Perl 文件,读写Perl 文件,Perl 文件的状态,命令行参数和打开管道六部分内容,希望通过本文的学习你对 对读写Perl 文件有深刻的认识. 读写Perl 文件 一、打开、关闭Perl ...

嘉禾县15931278695： 如何用perl读入一个文件,计算文件中各个单词的出现频率,再输出 - ？
宠胡三七： 楼上兄弟批评的是.本人是门外汉,第一次回答程序方面的问题,没有经验,还请见谅!其实单词统计的问题 perl的文档中就有很好的实例.作为新手,我也在学习中.希望大家共同交流、进步.while ( /(\b[^\W_\d][\w'-]+\b)/g ) { $seen{$1}++;} 以上语句为实例中给出的单行统计单词方法. my @array = split /[\s \,\!\:\;\?\.\#]/; 这是个笨方法,使用标点来分割单词;但实际应用却可以灵活分出特殊用意的词. foreach (@array) { $words{$_}++ if /^\w/;} 可参考:文档:perlfaq6.htm

嘉禾县15931278695： 如何利用perl脚本,读文件的一行 - ？
宠胡三七： my $file = ＂File＂; # 将 File 改成你的档案路径. open F, $file or die ＂Can't open file '$file'for read. $!＂ ;my $line = <F>; #读一行 close F; print $line; #将读了那行打印出来

嘉禾县15931278695： 一个关于用perl把文件读进hash问题.？
宠胡三七： rutter : 你好.很高兴回答你的问题. 由于是html文件,如果直接读取里面的内容是不可行的.但你可以使用perl的正则表达试来进行提取.将取得的数据自动写入hash.(对大数据量或重复性工作),如果只有几行的话,就采用手动输入的方法吧.perl就是为了简化工作.

嘉禾县15931278695： perl 如何打开指定路径下的文件? - ？
宠胡三七： open(FILE, ＂D:/ferl.txt＂); #打开一个文件句柄 while(<FILE>){ #逐行读取该文件然后显示出来 print ＂$_\n＂; } close(FILE) #关闭文件句柄 在WHILE循环中也可以加入一些正则匹配等代码等等.

嘉禾县15931278695： perl脚本读文件最优方法请教？
宠胡三七： 你的代码一下子把所有行都读到@Contant里了,自然耗内存. 这种情况要用while循环一行一行地读,参见下面的改法. my ($filename) = ＂text.unl＂; unless (open (RDH,$filename)) { print ＂File open failed.＂; } while (my $line = &lt;RDH&gt;) { push @a, $line if /aaa/; push @b, $line if /bbb/; push @c, $line if /ccc/; } close RDH or die ＂Cannot close $filename:$!＂;