無駄に金が動くエイプリルフール企画はどうかと思う

明日は4月1日なので、ネット上ではエイプリルフール企画が目白押しだと思うんですけれども、無駄に金が動くエイプリルフール企画はどうかと思う。無駄に、というのは、返金処理が必要なやつね。返金しないと詐欺になるし、ネタだから返金するんだろうけれども、そもそも支払いできる状態にしなければよい。購入できる状態のままにしておくのは、りょーしきを疑う、とまでは口では言わないけれども、配慮はできるんじゃないかなーて思う。

去年手嶋屋のおひとりさまSNSというネタ商品は、申し込みができる状態になっていたので問い合わせたら、社長のエイプリルフール企画であって販売していませんとなむ。サポートがしっかりしていてかえって感心しましたとさ。

つうわけで、今年はPS Homeのアイレムに行こうっと。

2009.03.31 22:25 [日記・コラム・つぶやき] | 固定リンク | コメント (0) | トラックバック (0) |

docomo1回線解約

D903iに設定していたDCMX iDや、トクトクポケットの設定を新しい端末にやっと移し変えたので、ドコモショップにいって1回線解約。まだEdyのチャージのこっているって言ったら、FOMAカードを挿したままにしてくれました。そういやFOMAカードなしだと機能しなくなる機種もあるっていってたけどこれもそうなのかね。

D903iは、GPS内臓だったり、FMトランスミッター内臓だったり微妙に高機能なので、まだ残しておきます。FOMAカード差し替えれば、GPS→iモード連携のテストもできるし。mova巻き取り用の機種ではGPSつかえるやつ無かったような気がするんですよね。

2009.03.30 22:54 [日記・コラム・つぶやき] | 固定リンク | コメント (0) | トラックバック (0) |

裸族もいいけど関東電子もね。eSATA/USB対応HDD挿すだけケース

ちょいとeSATAのHDDケースが必要になったのですが、HDDを差し込むだけで使えるクレードルタイプのHDD接続ユニットといえば、センチュリーの裸族シリーズが有名ですが、ここはあえてロジテックで行こうと思いまして、

Logitec クレードルタイプ HDDリーダー/ライター LHR-DS02SAU2RD

現物は前面ふたの部分以外は安っぽくないぞ。

これに1TBのHDDを入れるって言う意味でもなんか意味ありげなものが入っている風にしたかったのでわざと赤にしたよ。

赤じゃないのもあります。

Logitec クレードルタイプ HDDリーダー/ライター LHR-DS02SAU2BU

Logitec クレードルタイプ HDDリーダー/ライター LHR-DS02SAU2SV

Logitec クレードルタイプ HDDリーダー/ライター LHR-DS02SAU2BK

eSATA接続がいらない場合、1000円ぐらい安いケースがあるみたいです。

2009.03.29 23:46 [パソコン・インターネット] | 固定リンク | コメント (0) | トラックバック (0) |

オリケシってなんで13dot四方なんだろうね

オリジナルの消しゴムを作れるから、オリケシ。

これなんですが、商品写真から見ると作れる消しゴムのマトリクスが13×13dotで残念。16dotだったらよかったなーと思うのは方眼紙で書いていた人間の発言。

いまさらなんだけれども、ドット絵メーカー [dot.dtpwiki.jp] 作ろうかと思ったけれども、めんどくさくなったのでアマゾンのあふぃり貼って終了にしておくテスト。ソーシャルの機能実装するの面倒。

2009.03.28 17:45 | 固定リンク | コメント (0) | トラックバック (0) |

RHD-250を買わずに250GBのバルクHDDでいいじゃないか

LANDISK Tera HDL-GT1.0のハードディスクカートリッジ、RHD-250は、アマゾンで買ったら7000円するのです。

I-O DATA HDL-GTシリーズ、RHD-IN/SA用カートリッジハードディスク RHD-250

カートリッジを分解してみたらふつーのSerialATAのドライブが入っているだけでした。

