我想能够对变量进行正则表达式匹配，并将结果分配给变量本身。什么是最好的方法呢？
我想在一行代码中基本上结合第2行和第3行：
$variable = "some string"; $variable =~ /(find something).*/; $variable = $1;
有没有更短/更简单的方法来做到这一点？我缺少什么？
为什么你想要它更短？是真的很重要吗？
$variable = $1 if $variable =~ /(find something).*/;
如果你担心变量名或重复这样做，将该东西包装在子程序中并忘记它：
some_sub( $variable,qr/pattern/ );
sub some_sub { $_[0] = $1 if eval { $_[0] =~ m/$_[1]/ }; $1 };
然而，你实现它，子程序的要点是使它可重复使用，所以你给一组特定的行一个简短的名称，在他们的位置。
