一个perl的匹配，搞了半天，没搞定。。

john.daker

UID: 36690
帖子: 162
积分: 372
在线时间: 1 天 12 小时

1^# john.daker 发表于 2008-11-26 20:01

一个perl的匹配，搞了半天，没搞定。。

$a="/";
$b="/a";
$c="/a/";
$d="/a/b";
$e="/a/b/";
$f="/a/b/c";
....

有这些格式的字符串，
像$a,$b就返回空
其他的就发挥a(第一个/和第二个/之间的）
有简洁的语句能做到吗？

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

2^# MMMIX 发表于 2008-11-26 20:48

按 / 分割，然后在 field 的个数 >= 2 的时候返回第一个 field 的值

PurpleYUE

UID: 43907
帖子: 36
积分: 82
在线时间: 1 小时

3^# PurpleYUE 发表于 2008-11-26 20:49

发挥？返回？

ly5066113

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

4^# ly5066113 发表于 2008-11-26 20:56

print $1 if m{/(.+?)/};

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

5^# MMMIX 发表于 2008-11-27 09:46

QUOTE:

原帖由 ly5066113 于 2008-11-26 20:56 发表
print $1 if m{/(.+?)/};

sweet

hitsubunnu

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

6^# hitsubunnu 发表于 2008-11-27 10:13

[Copy to clipboard] [ - ]

CODE:

(split(/\//,$str))[2]

mybook12345

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

7^# mybook12345 发表于 2008-11-27 15:47

比较笨的办法高手的不是太理解

use strict;
use warnings;

my $a=<STDIN>;

if($a=~m/\/.+\//g)
{
my $b=(split(/\//,$a))[1];
print $b;
}

ulmer

UID: 6072
帖子: 148
积分: 340
在线时间: 1 天 6 小时

8^# ulmer 发表于 2008-11-27 17:43

QUOTE:

原帖由 john.daker 于 2008-11-26 20:01 发表
$a="/";
$b="/a";
$c="/a/";
$d="/a/b";
$e="/a/b/";
$f="/a/b/c";
....

有这些格式的字符串，
像$a,$b就返回空
其他的就发挥a(第一个/和第二个/之间的）
有简洁的语句能做到吗？

# simple + easy for reading:
@temp = split "/", $yourTestString;
print ($#temp > 1) ? $temp[1] : "";

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

9^# ynchnluiti 发表于 2008-11-27 17:54

QUOTE:

原帖由 ulmer 于 2008-11-27 17:43 发表

# simple + easy for reading:
@temp = split "/", $yourTestString;
print ($#temp > 1) ? $temp[1] : "";

print +($#temp > 1) ? $temp[1] : "";

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

10^# MMMIX 发表于 2008-11-27 23:15

QUOTE:

原帖由 ynchnluiti 于 2008-11-27 17:54 发表

print +($#temp > 1) ? $temp[1] : "";

我更倾向于

[Copy to clipboard] [ - ]

CODE:

print(($#temp > 1) ? $temp[1] : "");

这种写法