>>484
#!/usr/bin/perl
use Encode qw(from_to);

$path= "$ENV{HOME}/Documents/memo/";
$fileName = `date "+%Y-%m-%d %H_%M_%S"` . '.txt';
print $path;
print $fileName;

$text = &urlDecode( '__OBJ_TEXT__' );
&from_to( $text, 'utf-8', 'shiftjis' );#euc-jp utf-8 shiftjis 7bit-jis

open( FILE, "> $path$fileName" ) || die "cant open file$!";
print FILE $text;
close FILE;

sub urlDecode
{
my $inText= shift;
$inText =~ tr/+/ /;
$inText =~ s/%([a-fA-F0-9]{2})/pack("C",hex($1))/eg;
return $inText;
}