高手请进求 perl 分隔字符串的方法，其中分隔符不是一种

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

1^# mazelmiler 发表于 2008-07-03 09:49

高手请进求 perl 分隔字符串的方法，其中分隔符不是一种

例如 a b c"\t"d"\t"e"\n"f"\n"
分析完后得到如下：
@a 里面有a b c d e f
我试过@a = split(/"\t"|"\r\n"|" "/, $value); 是不行的
在线急等啊

converse

UID: 43541
帖子: 20
积分: 46
在线时间: 10 分钟

2^# converse 发表于 2008-07-03 09:54

[Copy to clipboard] [ - ]

CODE:

$text = 'a b c"\t"d"\t"e"\n"f"\n"';
@array = split/ |\"\\t"|\"\\n"/, $text;
foreach (@array)
{
print $_, "\n";
}

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

3^# mazelmiler 发表于 2008-07-03 10:01

谢谢我的意思是\t代表tab键 \n 代表回车键，但你的这种方法我也试过，不行的哦！还是谢谢您
大家帮我出出主意啊！急啊~~

converse

UID: 43541
帖子: 20
积分: 46
在线时间: 10 分钟

4^# converse 发表于 2008-07-03 10:03

@array = split/\s/, $text;呢?

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

5^# mazelmiler 发表于 2008-07-03 10:07

\s到是接近但是如果例如这样
a 空格空格 b 回车 c 缩进缩进缩进缩进 d 空 e 回车回车 f
这样的话会出现N多空值

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

6^# mazelmiler 发表于 2008-07-03 10:08

如果字符串里面有其他的特殊字符怎么办？现在只需用空格，回车，缩进为分隔符

converse

UID: 43541
帖子: 20
积分: 46
在线时间: 10 分钟

7^# converse 发表于 2008-07-03 10:14

呃...\s是空格,tab,换行的集合.

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

8^# mazelmiler 发表于 2008-07-03 10:16

哦那我记错了，多谢大师~

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

9^# mazelmiler 发表于 2008-07-03 10:21

在问下大师 perl 里有没有java里例如 eques的方法

mazelmiler

UID: 25001
帖子: 2
积分: 4
在线时间: 10 分钟

10^# mazelmiler 发表于 2008-07-03 10:24

因为我在判断$_是否为空时总是出错Use of uninitialized value in numeric eq (==) at readXml.pl line 76.
我是这样写的
foreach (@a){
                  # print;
                     if($_==undef){
                     print"null";
                     }else{
                        print;
                     }
                     print"\n";
            }
我知道我基本功不扎实，刚接触perl，请大师们见谅

高手请进 求 perl 分隔字符串的方法，其中分隔符不是一种

高手请进 求 perl 分隔字符串的方法，其中分隔符不是一种

高手请进求 perl 分隔字符串的方法，其中分隔符不是一种

高手请进求 perl 分隔字符串的方法，其中分隔符不是一种