ということは、250GBの3.5inchHDDを買ってきたらふつーに替え玉になりそうなので、明日あたり隣町のケーズデンキに行って買ってこようかと思います。

ハードディスクが2回壊れたから、カートリッジ2個あるんだよなあ。ちなみに、このカートリッジ、放熱性がものすごくいいというわけではなさそう。プラスチック製だし、おそらくファンによる強制排熱してやらないとあかんです（カートリッジにSerialATAコンバータつけて運用、というのは無謀）。リムーバブルカートリッジでは、オウルテックとかで出ていた金属製のやつのほうがいいんじゃね？とも思いました。そこらへんの自作RAIDはもう飽きたのでこういう製品を使っているわけですが。

2009.03.27 23:36 [パソコン・インターネット] | 固定リンク | コメント (0) | トラックバック (0) |

LANDISK HDL-GT1.0 HDD故障交換2台目

LANDISK HDL-GT1.0という250GB HDDを4台搭載しているRAID対応NASを使っていまして、RAID 5構成にしているので、750GBのHDDとして利用でき、1台が故障しても残りの3台で稼働できる、という製品です。

I-O DATA RAID 5対応LAN接続型ハードディスク HDL-GT1.0

おととい、4台のうちの1台が壊れたのはしょうがないとして、自動的に縮退モードに入るはずなのがRAID停止してしまいました。タイマーでシャットダウン設定にしていたせいかな。

そんで、電源を付けたま交換用のHDDに交換したのですが、自動リビルドが始まらない。今回の場合、最終的に、一度NASをシャットダウンして、起動したら自動的にリビルドが始まりましたが、一度電源を落とすのは結構ためらわれますよね。

リビルド後の表示。

▲HDDの容量とかメーカーとかぐちゃぐちゃになり始めた

最初はサムスン製だったHDDが、Seagateになりました。その時々で替え玉の中身って違うんですね。

2009.03.26 11:00 [パソコン・インターネット] | 固定リンク | コメント (0) | トラックバック (0) |

definedで調べなくてもmy $fhでOK

Cross the Sea: Three Tips About Perl I Have Known in Recent Days [cross-the-sea.blogspot.com]

if ( $error_contents ){
  unless ( defined $fh ){
    open ($fh, ">$dir_store/report.txt");
  }
  print $fh "$error_contents\n";
}

んーこれはかなり旧式な書き方。

これだと、$fhがスコープの外に漏れるし、元もとなんかの用途で使った$fhを再利用したいって言う意味ですよね。そんなどこの馬の骨ともわからん変数を再利用するんだったら、ローカル変数として$fhを使った方がいいので、

if ( $error_contents ) {
  open my $fh, '>', "$dir_store/report.txt" or die $!;
  print $fh "$error_contents\n";
  close $fh;
}

こんな感じに書く方が一般的だと、CPAN Authorなのに社内で全然頼りにされていない人がいってた。ていうかPerlベストプラクティスあたりにぐっつら書いてる。

あと、openは3項でやった方がいいです。ファイル名に変な文字が入っているとヤバいからです。

参考：

ファイルオープンの2種類の記述方法 - Perl入門～サンプルコードによるPerl入門～ [d.hatena.ne.jp]
404 Blog Not Found:perl -　勝手に添削 - Perl入門#1@ITPro [blog.livedoor.jp]
Perl 2008年のファイルオープン - てっく煮ブログ [d.hatena.ne.jp]

(2009-3-25 14.38修正)

個人的には

open ( my $fh, '>', "$dir_store/report.txt" ) or die $!;

の書き方が好きなので最初そうしていましたが一般的とか言う意味ではどうかなーて思ったので、

open my $fh, '>', "$dir_store/report.txt" or die $!;

に直しました。

2009.03.25 12:13 [Perl] | 固定リンク | コメント (0) | トラックバック (0) |

アドビのイベントは週末にやらないのかな？

東京と大阪でAdobe Design Summit 2009が開催 - DTP Transit [www.dtp-transit.jp]

