ねこったの日々

Windows10 1803の再インストールした時のメモ

2018-07-18T18:05:00.000+09:00

今日はちょっとしたメモを残そうと思って書き込みしています。
事の発端は大きいファイルを整理している最中にエラーが頻発した事から始まります。

エラー情報を見るとDisk1のwriteエラーが頻発しておりました。
Disk1は自分の場合メインHDDに相当する「はず」です。
そこでディスクステータスを表示してもらうためCrstalDiskInfoを利用しました。
結果は健康状態正常。エラーステータスも出ていません。

あれ？

じゃあなんでWindowsログにDiskエラーが出てるわけ？

相当悩みましたがその後は特にエラーが出ていない様子。
おかしいなぁと思いながらもエラーが出たのは間違いないので、ここは危険回避という事と、大分使い込んだ為せっかくだからきれいにしようという事にしました。

大分使い込んだHDDは当時高かったSSHDというSSDとHDDの良い所を取り込んだ物でした。
これを新品の普通のHDDに乗り換える事に。
新しいHDDは
をチョイス。ポチりました。

届いた日にパソコンの蓋をパッカーンと開けSATAの1番に接続。ここで何かがおかしいことに気が付かなかったのが最大の原因。（詳しくは後程）

クローンソフトEaseUS Todo Backup Free 11.0を使ってクローン開始。
特に問題無くクローン成功。時間は5時間程かかったけどね。

一度新HDDで起動を確認。Windows10のデジタルライセンスを通しておかないと、この後のインストールに失敗する可能性があります。

無事デジタルライセンスの確認が取れた、及びまだ旧HDDは手付かずで残ってるので、思い切ってWindows10 1803を新規でインストールすることにしました。

やってみる事2時間で無事インストール完了。きれいにインストールしなおしました。

ドライバも必要最低限入れていき順調に事は運びました。

そこで疑問が生じます。
「なんでエラーが発生してたの？」と。
間髪入れずに問題が発生します。Disk1エラーです。
「おいおい新品のHDDがそんな簡単に壊れるわけがなかろうに」

ここからもう一度調査開始です。

よくよく思い出してみるとPORT１番にすんなりSATAケーブル刺しています。いくら空いているからと言って無造作に接続するのもある意味怖かった。
クローンしている際中はマザーボードに直結していたので問題出なかったようです。
そして旧HDDを取り外し、新HDDを「その」SATAケーブルに刺して戻しました。

「あ、もしかしてケーブル？それともSATAのPORT逝った？」

そこでPORTを取り換えようとマザーボードをよく見ると今2番につながっています。
やってしまいました。どうやら0番から始まるPORT番号に順に繋いでいなかった様子です。
そこで今度は0番に刺しなおしてもう一度トライ。
大きなファイルをコピーしているときにまたもやエラー。
おかしいポート変えても同じエラーが出るなんて。

壊れていたのは外付けUSBHDDでした。
チャンチャン。

でもまあきれいにインストールできたし、最悪元に戻せるHDDが手元に残ったしで満足しています。

LinuxのMailコマンドで外部に送信失敗の時

2014-07-25T21:25:00.001+09:00

今まで何度も何度も読み返してるのになぜスルーしてたのか分からない。

mailコマンドはMTAにメール配送を任せるので
たとえば
echo test | mail -s test hogehoge@hoge.com
とかして外部に送信しようとした場合
sendmailやpostfixなどMTAに送信依頼をする。
この時外に出ようとするメールは
「自分の所に届けるメールじゃない」と判断した際
MTAのデフォルト設定にも寄るが基本設定したドメインに
@以降を書き換える。
私の場合Centos6.5だったので必然的にPostfixがデフォルトだったので
main.cfとか一生懸命見直してはテストしてました。
だけどどうやってもMTAが「ユーザー名@localhost.localdomain」とかで
外に送信したがる。
myoriginとか確実に直ってるはずなのにである。

で、何が悪いのか色々なサイトを見て周るも
書かれていることは皆同じ。
どこが違う・・・・・。散々悩んでとあるサイトを見ていた時。
「CentOS7はデフォルトでPostfixになっています」の文字。
ん？
CentOS6だってそうじゃなかったっけ？
・・・・まさか

そう。まさかだったんです。

alternatives --config mta

2 プログラムがあり 'mta' を提供します。

選択       コマンド
-----------------------------------------------
*+ 1           /usr/sbin/sendmail.sendmail
   2           /usr/sbin/sendmail.postfix

Enter を押して現在の選択 [+] を保持するか、選択番号を入力します:

！！！！！！
sendmailなんて入っていないがな！
すかさす２を選択。
そしてメールテスト・・・・・・。あっさりパス。
ふざけるなぁ！と叫んでおりました。はい。

みなさん。MTAは目的の物に確実に選択されているか確認してから設定してくださいね。

Hatena::Keywordの部分修正

2014-06-18T17:07:00.000+09:00

どうもすいません。間違いを記載していたようです。
私の"2013/10/27現在のPlaggerに必要なモジュールの取得その２"で紹介している
スクリプトの中でHatena::Keywordの部分ですが
本体を修正する必要はありませんでした。ですので修正する箇所としては

---------------ここから---------------
# Hatena::Keyword には2つ修正するべき箇所がある。
# 1:POD内にあるeuc-jpの"’"の除去
# 2:utf8の使用および文字引渡し時のエンコード処理
cd /root
wget http://search.cpan.org/CPAN/authors/id/N/NA/NAOYA/Hatena-Keyword-0.05.tar.gz
tar xzvf Hatena-Keyword-0.05.tar.gz
cd Hatena-Keyword-0.05/lib/Hatena/
# euc-jpなPODをUTF-8に変換します。
/usr/bin/nkf -w Keyword.pm > Keyword.pm.utf8
# 下のアポストロフィの全角を半角にするために置換します
/bin/sed -e "s/’/'/g" Keyword.pm.utf8 > Keyword.pm.utf8.sed
# 元ファイル除去
rm -f Keyword.pm
# 中間ファイル除去
rm -f Keyword.pm.utf8
mv Keyword.pm.utf8.sed Keyword.pm
cat << "EOFA" > Keyword.patch 2>&1
--- Keyword.pm 2008-02-21 12:11:59.000000000 +0900
+++ Keyword.pm.new      2013-10-19 13:53:33.197136826 +0900
@@ -7,6 +7,7 @@
use URI;
use RPC::XML;
use RPC::XML::Client;
+use utf8;

our $VERSION = 0.05;

@@ -22,6 +23,7 @@
     my $body = shift or croak sprintf 'usage %s->extract($text)', $class;
     my $args = shift || {};
     $args->{mode} = 'lite';
