画像を使ったアクセスカウンターですが。。。

質問

どなたか教えていただければ大変ありがたいです。

画像（0.gif～9.gif）を使用し、アクセスカウンターを作る
次のソースの内、

-------------------------------------------------------------------
#!c:/perl/bin/perl

require './sub_lock.pl';
$countfile = "./count.log";
$lockdir = "./lockdir";

exit unless(&lock($lockdir));

open(COUNTFILE, "+<$countfile");
chomp($count=<COUNTFILE>);
$count++;
seek(COUNTFILE, 0, 0);
print COUNTFILE "$count\n";
truncate(COUNTFILE, tell(COUNTFILE));
close(COUNTFILE);

&unlock($lockdir);

$count_img = sprintf("%04d", $count);
$count_img =~ s/(.)/<img src=".\/images\/$1.gif">/g;

print "content-type:text/html\n\n";
print $count_img;

exit;
-------------------------------------------------------------------

$count_img =~ s/(.)/<img src=".\/images\/$1.gif">/g; の
「（.）」と「$1」になっているところが、どうも理解できなくて
困っています。
「=~ s」がパターンマッチであることだけは知っています。
CGI辞書などを調べてもやはり意味がわからず、お手上げ状態です。

どうぞよろしくお願いいたします。

回答No.1

sando · ベストアンサー

まず
s　はパターンマッチでなくて置換です

.　ピリオドは任意の1文字をあらわします
( )　括弧は括弧内でマッチするものにマッチします。また後方参照に使われます。この例では後方参照のために使用してます。
後方参照とはマッチした文字列を後で使用するためのものです。
$1　とはその後方参照をする特殊変数です。$1は「最も直前のパターンマッチで1番目の括弧でマッチした文字列が格納されています。

さて、この例では修飾子のgが使用されていますので、マッチしたものすべてを置換します

たとえば$count_img="123"　だった場合
1と2と3がマッチし、それぞれが置換されますので、
<img src="./images/1.gif"><img src="./images/2.gif"><img src="./images/3.gif">
になるのではないかと思います

お礼

本当にどうもありがとうございました。（レスが早くて驚きました）

・ｓは置き換えでしたね。ご指導ありがとうございます。
・（）は後方参照とは、いくつかレファランスをもっていますが、
情報がありませんでした。よくわかりました。
・$1の1は1番目のカッコにマッチするという意味ですね。よくわかりました。

大事なお時間を割いていただきまして、どうもありがとうございました。
また何かと機会がありましたら、どうぞよろしくお願いいたします。