Forum Webscript.Ru

Программирование => Perl => Тема начата: Newboy от 20 Апреля 2007, 20:37:36

Название: скрипт на перл который ыводил случайную картинку
Отправлено: Newboy от 20 Апреля 2007, 20:37:36

Киньте, пожалуйста, текст скрипта который бы вывел случайную картинку из списка узказанных в нем
зарнее благодарю

Название: скрипт на перл который ыводил случайную картинку
Отправлено: unplugged от 21 Апреля 2007, 20:00:33

Код: [Выделить]


#!/usr/bin/perl
use strict;

my $path = "./";
my @pic = ( "a", "b", "c", "d", "e" );
my $ext = "gif";

print "Content-type: image/$ext\\n\\n";
open IMG, $path.$pic[int rand scalar(@pic)].".".$ext;
binmode IMG;

my $buffer;
while( sysread(IMG,$buffer,100) ) {
        print $buffer;
}

close( IMG );