+    utf8::encode($body);
     my $res = $class->_call_rpc_with_cache($body, $args)
         or $class->error($class->errstr);
     my @keywords = map { $class->_instance_from_rpcdata($_) }@{$res->{wordlist}};
EOFA
patch < Keyword.patch
rm -f Keyword.patch
cd /root
rm -f Hatena-Keyword-0.05.tar.gz
tar czvf Hatena-Keyword-0.05.tar.gz Hatena-Keyword-0.05
rm -fr Hatena-Keyword-0.05
$CPANM_CMD Hatena-Keyword-0.05.tar.gz
rm -f Hatena-Keyword-0.05.tar.gz
---------------ここまで---------------

を

---------------ここから---------------
# Hatena::Keyword には修正するべき箇所がある。
# POD内にあるeuc-jpの"’"の除去
cd /root
wget http://search.cpan.org/CPAN/authors/id/N/NA/NAOYA/Hatena-Keyword-0.05.tar.gz
tar xzvf Hatena-Keyword-0.05.tar.gz
cd Hatena-Keyword-0.05/lib/Hatena/
# euc-jpなPODをUTF-8に変換します。
/usr/bin/nkf -w Keyword.pm > Keyword.pm.utf8
# 下のアポストロフィの全角を半角にするために置換します
/bin/sed -e "s/’/'/g" Keyword.pm.utf8 > Keyword.pm.utf8.sed
# euc-jpに戻します。
/usr/bin/nkf -e Keyword.pm.utf8.sed > Keyword.pm.euc.sed
# 元ファイル除去
rm -f Keyword.pm
# 中間ファイル除去
rm -f Keyword.pm.utf8
rm -f Keyword.pm.utf8.sed
# ファイル名変更
mv Keyword.pm.euc.sed Keyword.pm
cd /root
rm -f Hatena-Keyword-0.05.tar.gz
tar czvf Hatena-Keyword-0.05.tar.gz Hatena-Keyword-0.05
rm -fr Hatena-Keyword-0.05
$CPANM_CMD Hatena-Keyword-0.05.tar.gz
rm -f Hatena-Keyword-0.05.tar.gz
---------------ここまで---------------

に修正願います。

2013/10/27現在のPlaggerに必要なモジュールの取得その２

2013-11-06T16:41:00.001+09:00

次にperl moduleをインストールしていきます。
私の環境で2時間程度かかりました。
一つ一つインストールして確認しながらやっていくのも
いいのかもしれませんが私はscriptを組んで
実行後screenをデタッチして別作業を行っていました。
好みによると思いますので適宜読み直して下さい。
ここではinst02.shという名前で新規作成していきます。

