n以下の素数のリストを作る

ruby

http://code.nanigac.com/source/view/709 def primeList num return [] if num < 2 arr = (2..num).to_a primes = [] begin primes << (p = arr.shift) arr.reject!{|i| i%p == 0} end while p**2 < arr.last primes + arr end puts primeList(100) ほんと…

2009-01-29

正規表現の先読み、後読みアサーション

Perl

ってのを使ったらアルファベットと数字を簡単に分割できるかなと思ったんだけど、んー、イマイチ。 $_="ab12cde3f"; s/(?<=[a-z])(?=\d)|(?<=\d)(?=[a-z])/-/g; print "$_\n"; ## ab-12-cde-3-f でもこれもなぁ・・・ $_="ab12cde3f"; s/([a-z])(\d)/$1-$2/…

2009-01-27

ツリー走査プログラム

perl

テキトウな質問にテキトウに答えた。 http://code.nanigac.com/forum/view/402 %tree = (A => ['B','G'], B => ['C', 'E'], C => ['D'], E => ['F'], G => ['H'], H => ['I','J'], J => ['K'], ); &search('A'); sub search { my @stack = @_; my @childs = …

2009-01-26

YukiWikiMiniのコードを読んでみよう

perl

Wikiってあんまりちゃんと触ったことないなぁ・・・というわけではてなの人や多くのWiki制作者に多大な影響を与えたYukiWikiのコードを読んでみよう。 http://www.hyuki.com/yukiwiki/ まずはminiから・・・解凍してみる。ファイルは4つしかない。 [mikeda…

2009-01-25

ログ監視スクリプト

linux perl

syslog-ngからこんな感じに起動してエラー発生時に指定の処理を行うスクリプトを書いた。 destination d_log_handle { program("cd /home/mikeda/bin;./log_handle.pl match_list"); }; log { source(s_sys); destination(d_log_handle); }; 仕様は・エラー…

2009-01-25

不明な正規表現で後方参照があるかどうか

perl

正規表現をリストコンテキストで評価すると()で括った部分の配列が取れる。 gオプションも使うとさらに便利。

2009-01-25

Perlメモをメモ

null

テックウェブという会社の取締役さんのPerlに関するメモ書き。 Perlメモ僕の癖が強いものもありますがご容赦を。たしかにww トリッキーで楽しいコードがいっぱいです。いくつか紹介リストシャッフル sub Shuffle{ BEGIN{srand} my @OUT; push @OUT,splic…

2009-01-24

おとなり日記探索

blog

よしみ視点 IT中心ちょっとジャズ、学生時代からの日常とモノ思うことを綴った日記。著者のキャラクタがまずおもしろいです。「エンジニアなら、開発用・本番用・布教用の３つのiPhoneが必要です。」ちょwwww 目のつけどころセンスもありそうでうらやまし…

2009-01-18

Rails勉強会@東京第37回

railstokyo rails

完全な素人が突入してきました。 http://wiki.fdiary.net/rails/?RailsMeetingTokyo-0037 こんな感じに進行。テーマを募る。参加希望の多いものを実施。前半 named_scopeについて Railsがはまるビジネス Railsでメール送信がうまくできません（参加）後…

2009-01-17

Perlで日本語メール送信(2)

perl

id:mikeda:20090115をEncodeモジュールでかきなおし。 #! /usr/bin/perl use Encode; use utf8; $to = 'mikeda@sample.to'; $from = encode('MIME-Header-ISO_2022_JP', 'そうしんもと') . '<mikeda@sample.from>'; $subject = encode('MIME-Header-ISO_2022_JP', 'だいめい'); $</mikeda@sample.from>…

2009-01-17

Perlで日本語メール送信(3)

perl

前回のスクリプトを使ってメール送信フォームを作ったとする。ヘッダの一部、例えば送信元にこんなアドレス渡されたらどうなるだろう。 mikeda@sample.to Bcc: aaa@aaa.jp, bbb@bbb.jp, ... プロバイダやキャリアのブラックリストに載ってしまうかも。「se…

2009-01-15

Perlで日本語メール送信(1)

perl linux

基本となる考え方はこう。ヘッダ JISコード + MIMEエンコード本文 JISコード JISコードでスクリプトやWebページを書く人はいないだろうから文字コードの変換をやることになる。よく見るのはjcode.plとmimew.plを用いるプログラム。 #! /usr/bin/perl requ…

2009-01-14

iD

オサイフケータイ使い始めました。やっぱ便利です。主に使ってるのは、単純なクレジット機能コンビニマクドナルド自販機クーポンマクドナルド自販機小銭の出し入れがずいぶん減りました。会社の自販機がiD対応になったのもありがたいです。今までは…

2009-01-13

指定コマンドを繰り返し、出力を監視するwatchコマンド

linux

例えば非常に大きなディレクトリをtarで固めるとき、進捗状況を確認するのにlsを手でうちまくる必要はない。watchを使えば指定コマンドの結果がデフォルト２秒ごとに更新表示される。コマンド $ watch -d ls -l aaa.tgz 出力 Every 2.0s: ls -l aaa.tgz Tu…

2009-01-12

macのPHPのstrptimeの挙動がおかしい

php mac

strptime関数を使って「20081122」のように区切りのない日付文字列を「%Y%m%d」というフォーマット文字列で解析したところ以下のような結果に。・Linux 2008年11月22日・mac 20081122年・・・？ Linux [mikeda@cent ~]$ php -v PHP 5.2.6 (cli) (built: No…

2009-01-10

シェルでサイコロをふる

シェルスクリプト

シェルスクリプトで乱数を得るにはRANDOM変数を参照しましょう。 $ expr $RANDOM % 6 + 1 3 使用例として毎秒５種類のメッセージのどれかをシスログ出力するスクリプト。 while :;do logger -p local5.debug $( sed -n `expr $RANDOM % 5 + 1`p <

2009-01-07

MD5つかっちゃダメ？

SSL証明書の偽造に成功、ハッシュ関数の脆弱性を応用 US-CERTなどによると、MD5の弱点を用いた衝突攻撃の理論は1996年から指摘されていたが、現実的な攻撃方法は示されていなかった。しかし、2008年末のセキュリティカンファレンスで、信頼されている認証局…

2009-01-05

基数変換

null

なんだかんだ言って（まだなんも言ってないが）dankogaiのプログラムはおもしろい。 javascript - 基数変換とりあえず10進数値の基数変換プログラムをPerlで手抜き書き直し。 ($int, $base) = @ARGV; do{ push @chars, (0..9,'a'..'z')[$int % $base]; } wh…