文字コード、改行コード変換スクリプト

おもいきりnkfに頼った実装ですが、-wでWindows、-uでUnix形式に変換します。


#!/usr/bin/perl

use Getopt::Std;

$opt_h = 0;
$opt_w = 0;
$opt_u = 0;

getopts('hwu');

if ($opt_h) {
printf("txtconf.pl [optin] [file]\n");
printf(" -h ヘルプ\n");
printf(" -w Windowsの文字コード、改行コードに変換\n");
printf(" -u Unixの文字コード、改行コードに変換\n");
}
else {
# 引数分ループ
foreach (@ARGV) {
# 入出力ファイル名決定
$in_file_name = $_;
printf("$in_file_name\n");

# 変換
if ($opt_w) { system "nkf -s -Lw --overwrite $in_file_name"; }
elsif ($opt_u) { system "nkf -e -Lu --overwrite $in_file_name"; }
}
}

テーマ : UNIX/Linux
ジャンル : コンピュータ

2007-08-14 : Work-Linux-Perl : コメント : 0 : トラックバック : 0
Pagetop
コメントの投稿
非公開コメント

Pagetop
« next  ホーム  prev »

プロフィール

zive

Author:zive
大阪在住、男

ブログ検索

月別アーカイブ

FC2カウンター