--ここから--
#!/bin/bash
export CPANM_CMD=/usr/local/UserPerl/bin/cpanm
curl -L http://xrl.us/cpanm | perl - App::cpanminus
$CPANM_CMD local::lib
$CPANM_CMD -L /usr/local parent
$CPANM_CMD Test::Harness
$CPANM_CMD Module::Install
$CPANM_CMD Module::Install::AuthorTests
$CPANM_CMD HTTP::Tiny
$CPANM_CMD CPAN::DistnameInfo
$CPANM_CMD App::pmuninstall
$CPANM_CMD YAML
$CPANM_CMD XML::LibXML
$CPANM_CMD Class::Accessor
$CPANM_CMD Module::Pluggable::Fast
$CPANM_CMD UNIVERSAL::require
$CPANM_CMD XML::Liberal
$CPANM_CMD Encode::Detect
$CPANM_CMD AppConfig
$CPANM_CMD Template
$CPANM_CMD Image::Info
$CPANM_CMD Config::Simple
$CPANM_CMD XML::SAX::Expat
$CPANM_CMD XML::Simple
$CPANM_CMD Time::HiRes
$CPANM_CMD Date::Parse
$CPANM_CMD IO::AtomicFile
$CPANM_CMD Try::Tiny
$CPANM_CMD Test::Fatal
$CPANM_CMD Module::Runtime
$CPANM_CMD List::MoreUtils
$CPANM_CMD Dist::CheckConflicts
$CPANM_CMD Test::Requires
$CPANM_CMD Module::Implementation
$CPANM_CMD Params::Validate
$CPANM_CMD Package::Stash::XS
$CPANM_CMD Package::Stash
$CPANM_CMD Params::Util
$CPANM_CMD Sub::Install
$CPANM_CMD Data::OptList
$CPANM_CMD Class::Load
$CPANM_CMD Log::Dispatch
$CPANM_CMD Net::Delicious
$CPANM_CMD Digest::SHA
$CPANM_CMD Archive::Zip
$CPANM_CMD Net::Telnet
$CPANM_CMD Term::ReadKey
$CPANM_CMD Term::ReadLine
$CPANM_CMD Text::Glob
$CPANM_CMD Probe::Perl
$CPANM_CMD IPC::Run3
$CPANM_CMD Test::Script
$CPANM_CMD File::Which
$CPANM_CMD --force Term::ReadLine::Perl
$CPANM_CMD File::HomeDir
$CPANM_CMD YAML::Syck
$CPANM_CMD IO::Tty
$CPANM_CMD Expect
$CPANM_CMD IPC::Run
$CPANM_CMD Module::Signature
$CPANM_CMD Capture::Tiny
$CPANM_CMD IO::CaptureOutput
$CPANM_CMD CPAN::Version
$CPANM_CMD Test::Reporter
$CPANM_CMD File::pushd
$CPANM_CMD Devel::Autoflush
$CPANM_CMD File::Spec
$CPANM_CMD File::Temp
$CPANM_CMD Config::Tiny
$CPANM_CMD CPAN::Reporter
$CPANM_CMD Kwalify
$CPANM_CMD Pod::Simple
$CPANM_CMD Test::Pod
$CPANM_CMD Devel::Symdump
$CPANM_CMD Pod::Coverage
$CPANM_CMD Test::Pod::Coverage
$CPANM_CMD XML::NamespaceSupport
$CPANM_CMD XML::SAX::Base
$CPANM_CMD XML::SAX
$CPANM_CMD HTML::Entities::Numbered
$CPANM_CMD XML::Parser
$CPANM_CMD DBI
$CPANM_CMD RDF::Core
$CPANM_CMD XML::FOAF
$CPANM_CMD Test::Tester
$CPANM_CMD Test::NoWarnings
$CPANM_CMD Test::Deep
$CPANM_CMD Mail::Header
$CPANM_CMD MIME::Parser
$CPANM_CMD Net::SSLeay
$CPANM_CMD IO::Socket::SSL
$CPANM_CMD IO::SessionData
$CPANM_CMD Class::Inspector
$CPANM_CMD Task::Weaken
$CPANM_CMD SOAP::Lite
$CPANM_CMD XMLRPC::Lite
$CPANM_CMD Algorithm::Diff
$CPANM_CMD Text::Diff
$CPANM_CMD HTTP::Cookies::Mozilla
$CPANM_CMD DateTime::Locale
$CPANM_CMD Sub::Exporter
$CPANM_CMD Test::Output
$CPANM_CMD Class::Singleton
$CPANM_CMD DateTime::TimeZone
$CPANM_CMD DateTime
$CPANM_CMD DateTime::Format::W3CDTF
$CPANM_CMD DateTime::Format::Mail
$CPANM_CMD XML::RSS::LibXML
$CPANM_CMD WebService::Bloglines
$CPANM_CMD FCGI
$CPANM_CMD CGI
$CPANM_CMD PadWalker
$CPANM_CMD Devel::Cycle
$CPANM_CMD Test::Memory::Cycle
$CPANM_CMD Carp
$CPANM_CMD Sub::Uplevel
$CPANM_CMD File::Slurp
$CPANM_CMD Tree::DAG_Node
$CPANM_CMD Test::Warn
$CPANM_CMD Test::Taint
$CPANM_CMD Test::LongString
$CPANM_CMD HTML::TreeBuilder
$CPANM_CMD HTTP::Server::Simple
$CPANM_CMD LWP::MediaTypes
$CPANM_CMD Encode::Locale
$CPANM_CMD HTTP::Date
$CPANM_CMD IO::HTML
$CPANM_CMD HTTP::Request
$CPANM_CMD HTML::Form
$CPANM_CMD WWW::Mechanize
$CPANM_CMD Jcode
$CPANM_CMD WWW::Mixi
$CPANM_CMD XML::RSS::Liberal
$CPANM_CMD XML::XPathEngine
$CPANM_CMD HTML::TreeBuilder::XPath
$CPANM_CMD HTML::Scrubber
$CPANM_CMD Time::Duration
$CPANM_CMD Exporter::Lite
$CPANM_CMD Time::Duration::Parse
$CPANM_CMD XML::SimpleObject
$CPANM_CMD XML::OPML
$CPANM_CMD Digest::HMAC_MD5
$CPANM_CMD Net::SMTP::TLS
$CPANM_CMD Email::Date::Format
$CPANM_CMD MIME::Types
$CPANM_CMD MIME::Lite
$CPANM_CMD Spiffy
$CPANM_CMD Test::Base
$CPANM_CMD DateTime::Format::Strptime
$CPANM_CMD Error
$CPANM_CMD Digest::SHA1
$CPANM_CMD Cache::Cache
$CPANM_CMD HTML::ResolveLink
$CPANM_CMD Number::Compare
$CPANM_CMD File::Find::Rule
$CPANM_CMD Test::Manifest
$CPANM_CMD XML::RSS
$CPANM_CMD Class::ErrorHandler
$CPANM_CMD Heap::Fibonacci
$CPANM_CMD File::NFSLock
$CPANM_CMD IO::String
$CPANM_CMD Cache
$CPANM_CMD URI::Fetch
$CPANM_CMD LWP::Authen::Wsse
$CPANM_CMD Class::Data::Inheritable
$CPANM_CMD XML::XPath
$CPANM_CMD XML::Atom
$CPANM_CMD Feed::Find
$CPANM_CMD XML::Feed
$CPANM_CMD Text::Tags
$CPANM_CMD Term::Encoding
$CPANM_CMD Template::Provider::Encoding
$CPANM_CMD YAML::Base
$CPANM_CMD Template::Plugin::JavaScript
$CPANM_CMD URI::Find
$CPANM_CMD Scalar::Util
$CPANM_CMD File::Listing
$CPANM_CMD HTTP::Negotiate
$CPANM_CMD HTTP::Daemon
$CPANM_CMD Net::HTTP
$CPANM_CMD HTTP::Cookies
$CPANM_CMD WWW::RobotRules
$CPANM_CMD LWP::UserAgent
$CPANM_CMD Mozilla::CA
# LWP::Protocol::httpsはwww.apache.org:443に接続してテストするが
# サーバーのアクセスに失敗する時もある。
# モジュール自体は問題なさそうなので強制インストール
$CPANM_CMD --force LWP::Protocol::https
LANG=C $CPANM_CMD Crypt::SSLeay
$CPANM_CMD Config::INI::Simple
$CPANM_CMD ExtUtils::ParseXS
$CPANM_CMD Log::Log4perl
$CPANM_CMD Net::Amazon
$CPANM_CMD --force Regexp::Assemble
$CPANM_CMD Parse::RecDescent
$CPANM_CMD Text::Hatena
$CPANM_CMD Regexp::Common
$CPANM_CMD Data::Section::Simple
$CPANM_CMD Regexp::Common::profanity_us
$CPANM_CMD Data::TemporaryBag
$CPANM_CMD SWF::BinStream
$CPANM_CMD Font::TTF
$CPANM_CMD SWF::Builder
$CPANM_CMD Text::CharWidth
$CPANM_CMD Text::WrapI18N
$CPANM_CMD RPC::XML
$CPANM_CMD Test::Exception
$CPANM_CMD Set::Infinite
$CPANM_CMD DateTime::Set
$CPANM_CMD DateTime::Util::Calc
$CPANM_CMD DateTime::Util::Astro::Sun
$CPANM_CMD http://ftp2.ru.freebsd.org/pub/FreeBSD/distfiles/DateTime-Event-SolarTerm-0.05.tar.gz
$CPANM_CMD Math::Round
$CPANM_CMD DateTime::Event::Lunar
$CPANM_CMD DateTime::Util::Astro
$CPANM_CMD http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/DateTime-Event-Chinese-0.05.tar.gz
$CPANM_CMD http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/DateTime-Calendar-Chinese-0.07.tar.gz
$CPANM_CMD Encode
# Hatena::Keyword には2つ修正するべき箇所がある。
# 1:POD内にあるeuc-jpの"’"の除去
# 2:utf8の使用および文字引渡し時のエンコード処理
cd /root
wget http://search.cpan.org/CPAN/authors/id/N/NA/NAOYA/Hatena-Keyword-0.05.tar.gz
tar xzvf Hatena-Keyword-0.05.tar.gz
cd Hatena-Keyword-0.05/lib/Hatena/
# euc-jpなPODをUTF-8に変換します。
/usr/bin/nkf -w Keyword.pm > Keyword.pm.utf8
# 下のアポストロフィの全角を半角にするために置換します
/bin/sed -e "s/’/'/g" Keyword.pm.utf8 > Keyword.pm.utf8.sed
# 元ファイル除去
rm -f Keyword.pm
# 中間ファイル除去
rm -f Keyword.pm.utf8
mv Keyword.pm.utf8.sed Keyword.pm
cat << "EOFA" > Keyword.patch 2>&1
--- Keyword.pm 2008-02-21 12:11:59.000000000 +0900
+++ Keyword.pm.new      2013-10-19 13:53:33.197136826 +0900
@@ -7,6 +7,7 @@
use URI;
use RPC::XML;
use RPC::XML::Client;
+use utf8;