僕はまだ日帰りできない時代の秋田に高校までいたものだから完全なる田舎根性で、大都会のことはよくわからんのだけれども、こういうイベントって、平日のほうが都会では都合いいのかな？そういやPAGEも週末は避けた日程になっているよね。

2009.03.25 01:54 [DTP] | 固定リンク | コメント (0) | トラックバック (0) |

Mac OS X 10.4と10.5でネットワークボリューム上のファイル削除の確認ダイアログのデフォルトが違う

最近Mac OS X 10.5を使っていて気づいたんですが、Mac OS X 10.4と10.5でネットワークボリューム上のファイル削除の確認ダイアログのデフォルトが違うので、今までのMac OS X 10.4のタイミング（command+delete, return）でファイルを削除したつもりでも、ファイルが消えていないことがあるので、迷惑です。

▲Mac OS X 10.4

▲Mac OS X 10.5

10.5では、なぜかフルキーボードアクセスの設定に依らずtabキーが効くので、command+delete, tab, spaceのストロークでやることにしましたが、なんかキモいですよね。

▲tabキーを押すと、削除にフォーカスが行くので、「スペースキー」で実行。return押すとキャンセルになるので注意

2009.03.24 23:52 [DTP] | 固定リンク | コメント (0) | トラックバック (0) |

ALL ABOUT namco VOL.1 巻末風のドットパターン図を作る

インデックスカラーのGIF画像やPNG画像などから、tableタグを使ってHTMLを生成します。HTMLは、コピー＆ペーストでタブ区切りのマトリクスデータになります。

http://labo.dtpwiki.jp/imgastbl/ [labo.dtpwiki.jp]

使用例：

アンドアジェネシス（コードネーム：アドーアギレネス）をひとつ用意します。

Addor
▲綺麗な顔してるだろ、浮かんでるんだぜそれ

アップロードするとtableタグで表示されます。

Imgastable02
▲綺麗な顔してるだろ、tableタグなんだぜそれ

全選択して、コピー、Excelにペーストすると、同じ色で塗りつぶす箇所が同じ数字として表記されたマトリクスがきれいに配置されます。

▲同じ色で塗りつぶす箇所が同じ番号で表現される

これって、昔電波新聞社から出ていた、ALL ABOUT namco VOL.1の巻末風じゃね？

昔は、あの本の巻末を見て日立S1ていうパソコンのイメージジェネレーター（ほかのパソコンでいうところのPCG）でナムコキャラ表示しようとしてデジタル8色だと無理ーとかやっていましたが、今は逆に画像から図に起こせちゃうってことで感慨もひとしおです。

こっから先、InDesignのIDMLに起こすなんてことしたいところなんですけれども、僕がやるとしたら半年後だなー

これ作るにあたって、

perlでテーブルアート - KUMA TYPE [blog.kumacchi.com]

を参考にしました。ガストノッチ！

コード：

filename: index.cgi

#!/usr/bin/perl
 
use strict;
use warnings;
use utf8;
use CGI;
#use CGI::Carp qw(fatalsToBrowser);
use GD;
use HTML::Template;
  
$CGI::POST_MAX = 1024 * 10;      # 10kbyte
my $q  = CGI->new();             # CGIオブジェクト
my $prefix = 'c'; # カラー定義CSSでクラス名を指定する時のprefix
my $style;        # カラー定義CSSが入ります
my $html   = q(); # tableタグの中身が入ります
 
