ベースになった機種はMC816J/A。Thunderboltポート搭載、OS X Lionプリインストール。使い方：下記の「Nearby」のリンクをブックマークバーにドラッグ＆ドロップ。Google Maps を表示している時に、ブックマークバーに作った「Nearby」をクリック
ソース (下記を1行で)
javascript:a=''+gApplication.getMap().getCenter();a=a.replace('(','').replace(')','');window.location='http://twitter.com/search?q=near%3A%22'+escape(a)+'%22%20within%3A1mi'
Not Before: Nov 26 20:33:13 2009 GMT
となっているとおり新しい認証局のためか、Firefox 3.5 では不明な認証局となってしまう。（SafariやIEでは大丈夫）
仕方ないので、中間証明書を持って来てApacheにインストールした。
<html>
<head>
<meta name="viewport" content="width=640">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title><?php echo $_SERVER['PHP_SELF'] ?></title>
</htad>
<body style="background-color:#ffffff">
<h1>php-com</h1>
<?php if ( $_SERVER['REQUEST_METHOD'] != 'POST' ) { ?>
<form method="POST" action="<?php echo $_SERVER['PHP_SELF'] ?>">
<p>
Attr1: <input type="text" name="attr1"><br>
Attr2: <input type="text" name="attr2"><br>
<input type="submit" value="Execute">
</p>
</form>
<?php } else { ?>
<pre style="border:1px solid #eee;background-color:#f8f8f8"><?php
$command = './command.sh';
$command .= " " . escapeshellarg( $_POST['attr1'] );
$command .= " " . escapeshellarg( $_POST['attr2'] );
$command .= " 2>&1";
print_r( htmlspecialchars( shell_exec( $command ) ) );
?></pre>
<?php } ?>
</body>
</html>]]>
ざっくりまとめると、syswrite() は、バッファリングを無効にした print() より 2割ほど速い。
ただし、バッファリングが有効な print() は、バッファリングを無効にした print() より 4.6倍速い。
はっきり言って微妙な差だが、互換性を取るなら print()、少しでもパフォーマンスを上げたいなら syswrite()、バッファを喪失するリスクを無視出来るならバッファ有りの print() を選ぶことになる。
syswrite() はファイルをロックしなくても排他書き込みをしてくれるという情報もあるので、ログの書き出しのような用途にはこちらが良いのかもしれない。
Benchmark: timing 1000000 iterations of syswrite, print (buffering off), print (buffering on) ...
syswrite: 6 wallclock secs ( 1.49 usr + 3.40 sys = 4.89 CPU) @ 204498.98/s (n=1000000)
print (buffering off): 7 wallclock secs ( 2.30 usr + 3.74 sys = 6.04 CPU) @ 165562.91/s (n=1000000)
print (buffering on) : 2 wallclock secs ( 1.30 usr + 0.01 sys = 1.31 CPU) @ 763358.78/s (n=1000000)
ベンチマークに使用したコード
#!/usr/bin/perl
use strict;
use Benchmark qw(timethese);
my $file1 = "$0.f1";
my $file2 = "$0.f2";
my $file3 = "$0.f3";
open(F1, "> $file1") or die "Can't open f1: $!";
open(F2, "> $file2") or die "Can't open f2: $!";
open(F3, "> $file3") or die "Can't open f3: $!";
select((select(F3), $| = 1)[0]);
my $sample = scalar(localtime) x 3;
timethese(1000000, {
' syswrite' => 'syswrite(F1, "$sample\n")',
'print (buffering on)' => 'print {F2} ("$sample\n")',
'print (buffering off)' => 'print {F3} ("$sample\n")',
});
close(F1);
close(F2);
close(F3);
unlink($file1, $file2, $file3);
]]>
レンサバで使うのに依存関係が少ないものを使いたいので、Net::Twitter::LiteとかNet::Twitterの古いバージョンとかを物色し、PurePerlなモジュールのみでなんとか準備した。
しかし、Net::Twitterの中身を良く見てみると、“つぶやき”を投稿するだけなら、内容をURIエンコードしてPOSTするだけなので、JSONは必要としない。
POSTが成功した時の応答bodyにJSONが使われているのだが、投稿が成功したかどうかはステータスラインを参照するだけで判断出来るので、実質必要ない。
結局、LWP::UserAgentをuseするだけで目的を達してしまった。
]]>上記のスクリプトをホームフォルダなどに foxmarks-copy-dtd.sh のような名前で保存して、ターミナルから次のように起動する（例はホームフォルダに保存した場合）
sh ~/foxmarks-copy-dtd.sh
コピー対象のファイルが見つかった場合、sudo コマンドを経由してコピーするので、パスワードの入力を求められたら、ログインしているユーザーのパスワードを入力する。（rootユーザーのパスワードではない）
なお、このスクリプトには一切の保証は無く、また、このスクリプトを使ったことにより何らかの不具合や不利益を被ったとしても、当方は一切の責を負いませんので悪しからず。
]]>追記: 時間を置いてトラックバックpingを2回送ってみたが、反映されないみたい
package Net_YouTube;
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common;
#use IO::All;
use IO::File;
use utf8;
use File::Basename;
sub upload {
my %arg = @_;
my $username = $arg{'username'} || die 'username is required';
my $auth_token = $arg{'auth_token'} || die 'auth_token is required';
my $developer_key = $arg{'developer_key'} || die 'developer_key is required';
my $filename = $arg{'filename'} || die 'filename is required';
my $video_detail = $arg{'video_detail'} || die 'video_detail is required';
my $content_type = $arg{'content_type'} || die 'content_type is required';
#my $data = io($filename)->binary->all;
my $fh = IO::File->new($filename, 'r');
$fh->binmode;
my $data = '';
my $buff;
while ($fh->read($buff, 1024)) {
$data .= $buff;
}
my $url =
"http://uploads.gdata.youtube.com/feeds/api/users/$username/uploads";
my $request = HTTP::Request->new( POST => $url );
$request->header(
"Authorization" => "GoogleLogin auth=$auth_token",
"X-GData-Key" => "key=$developer_key",
Slug => basename($filename),
Content_Type => 'multipart/related',
);
$request->add_part(
HTTP::Message->new(
[ Content_type => 'application/atom+xml' ],
$video_detail
)
);
$request->add_part(
HTTP::Message->new( [ Content_type => $content_type ], $data ) );
my $ua = LWP::UserAgent->new( keep_alive => 1 );
my $response = $ua->request($request);
die $response->status_line unless ( $response->is_success );
return $response->content;
}
sub auth {
my %arg = @_;
my $username = $arg{'username'} || die 'username is required';
my $password = $arg{'password'} || die 'password is required';
my $request = POST(
"https://www.google.com/youtube/accounts/ClientLogin",
Content_Type => 'application/x-www-form-urlencoded',
Content => [
Email => $username,
Passwd => $password,
service => "youtube",
source => "uploads",
],
);
my $ua = LWP::UserAgent->new( keep_alive => 1 );
my $response = $ua->request($request);
die $response->status_line unless ( $response->is_success );
$response->content =~ /Auth=(.*?)\n/;
return $1;
}
sub video_detail {
my $param = shift;
foreach my $key ( keys %$param ){
utf8::encode($param->{$key}) if utf8::is_utf8($param->{$key});
}
my $title = $param->{title} || die "title is required";
my $description = $param->{description} || die "description is required";
my $category = $param->{category} || "People";
my $keywords = $param->{keywords} || die "keywords is required";
my $video_detail = << "XML";
<?xml version="1.0"?>
<entry xmlns="http://www.w3.org/2005/Atom"
xmlns:media="http://search.yahoo.com/mrss/"
xmlns:yt="http://gdata.youtube.com/schemas/2007">
<media:group>
<media:title type="plain">$title</media:title>
<media:description type="plain">$description</media:description>
<media:category scheme="http://gdata.youtube.com/schemas/2007/categories.cat">$category</media:category>
<media:keywords>$keywords</media:keywords>
</media:group>
</entry>
XML
return $video_detail;
}
sub video_id {
my ($xml) = @_;
if ($xml =~ /<id(?:[^>]*)>[^<]+\/(\w+)<\/id>/) {
return $1;
}
return undef;
}
sub video_url {
my ($video_id) = @_;
return sprintf('http://jp.youtube.com/watch?v=%s', $video_id);
}
1;
__END__
=head1 NAME
Net_YouTube - YouTube Video upload API
=head1 SYNOPSIS
# account settings
my $username = "your_account";
my $password = "your_password";
my $developer_key = "your_developer_key";
# video settings
my $filename = "/path/to/movie01.mpg";
my $content_type = "video/mpeg";
my %detail = (
title => "test",
description => "description",
keywords => "tag1,tag2",
);
use Net_YouTube;
# Get authentication token
my $auth_token = Net_YouTube::auth(
username => $username,
password => $password,
);
# Get video detail
my $video_detail = Net_YouTube::video_detail(\%detail);
# Upload video
my $result = Net_YouTube::upload(
username => $username,
auth_token => $auth_token,
developer_key => $developer_key,
filename => $filename,
video_detail => $video_detail,
content_type => $content_type,
);
=head1 SEE ALSO
http://yusukebe.com/archives/08/03/13/123113.html
=cut
]]>
メイン機ではなかったので大したデータは無かったが、Webサーバとして使っていたので、バックアップしていないファイルがいくつかある。ただ、iTunesサーバとしても使っていたものの、音楽ファイルは別パーティションなので無事（のはず）。
あとは物理障害でない事を祈るのと、少しでもファイルが読み出せる事を祈るのみ。
ディスクユーティリティで何度も修復をかけても回復しないのでほとんど諦めかけていたが、ダメ元でボリュームをリードオンリーでマウントする方法を試したところあっさりマウントしてくれて殆どのデータを退避することが出来た。
# 書式: mount -r -t hfs デバイス マウントポイント # 実際にはroot権限が必要になるので sudo を使う sudo mount -r -t hfs /dev/disk0s3 /mnt/vol
今回はこの方法でほぼ解決出来たのでよかったが、もっと深刻な障害が起こった時は Data Rescue や DiskWarrior といったツールが役に立つらしい。
データの退避には rsync を使い、外付けドライブにコピーしたシステムで起動して現在この追記を書いている。
参考サイト
rsyncでコピー関連
]]>
今年の MacWorld Expo のキーノート終了直後にAppleStoreで買った MacBook Air が届いた。
]]> FireWireなしで移行アシスタントが使えるのか心配だったけど、なんと無線LAN経由で Remote Disk と同じ仕組みでやっつけるらしい。びっくり。なにがびっくりって、移行終了まで「残り5時間3分」と出ていること…
開封時に取った動画を YouTube にアップした。
めんどうなので、サポートとかは一切なしです。
また、このスクリプトを使った／使えなかった事により不利益があったとしても私は責任を負いません。
Perlモジュールで依存するものがいくつかあるけれど、getlibs.shを起動すると最低限のものは勝手に取ってきます。それでも足りないものは自分でなんとかして下さい。
動作としては、POPサーバにアクセスし、From: に指定されたメールアドレスがあれば受信して、添付写真のFlickrへのアップロードとTwitterへのポストを行う。
Flickrに投稿するにはAPIキーとトークンを作る必要があって、まずAPIキーとsecretを「Flickr Services」のAPIキー作成フォーム（要ログイン）で作成し、その後でauth_tokenを作る。auth_tokenの作成方法は「s.h.log: Flickr::Uploadで写真をアップロード」が参考になる。
その他に必要なのは、TwitterのアカウントとPOPサーバのアカウント。
以上の全ての設定は pft.conf に記述し、cronを利用して定期的に稼働させる。
# crontab の例 10/* * * * * /path/to/pft/pft.pl -f /path/to/pft/pft.conf
Linuxだと、次のようにして起動するとデバッグ動作になる。
DEBUG=1 /path/to/pft/pft.pl -f /path/to/pft/pft.conf