# 誰か添削plz
sub simple_fnmatch {
my ($pattern, $string) = @_;
my $p = 0;
my $s = 0;

while ($p < length($pattern)) {
my $char = substr($pattern, $p++, 1);
if ($char eq '?') {
} elsif ($char eq '*') {
$p++ while (substr($pattern, $p, 1) eq '*');
for my $pos ($s..length($string)) {
return 1 if fnmatch(substr($pattern, $p), substr($string, $pos));
}
return 0;
} else {
return 0 if $char ne substr($string, $s, 1);
}
$s++;
}
return $s == length($string) ? 1 : 0;
}