Perl：如何拆分和剪切給定的String？

Question

我有一個看起來像這樣的字符串：

$ string =“標簽：甜，美味，巧克力，黑”

我想將這些標簽插入Mysql表中。

• 那么，如何從字符串中切下[Tags：]？

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

Answer 1

首先使用正則表達式刪除“標簽：”，然后在“，”上分割。

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

對於MySQL連接，可以使用DBI :: MySQL。

Answer 2

Perl中有一個split功能 。

split函數用於將字符串拆分為較小的部分。 您可以在單個字符，一組字符或正則表達式（模式）上分割字符串。

您還可以指定將字符串分成多少段。

Answer 3

如果您的標簽始終以:結尾，則可以執行以下操作：

#!/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'
        ];