initConsole

概要

  • Linux/Windows共通に環境変数からコンソールの文字コードとホームディレクトリを設定する。

ソース

initConsole.pl

すべてを展開すべてを収束
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
#!/usr/bin/perl
# Linux/Windows共通に環境変数からコンソールの文字コードとホームディレクトリを設定する
 
use strict;
use warnings;
use utf8;
use Encode;
 
( $ENV{'LANG'} || '' ) =~ /\.(.*)$/;    # ja_JP.UTF-8
my $charsetConsole    = $1 || 'CP932';
my $charsetFile        = 'UTF-8';
 
binmode( STDIN,  ":encoding($charsetConsole)" );
binmode( STDOUT, ":encoding($charsetConsole)" );
binmode( STDERR, ":encoding($charsetConsole)" );
 
my $home = $ENV{'HOME'} || $ENV{'USERPROFILE'};
$home =~ s#\\#/#g;
 
my $fileOut = $home . '/環境変数テスト.txt';
 
@ARGV = map{ decode( $charsetConsole, $_ ); } @ARGV;
 
print "$home\n$fileOut\n";
print join( "\n", @ARGV ) . "\n";
 
open( my $fhout, ">:encoding($charsetFile)", encode( $charsetConsole, $fileOut ) ) 
    or die( "$fileOut: " . decode( $charsetConsole, $! ) . "\n" );
print $fhout "テスト\n";
print $fhout join( "\n", @ARGV ) . "\n";
close( $fhout );
 
# EOF

添付ファイル: fileinitConsole.zip 480件 [詳細]

リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: Thu, 07 Feb 2013 10:13:30 JST (1805d)