perlperlã®ãªãããªéå§ãã©ãæ¸ã.orgã®åé¡ãèãã¦ã¿ã¾ãããhttp://ja.doukaku.org/51/ #!perl use strict; use warnings; sub extract_info { my $content = shift; while (my ($name, $is_hidden, $size, $ext, $rest) = $content =~ m{ ([[:alpha:]]+) (-hidden)? (-big | -normal | -small)? \. ([[:alpha:]]+) (.*) \z }msx) { $size ||= '-normal'; printf "name:'%s', ext:'%s', size: %s hidden: %s\n", $name, $ext, substr($size, 1), $is_h
{{#tags}}- {{label}}
{{/tags}}