2008年7月30日水曜日

たった1文字ファイル名を変更するだけでPhotoshopを高速化させる方法

http://blog.ddc.co.jp/mt/mail/archives/20080730/100400.html

2008年7月28日月曜日

use Getopt::Long;

Perl スクリプトでのコマンドラインオプション処理
http://www.emptypage.jp/notes/getopt-on-perl.html

use FindBin

FindBin 実行パスを見つける
http://d.hatena.ne.jp/minesouta/20070818/p1

2008年7月27日日曜日

File::Spec - ファイル名に対する可搬性のある処理

OSに依存しないファイル名を作成する File::Spec->catfileCommentsAdd Star
http://d.hatena.ne.jp/perlcodesample/20080516/1210952319
File::Spec->catdir()
ディレクトリの連結
print File::Spec->catdir('aaa', 'bbb');
----表示----
aaa/bbb

Perlのtag除去処理

open(IN, "0000000.html");
while () { $source .= $_;}
close(IN);
$source =~ s/<.*?>//g;
open(OUT, "> test.html");
print(OUT $source);
close(OUT);

バッチファイルコマンド

# echo  バッチファイルの中のメッセージの表示、非表示を切り替える
# rem  注釈行を設定する

@echo off
echo %0
echo %OS%
echo %COMSPEC%
echo %SystemRoot%

test.bat
Windows_NT
C:\Windows\system32\cmd.exe
C:\Windows