[kansaipm] Web administrator of kansai.pm.org

Fri Mar 24 08:53:12 CST 2000

TAKIです

Tomohiro FUKUHARA<tomohi-f at crl.go.jp> wrote...:
> 福原です．

こんばんわ

> kansai.pm.orgの英語版Web pageの管理を
> Simon(イヴァノフ)さんにお願いしようと思うのですが，
> よろしいでしょうか？

はーい よろしくお願いします。

> 今回，Simonさんが英語版のWeb pageを準備して下さり，
> 福原がkansai.pm.orgにuploadしました．ただ，これだと手間なので，
> Simonさんに英語版ページの管理をお願いしようと思います．
> 
> つまり，
> ・英語版ページの作成・管理 → Simonさん
> ・日本語版ページの作成・管理 → 福原
> となります．
> 
> Simonさんが了解して下されば，この方針で行こうと思います．
> また，日本語ページに関しても手伝ってくださる方がいらっしゃれば
> welcomeです．

昨日 福原さんの 設立記念セミナーレポートをちょっとのぞいてみましたら、私
がお送りした デジカメの写真も追加していただいていたのですね。
確認しました -> http://kansai.pm.org/Meeting/19Mar2000/index.html

ちょっとくらいお手伝いできたような気分です。


それで、ただ 単に写真を送るだけなら、あまりにも能が無いので、この際と思
い、Perlでちょっと jpeg の一覧を見せるHTML を生成する 超簡単・安直 かつ
手抜きなスクリプトですが、作ってみました。
その結果が、上記の URL に追加してもらった写真一覧のページです。

ソースは以下に示します。
スナップショットの整理にも使えますよ。

Perlをいじりはじめて 約一ヶ月の初心者ですから、精一杯がんばっても まあこ
んなもんです。 笑って許して下さい。

ただ 今回気になるのは、写真のサイズがもともと 640x480  なので、ちょっと
重たいことです。
一覧では 幅の指定を 150 pixcel に指定してますが、もし Perl で jpeg のサ
イズを小さいものに変換できれば、もっと軽快な表示ができるのですが・・・ 

どなたか その方法をご存知ありません？


#!/usr/bin/perl
#
#  make_index.pl M.Takimoto  2000/03/20

@n = <*.jpg>;			# ファイルを指定
$n = @n;
$ncol = 4;			# カラム数

				# HTMLヘッダなどを出力
print << '__END__';
<HTML>
<HEAD>
<TITLE>JPEG LIST</TITLE>
</HEAD>
<BODY TEXT=BLACK BGCOLOR=IVORY LINK=BLUE>
<TABLE BORDER=0 CELLSPACING=2 CELLPADDING=2>
__END__

$i = $ncol;
foreach $filename (@n) {
  if($i >= $ncol){		# カラムのチェック
    print "<TR>\n";
    $i = 0;
  }
  print "<TD VALIGN=CENTER ALIGN=CENTER WIDTH=150>\n";
  print "<A HREF='$filename'>\n";
  print "<IMG BORDER=0 SRC='$filename' ALIGN=TOP VSPACE='1'  HSPACE='1'\n";
  print "ALT='$filename' WIDTH=150> \n";
  print "</A>\n";
  print "$filename\n";
  print "</TD>\n";
  $i++;				# カラムのカウントアップ
}
print << '__END__';
</TABLE>
</BODY>
</HTML>
__END__


   瀧本  満  "TAKI"    takimoto at miki-net.or.jp