memo.xight.org

日々のメモ

Abbey Road のジャケットに禁煙団体からクレーム

Posted on | Tagged : ,

Summary

  ビートルズが1969年に発表したAbbey Roadのジャケットのポール・マッカートニーが
  持っているタバコに禁煙団体が `ファンが真似をして喫煙者が増える' という内容．
  既に，ジャケットやポスターからタバコを消すという作業が進んでいる．
  「シャーロック・ホームズからパイプもとりあげるのか?」という批判も

追記

  ポール死亡説があった．Abbey Road のジャケット関連は以下
  1．4人の並びは「葬列」で，前から3人目は死者を示す．
  2．ジョンは白いスーツを着ているから牧師
     リンゴは真っ黒のスーツを着ているから葬儀屋
     ジョージは上下デニム姿なので墓堀職人
  3．左利きのポールが，右手でタバコを持っている．
  4．ポールだけ裸足で目をつぶっている． (死者は靴をはかない．東洋で死の暗示)
  5．道路右にある黒いパトカーは事故の暗示．
  6．左の白い VW・ビートル のナンバーが `281F'とあり，1をI (アイ) にすると「28 IF」(もし生きていれば28歳)
  7．裏ジャケットの `BEATLES' の文字にヒビが入っている
  Abbey Road 以外にも色々あるらしい

  これに対して，ポールマッカートニーは，51歳の時にPaul is Live! というライブアルバムを発表．
  ジャケットには，同じ横断歩道にポールと犬が散歩しており，パトカーはおらず，
  VW・ビートルのナンバーは `511S' (51 IS：「51歳です．」)

Reference

  Flexible! - Music Review - Abbey Road
  http://homepage2.nifty.com/sakura-ba/music/review/004-abbeyroad.html
  BEATLES HISTORY6
  http://homepage2.nifty.com/killer-queen/history6.html

文字コード

Posted on | Tagged :

Summary

  SunOS系 の kanji コマンドで文字コード表が生成できる．

EUC の文字コード表を表示

$ kanji

- JIS (ISO-2022-JP) の文字コード表を表示

$ kanji -j

- ShiftJIS の文字コード表を表示

$ kanji -s


Reference

  YAMAHA RT series router Home Page - RTシリーズのそのほかの文書集 - Key Code表
  http://www.rtpro.yamaha.co.jp/RT/docs/misc/code-table.html

Perlメモ

Posted on | Tagged : ,

Summary

  やりたい事から逆引きできる．正規表現雑技が物凄い．

http URIの正規表現

q{\b(?:https?|shttp)://(?:(?:[-_.!~*'()a-zA-Z0-9;:&=+$,]|%[0-9A-Fa-f} .
q{][0-9A-Fa-f])*@)?(?:(?:[a-zA-Z0-9](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.)} .
q{*[a-zA-Z](?:[-a-zA-Z0-9]*[a-zA-Z0-9])?\.?|[0-9]+\.[0-9]+\.[0-9]+\.} .
q{[0-9]+)(?::[0-9]*)?(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f]} .
q{[0-9A-Fa-f])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-} .
q{Fa-f])*)*(?:/(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f} .
q{])*(?:;(?:[-_.!~*'()a-zA-Z0-9:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*)*)} .
q{*)?(?:\?(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])} .
q{*)?(?:#(?:[-_.!~*'()a-zA-Z0-9;/?:@&=+$,]|%[0-9A-Fa-f][0-9A-Fa-f])*} .
q{)?};

正確でないが簡単なhttp URIの正規表現

s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+


CSV形式の $line から値を取り出して @values に入れる

  (値1,値2,"値3,値3","値4""値4" → 値1 値2 値3,値3 値4"値4)
{
	my $tmp = $line;
	$tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
	@values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_}
	($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
}


配列 @array から重複した要素を取り除く

{
	my %count;
	@array = grep(!$count{$_}++, @array);
}


特定の項目でソートする (第 1項でソートし，さらに第 2項で降順ソートする)

@data = ('A,7,緑',
	 'C,6,青',
	 'B,4,赤',
	 'A,9,紫',
	 'A,2,黄緑',
	 'B,10,黄',
	 'C,3,青紫');
@data = map {$_->[0]}
sort {$a->[1] cmp $b->[1] or $b->[2] <=> $a->[2]}
map {[$_, split /,/]} @data;


  - ソート後のデータ
@data = ('A,9,紫',
	 'A,7,緑',
	 'A,2,黄緑',
	 'B,10,黄',
	 'B,4,赤',
	 'C,6,青',
	 'C,3,青紫');


Reference

  大崎 博基 - Perlメモ
  http://www.din.or.jp/~ohzaki/perl.htm

電車の払い戻し

Posted on | Tagged : ,

Summary

  基本的には無理
  途中下車した駅から目的地までの距離が 100km 以上なら払い戻し可能

水曜日 18:55 〜 19:53 ダウンタウンセブン7 にて

  客席の支持率が 50% 以上で 提案者が 100 万円Get