our $VERSION = 0.05;

@@ -22,6 +23,7 @@
     my $body = shift or croak sprintf 'usage %s->extract($text)', $class;
     my $args = shift || {};
     $args->{mode} = 'lite';
+    utf8::encode($body);
     my $res = $class->_call_rpc_with_cache($body, $args)
         or $class->error($class->errstr);
     my @keywords = map { $class->_instance_from_rpcdata($_) }@{$res->{wordlist}};
EOFA
patch < Keyword.patch
rm -f Keyword.patch
cd /root
rm -f Hatena-Keyword-0.05.tar.gz
tar czvf Hatena-Keyword-0.05.tar.gz Hatena-Keyword-0.05
rm -fr Hatena-Keyword-0.05
$CPANM_CMD Hatena-Keyword-0.05.tar.gz
rm -f Hatena-Keyword-0.05.tar.gz
$CPANM_CMD Exporter
$CPANM_CMD File::ShareDir
$CPANM_CMD Params::Validate
$CPANM_CMD Math::BigInt
$CPANM_CMD Math::BigInt::GMP
wget http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/DateTime-Calendar-Japanese-Era-0.08001.tar.gz
tar xzvf DateTime-Calendar-Japanese-Era-0.08001.tar.gz
cd DateTime-Calendar-Japanese-Era-0.08001
rm -fr inc/ExtUtils
cd lib/DateTime/Calendar/Japanese
cat << "EOFB" > Era.patch 2>&1
--- Era.pm.orig    2013-10-21 16:41:35.886078724 +0900
+++ Era.pm    2013-10-21 16:42:43.663065831 +0900
@@ -211,17 +211,23 @@
#        $start_date->set_time_zone('UTC');
#        $end_date->set_time_zone('UTC');

+        my $eraname;
+        if (Encode::is_utf8($this_era->[$NAME])){
+            $eraname = $this_era->[$NAME] ;
+        } else {
+            $eraname = Encode::decode_utf8($this_era->[$NAME]);
+        }
         if ( $opts->{is_south_regime} ) {
             push @SOUTH_REGIME_ERAS, __PACKAGE__->new(
                 id => $this_era->[$ID],
-                name => Encode::decode_utf8($this_era->[$NAME]),
+                name => $eraname,
                 start => $start_date,
                 end => $end_date,
             );
         } else {
             __PACKAGE__->register_era(
                 id    => $this_era->[$ID],
-                name => Encode::decode_utf8($this_era->[$NAME]),
+                name => $eraname,
                 start => $start_date,
                 end   => $end_date
             );
EOFB
patch < Era.patch
rm -f Era.patch
cd /root
rm -f DateTime-Calendar-Japanese-Era-0.08001.tar.gz
tar czvf DateTime-Calendar-Japanese-Era-0.08001.tar.gz DateTime-Calendar-Japanese-Era-0.08001
rm -fr DateTime-Calendar-Japanese-Era-0.08001
$CPANM_CMD DateTime-Calendar-Japanese-Era-0.08001.tar.gz
rm -f DateTime-Calendar-Japanese-Era-0.08001.tar.gz
$CPANM_CMD DateTime::Event::Sunrise
$CPANM_CMD DateTime::Calendar::Japanese
$CPANM_CMD Class::Factory::Util
$CPANM_CMD DateTime::Format::Builder
wget http://backpan.perl.org/authors/id/D/DM/DMAKI/DateTime-Format-Japanese-0.04000.tar.gz
tar xzvf DateTime-Format-Japanese-0.04000.tar.gz
cd DateTime-Format-Japanese-0.04000
cd lib/DateTime/Format/Japanese
cat << "EOFC" > Common.patch 2>&1
--- Common.pm.orig    2008-08-25 01:18:06.000000000 +0900
+++ Common.pm    2013-10-21 17:17:29.572062844 +0900
@@ -302,7 +302,12 @@
     }

     my $era_year = ($dt->year - $era->start->year) + 1;
-    my $era_name = Encode::decode_utf8($era->name);
+    my $era_name;
+    if (Encode::is_utf8($era->name)){
+        $era_name = $era->name;
+    } else {
+        $era_name = Encode::decode_utf8($era->name);
+    }

     return $era_name .
         _format_number($era_year, $number_format) .
