Perl：如何分割和剪切给定的字符串？

Question

我有一个看起来像这样的字符串：

$string = "Tags: sweet, yummie, Chocolate, dark"

我想将这些标签插入 Mysql 表中。

• 那么如何从字符串中删除 [Tags:]？

• 如何在 Mysql 表中添加 foreach $string？

Answer 1

首先使用正则表达式删除“Tags:”，然后拆分“,”。

my $string = "Tags: sweet, yummie, chocolate, dark"
$string =~ s/Tags: //;
my @tags = split /, /, @string;

对于 MySQL 连接，您可以使用 DBI::MySQL。

Answer 2

如果您的标签始终以 : 列结尾，
你可以做类似的事情：

#!/usr/bin/perl
use Modern::Perl;
use Data::Dumper;

my $string = "Tags: sweet, yummie, chocolate, dark";
my @parts = split/[:,]\s*/,$string;
say Dumper \@parts;

输出：

$VAR1 = [
          'Tags',
          'sweet',
          'yummie',
          'chocolate',
          'dark'
        ];

Answer 3

Perl 中有一个 split 函数。

split 函数用于将字符串分割成更小的部分。您可以根据单个字符、一组字符或正则表达式（模式）拆分字符串。

您还可以指定将字符串拆分成多少部分。