多个substr的连接有无简便快捷方法？

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

1^# dl0622 发表于 2008-11-05 16:09

多个substr的连接有无简便快捷方法？

my $substr4=(substr($special,0,5).substr($area,-3,3).substr($special,-3,3));
上面这样是不行的，就是想把substr后的内容向字符串一样连接起来，不知道应该怎样搞？

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

2^# machine 发表于 2008-11-05 16:14

my $substr4=substr($special,0,5) . substr($area,-3,3) . substr($special,-3,3);

hitsubunnu

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

3^# hitsubunnu 发表于 2008-11-05 16:24

unpack

MMMIX

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

4^# MMMIX 发表于 2008-11-05 18:14

QUOTE:

原帖由 dl0622 于 2008-11-5 16:09 发表
my $substr4=(substr($special,0,5).substr($area,-3,3).substr($special,-3,3));
上面这样是不行的，

使用 Perl 的常见错误之一，在错误的地方加括号。

cobrawgl

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

5^# cobrawgl 发表于 2008-11-05 21:15

方法倒是不少，都不是很高效，好像

cobrawgl

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

6^# cobrawgl 发表于 2008-11-05 21:16

my ($substr4)=(substr($special,0,5).substr($area,-3,3).substr($special,-3,3));

既然右边加了括号，左边也加一个，平衡一下嘛

dl0622

UID: 38417
帖子: 194
积分: 446
在线时间: 2 天 3 小时

7^# dl0622 发表于 2008-11-05 22:33

各位兄台不要笑了，其实我那样也是可以的，之所以说不可以是因为自己要操作的配置文件的错误导致我以为不可以，真太不好意思了。

MMMIX

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

8^# MMMIX 发表于 2008-11-05 23:06

QUOTE:

原帖由 dl0622 于 2008-11-5 22:33 发表
各位兄台不要笑了，其实我那样也是可以的，

在这一点上 Perl 比较古怪，在 scalar context 中，list literal 和 array 的返回值是不同的，list literal 返回最后一个元素，而 array 则返回其元素个数，见 perldata 中的 List value constructors。

另外，加括号和不加括号，会导致右边表达式求值时的 context 发生变化。