EOFC
patch < Common.patch
rm -f Common.patch
cd /root
rm -f DateTime-Format-Japanese-0.04000.tar.gz
tar czvf DateTime-Format-Japanese-0.04000.tar.gz DateTime-Format-Japanese-0.04000
rm -fr DateTime-Format-Japanese-0.04000
$CPANM_CMD --force DateTime-Format-Japanese-0.04000.tar.gz
rm -f DateTime-Format-Japanese-0.04000.tar.gz
$CPANM_CMD --force XML::Feed::RSS
$CPANM_CMD Cache::FastMmap
$CPANM_CMD base
$CPANM_CMD IO::Pipely
$CPANM_CMD POE::Test::Loops
$CPANM_CMD POE
$CPANM_CMD Net::DNS
$CPANM_CMD POE::Component::Client::DNS
$CPANM_CMD Net::IP::Minimal
$CPANM_CMD ExtUtils::Constant
$CPANM_CMD Socket
$CPANM_CMD POE::Component::Resolver
$CPANM_CMD POE::Component::Client::Keepalive
$CPANM_CMD Test::POE::Server::TCP
$CPANM_CMD POE::Component::Client::HTTP
$CPANM_CMD UNIVERSAL::isa
# 下記2つはすでにcpanには無い為別のサイトから取得
$CPANM_CMD http://mirrors.gigenet.com/freebsd/distfiles/Data-Average-0.03000.tar.gz
$CPANM_CMD http://download.xs4all.nl/freebsd/ports/distfiles/Xango-1.08.tar.gz
$CPANM_CMD XML::Parser::Lite::Tree
$CPANM_CMD Flickr::API
# DateTime::Format::EpochはMath::BigInt::GMPの精度が上がったために起こる
# 問題の様子。AD100年とかを使わないので仕方なくforceInstall
$CPANM_CMD --force DateTime::Format::Epoch
$CPANM_CMD WebService::YouTube
$CPANM_CMD WWW::Babelfish
$CPANM_CMD Text::Emoticon
$CPANM_CMD Email::Address
$CPANM_CMD Lingua::StopWords
$CPANM_CMD Text::ExtractWords
$CPANM_CMD Text::Language::Guess
$CPANM_CMD Geography::Countries
$CPANM_CMD IP::Country
$CPANM_CMD File::Fetch
$CPANM_CMD Archive::Extract
$CPANM_CMD Alien::Tidyp
$CPANM_CMD HTML::Tidy
$CPANM_CMD Data::Dumper
$CPANM_CMD Test::Differences
$CPANM_CMD Text::Markdown
wget http://kakasi.namazu.org/stable/kakasi-2.3.4.tar.gz
tar zxvf kakasi-2.3.4.tar.gz
cd kakasi-2.3.4
./configure
make && make install
cd ..
rm -fr kakasi-2.3.4*
$CPANM_CMD Text::Kakasi
$CPANM_CMD NetAddr::IP
$CPANM_CMD Crypt::OpenSSL::Random
# Mail::SpamAssassin自力インストールは難しい。
# 素直にyum系からspamassassinをインストールすべし
$CPANM_CMD Mail::SpamAssassin
$CPANM_CMD Audio::Beep
$CPANM_CMD IRC::Utils
$CPANM_CMD Object::Pluggable
$CPANM_CMD POE::Component::Syndicator
$CPANM_CMD POE::Filter::IRCD
$CPANM_CMD POE::Component::IRC
$CPANM_CMD Data::Dump
$CPANM_CMD Devel::Size
$CPANM_CMD POE::Component::IKC::Client
$CPANM_CMD Net::NetSend
$CPANM_CMD Text::CSV_PP
$CPANM_CMD OLE::Storage_Lite
$CPANM_CMD Spreadsheet::WriteExcel
$CPANM_CMD Mail::IMAPClient
# Net::MovableTypeはテストに使われるサーバに
# 接続できないためエラーとなるのでうまく行かない可能性もあるがforce
$CPANM_CMD --force Net::MovableType
$CPANM_CMD XML::Twig
$CPANM_CMD PDF::Writer
$CPANM_CMD Image::Size
$CPANM_CMD Module::Loaded
$CPANM_CMD Graphics::ColorNames
$CPANM_CMD PDF::API2
$CPANM_CMD PDF::FromHTML
$CPANM_CMD Palm::PalmDoc
$CPANM_CMD Data::Serializer
$CPANM_CMD DateTime::Format::ICal
$CPANM_CMD DateTime::Event::Recurrence
$CPANM_CMD DateTime::Event::ICal
$CPANM_CMD Devel::StackTrace
$CPANM_CMD Class::ReturnValue
$CPANM_CMD Class::Accessor::Chained
$CPANM_CMD Text::vFile::asData
$CPANM_CMD Data::ICal
# Search::EstraierはTestPodで引っかかってる様子
# 他テストで問題無いことからforce
$CPANM_CMD --force Search::Estraier
$CPANM_CMD File::Grep
$CPANM_CMD Lingua::Stem::Snowball
$CPANM_CMD common::sense
$CPANM_CMD JSON::XS
$CPANM_CMD KinoSearch
# DBIx::Class::Schemaはここまでインストールしてきた
# モジュール以外の33のモジュールを必要とする。
# しかしここまで来ていれば全てのモジュールを正常に
# インストールできる事から省略する。
$CPANM_CMD DBIx::Class::Schema
$CPANM_CMD Text::Sentence
$CPANM_CMD Lingua::EN::Summarize
$CPANM_CMD Text::Original
$CPANM_CMD Lingua::JA::Summarize::Extract
$CPANM_CMD Font::AFM
$CPANM_CMD HTML::FormatText
$CPANM_CMD Lingua::ZH::HanDetect
$CPANM_CMD Plagger
$CPANM_CMD Mouse
$CPANM_CMD Log::Minimal
$CPANM_CMD OrePAN
--ここまで--

このBloggerは変な所で折り返しがついてしまいます。
長い所は変な改行などが残ってないか確認して下さい。

この状態で既にPlaggerの実行は可能です。
ただしassetsを用意しないと正常な動作はしません。
長かったので次回実行に移ります

2013/10/27現在のPlaggerに必要なモジュールの取得その１

2013-11-06T16:08:00.001+09:00

2013/10/27現在でPlaggerインストール時に必要と思われる
モジュールを取得、インストールしてみたいと思います。
私が行った方法は以下の構成です。

Windows7 x64 SP1
Oracle VirtualBox 4.2.16 r86992
MotherBoard ASUS B85M
MEM 16GB
HDD SATA 2TB

2の仮想マシンにCentOS6.4をインストールします。
CentOS6.4のインストールの詳細は省きますが
http://centossrv.com/
さんのページがわかりやすいかと思います。
こちらでCentOSインストール->CentOS6インストールと
CentOS初期設定ｰ>CentOS6初期設定をしておきます。
この時点でSSHでの接続が可能になりますのでPuttyなどを使って
各種設定をしていかれたほうがいいかと思います。
なぜならこれから沢山のコピペが必要になるからです。
VirtualBoxのツールを入れてコピペが出来るようにするのも
手段としてはあるのですが、汎用性にかけると思いますので
推奨いたしません。

次からは仮想マシンの中での作業になります。
ユーザーはrootを想定しています。
通常ユーザーを使用する場合は適宜変更してください。
テキストエディタ（私はviを使用しています。）で以下のshellscriptを
新規作成します。（ここではinst00.sh)

--ここから--
#!/bin/bash
yum -y install perl-devel
yum -y install perl-ExtUtils-MakeMaker
yum -y install libxml2-devel
yum -y install perl-XML-LibXML perl-libxml-perl
yum -y install openssl-devel openssl-perl
yum -y install perl-Crypt-SSLeay perl-Net-SSLeay
yum -y install expat-devel
yum -y install readline-devel
yum -y install perl-Term-UI
yum -y install mpfr-devel
yum -y install apr-devel apr-util-devel
yum -y install httpd-devel sqlite-devel
yum -y install neon-devel
yum -y install subversion-perl
yum -y install libtidy-devel
yum -y install db4-devel db4-devel-static
yum -y install spamassassin
yum -y install screen
mkdir /usr/local/UserPerl
chmod 777 /usr/local/UserPerl
chown nobody:nobody /usr/local/UserPerl
--ここまで--

やっていることは土台となるOSにperlモジュール以外で
必要になるモジュールをインストールしています。
この中にはperlモジュールも含まれていますが
後ほどアップグレードいたします。
また/usr/local/UserPerlというフォルダを作成し
ここに今回使用するモジュールをインストールしていきます。

