Hatena::Groupperlmemo

Perlメモ

2008年09月18日 より開始
最新5件(RSS 2.0)
古いモジュールの更新

Plagger(Fedora10)
Plagger(Ubuntu9.04)

CPAN::Mini

Remedie(Ubuntu 9.04、Vine4.9(5α)、Fedora11Preview)
Remedie(Fedora10) 見れたサイトまとめ
編集

2008-12-03

Image::ExifTool

| Image::ExifTool - Perlメモ を含むブックマーク はてなブックマーク - Image::ExifTool - Perlメモ Image::ExifTool - Perlメモ のブックマークコメント

$ sudo cpan Image::ExifTool

use strict;
use warnings;
use Image::ExifTool;

my $file = shift or die;
my $exif = Image::ExifTool->new;
my $exifinfo = $exif->ImageInfo($file);

print "$exifinfo->{Make} $exifinfo->{Model}\n";

$ perl test.pl a.jpg


Phil Harvey / Image-ExifTool - search.cpan.org

2008-11-28

HTTP::Engine

| HTTP::Engine - Perlメモ を含むブックマーク はてなブックマーク - HTTP::Engine - Perlメモ HTTP::Engine - Perlメモ のブックマークコメント

$ sudo cpan HTTP::Engine

use HTTP::Engine;
HTTP::Engine->new(
    interface => {
        module => 'ServerSimple',
        args   => {
            host => 'localhost',
            port =>  1978,
        },
        request_handler => sub {
            my $req = shift;
            return HTTP::Engine::Response->new(
                 status => 200,
                 body   => 'Hello, World',
            );
        },
    },
)->run;

$ perl test.pl


http://localhost:1978/


HTTP::Engine - モダンなPerl入門 - モダンなPerl入門

2008-11-05

HTML::TreeBuilder

| HTML::TreeBuilder - Perlメモ を含むブックマーク はてなブックマーク - HTML::TreeBuilder - Perlメモ HTML::TreeBuilder - Perlメモ のブックマークコメント

$ sudo cpan HTML::TreeBuilder

階層構造がわかる

#!/usr/bin/perl

use strict;
use warnings;
use HTTP::Lite;
use HTML::TreeBuilder;

my $http = new HTTP::Lite;

# URL部分を変更して下さい
my $req = $http->request("http://www.yahoo.co.jp/") || die $!;

my $body = $http->body();

my $tree = HTML::TreeBuilder->new;
$tree->parse($body);
$tree->eof();

# 内容をdumpする
print $tree->dump();

exit;

$ perl test.pl


Geekなぺーじ : HTML::TreeBuilderによるパース(解析結果をdump)

2008-11-02

HTML::Template

| HTML::Template - Perlメモ を含むブックマーク はてなブックマーク - HTML::Template - Perlメモ HTML::Template - Perlメモ のブックマークコメント

テンプレート機能

$ sudo cpan -i HTML::Template

test.tmpl

<html>
<head><title>Test Template</title>
<body>
My Home Directory is <TMPL_VAR NAME=MYHOME>
<p>
My Path is set to <TMPL_VAR NAME=MYPATH>
</body>
</html>
#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template;

# open the html template
my $template = HTML::Template->new(filename => 'test.tmpl');

# fill in some parameters
$template->param(MYHOME => $ENV{HOME});
$template->param(MYPATH => $ENV{PATH});

# send the obligatory Content-Type and print the template output
print "Content-Type: text/html\n\n", $template->output;

$ perl test.pl > 1.html


Perlでテンプレート機能 - DB@WEB

2008-10-29

WWW::Mechanize

| WWW::Mechanize - Perlメモ を含むブックマーク はてなブックマーク - WWW::Mechanize - Perlメモ WWW::Mechanize - Perlメモ のブックマークコメント

$ sudo cpan -i WWW::Mechanize

use strict;
use warnings;
use WWW::Mechanize;
my $mech = new WWW::Mechanize( autocheck => 1 );

# トップにアクセスし、
$mech->get('http://mixi.jp/');

# ログイン。
$mech->submit_form(
    fields => {
        email => 'your-email@example.com',
        password => 'p4ssw0rd',
    },
);
$mech->get('http://mixi.jp/home.pl');

# 足あとページに遷移
$mech->get('http://mixi.jp/show_log.pl');

print $mech->content;

$ perl test.pl


use WWW::Mechanize; - 今日のCPANモジュール


Perlモジュール/WWW::Mechanize - Walrus, Digit.


WWW::Mechanize による Webアクセスの自動化 | Diaspar Journal