Код: Выделить всё
($key, $args_text) = lc($line) =~ /([\s\S]+?) (\d+[\s\S]*)/;
Код: Выделить всё
if ($line =~ /"/) {
($key, $args_text) = lc($line) =~ /"([\s\S]+?)" (\d+[\s\S]*)/;
} else {
($key, $args_text) = lc($line) =~ /([\s\S]+?) (\d+[\s\S]*)/;
}
Это позволит манипулировать предметами со сложными названиям, например, со свитками наёмников, кончающимися на цифру. Возможно просто стоит переназвать данные итемы в таблицах)