08/04/22 16:32:51 BE:238789139-DIA(100004)
#!/usr/bin/perl
use utf8;
sub スイーツ {
my $argument = shift; utf8::encode($argument);
my($package, $routine) = (caller 0)[0, 3];
{
no utf8;
$routine =~ s/\Q$package\E:://;
printf("%s(%s)", $routine, $argument);
}
}
スイーツ(笑)
__END__
URLﾘﾝｸ(codepad.org)
スイーツ関数出来たよー