哪些字符可以用作Perl正则表达式的分隔符?m/re/,m(re)并且måreå似乎都工作,但我想知道所有的可能性.
如果我$myString用值声明了一个变量'3 '(注意空格).是否有任何函数可以删除返回值的空白区域.有点像SomeFun($myString) 回归'3'(没有白色空间).
#!C:\Perl\bin\perl.exe
use strict;
use warnings;
use Data::Dumper;
my $fh = \*DATA;
print Dumper parse_constant_spec( $fh );
# Parse a constant spec file.
# Pass in a handle to process.
# As long as it acts like a file handle, it will work.
sub parse_constant_spec {
my $fh = shift;
my %spec;
# Until file is done:
# Read in a whole block
while( my $block = read_block($fh) ) {
# …Run Code Online (Sandbox Code Playgroud) 有没有办法在一行中做到这一点?
$x =~ s/^\s+//;
$x =~ s/\s+$//;
Run Code Online (Sandbox Code Playgroud)
换句话说,从字符串中删除所有前导和尾随空格.