$ARGV[0] =~ s{^([^\.]+)\./(.+)/$}{$1}; 这句什么意思？

miaho

UID: 8409
帖子: 74
积分: 170
在线时间: 7 小时

1^# miaho 发表于 2008-12-10 22:33

$ARGV[0] =~ s{^([^\.]+)\./(.+)/$}{$1}; 这句什么意思？

miaho

UID: 8409
帖子: 74
积分: 170
在线时间: 7 小时

2^# miaho 发表于 2008-12-10 23:07

up
up
up
up

ynchnluiti

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

3^# ynchnluiti 发表于 2008-12-11 01:24

$ARGV[0] =~ s{^([^\.]+)\./(.+)/$}{$1};
=>
$ARGV[0] =~ s/^([^\.]+)\.\/(.+)\/$/$1/;

perl -e '@ARGV=qw(/etc/jadsf\\./123/abc/);$ARGV[0] =~ s{^([^\.]+)\./(.+)/$}{$1};print "$ARGV[0]\n"'
/etc/jadsf\

xxxxx./yyyyyzzzzz/-> xxxxx

miaho

UID: 8409
帖子: 74
积分: 170
在线时间: 7 小时

4^# miaho 发表于 2008-12-11 10:52

谢谢，明白了。原来可以用s{}{}这种方代替s///；

那用s{}{}这种方式和s///有什么区别呢

ynchnluiti

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

5^# ynchnluiti 发表于 2008-12-11 11:18

QUOTE:

原帖由 miaho 于 2008-12-11 10:52 发表
谢谢，明白了。原来可以用s{}{}这种方代替s///；

那用s{}{}这种方式和s///有什么区别呢

都是分隔符。区别就是使用s{}{}时里面的/不需要转义了。

wxlfh

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

6^# wxlfh 发表于 2008-12-11 12:06

楼上正解！！

MMMIX

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

7^# MMMIX 发表于 2008-12-11 12:07

QUOTE:

原帖由 miaho 于 2008-12-11 10:52 发表
谢谢，明白了。原来可以用s{}{}这种方代替s///；

那用s{}{}这种方式和s///有什么区别呢

见 perlop 中的 Quote and Quote-like Operators