現在Twitterのつぶやき内容から判断して、 本とマッチングさせるYomiowatterを開発中ですが、 その中で使っているコンテンツマッチ部分のコードをさらします。 コメントにあるように、複数の条件を優先順位をつけて 判定しています。 sub match { my ($self, $text) = @_; my $result = {}; my $matched = 0; # exact match # URLが存在する and ASINを含む if($text =~ m|(http://[\d\w\/\.]*)| ){ my $url = $1; # short urlを元に戻す if($url =~ m|(http://bit\.ly/([\d\w]*))| ){ $url = $self->bitly()->expand($1, $2); } # ASINが含まれたURLである