HIETARO Tumblr

とりあえず Sandwich と Burrito についてはだんだんどの店でも聞かれる共通項がわかってきたので、こんな感じに受け答えするようにしました。Perl コードで。

use strict;

my $fail;

sub order_sandwich {
local $_ = shift;

/^How are you/
and return “I’m good.”;
/^What .* order/
and return “Chicken Breast Sandwich.”;
/^What kind of bread/
and return “French Roll.”;
/^(Put )?everything\?/i
and return “Yes.”;
/cheese/
and return “Cheddar Cheese.”;

if ($fail++