如何在Perl中标记化/标记化/拆分分隔字符串?

对 split 这就是你想要的。

@tokens = split(/:/, "a:b:c:d");
foreach my $token (@tokens) {
    ....
}

您可以使用split。您还可以将其与正则表达式一起使用。

my @tokens = split(/:/,$string);

对于更高级的解析,我建议 Parse::RecDescent

通过在命令行提示符下键入,还可以查看perl附带的文档:

perldoc -f split

perldoc -q split

如果您有:

$a = "a:b:c:d";
@b = split /:/, $a;

然后你会得到:

@b = ("a", "b", "c", "d")

split /PATTERN/,EXPR

哪里 PATTERN : '