△▲ WebProg 初心者の質問 Part13 ▼▽

[0039 nobodyさん 2006/02/16(木) 02:13:21 ID:???]

>38
opendir(DIR, "topimg/");
@files = grep { /^\./ && /\.jpg$/ } readdir(DIR);
close(DIR);
$imgcnt = @files;
$imgnum = int(rand($imgcnt));

$imgtag = "<img src=\"$topimg/$files[$imgnum]\">";