|
|
|
Supreme Being
участник
Last Login: 06.04.2006 18:10
Сообщ.: 80,
Visits: 881
|
|
#!/usr/bin/perl -w
use strict;
use CGI qw(:all);
my $imagedir="Images";
sub display
{
open (IMAGE, "$imagedir/baner.gif") || exit;
binmode STDOUT; binmode IMAGE;
print <IMAGE>;
close(IMAGE);
exit;
}
print header(-type => 'image/gif');
display;
|
|
|
|
|
Forum Member
участник
Last Login: 03.12.2001 16:59
Сообщ.: 36,
Visits: 408
|
|
строку
my $imagedir="Images";
внеси внутрь подпрограммы. my - определяет область видимости переменной в пределах блока или подпрограммы.
Или просто выкинь my.
|
|
|
|
|
Supreme Being
участник
Last Login: 06.04.2006 18:10
Сообщ.: 80,
Visits: 881
|
|
Не, всё намного проще, я неправильно указал путь к каталогу :) надо было полный путь указывать.
Всё равно спасибо за внимание.
С уважением begemot
|
|
|
|