2008年7月30日水曜日
2008年7月29日火曜日
2008年7月28日月曜日
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
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);
while (
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
# rem 注釈行を設定する
@echo off
echo %0
echo %OS%
echo %COMSPEC%
echo %SystemRoot%
test.bat
Windows_NT
C:\Windows\system32\cmd.exe
C:\Windows
登録:
コメント (Atom)