書き終わったらshellを実行します。
bash inst00.sh
私の環境で2分程度でした。

次にperlモジュールインストール先の設定を行います。
私は.bashrcに記載しましたが環境変数が変わってくれるのであれば
どこでもかまいません。

--追記ここから--
export PERL_CPANM_OPT="--local-lib=/usr/local/UserPerl --mirror=http://backpan.perl.org/ --save-dists=/root/cpan-mirror"
export PATH=/usr/local/UserPerl/bin:$PATH;
export PERL5LIB=/usr/local/UserPerl/lib/perl5:$PERL5LIB;
--追記ここまで--

追記したらsource .bashrcとするかリセットさせて下さい。
また次回からのモジュールインストールには時間がかかりますので
裏で実行させておけるscreenの設定を行います。
~/.screenrcを新規作成します。

--ここから--
escape ^z^z
defencoding UTF8
defscrollback 1000
startup_message off
log on
deflog on
logfile "~/.screenlog/screen%d_%m(%y).log"
--ここまで--

これでscreenの環境が整いました。
screenを実行させてバックグラウンド環境で動作する
環境が整いました。
（これは私が普段使っている設定です。
お好みに合わせてキーバインドなどを変更してもかまいません
ちなみにこの.screenrcではCtrl+zでコマンド入力状態、
続けてcを押せば新規screen追加、nでscreen切り替え
dでデタッチ（フォアグランドへ戻る）などが可能です。
詳細はgoogleなどでlinux screenとすれば出てくるでしょう）
この環境で今後は操作していきます

2013/10/22現在のPlaggerについて

2013-10-22T16:11:00.000+09:00

お久しぶりです。
以前の投稿から何年たったかわからない位前になりますね。

この間正常に動作していたサーバが突如不安定になりそれを復旧させるために
再インストールする事になりました。

普通のサーバ用途ならばたいして時間かからなかったのですがPlaggerだけは
すんなりと入ってはくれませんでした。

さて。お題にあるとおりなのですが、なにぶん7年前のプロダクトですから
現在インストールするのにだいぶてこずりました。

一度は挫折しかけたのですが、どうしても自分の環境には
無くてはならない存在だと気づき
長期戦覚悟で地道にインストールを続けてきました。

ここにその成果を記したいと思います。

「Plaggerは今でもインストールできるのか？」可でもあり不可でもあります。
現在通常ではインストールできないモジュールが複数あり
それを強制的にインストールするか自分のようにある程度加工してから入れるかで
そのモジュールを使用する場面で違いが出てきます。

「そもそもPlaggerってなに？」
フィードアグリゲーターの一種でRSSに代表される情報を加工して
別の形にして出力するものです。
じゃあRSS見れればそれでいいんじゃない？と言われる方。
自分のほしい情報だけ見たいと思いませんか？
RSSには最近では宣伝などが多く含まれていたり
単純にRSSだけ見ても本文はリンクページ先にあったりと
案外不便なことも多いのです。
さらにRSSは蓄積情報とはなりません。
情報の早いページでは1時間もたたないうちに
過去へ流されその時点の情報しか得られません。
自分は会社の通勤途中に情報を見ることにしています。
そのときの最新情報はその場で取得できますが、
それ以外の時間に起きた情報は探すのに一苦労します。
いちいちコピペしたり検索をかけたり、Webを渡り歩いたりとあっという間に
時間は過ぎ去っていき、目的のものを調べきれないまま
帰宅してしまうということが多々ありました。
またつい数時間前まであったと思われる情報が消し去られ
見ることができなかったことも多くありました。
「自分の時間をもっとも有効に過ごすためにはどうしたらよいか」を
調査していった時Plaggerにたどり着きました。

「Plaggerで何ができるの？」
検索で「Plagger Wiki」で詳細が得られるでしょう。
プラグイン方式でさまざまな事が可能になります。
私がしているのはPlaggerで最も使われているであろう
「複数のRSSから本文を取得し、メール形式にして特定のメアドに送付する」
ということをさせています。
実は最近では
「個人毎に最適化されたニュース配信（キュレーションサービス）」
なんていうサービスも存在しますが、
実際使用してみるとやはり広告があったり可読性が悪い
などで私には適していませんでした。
メール形式で必要なサイトの記事全文を送ってもらうことにより
その瞬間（実際には一時間単位でそれらページをクロールしたとき）に
起こったニュース記事やブログ記事などが蓄積されます。
この中から必要と思われるタイトルを拾い読みすれば
その日何が起こっていたのかがわかるようになったり、
それを残しておけば後日ネタのひとつにすることもできます。

「情報過多にならない？」
なります（笑）。しかもとても多くの情報を仕入れる事になります。
なので私はある程度選別も同時に行っています。
記事中に特定の文字があるかどうかをメーラーで振り分け、
「最重要」「重要」「普通」「それ以外」の4つに区分けさせます。
こうすることで「取得したが自分にはさほど必要ではない」記事を
フィルタリングさせています。
私の場合10箇所程のサイトを1時間置きに最新情報を取得させて
います。多いときは通勤時間中では収まらない程になるときもあります。
そんなときは帰ってからの余暇時間を利用してPCで一覧読みしたりしています。

まずはPlaggerをインストールしてみて、情報収集能力の高さを確認してみて下さい。
かなり高度なPerlの知識、shellの知識が必要になりますが
それを覚えたらこれほど便利なツールはありません。
前にも書きましたが、7年も前にできたシステムです。
ですが枯れてたほうが使いやすいというのも事実です。
Plaggerで検索をかければさまざまなサイトで紹介してくれています。

次回は現状のPlaggerのインストール及び
それらインストールに使用したモジュールの保存
方法などを書きたいと思います。

DateTime-Calendar-Japanese-Era-0.08001が入らない

2013-05-18T18:44:00.000+09:00

cpanm DateTime::Calendar::Japanese::Era
FAIL

orz

色々調査してみての結果

http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/DateTime-Calendar-Japanese-Era-0.08001.tar.gz

で落としてきたファイルを展開した後
cpanm .

としてみてもなぜかコンパイルエラーが発生する。
エラーの場所はAUTHORとかわけわからん。
あちこち探っていくとinc/ExtUtils/MakeMakerなる物があるがそこでファイルが生成できない様子。

で、ふと思った。
「ん？ ExtUtils::MakeMakerって最新落としたんでなかったっけ？」
で最新のMakeMaker.pmと比較してみたら案の定古い。
でわざわざ最新版があるのだからそれを使ってもらおう。

rm -fr inc/ExtUtils

