Question

perl语言编程中的正则表达式模式匹配和替换操作

如何将" competition/S"替换成“[competition]”?如何将“Hollywood/B film/I rights/E ”替换成“[Hollywood film rights]”?
求救求救啊~

Answer 1

#!/usr/bin/perl
my $str1 = "\" competition/S\"";
$str1 =~ s/"\s+(\w+)\/S"/"[$1]"\?/;

my $str2 = "\"Hollywood/B film/I rights/E\"";
$str2 =~ s/\"(\w+)\/B\s+(\w+)\/I\s+(\w+)\/E\"/"$1 $2 $3"\?/;
print "$str1\n$str2\n";

Answer 2

作业挺难的么。。。
两个都分三步来。。。

$string = " competition/S";

$srting =~ s#\b/[A-Z]\b##g;
$string =~ s#^#[#;
$string =~ s#$#]#;
print $string;

Answer 3

#### 看着太累了

Answer 4

?
这很难么？有什么特别的地方么？