<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" version="2.0">
  <channel>
    <title><![CDATA[Perl]]></title>
    <link>http://www.askdev.ru</link>
    <description><![CDATA[Perl]]></description>
    <pubDate>Mon, 06 Sep 2010 10:30:34 +0000</pubDate>
    <generator>askdev</generator>
    <docs>http://blogs.law.harvard.edu/tech/rss</docs>
    <item>
      <title><![CDATA[LWP + GD]]></title>
      <link>http://www.askdev.ru/q/712</link>
      <guid>http://www.askdev.ru/q/712</guid>
      <description><![CDATA[привет всем =)<br />
нужно скачать картинку, и _без сохранения ее в файл_ поместить в обьект-картинку из GD..<br /><br />
вот пример _с сохранением_ в файл картинки:<br />
<style>/**
 * GeSHi (C) 2004 - 2007 Nigel McNie, 2007 - 2008 Benny Baumann
 * (http://qbnz.com/highlighter/ and http://geshi.org/)
 */
.perl.geshi_code  {font-family:monospace;}
.perl.geshi_code .imp {font-weight: bold; color: red;}
.perl.geshi_code .kw1 {color: #b1b100;}
.perl.geshi_code .kw2 {color: #000000; font-weight: bold;}
.perl.geshi_code .kw3 {color: #000066;}
.perl.geshi_code .co1 {color: #666666; font-style: italic;}
.perl.geshi_code .co2 {color: #009966; font-style: italic;}
.perl.geshi_code .co3 {color: #0000ff;}
.perl.geshi_code .co4 {color: #cc0000; font-style: italic;}
.perl.geshi_code .co5 {color: #0000ff;}
.perl.geshi_code .coMULTI {color: #666666; font-style: italic;}
.perl.geshi_code .es0 {color: #000099; font-weight: bold;}
.perl.geshi_code .es_h {color: #000099; font-weight: bold;}
.perl.geshi_code .br0 {color: #009900;}
.perl.geshi_code .sy0 {color: #339933;}
.perl.geshi_code .st0 {color: #ff0000;}
.perl.geshi_code .st_h {color: #ff0000;}
.perl.geshi_code .nu0 {color: #cc66cc;}
.perl.geshi_code .me1 {color: #006600;}
.perl.geshi_code .me2 {color: #006600;}
.perl.geshi_code .re0 {color: #0000ff;}
.perl.geshi_code .re4 {color: #009999;}
.perl.geshi_code span.xtra { display:block; }
</style><div class="perl geshi_code" style="font-family:monospace;"><span class="co1"># качаем картинку</span><br />
<span class="kw1">my</span> <span class="re0">$page</span> <span class="sy0">=</span> <span class="re0">$ua</span><span class="sy0">-&gt;</span><span class="me1">get</span><span class="br0">&#40;</span><span class="st_h">'http://site1.com/image.png'</span><span class="br0">&#41;</span><span class="sy0">-&gt;</span><span class="me1">as_string</span><span class="sy0">;</span><br />
<span class="co1"># пишем ее в файл</span><br />
<span class="kw3">open</span><span class="br0">&#40;</span>PICTURE<span class="sy0">,</span> <span class="st0">&quot;&gt;picture.png&quot;</span><span class="br0">&#41;</span><span class="sy0">;</span><br />
<span class="kw3">binmode</span> PICTURE<span class="sy0">;</span><br />
<span class="kw3">print</span> PICTURE <span class="re0">$im</span><span class="sy0">;</span><br />
<span class="kw3">close</span> PICTURE<span class="sy0">;</span><br />
<span class="co1"># открываем ее заново..</span><br />
<span class="kw1">my</span> <span class="re0">$im</span> <span class="sy0">=</span> GD<span class="sy0">::</span><span class="me2">Image</span><span class="sy0">-&gt;</span><span class="me1">newFromJpeg</span><span class="br0">&#40;</span><span class="st0">&quot;picture.png&quot;</span><span class="br0">&#41;</span><span class="sy0">;</span><br />
<span class="br0">&#40;</span><span class="re0">$imW</span><span class="sy0">,</span> <span class="re0">$imH</span><span class="br0">&#41;</span> <span class="sy0">=</span> <span class="re0">$im</span><span class="sy0">-&gt;</span><span class="me1">getBounds</span><span class="br0">&#40;</span><span class="br0">&#41;</span><span class="sy0">;</span><br />
..</div><br /><br />
надо то самое , только без сохранения в файл. чтоб в результате в $im оказалась скачаная картинка..]]></description>
      <pubDate>Thu, 01 Oct 2009 10:54:48 +0000</pubDate>
    </item>
    <item>
      <title><![CDATA[Какие проблемы замечены при использовании Moose?]]></title>
      <link>http://www.askdev.ru/q/224</link>
      <guid>http://www.askdev.ru/q/224</guid>
      <description><![CDATA[Какие проблемы замечены при использовании Moose? У меня пока отмечены трудности с отладкой в дебаггере и некоторые проблемы с PerlTidy. Интересно знать, на что наткнулись другие.]]></description>
      <pubDate>Wed, 08 Jul 2009 14:32:47 +0000</pubDate>
    </item>
    <item>
      <title><![CDATA[Где ведется разработка perl6]]></title>
      <link>http://www.askdev.ru/q/215</link>
      <guid>http://www.askdev.ru/q/215</guid>
      <description><![CDATA[Скажите, пожалуйста, а где ведется разработка шестого перла? Хочется посмотреть на тикеты и майлстоуны.<br /><br />
Спасибо!]]></description>
      <pubDate>Wed, 22 Jul 2009 11:43:33 +0000</pubDate>
    </item>
  </channel>
</rss>