cpanm .

うまー

電流測定およびロガー

2013-01-31T20:01:00.000+09:00

お久しぶりです。
今回は趣向を変えて自作基板の紹介を行いたいと思います。

お題はずばり「電流測定およびロガー」です。応用すれば電力も導き出せますよね。

作成した目的としては
１．フレッツミルエネでは思ったようなグラフが保存できなかった為自由度の高い数値だけのデータがほしかった。
２．フレッツミルエネは安いようで結構高い。安いコストで。
３．自分の頭をフル回転させてみたい
そんな思いから作成しました。

注意事項：
今回の実験・制作は電気・電子知識のある方を対象としています。
よくわからない方は素直にフレッツミルエネなどの既成品を購入することをお勧め致します。

さて作ったものはこちら

一番上に載っているものがそうでして、クランプ式電流センサー（私は秋葉原の千石電商さんで取り扱っているSCT-013-030を使用しております）の微弱電圧をAC→DC、昇圧して下のイーサーネットシールドを経由してArduinoに接続してあります。

Arduinoについて簡単に説明しておきます。
これはイタリアで作成されたマイコン基板でして、デジタル的にはLEDを点滅させてみたり
モーター駆動を制御してみたり。アナログ的には温度センサーなどを取り付けてその数値を
読み取ったりなど汎用性に富んだボードです。
私が使用しているのはArduino unoというまあ初心者が扱いやすいボードです。
一個だいたい３千円程度で購入できます。
また。この基板用にさまざまなシールド製品（ドーターボード？拡張基板？）があり
私はイーサーネットシールドというものを同時に購入しました。こちらは一個５千円前後です。
この２つだけで小さなWebサーバが作れちゃいます。
この業界では結構名が知れている製品ではあります。

さて話を戻しましょう。

やれることとしては

１．現在の電流値が電圧値となって出力されているセンサー値をブラウザで確認。（その際現在時刻、基板動作電圧の計測値も出力されます）
２．マイクロSDカードに1秒毎に記録。
３．リアルタイムクロックのみバッテリバックアップ（SDを取り外す際に電源を落としても時刻機能だけは動かしておきたいため）
４．arduinoのプログラムを書き換えることでさまざまなシステムへの応用
ということができます。

SCT-013-030は最大30Aまでを計測することが可能なセンサーでこれをACの片側にクランプ

するとこのセンサーは電流に応じた電圧を出力してくれます。

非接触なためほぼ安全（延長用の短いケーブルを買ってきてその線をクランプするようにすれば既存の線を加工する必要がなく、ショートする可能性も可能な限り少なくすることができると思います。）だと思います。

ただこのセンサーはDCの線であればDCの出力なのですが、ACを測ろうとすると当然出力も
ACの値が出力されます。
今回一番苦慮したのはそこでして、いかにしてArduinoに的確な数値を読み取ってもらうかが問題であり、自作した中では一番厄介な代物でした。
最初は「ピークだけ読み取れば簡単じゃん」と軽い考えはやはり甘かったです。
ArduinoのAD変換時間とピーク取得のタイミングがぴったりとはいかないからです。
AD変換最速でやってもピークの数値が想定の範囲を軽く超えてしまいます。

そこで色々な書物を読み漁り、たどり着いた回路を基板に落とし込んでみました。
結果としてはArduinoに最大30A時に1Vppの電圧が発生するセンサーの値を、ADするのに最適な電圧Max5Vにすることが可能になりました。
分解能力としてはArduino（正確にはAtmel社のATmega328P）の制限により5Vを1024段階で表現しているので約0.0048V=4.8mV単位で計測することが可能です。
これを30A時に5Vに当てはめると4.8mV時は約28.8mAとなり計測上28.8mA毎という計算になりますかな。

あとはソフトでAD変換数値をブラウザーで表示するようにしたのとマイクロSDに結果を出力するだけにして、計算は取得したパソコンでExcelなりRRDToolなりでグラフ化すれば使用電流の表が出来上がり。
使用電源はAC100を想定。VA値は直計算で出ますし、力率がわかれば電力だって計算できます。（世の中の電力計は８０％で計算されているとどこかで聞いたことがありますが調べていません）

もっとも正確な数値であるかどうかはセンサーの精度によってしまうのでこれはいかんともしがたいところではあります。
ただ実測値を見てみると期待以上の精度を得ることができました。

とここまで引っ張っておいてさあ回路図を出しましょうと思ったのですがこんな回路誰でも思いつくし必要な人は作っているでしょう。

そこで・・・

ほしい人は
１．回路図だけほしい。
２．基板設計図までほしい。
３．基板だけほしい。
４．基板と部品がほしい。
５．完成品がほしい。
に分けてそれぞれ適切な価格の意見を聞きたいと思います。
結構大変だったので必要であればその対価を頂きたいと思っています。
ほしいと思う人はご連絡ください。
回路図はLTspiceで設計し、EAGLEで基板を作成しています。
自前でエッチングし穴あけ加工も手作業です。
簡単な導通試験までは行いますが、それ以上は購入者様がご自身で行うスタンスです。
安いことにこしたことはないのですが、筆者がそれ相応と思えるまでは公表を控えようと思います。

どれだけの人が興味あるか知りたいし、なにより自分への「励ましの声」がどれだけあるか。
とてもわくわくしています。
ご意見ご感想お待ちしております。

タグ：電流測定ロガーフレッツミルエネ SCT-013-030 Arduino イーサーネットシールドクランプ型電流センサー AD変換 LTspice EAGLE

JavaのArrayListの削除時の注意点

2011-12-07T20:49:00.001+09:00

AndroidやJavaではよくArrayListを頻繁に使用する。
特にAndroidではListViewにアタッチする時によく利用されるようだ。
そこで私がしでかした失敗談を一つ。

ArrayListの要素を削除する場合removeメソッドを使用する。
このremoveメソッドは要素を削除した場合
indexも変更になる事に気をつけなければならない。
例えば

ArrayList<String> arrayList = new ArrayList<String>[];
arrayList.add("AAA");
arrayList.add("BBB");
arrayList.add("CCC");

とした際にまとめて削除したい場合
for( int i = 0 ; i < arrayList.size() ; i++ ){
    arrayList.remove(i);
}
とかするとエラーになってしまう。
なぜならsizeで取得した時点の要素数は3だが
removeを実行した瞬間にsizeが変わる。
index0番目(i=0)に相当するAAAを削除したらsizeはその時点で2になるのだ。
そしてindex1番(i=1)はBBBを指してはおらずCCCを指す事になる。
この時点でBBBは残りCCCは削除されるが
次のindex2番(i=2)はremoveをかけた瞬間にエラーとなる。
そう。要素が既に無いのだ。
3個消したい場合これではだめ。
全部消したいのなら
arrayList.clear()とするか
for( int i = 0 ; i < arrayList.size() ; i++ ){
    arrayList.remove(0);
}
などとすればよいだろう。
だが例えば「1番目と3番目を削除したい」としたらどうだろう。
理論的にはindex0を削除したあとindex1を削除すればいいのだが・・・。
「減っていくなら最後の方から削除すればいいのに」という声が聞こえた。

