如何去掉来自文件的字符串中的换行符

choose2005

UID: 11866
帖子: 37
积分: 85
在线时间: 2 小时

1^# choose2005 发表于 2007-09-04 21:11

如何去掉来自文件的字符串中的换行符

字符串取自文件
$/=">";
while (<EST>){
if (/(.*?)\s(.*?\n)(.*)/ms){
$string=$3;
$string =~ s/\n//;
}

$string =~ s/\n//;
这样替换不掉，怎么办？

doiob

UID: 20086
帖子: 106
积分: 243
在线时间: 15 小时

2^# doiob 发表于 2007-09-04 21:15

while (chomp(<EST>))

choose2005

UID: 11866
帖子: 37
积分: 85
在线时间: 2 小时

3^# choose2005 发表于 2007-09-04 22:00

$string =~ s/\n//g;即可

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

4^# perljoker 发表于 2007-09-05 17:16

QUOTE:

原帖由 choose2005 于 2007-9-4 21:11 发表
字符串取自文件
$/=">";
while (){
if (/(.*?)\s(.*?\n)(.*)/ms){
$string=$3;
$string =~ s/\n//;
}

$string =~ s/\n//;
这样替换不掉，怎么办？

貌似fasta格式的文件

zhouhaiming

UID: 13052
帖子: 41
积分: 94
在线时间: 2 小时

5^# zhouhaiming 发表于 2007-09-07 09:13

open FH, 'c:\a.txt';
while(<FH>)
{
chomp();
print $_;
}
close FH;