新手问个字符串匹配的问题

oopszh

UID: 23571
帖子: 1
积分: 2
在线时间: 10 分钟

1^# oopszh 发表于 2005-03-26 01:43

新手问个字符串匹配的问题

新手问个字符串匹配的问题
如果一个文件是分多行存放的
如：
asdfasdfasdf
asdfasdfasdfasdf
asdfasdf
asdfasdfasdf
.
.
.
如果想判断前三行一共有几个字符该怎么做呀？
如果前三行字符大于30就输出，如果小于就不输出～

谢谢大家了

firzen

UID: 29076
帖子: 1
积分: 2
在线时间: 10 分钟

2^# firzen 发表于 2005-03-27 11:02

open (F,'A.txt...
open (F,'A.txt');
for (1..3){
$s.=<F>;
}
close F;
print $s if (length($s)>30)

oopszh

UID: 23571
帖子: 1
积分: 2
在线时间: 10 分钟

3^# oopszh 发表于 2005-03-27 13:17

多谢了～--发...
多谢了～
发现length()会把换行符也当作一个字符来处理。

如果是文件中有记号来标识比如：
#sdfas
sdfasdf
asdfasdf
#sfsfsf
asdf
sdfsfg
#sdfadfg
sfadffsf
sfsafd
.
.
.
怎么样来计算两个＃之间字串的长度呢？
上面的那个for循环好像就不行了～

subs

UID: 1558
帖子: 17
积分: 39
在线时间: 10 分钟

4^# subs 发表于 2005-03-27 21:43

open(F,'flie.t...
open(F,'flie.txt') || die "$! -- $^E\n";
my $e=0;
my $s='';

for ( <F> ) {
chomp; # 如果你不想将换行符计算在内
$e = 1 if s/^#//;
if ( $e == 1 ) {
$s .= "$_";
}
else {
next if $s eq '';
print length $s,"\n" and $s = '' if $s ne '';
$e = 0;
}
}

oopszh

UID: 23571
帖子: 1
积分: 2
在线时间: 10 分钟

5^# oopszh 发表于 2005-03-27 22:51

多谢了!-- 多谢了!

搞定了~~

hoowa

UID: 24390
帖子: 143
积分: 328
在线时间: 1 天 4 小时

6^# hoowa 发表于 2005-03-28 08:47

:) 灌水........

booboo

UID: 46324
帖子: 121
积分: 278
在线时间: 20 小时

7^# booboo 发表于 2005-03-28 19:06

[color=red]灌~...
[color=red]灌~ [/color]

cactus

UID: 10814
帖子: 165
积分: 379
在线时间: 1 天 13 小时

8^# cactus 发表于 2005-03-29 15:27

也可以设置行尾...
也可以设置行尾分割符号
{
local $/ = '#';
open(FILE, "A.txt");
my $s = <FILE>;
$s = s/[\r\n]//g; #如果不计算换行回车的话
print $s if length($s)>30;
}