# Uploadされたものをtableタグへ処理
if ( $q->request_method() =~m/post/i ) {
  my $fh = $q->upload('filename');
  if (!$fh) {
    if ( $q->cgi_error() ) {
      print $q->header( -status => $q->cgi_error() );
      print $q->start_html( $q->cgi_error() );
      print $q->h1( $q->cgi_error() );
      print $q->p("post file was too large. max: $CGI::POST_MAX bytes" );
      print $q->hr();
      print $q->end_html();
      exit 0;
    }
    else {
      print $q->header( -status => 503 );
      print $q->start_html( "503" );
      print $q->h1( "503" );
      print $q->p("no file send." );
      print $q->hr();
      print $q->end_html();
      exit 0;
    }
  }
  my $temp_path = $q->tmpFileName($fh);
  my $file = $temp_path;
  my $imageorg = GD::Image->new($file);
  my $dw = $imageorg->width;
  my $dh = $imageorg->height;
  my $image = GD::Image->new( $dw, $dh );
  $image->fill(0, 0, $image->colorAllocate( 255, 255, 255 ) );
  GD::Image::copy($image, $imageorg, 0, 0, 0, 0, $dw, $dh );
  my $color;
  for ( my $y = 0; $y < $image->height; $y++ ){
   $html .= "        <tr>\n";
   for ( my $x = 0; $x < $image->width; $x++ ){
    my $index = $image->getPixel( $x, $y );
    my( $r, $g, $b ) = $image->rgb( $index );
    my $hr = unpack( "H2", pack( "C", $r ));
    my $hg = unpack( "H2", pack( "C", $g ));
    my $hb = unpack( "H2", pack( "C", $b ));
    $color->{"$prefix$index"} = "#$hr$hg$hb";
    my $str = $index eq 0 ? '&nbsp;' : $index;
    $html .= qq(          <td class="$prefix$index"><span>$str</span></td>\n);
   }
   $html .= "        </tr>\n";
  }
  foreach my $index ( sort keys %$color ) {
    push @$style, {index => $index, color => $color->{$index}, };
  }
  close $fh; # アップロードされたファイル
}
 
# HTML出力
binmode DATA => ':raw';
my $tmpl = HTML::Template->new( filehandle => *DATA );
$tmpl->param( table => $html, script_url => $q->url() );
$tmpl->param( loop_style => $style ) if $style;
$tmpl->param( limit => $CGI::POST_MAX ) if $CGI::POST_MAX != -1;
 
print $q->header(-type => 'text/html', -charset => 'UTF-8',);
print $tmpl->output;
 
 
exit;
 
 
__END__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC 
  "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"
  xml:lang="ja" lang="ja">
  <head>
    <meta http-equiv="Content-Type"
      content="text/html; charset=UTF-8" />
    <title>image as table</title>
    <meta http-equiv="content-style-type"  content="text/css" />
    <link rel="stylesheet" type="text/css"
      href="http://yui.yahooapis.com/2.7.0/build/reset-fonts-grids/reset-fonts-grids.css" />
    <style type="text/css">
        form p#input {
          border-top: 4px solid blue;
          padding-top: 20px;
        }
        table {
          margin: 20px auto;
        }
        td span {
          display: block;
          width: 2px;
          height: 2px;
          overflow: hidden;
        }
<tmpl_if name="loop_style">
<tmpl_loop name="loop_style"
>        .<tmpl_var name="index"> { background-color: <tmpl_var name="color"
                                 >; color: <tmpl_var name="color">; }
</tmpl_loop
></tmpl_if>
    </style>
  </head>
  <body>
    <form action="<tmpl_var name="script_url" escape="html">"
       method="post" name="upload"
       enctype="multipart/form-data">
      <p id="input">
        <label for="filename">
          Send this file:
        </label>
        <input type="file"
          name="filename" id="filename" />
        <input type="submit" />
      </p>
    </form>
    <table id="imageastable" summary="image as table">
      <tbody>
<tmpl_var name="table">
      </tbody>
    </table>
    <p>
      GIFなどの色数が少ない画像をアップロードすると、tableタグで画像を表現します。
    </p>
    <tmpl_if name="limit"><p>
      容量制限は<tmpl_var name="limit" escape="html">byteです。
    </p></tmpl_if>
    <p>
      全選択・コピーで、クリップボードに数字データを入力できます。
    </p>
  </body>
</html>

2009.03.23 11:56 [DTP] | 固定リンク | コメント (0) | トラックバック (0) |