Perlについての質問箱 35箱目

Perlについての質問箱 35箱目 at TECH

23:デフォルトの名無しさん
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)
スイーツ関数出来たよー

次ページ

続きを表示

1を表示