Bird-Soft Weblog: 2008年06月アーカイブ

テキストの周りに枠を生成するスクリプト(Perl)

テキストファイルを指定すると、そのテキストの周りにテキストで
枠をつけるPerlスクリプトを作成してみました。
（但し、等幅フォントでないと表示がずれます）

最近では需要はあまりないかと思いますが、
メールなど、テキストベースの物を作る際に役に立つと思います。

・使い方
1.「設定」部分を書き換える
　・読み込むディレクトリ、ファイル名
　・結果出力ディレクトリ、ファイル名
2.変換ファイル作成
　・読み込むディレクトリ、ファイル名
　　で指定したファイルに変換したい文字列を書き込む
3.変換スクリプトを実行する
4.結果出力ディレクトリ、ファイル名
　　で指定したファイルに変換後の文字列が出力される

※「設定」の「部品」の部分を変えるといろいろな枠にすることができます。

・実行例：
D:\Data\temp>textConv.pl
書き出したファイル：D:\Data\temp\test_conv.txt

◆サンプル

⇒

↑変換前テキスト　　　　　　　　　⇒　↑変換後テキスト

スクリプトは続きより見てください。

# テキスト変換
# 2008年06月 作成
# テキストの周りに枠を生成するスクリプト

#--------------設定--------------

#読み込むディレクトリ、ファイル名
$rdirname='D:\Data\temp';
$rfilename="test.txt";

#結果出力ディレクトリ、ファイル名
$wdirname='D:\Data\temp';
$wfilename="test_conv.txt";

#横の長さ
$MaxNo=100;

#部品
$T_Block = "─";
$L_Block = "│";
$R_Block = $L_Block;
$B_Block = $T_Block;
$TL_Block = "┌";
$TR_Block = "┐";
$BL_Block = "└";
$BR_Block = "┘";

#--------------------------------

# ファイル読み込み
@loadstr = &load_file($rdirname,$rfilename);

# ファイル書き込み
&write_file($wdirname,$wfilename);

print "書き出したファイル：$wdirname\\$wfilename\n";

#-----------------------------------------------------------
# ファイル読み込み。1行づつの配列を返す(ディレクトリ名,ファイル名)
# 末尾の改行は削除する。
sub load_file() {
	my @loadstr0=();
	open(IN, "<$_[0]\\$_[1]");
	while ( $line = <IN>) {   # ファイルを１行ずつ読み込み、EOFで終了
		#print $line;
		$line =~ s/\n//;  #改行削除
		push(@loadstr0, $line);    #配列の最後に追加
	}
	close(IN);
	return @loadstr0;
}

# ファイル書き込み。(ディレクトリ名,ファイル名)
# @loadstr参照
sub write_file() {
	open(FILE, ">$_[0]\\$_[1]") or die;

	#上側
	print FILE " $TL_Block";
		for($j = ($MaxNo/2) ; $j > 0 ; $j--){
			print FILE "$T_Block";
		}
	print FILE "$TR_Block\n";

	$i = 0;
	foreach $t (@loadstr){    #ファイルへ出力

		#----中身生成-------------
		print FILE " $L_Block$loadstr[$i]";  #始まりと内容

		$strlen1 = length ("$t");
		$loop_count = $MaxNo - $strlen1;
		for($j=$loop_count ; $j > 0 ; $j--){
			print FILE " ";          #スペースで足りない部分を補う
		}
		print FILE "$R_Block\n";		#閉じと改行
		#------------------------
		$i++;
	}

	#下側
	print FILE " $BL_Block";
		for($j = ($MaxNo/2) ; $j > 0 ; $j--){
			print FILE "$B_Block";
		}
	print FILE "$BR_Block\n";

	close(FILE);
}

投稿者: BIRD 日時: 20:35 | パーマリンク | コメント (0) | トラックバック (0)

実用ミニシェルスクリプト（ファイル一括削除）

ディレクトリ内に圧縮ファイルがあれば、その圧縮前のファイルらしきものを
一括削除するシェルを作成してみました。
（判定は単純にファイル名だけで行っています）

◆このシェルの内容
カレントディレクトリのファイル、ディレクトリ全てを調べ、すでに「名前.tar.gz」の
ファイルがある場合は「名前」のファイル（またはディレクトリ）を削除する
※但し、「.tar.gz」が含まれるものは対象外

.tar.gzがついたファイル名のものは圧縮ファイルという前提で作っています。
（.tgzなどの圧縮ファイルには対応していません）

◆ご注意
このスクリプトでは「rm -rf」で削除を行っていますので、
実行する場合は十分注意した上で、自己責任でご使用ください。

※内容は続きから見てください。

#!/bin/sh
echo "start"

# カレントディレクトリのファイル、ディレクトリ全てを調べ、
# すでに「名前.tar.gz」のファイルがある場合は
#「名前」のファイル（またはディレクトリ）を削除する
# 但し、「.tar.gz」が含まれるものは対象外

PWDDIR=`pwd`

# 確認メッセージ。"yes"の入力でスタート
echo -n "Del ${PWDDIR} ? yes or no=>"
read INPUTSTRING

