|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : pit 2:5020/400 16 Jun 2000 03:27:03
To : All
Subject : как сохранить гиф и как пользоваться шрифтами
--------------------------------------------------------------------------------
Привет!!
Есть проблема, нужно сохранить запрошенный гиф на серваке, скрипт
такой(откуда-то взял)
#!/usr/bin/perl -wT
use LWP::UserAgent;
use CGI qw(header);
#$url111="/usr/home/dmitriy/testing/up_img";
my $URL = "http://www.yandex.ru/logo1.gif";
my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL);
binmode(STDOUT);
open (ABC, "$url111/abc.jpg")
while(<ABC>){
chomp;
print $res->is_success ? (header('image/jpeg'), $res->content) :
(header('text/html'), $res->status_line);
}
close (ABC);
Была другая модификация того-же:
#!/usr/bin/perl -wT
use LWP::UserAgent;
use CGI qw(header);
#$url111="/usr/home/dmitriy/testing/";
my $URL = "http://www.yandex.ru/logo1.gif";
my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL);
binmode(STDOUT);
$arf = $res->is_success ? (header('image/jpeg'), $res->content) :
(header('text/html'), $res->status_line);
open(GIF, $arf)
binmode(GIF);
binmode(STDOUT);
while(read(GIF, $buff, 8*2**10)){
print STDOUT $buff;
#print $res->is_success ? (header('image/jpeg'), $res->content) :
(header('text/html'), $res->status_line);
};
close (ABC);
И третья:
#!/usr/bin/perl -w
$url = "http://www.prao.psn.ru/Astro_News/anonsimages/june/22vla.jpg";
$dir = "/usr/home/dmitriy/testing/mirage.jpg";
use LWP::Simple;
$image = get "$url";
open F, $image or die "Couldn't open '$imagе': $!";
binmode F;
binmode STDOUT;
print while read F, $_, 1024;
open (OUTFILE, ">$dir");
print OUTFILE $image;
close (OUTFILE);
И даже так:
#!/usr/bin/perl -w
$url = "http://www.prao.psn.ru/images/22vla.jpg";
$test="/usr/home/dmitriy/public_html/testing/a.jpg";
use LWP::Simple;
$page = get "$url";
open(ABC, "<$test");
binmode(ABC);
binmode(STDOUT);
while (read(ABC, $buff, 8*2*10))
{
print STDOUT "Content-Type: image/jpeg";
print STDOUT $buff;
}
close (ABC);
Hа что, сволочь, пишет:
"img.pl" 12 lines, 343 characters
bash-2.03$ ./img.pl
Name "main::page" used only once: possible typo at ./img.pl line 5.
bash-2.03$
Почему не работают??? Все права прописаны.
Другой вопрос сабжа, где можно толково прочесть именно про работу с графикой
cgi.pm?
нужно сделать так, чтобы скрипт реагировал на символы, ввобдимые в форму(
#alfa# #beta# #integral#) и
выдавал их в качестве картинок. Как добраться до фонтов в unix, и есть ли
вообще в cgi.pm возможность работать со шрифтами, аналогичными вордовским
symbol, garamound и пр.?
Пасиб форумщики. :)
или мне man perl читать нужно?
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
