Regex Perl使用基于字符串的分隔符拆分字符串
我是Perl的新手，但根据我所阅读的文档，Perl中的split函数似乎要求使用正则表达式模式而不是字符串分隔符作为第一个参数，但我发现使用类似于Regex Perl使用基于字符串的分隔符拆分字符串,regex,perl,variables,split,delimiter,Regex,Perl,Variables,Split,Delimiter,我是Perl的新手，但根据我所阅读的文档，Perl中的split函数似乎要求使用正则表达式模式而不是字符串分隔符作为第一个参数，但我发现使用类似于print+（split（“”，$string））[0]的方法仍然可以正确分割字符串 基于此，我尝试使用一个变量分隔符（例如，print+（split（$var，$string））[0]，其中$var=''）发现它不起作用。我做错了什么 谢谢 编辑： 很抱歉问了这么糟糕的问题。我对一个带前导空格的字符串运行这个函数，发现split函数不喜欢前导空格。例
print+（split（“”，$string））[0]print+（split（$var，$string））[0]$var=''my$var=''；
打印+（拆分（$var，'abc-ddd'））[0]/$var/print+（拆分（''abc-ddd'））[0]abcsplit ' '
my $var = ' ';
split $var;
split /$var/;
my $string = "foo bar baz";
my @literal = split ' ', $string;
my @space = split / /, $string;
@literal“foo”、“bar”、“baz”@space“foo”、“bar”、““””、“baz”文档 以下是文档对其的描述： 作为另一种特殊情况，split模拟命令行工具awk在模式被省略或由单个空格字符组成的文本字符串（例如“”或“\x20”，但不是例如//）时的默认行为。在这种情况下，EXPR中的任何前导空格都会在分割发生之前被删除，而模式会被视为是/\s+/；特别是，这意味着任何连续的空格（不仅仅是单个空格字符）都用作分隔符。但是，通过指定模式//而不是字符串“”，可以避免这种特殊处理，从而只允许单个空格字符作为分隔符。在早期的Perls中，这种特殊情况被限制为使用普通“”作为要拆分的模式参数，在Perl 5.18.0中，这种特殊情况由任何计算为简单字符串“”的表达式触发 变通办法
请注意，如果您正在寻找通过使用变量动态模拟
'/\s+/my $text = "botolo";
my $separator = "o";
print +(split($separator, $text))[0];
#uglyness with + necessary because Perl
my @parts = split($separator, $text);
print $parts[0];
工作很好。。。每当您对Perl的一个内置函数有疑问时，我强烈建议您检查
perldocperldoc-fsplitsplit''split''split/