在perl cgi中，如何将包括连字符在内的半宽日语字符转换为全宽日语字符？_Perl_Cgi

在perl cgi中，如何将包括连字符在内的半宽日语字符转换为全宽日语字符？

perl

在perl cgi中，如何将包括连字符在内的半宽日语字符转换为全宽日语字符？,perl,cgi,Perl,Cgi,我有学生信息的CSV输出列表 my $SrchResult = $TextBookCommonAdmin->GetOrderCSV($SrchData); my $CsvData = '"受付番号","学籍番号","氏名","フリガナ","〒","都道府県・市区","町村・番地","アパート・マンション名"' . &quo

我有学生信息的CSV输出列表

    my $SrchResult = $TextBookCommonAdmin->GetOrderCSV($SrchData);

my $CsvData = '"受付番号","学籍番号","氏名","フリガナ","〒","都道府県・市区","町村・番地","アパート・マンション名"' . "\r\n";

    foreach my $DataId (sort (keys %{$SrchResult})){
         
            
        foreach my $key (keys %{$DataHash}){
            $DataHash->{$key} = decode('utf8',$DataHash->{$key});
        }
        my $LineData    = sprintf('"%s","%s","%s","%s","%s","%s","%s","%s"',
                            $DataHash->{'recptid'},
                            $DataHash->{'student_id'},
                            $DataHash->{'student_name'},
                            $DataHash->{'student_kana'},
                            $DataHash->{'student_zip'},
                            $DataHash->{'student_address'},
                            $DataHash->{'student_address2'},
                            $DataHash->{'student_address3'},
                    );

        $CsvData    .= sprintf("%s\r\n", $LineData);
    }

my ($second, $minute, $hour, $day, $month, $year, @rest) = localtime(); 
$year       += 1900;
$month      += 1;   
my $TimeStr = sprintf('%4d-%02d-%02d', $year, $month, $day);
my $TimedateFormat  = sprintf('%4d%02d%02d%02d%02d%02d', $year, $month, $day, $hour, $minute, $second);

my $name= $TimedateFormat.".csv";

print "Content-Type: application/octet-stream\n";
print "Content-Disposition: attachment; filename=$name\n\n";
print encode('cp932', $CsvData);