検索条件
全9件
(2/2ページ)
#! /usr/bin/perl use strict; use utf8; while (<>) { chomp; my $str = $_; utf8::decode($str); $str =~ /(Bulk Order Deed Blessed) (重量: \d) (小口|大口) (\w+(?: ingot(?:s)?| leather)?) (高品質|標準) (個数: \d+)/igc; my $a = $1; my $b = $2; my $c = $3; my $d = $4; my $e = $5; my $f = $6; utf8::encode($a); utf8::encode($b); utf8::encode($c); utf8::encode($d); utf8::encode($e); utf8::encode($f); print "\$1: [$a] \$2: [$b] \$3: [$c] \$4: [$d] \$5: [$e] \$6: [$f]"; while ($str =~ /\G \w((?:\w|\s)+: \d+)/gc) { my $a = $1; utf8::encode($a); print " [$a]"; } print "\n"; }例えば布大口の巫女のデータをこのスクリプトに食わせると