Perl: Как мне разделить И вырезать заданную строку?

Question

У меня есть строка, которая выглядит следующим образом:

$ string = "Метки: сладкий, вкусный, шоколадный, темный"

Я хочу вставить эти теги в таблицу Mysql.

• Итак, как мне вырезать [Метки:] из строки?

• А как я могу добавить foreach $ string в Mysql-таблицу?

Answer 1

Начните с удаления «Тегов:» с помощью регулярного выражения, а затем разделите на «,».

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 используется для разбиения строки на более мелкие секции.Вы можете разделить строку на один символ, группу символов или регулярное выражение (шаблон).

Вы также можете указать, на сколько частей разбить строку.