| <![CDATA[
#!/usr/local/bin/perl
#######################################################################
# updfile.pl : Active Perl
# Copyright(C)2002 Sannomiya , All Rights Reserved.
#######################################################################
#
# 履歴
# 2002.04.01 新規作成 Ver 1.00
#
#######################################################################
# 設定
#######################################################################
$dir = "c:/sgi/public_html/perl"; # この配下の全てのファイル
$list = "c:/sgi/public_html/perl/list.out"; # dir/s/b の結果ファイル
#######################################################################
# 1.開始処理 #
chdir($dir)|| die "Can't find $dir: $!\n"; # dir CHANGE
open(OUTA,"|dir/s/b > $list"); # file name list
# output 例
# c:\sgi\public_html\perl\frame # dir
# c:\sgi\public_html\perl\index.html # html fil
# c:\sgi\public_html\perl\frame\perl1.html
# c:\sgi\public_html\perl\frame\back.gif # gif file
close(OUTA);
open(IN," < $list"); # file name list
#######################################################################
# 2.メイン 処理 #
while( <IN> ) {
#######################################################################
chop($_); # 最後の文字削除(改行)
if (! /\.html/) {next;} # html 以外 は skip(dir も)
$pgm = $_;
$pgm2 = $_;
$pgm2 =~ s/\.html/\.out/; # 保存ファイル名決定
######################################
@tbl = (); # 配列初期化
open(SVE,"> $pgm2"); # 保存ファイルをオープン
open(IN2,"< $pgm")|| die "input err $pgm:$!\n";
while($dat = <IN2> ) { # IN2からのデータ$datがある間
print SVE $dat; # 複写
chop($dat);
push (@tbl,$dat); # 配列に格納
}
close(IN2);
close (SVE);
######################################
open(OUT,"> $pgm"); # ファイルを一旦空に
######################################
foreach $src (@tbl) { # 配列から行を$srcに代入し、最後まで繰返す
# <title>xxxxxxx</title> ⇒ <title>さんすけのperl参考書</title>
if ($src =~ /<title>/) {
($left,$moji,$right) = split(/title/,$src,3);
$src =~ s/$moji/>さんすけのperl参考書<\//;
print "update OK -> $pgm\n";
}
}
######################################
close(OUT);
#######################################################################
} # while end
##########End_Of_Script
]]> |