<?xml version="1.0" encoding="UTF-8"?>
<?xml-stylesheet href="http://valley.egloos.com/rss/style/style.xsl" type="text/xsl" media="screen"?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/">
	<channel>
		<title>이글루스 'lwp' 태그 최근글</title>
		<link>http://valley.egloos.com/tag/lwp</link>
		<description>lwp</description>
		<language>ko</language>
		<pubDate>Thu, 25 Oct 2007 12:12:25 +0900</pubDate>
		<generator>Egloos</generator>
		<item>
	<title><![CDATA[파일업로드가 필요하다면]]></title>
	<link>http://iklo.egloos.com/3881584</link>
	<guid>http://iklo.egloos.com/3881584</guid>
	<description>
	<![CDATA[ 
<img 
				src="http://thumb.egloos.net/100x76/http://pds6.egloos.com/pds/200710/25/03/c0070403_47200963e6755_t.jpg"  
				alt="파일업로드가 필요하다면" 
				width="100px"  
				height="76pxpx"
				align="left"
				style="border:1px solid #DDDDDD;margin:0 10px 10px 0px;"
				/> 지난주에 이미지 리사이즈에 대한 얘기를 썼는데  그 결과물을 웹서버에 업로드 해야하는 작업이 남았었다.  역시 귀찮아서 간단한게 프로토타이핑 해봤다.    서버쪽은 php로 다음과 같이 간단하게 구성했다.          자! 이제 LWP모듈을 이용해서 이미지를 업로드 해보자.    #!/usr/bin/perl    use strict;  use LWP::UserAgent;    my $ua = new LWP::UserAgent( keep_alive=&gt;1 );  my $response = $ua-&gt;post(    'http://{도메인}/fileuptest.php',    [       'upfile' =&gt; ['{경로}\test.jpg'],    ],    'Content_Type' =&gt; 'form-data	]]>
	</description>
	<pubDate>Thu, 25 Oct 2007 12:12:25 +0900</pubDate>
	<dc:creator><![CDATA[기차니즘 초절정 고수 일탈을 꿈꾸며...]]></dc:creator>
</item>
<item>
	<title><![CDATA[특정 사이트의 웹 페이지 소스 스칼라 변수로 가져오기]]></title>
	<link>http://perl.egloos.com/720479</link>
	<guid>http://perl.egloos.com/720479</guid>
	<description>
	<![CDATA[ 
#!/usr/bin/perl -wuse strict; use diagnostics; use LWP::Simple;  my $url =  my $content = get($url);  print $content;  __END__  정말 perl 은 대단하다. 이 짧은 코드로 이런 큰일을 해내다니!!	]]>
	</description>
	<pubDate>Thu, 06 Sep 2007 23:38:54 +0900</pubDate>
	<dc:creator><![CDATA[＠hack perl]]></dc:creator>
</item>
	</channel>
</rss>