if [ $INPUTSTRING == yes ]
then
    echo "START DEL"
else
    echo "CANCEL"
    exit 0
fi

#----------------------------

# ディレクトリ内のファイル、フォルダを列挙
# (.tar.gzがつくもの以外についてループ処理する)
for FILE in `\ls -1 | grep -v .tar.gz` 
do
    #ファイルチェック
    if [ -f ${FILE}.tar.gz ]
    then
        #圧縮ファイルがあるとみなす
        echo "rm -rf ${FILE}"   #元ファイル削除
        rm -rf ${FILE}
    else
        echo "***file not found : ${FILE}.tar.gz"
    fi
done

echo "end"

◆参考サイト
UNIX & Linux コマンド・シェルスクリプトリファレンス
http://www.geocities.jp/geo_sunisland/

投稿者: BIRD 日時: 20:30 | パーマリンク | コメント (0) | トラックバック (0)

Linuxでタブ補完ができないときの対処法

Linuxでタブ補完ができない、履歴が矢印キーで表示できない、
Tabキー、矢印キーやESCキーを押すと文字化けしたようなものが表示される・・・。
そんな困ったことがおきたので調べてみました。

◆対策
シェルオプションが足りないらしいので、対象のものををonとする。
（例えば、以下のようにemacsをonにする）

1.set -oを実行

$ set -o
allexport off
braceexpand on
emacs off
（以下略）

となっていたら、

2.set -o emacsを実行

3.set -oで確認

$ set -o
allexport off
braceexpand on
emacs on
（以下略）

⇒これでOKです。

続きにはオプションのメモ、参考リンクがあります。

◆メモ
・シェルオプション表示:set -o
・emacsをonにする:set -o emacs
・emacsをoffにする:set +o emacs

※よくわからないですが、emacsがoffでも
　vi がonになっていればtab補完できるみたいです。

◆参考にした記事　（助かりました）
Tab補完と履歴について - Linux Square
　
　
2008/7/21追記：
以下のサイトにさらに詳しく載っていました。
set -o emacsでもタブ補完できないマシンがあったのですが、
もしかしてkshでなくてshだったのかも・・・。
　
Bashが入っていなくてTAB補完（ファイル名補完）が出来ない時の回避策
http://d.hatena.ne.jp/GARAPON/20070925/1190707920

投稿者: BIRD 日時: 00:10 | パーマリンク | コメント (0) | トラックバック (0)

実用ミニシェルスクリプト（ディレクトリ内のファイルを一括圧縮）

前回の記事のスクリプトを元に、ディレクトリ内のファイルを一括圧縮する物を作成してみました。

◆このシェルの内容
・カレントディレクトリ内のファイルを一括圧縮
　（tarコマンドで固める）
※但し、「.tar.gz」がファイル名に含まれるものは対象外
　また、すでに「ファイル名.tar.gz」のファイルがある場合は圧縮しない

.tar.gzがついたファイル名のものは圧縮ファイルという前提で作っています。
（.tgzとかの圧縮ファイルがある場合は圧縮してしまいますので、スクリプト改造で対応するとよいと思います）

※内容は続きから見てください。

#!/bin/sh
echo "start"

# カレントディレクトリのファイル、ディレクトリ全てを
# tarコマンドで固めるシェル
# 但し、「.tar.gz」がファイル名（ディレクトリ名）に含まれるものは対象外
# また、すでに「ファイル名.tar.gz」のファイルがある場合は圧縮しない

PWDDIR=`pwd`

# 確認メッセージ。"yes"の入力でスタート
echo -n "tar ${PWDDIR} ? yes or no=>"
read INPUTSTRING

if [ $INPUTSTRING == yes ]
then
    echo "START TAR"
else
    echo "CANCEL"
    exit 0
fi

#----------------------------

# ディレクトリ内のファイル、ディレクトリを列挙
# (.tar.gzがつくもの以外についてループ処理する)
for FILE in `\ls -1 | grep -v .tar.gz` 
do
    #ファイルチェック
    if [ -f ${FILE}.tar.gz ]
    then
        #圧縮ファイルがあるとみなす
        echo "***${FILE}.tar.gz already exist."
    else
        echo "tar zcvf ${FILE}.tar.gz ${FILE}"
        tar zcvf ${FILE}.tar.gz ${FILE}          #圧縮実行
    fi
done

echo "end"

◆参考サイト
UNIX & Linux コマンド・シェルスクリプトリファレンス
http://www.geocities.jp/geo_sunisland/

投稿者: BIRD 日時: 22:24 | パーマリンク | コメント (0) | トラックバック (0)

Bird-Soft Weblog

プログラミング(Perl,C#,HSP,PSoC)、おすすめゲーム、など、趣味についてのんびり更新。

2008年06月28日

テキストの周りに枠を生成するスクリプト(Perl)

2008年06月15日

実用ミニシェルスクリプト（ファイル一括削除）

2008年06月06日

Linuxでタブ補完ができないときの対処法

2008年06月05日

実用ミニシェルスクリプト（ディレクトリ内のファイルを一括圧縮）