07/04/05 10:12:57
>>181
文字コードをeucにして、
my $pat = pack("C*",0x20,0x21..0x7e);
/[$pat]+/ でASCII
/[^$pat]+/ で日本語（と制御コード）
07/04/05 10:12:57
>>181
文字コードをeucにして、
my $pat = pack("C*",0x20,0x21..0x7e);
/[$pat]+/ でASCII
/[^$pat]+/ で日本語（と制御コード）
07/04/05 10:12:57
>>181
文字コードをeucにして、
my $pat = pack("C*",0x20,0x21..0x7e);
/[$pat]+/ でASCII
/[^$pat]+/ で日本語（と制御コード）