おせわになります。
Shift-JISで記述したPerlで、ファイル出力をしようとしています。
------------------------------------
#!/usr/local/bin/perl
use encoding 'shiftjis';
$hoge="ほげ"
open(OUT,">file.txt")
binmode OUT;
print OUT $hoge;
close(OUT);
------------------------------------
希望はUTF8での出力なのですが、UTF8Nで出力されてしまいます。
どのようにすればいいのかご教授よろしくお願いします。
No.1ベストアンサー
- 回答日時:
binmode OUT をしないのなら
#!/usr/bin/perl
use strict;
use encoding 'shiftjis';
my $hoge = 'ほげ';
open OUT, '>:encoding(utf8)', 'file.txt' or die $!;
my $bom = "\x{feff}"; #BOM
print OUT $bom;
print OUT $hoge, "\n";
close OUT;
で警告なしにBOMをつけてファイルを作れます。
どうしても binmodeをする必要があるのなら
#!/usr/bin/perl
use strict;
use encoding 'shiftjis';
my $hoge = 'ほげ';
open OUT, '>', 'file.txt' or die $!;
binmode OUT;
my $bom = "\x{feff}"; #BOM
utf8::encode($bom);
print OUT $bom;
utf8::encode($hoge);
print OUT $hoge, "\n";
close OUT;
こんなところですか?
#utf-8フラグは良くわからん
さっそくのご回答ありがとうございます。
おかげさまでひとつめの方法で無事解決することができました。
なぜそうなるのかはいまいち理解してませんが、おかげで助かりました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- PHP SQLとPHPの連結方法がわからないのでアドバイスお願い致します 1 2022/07/12 12:16
- PHP PHPの構文で間違えが分からない 5 2022/07/11 16:38
- Excel(エクセル) エクセルの関数について 5 2023/01/26 15:26
- その他(プログラミング・Web制作) Fortranでの出力ファイル 2 2023/03/21 21:25
- UNIX・Linux cronの@rebootでのdateコマンドの実行につきまして 2 2023/06/11 16:23
- 楽器・演奏 cubaseのオーディオ出力について。 cubaseのオーディオ出力でstereo outを選択しな 1 2023/08/21 07:15
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- ビデオカード・サウンドカード 通常でLINE OUT端子から音を出したい 4 2022/08/04 22:07
- Ruby パイソンエラーについて 1 2022/12/24 14:07
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perl cgiの文字化けを直したい ...
-
ファイル出力をUTF8Nではなくて...
-
HTTP::Request::Common qw(POST...
-
fopenでディレクトリ内の全ファ...
-
バッチファイルの作り方(CSV→...
-
ReadLineでの読み出し行を指定する
-
awkスクリプトでダブルクォーテ...
-
教えて!perlから.exeファイル...
-
MySQLに画像を格納してperlで取...
-
パスから最後のディレクトリだ...
-
ExcelをCSV書き出す場合のシー...
-
DOSコマンドで、標準出力を出力...
-
dos変数の%~dp0は powershellで...
-
perlを用いた特定文字列間の抽...
-
複数ファイルの読み込みについて
-
perlでの三次元配列の作り方
-
Perlの変数に文字数制限(容量...
-
改行コードが勝手に
-
VBA テキストファイルを読み取...
-
VBAで巨大なファイルの途中から...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル出力をUTF8Nではなくて...
-
Perl cgiの文字化けを直したい ...
-
perlをwindows環境でshift-jis...
-
[Perl]Shift-JISのXMLを解析する場
-
Perl utf8上でshiftjisをデコード
-
utf8使用時のフォーム入力文字...
-
Data::Dumper;でダンプ後表示し...
-
(Perl)UTF-8で別ファイルに書き...
-
perlのmysqlで文字化けをする、...
-
Perl UTF8で出力
-
perlのLWP::Simpleでgrepの値が...
-
HTTP::Request::Common qw(POST...
-
vimでのutf8の取扱について
-
文字を一文字ずつ区切りたい
-
does not map to shiftjis は解...
-
じゃらんのAPIでRESTで取得した...
-
perlでuse utf8でsjisのファイ...
-
VBAでCSVファイルを途中行まで...
-
awkスクリプトでダブルクォーテ...
-
VBAでCSVファイルの特定行を書...
おすすめ情報