|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Eugene Garkusha 2:5020/400 03 Dec 2001 13:57:57
To : All
Subject : Работа с переменными
--------------------------------------------------------------------------------
Имеется скрипт работает нормально,
но операции записи, чтения и удаления временного файла явно лишние.
Кломе того приходится обеспечивать на доли секунды уникальность имени
временного файла .
как из ссылки на строку $q получить саму cтроку $title ?
use strict
use Image::Magick;
my($q,$title,$text,$c1);
$q=Image::Magick->new;
$q->Read('jpg_gif/tptescount.jpg');
$c1 = "abcd";
$q->Annotate(text=>$c1, font=>'@mt.ttf', fill=>'black', x=>10, y=>25,
pointsize=>10);
# $title= ??????????? $q;
$q->Write("jpg_gif/$file.jpg");
local $/=undef;
open (TITLE,"<jpg_gif/$file.jpg");
binmode TITLE;
$title = <TITLE>;
close TITLE;
$text ="rm '/store/web/jpg_gif/$file.jpg'";
system($text);
print "$title";
Женя.
--- ifmail v.2.15dev5
* Origin: SOE Internet News (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
