[perl] 问一个正则表达式

qiu_923

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

1^# qiu_923 发表于 2008-01-10 18:25

[perl] 问一个正则表达式

$line="11|a2|3y |4s |55";

如何把$line中的分割线|分开的部分分别保存到变量中？

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-01-10 18:45

$line =~ /([^|]+)/g

split也可以吧。

CU_wanglijun

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

3^# CU_wanglijun 发表于 2008-01-10 20:13

多谢楼上教我一个知识点

my $line="11|a2|3y |4s |55";

if ($line =~ /(.+)\|(.+)\|(.+)\|(.+)\|(.+)/) {
print "$1 -- $2  --  $3 -- $4 -- $5 \n";
}

while ($line =~ /([^|]+)/g) {
print "$1 \n";
}

运行结果：
11 -- a2  --  3y  -- 4s  -- 55
11
a2
3y
4s
55