to perl programmer,
saya ada masalah, saya ingin me-rotate suatu list file gambar(JPG,GIF) ke
browser seperti banner, nah saya sudah coba bikin scriptnya, tapi selalu
gambar pertama yang muncul, gambar2 selanjutnya tidak bisa muncul, saya
sudah coba pake metode "fork" tapi juga tidak bisa ... ada yang bisa bantu
....
Di bawah ini script yang saya buat, tolong dibantu, jika ada kekurangan,
atau ada yang perlu ditambahlkan. Sebelumnya thank's
#!/usr/bin/perl
$dir_image = "/directory/images/";
opendir(DIR,"$dir_image");
@files=readdir(DIR);
closedir(DIR);
$count=0;
$no=0;
foreach (@files)
{
if($files[$count] !~ /^\.{1,2}/){
$file[$no]=$files[$count];
$no++;
}
$count++;
}
$jumlah=$#file+1;
$no_file=0;
while(1){
if($no_file > $jumlah){ $no_file=0; }
opendir(CHECK,"$dir_image");
while($myfile=readdir(CHECK)){
if($myfile eq $file[$no_file]){
if($myfile =~ /\.gif$/i)
{ print ("Content-type: image/gif\n\n"); }
elsif ($myfile =~ /\.jpg$|\.jpeg$/i)
{ print ("Content-type: image/jpg\n\n"); }
else { exit(0); }
}
}
closedir(CHECK);
open(INPUT,$dir_image.$file[$no_file]);
while($line = <INPUT>){ print ($line); }
close(INPUT);
$no_file++;
sleep(10);
}
~
0 0 ~~~\
/ V \ \/-----------\
/ / \ \ | r.o.n.i.x |
/ / \ \ \-----------/
{ ( ) }
\ /
^'~'^
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
