小问，perl中哪些字符可以作为定界符

__lxmxn__

21^# __lxmxn__ 发表于 2007-10-19 21:37

怎么我的不起作用呢？ll没有变成大写。

QUOTE:

$ cat ttt.pl
#! /usr/bin/perl

$str = 'hello';
$str =~ s x l + x uc $& xex;
print "$&\n";

$ ./ttt.pl
ll

Lonki

22^# Lonki 发表于 2007-10-19 22:02

my $str = 'hello';
$str =~ s m(.*)m uc $1 me;
print $str;

放驴娃

23^# 放驴娃发表于 2007-10-19 22:12

QUOTE:

原帖由 __lxmxn__ 于 2007-10-19 21:37 发表
怎么我的不起作用呢？ll没有变成大写。

不好意思，我前面写错了，应该是 print "$str\n" 而不是 print "$&\n"