手元に以下のようなログファイルが存在する。
2013/01/12 65.2 21.0 26.1
2013/01/13 66.4 22 22.3
2013/01/14 64.1 21.1 25.0
2013/01/15 68.5 24.5 23.1
2013/01/16 69.1 25.1 26.5
| diff --git a/webapp/perl/cpanfile b/webapp/perl/cpanfile | |
| index e3d6103..944b12e 100644 | |
| --- a/webapp/perl/cpanfile | |
| +++ b/webapp/perl/cpanfile | |
| @@ -2,3 +2,6 @@ requires 'Kossy' => '0.12'; | |
| requires 'DBIx::Sunny' => '0.17'; | |
| requires 'DBD::mysql' => '4.022'; | |
| requires 'Starman' => '0.3003'; | |
| +requires 'Starlet'; | |
| +requires 'Cache::Memory::Simple'; |
| my $db = Intern::Diary::DBI::Factory->new; | |
| my $dbh = $db->dbh('intern_diary'); | |
| my $sth = $dbh->prepare(q[ | |
| INSERT INTO entry | |
| SET | |
| user_id = ?, | |
| title = ?, | |
| content = ?, | |
| draft = ?, |
| #!perl | |
| use strict; | |
| use warnings; | |
| use Furl; | |
| use Imager; | |
| use Text::AAlib qw(:all); | |
| my $url = 'https://1.gravatar.com/avatar/ca6281fff64797dc419b78f51f25c0a5?d=https%3A%2F%2Fidenticons.github.com%2F51beaebc231c8720d18d10b0008693dc.png&s=420'; | |
| my $ua = Furl->new; |
http://ameblo.jp/principia-ca/entry-11573342807.html
| if ($cond) { | |
| ... | |
| } else | |
| { | |
| ... | |
| } |