for( int i = arrayList.size() - 1 ; i >= 0 ; i-- ){
    if ( i == 0 ){
        arrayList.remove(i);
    }
    if ( i == 2 ){
        arrayList.remove(i);
    }
}

こんな感じ？

Androidプログラミングメモ　2011/12/4

2011-12-04T21:00:00.001+09:00

simple_list_item_multiple_choiceのListViewを使用していて
lv.setChoiceMode(ListView.CHOICE_MODE_MULTIPLE);
などとした時にチェックされた物を処理したい場合に
getCheckedItemPositions()を使おうと思ったんだけどどうも違うみたい。

正しくは「チェックしたものがある時にすべてのリストを返す」物みたい。
例えば以下の直感コードではうまく動かない。

SparseBooleanArray positions = lv.getCheckedItemPositions();
for (int i = 0; i < positions.size(); i++) {
    if(positions.valueAt(i)){
        data.remove(positions.keyAt(i));
    }
}

一個だけだとうまく行く時もあるけど二個以上のチェックに失敗したり
データを追加したりした後のデータ削除などすると目もあてられない。
SparseBooleanArrayのsize()はListViewの最大値を返してくれるし
keyAt(i)なんかはよくわからない数値を出してくるし。

ListViewが何百もあった場合は結構つらそうだけど以下のように地道に
処理した方が無難みたい。

for (int ii = 0; ii < lv.getChildCount(); ii++) {
    CheckedTextView vv = (CheckedTextView)lv.getChildAt(ii);
    if (vv.isChecked()) {
        //チェックしたものの作業
        data.remove(ii);
    }
}

また、これはAndroidだけではない事だけどデバッグなどで
データを見たいからと言って

Log.v(getClass().getSimpleName(), "values: " + data.toString());
data.remove(ii);
Log.v(getClass().getSimpleName(), "values: " + data.toString());

とかするとデータの無いものを見たりしようとするので
馬鹿な真似はしないように。

素で入れたperlbrewにはLWP::Protocol::httpsを

2011-10-19T15:44:00.000+09:00

ニコニコ動画を取り込みたいと思いperlbrew環境で試していた所
どうもAPIから帰ってくる答えが手元のブラウザと違う。

なんでかなといろいろ探って遡っていったらサインアップでこけてた。
サインアップは毎回LWP::UserAgentを使用しているので問題無いと
思っており戻り値もちゃんと帰ってくるのでいいと思っていたら
大間違いに気がつく。そう戻り値にちゃんと書いてあるのだ。

$ lwp-request -e -d https://secure.nicovideo.jp
501 Protocol scheme 'https' is not supported
(LWP::Protocol::https not installed)
Content-Type: text/plain
Client-Date: Wed, 19 Oct 2011 06:21:24 GMT
Client-Warning: Internal response

（ダメじゃん。おれ）
自分Crypt::SSLeayが入っていればLWPもそれに追従するものと
思っておりました。基本的に。
なので

cpanm LWP::Protocol::https

で解決。

HTC Evo WiMAXでgoldcard作成

2011-10-13T20:54:00.000+09:00

ISW11HTでMicroSDカードをカスタムFWなどを
インストールする際に必要なgoldcard作成のお話。
どうもこの機種ではマウント構造が少し違うみたい。
私のは
/sys/class/mmc_host/mmc2/mmc2:*/cid
にありましたので表示する際は
adb shell cat /sys/class/mmc_host/mmc2/mmc2:*/cid
となります。

Plagger野良プラグイン作成

2011-09-26T10:07:00.001+09:00

Plagger::Plugin::Filter::ImageResizeなるものを作った。
利用用途としては携帯のパケット量が気になる方や
androidなどの端末でリサイズする時に時間が気になる方向け。

私は画像入りfeedなどをgmailのようにメールで読む時
大きなサイズの画像などはリサイズ処理がかかるが
この処理時間がちとイライラしていたので
なんとかならないかといろいろサイトを見ていた。

昔にだれか公開していたと思うのだが
いくら探してもなかなか出てこないため作ってみた。

package Plagger::Plugin::Filter::ImageResize;
use strict;
use warnings;
use base qw (Plagger::Plugin);

use Image::Magick;

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'update.entry.fixup' => \&filter,
    );
}

sub init {
    my $self = shift;
    $self->SUPER::init(@_);

    $self->conf->{width} or Plagger->context->error("config 'width' is not set.");
}

sub filter {
    my($self, $context, $args) = @_;

    my $conf_width = $self->conf->{width};

    for my $enclosure ($args->{entry}->enclosures) {
        my $image = Image::Magick->new;
        my $local_path = $enclosure->local_path;
        unless ($local_path) {
            $context->log(warn => "\$enclosure->local_path is not set. You need to load Filter::FetchEnclosure to use this plugin.");
            return;
        }
        $context->log(debug => "Load Image $local_path...");
        $image->Read($local_path);
        my $org_local_image_size = $image->Get('width') ;
        $context->log(debug => "Image Size $org_local_image_size");
        $context->log(debug => "Resize Size $conf_width");
        if ($org_local_image_size > $conf_width){
            $context->log(debug => "Image Width Bigger...");
            $image->Scale(geometry=>$conf_width);
            $image->Write($local_path);
        }
        undef $image;
    }
}

1;

でyaml的にはこんな感じ。

- module: Filter::ImageResize
    config:
      width: 280

とりあえず適当なPluginをパクッてます。

基本的に"見る向き"の横幅を基本にするため
そこしか設定する箇所がありません。

ソース読んで頂ければわかると思うけど
ImageMagickとImageMagick-perlが必要。

LogLevelをdebugにすると詳細な動きが出てきます。

他にも"画質を落とす"などもできると思いますが
取り合えず自分的には満足したので
必要な方はご自身で追加してみてください。

久々に組んでみたら結構時間がかかってしまった。
もう年かなぁ。

家の携帯達

2011-09-11T12:27:00.001+09:00

家の携帯達です。

両方共にandroidです。

ここに落ち着くまで結構長かったなぁ。

HTC Evo WiMAX

2011-09-11T12:04:00.001+09:00

購入しました。

これから少しづつ更新していきますね。