请教如何提取小于9位的字符？

perl911

比如：

yyuae6367yw367
tryeryiuuyuyi
3rw56tr4
12
6g678f





过滤后只保留下小于9位的字符：

3rw56tr4
12
6g678f



请大家指点一下，多谢！！！

soichiro

if(length($str)<9)
{
...
}

perl911

呵呵，多谢soichiro兄弟指点！俺去试试。

perl911

原帖由 soichiro 于 2006-1-9 21:40 发表
if(length($str)<9)
{
...
}

试了一下，很好用！
但3rw56tr4（8位）没有被提取出来，把<9改为<10就可以了。
想了一下，可能是代码把换行符也包括在内（8位就变成9位），
所以就没有提取出来。

joson12345

#!/usr/bin/perl -w
$aa=" asdkfjasld asdf asdfasdfa asdfaaaa ";
while ($aa=~m/\b(.{1,8})\b/g) {
                push(@b,"$1");
            }
print "@b";

seawolf1979

请问这个为什么不行?

#!/usr/bin/perl

while (<>) {
        chomp;
     if (/\w{1, 9}/) {
        print "$_\n";
  }
}

apile

if (/\w{1, 9}/) {
因为你只匹配1到9个char...但是
adjfksjdfksjdfksdjfksf 这个也匹配1~9个char..所以没用...

vio

原帖由 seawolf1979 于 2006-1-10 12:58 发表
请问这个为什么不行?

#!/usr/bin/perl

while (<>) {
        chomp;
     if (/\w{1, 9}/) {
        print "$_\n";
  }
}

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. while (<>) {
   
5.         chomp;
   
6.      if (/^\w{1, 9}$/) {
   
7.         print "$_\n";
   
8.   }
   
9. }
   

复制代码