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

侠客

UID：638971
注册：2007-11-8
最后登录： 2008-08-01
帖子：48
精华：0

可用积分：60 (白手起家)
信誉积分：0
专家积分：0 (本版:0)
空间积分：0
推广积分：0

来自：黑龙江
状态：...离线...

[个人空间] [短信] [博客]

[推广获积分]

1楼发表于 2008-7-3 09:49

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

converse

广告杀手－法王
Stupid is as stupid does.

UID：117516
注册：2003-12-7
最后登录： 2008-09-08
帖子：12173
精华：13

可用积分：4985 (小富即安)
信誉积分：145
专家积分：130 (本版:20)
空间积分：0
推广积分：0

来自：芒果花开的地方
状态：...在线...

[个人空间] [短信] [博客]

[推广获积分]

2楼发表于 2008-7-3 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";
}

您对本贴的看法：鲜花[0] 臭蛋[0]

__________________________________

唯坚持,得成功.
C++名人Alexandrescu说,"十几岁的少年天才到处都有,三十多岁的优秀设计师凤毛麟角".我做不了十几岁的少年天才,但愿到三十多岁时能成为一个优秀工程师.

卖书: http://bbs.chinaunix.net/thread-1053812-1-1.html

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

mazelmiler

侠客

[个人空间] [短信] [博客]

[推广获积分]

3楼发表于 2008-7-3 10:01

回复 #2 converse 的帖子

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

converse

广告杀手－法王
Stupid is as stupid does.

[个人空间] [短信] [博客]

[推广获积分]

4楼发表于 2008-7-3 10:03

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

mazelmiler

侠客

[个人空间] [短信] [博客]

[推广获积分]

5楼发表于 2008-7-3 10:07

回复 #4 converse 的帖子

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

mazelmiler

侠客

[个人空间] [短信] [博客]

[推广获积分]

6楼发表于 2008-7-3 10:08

回复 #4 converse 的帖子

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

converse

广告杀手－法王
Stupid is as stupid does.

[个人空间] [短信] [博客]

[推广获积分]

7楼发表于 2008-7-3 10:14

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

mazelmiler

侠客

[个人空间] [短信] [博客]

[推广获积分]

8楼发表于 2008-7-3 10:16

回复 #7 converse 的帖子

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

mazelmiler

侠客

[个人空间] [短信] [博客]

[推广获积分]

9楼发表于 2008-7-3 10:21

回复 #7 converse 的帖子

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

mazelmiler

侠客

[个人空间] [短信] [博客]

[推广获积分]

10楼发表于 2008-7-3 10:24

回复 #7 converse 的帖子

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

您对本贴的看法：鲜花[0] 臭蛋[0]

空间积分可以换礼品了！ | 有奖跟帖：服务器节能，奖50-100元图书 | 致电800-858-2903,了解DELL如何为你量身订制笔记本 | 送2G U盘

首页 » 论坛 » Perl »