Notify::Ejectをちといじった - （ひ）メモ
そういや、手元のマシンにはCD-ROMとCD-RWドライブがついていたので、ガコンガコンいわせてみたす。 package Plagger::Plugin::Notify::Eject::linux; use base qw( Plagger::Plugin::Notify::Eject ); use strict; sub eject { my($self, $context, $args) = @_; my $device = $self->conf->{device} || [undef]; my $repeat = $self->conf->{repeat} || 1; while ($repeat-- > 0) { foreach my $o (undef, '-t') { foreach my $d (@{$device}) { system grep {$_} 'eject',
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://blog.livedoor.jp/rs_life/archives/50732579.html
