雑記 - otherwise

最近はDQ10しかやっていないダメ技術者がちまちまと綴る雑記帳

Perl

わんくま同盟 東京勉強会 #52 でスピーカーやります

わんくま同盟 東京勉強会 #52 相変わらず仕事に忙殺されていてなかなか blog 更新する時間が取れていませんが。。。 今年の 1 月以来、 9 ヶ月ぶりにセッションスピーカーを担当させて頂く事になりました。 しかも、念願の Perl セッションです♪ わんくまに…

Perl6 構文

まぁ、下位互換性の呪縛から解放される事も Perl6 の特徴のひとつなので、構文が違うのは仕方ないのですが。 配列の値参照が @hoge[n] だったり文字列連結が ~ だったりリファレンスの参照が . だったり、結構戸惑ってます。 とは云え、別物として見るには惜…

ちまちまと Rakudo Star お試し中

急に忙しいプロジェクトにまわされたのでちょっと時間を取るのが難しくなっていますが、それでも空いた時間を使って Rakudo Star 触り始めました。 Perl 6 の構文に慣れるまでは大変そうですが、なかなか面白いです。 ……いつか Perl6 / Rakudo Star に関する…

Perl 6

Perl 6実装「Rakudo Star」リリース (SOURCEFORGE.JP) ここのところ、すっかり Perl の最新情報収集を怠っていたら、気づいたらまともに使えそうな Perl 6 実装環境がリリースされてたんですね。 早速触ってみないと。。。

0 から 1,000 までの 0 の数を数える(ブラッシュアップ版)

元ネタ: 0 から 1,000 までの 0 の数を数える perl の -E オプションを使って print → say にすると更に短くなるとか、 (0..1000) の括弧は要らないとか。 perl -E "$a=0;$a+=s/0/0/g for 0..1000;say $a"

0 から 1,000 までの 0 の数を数える

0 から 1000 までに含まれる ‘0’ を数える (渋木宏明(ひどり) Weblog ) 0から1000までの0の数を数える (デジタルちんぶろぐ) 前フリチックにGo-Lang、片桐風味を添えて、〜その3〜 (すいません、VB4しかやってないんです、VBAはやったけど(ぼそ)) C# …

今日は SQLite on Perl のお勉強

そう云えば C# ではガシガシ SQLite 使って遊んでたけど、 Perl では使った事無かったなぁ、と云う事で、 DBD::SQLite を使ってみてます。 ……で、何を作ろうかとしているかと云うと、 Project DIVA Arcade のスコア入力サイトですw 今は Excel でシート作っ…

久々だとさすがに苦労する

何年ぶりかで HTML::Template なんぞを使ってみているのですが、使い方ほとんど忘れてるww これはちょっと時間かけてでもサーバ環境整えて Silverlight と ASP.NET MVC で作った方がいいかなぁ。 # 個人で使う Web サイトなので、形式は自由なんですが。。…

祭りっぽいので乗ってみる

……わんくまの祭りなのに相変わらずはてダで反応する人。>自分 GenericList(of Class) から一定条件の要素を取り除く (すいません、VB4しかやってないんです、VBAはやったけど(ぼそ)) 夢の競演 (東方算程譚) 夢の競演みたび (まさる blog ) VB, C++…

続・文字列変換(ネタ) Perl 編

それ Perl なら(以下略 sub convert { my @block = split /#/, $_[0], 2; $block[0] =~ tr/0-9A-Z/9876543210a-z/; return join '#', @block; } 再帰版。 sub convert2 { my $c = substr $_[0], 0, 1; return $c eq '#' ? $_[0] : do { $c =~ tr/0-9A-Z/987…

glob で micro-DSL

perl - ネコ演算子と<*glob*>とFile::Glob::Slurp (404 Blog Not Found) 長年 Perl を使ってるけど、未だに glob はよく判ってなかったりするのですが。。。 なるほど、こんな風に使う方法があるんですねぇ。 これはすごく勉強になりました。

JPA なる団体が発足した模様

Japan Perl Association 正直、今更感は拭えないですが。 脊髄反射的に会員登録しようかと思ったけど、業務で Perl 使っている訳じゃないので、ひとまず様子見。(有料だし) 別に団体に加入しなかったから Perl 啓蟄活動が出来なくなる訳でも無し。 そもそ…

コーヒーブレイク

ぴえろっちが問題をくれた。その1 (とりこびとの雑記) とりあえず perl で。 #!perl use strict; use warnings; use utf8; &main(); exit 0; sub main() { my @fibs = (1, 2); my $sum = 2; while ($fibs[-2] + $fibs[-1] <= 4000000) { push @fibs, $fib…

LINQ っていいですね

LINQ は SQL との構文の違いが引っかかって、どうにも手を出す気になれずにいたんですが、いつまでも食わず嫌いでいる訳にもいかないので、本腰を入れて見てみました。 ……これ、無茶苦茶いいです。特に DB 房な私みたいな人間には最高かも。 サンプルコード…

Perl を使う全ての人の為に

Perl-users.jp - 日本のPerlユーザのためのハブサイト おお、こんなサイトがあったのか。……と思ったら、出来たばかりだったのですね。 今のところ方向性を模索中って感じですが、是非とも日本のポータルサイトとして頑張って欲しいものです。 しかし、さすが…

foreach 内でのインデックスの取得(自己レス)

昨日の件、「 Perl プログラミング」を読んでみたら、普通に書いてありました。。。 (P.139) foreach ループ中では、 VAR が LIST の何番目の要素であるかを知る手段はない。 ……はい、よく判りました。

foreach 内でのインデックスの取得

Perl で配列を処理する場合、インデックスを意識しなくて良いのであれば以下の様に書けます。 my @week = qw/sun mon tue wed thu fri sat/; foreach (@week) { s/^(.)/uc($1)/e; # 頭文字を大文字に変換する } ## この時点で @week の中身は ## Sun, Mon, T…

if 内で .. を使うと幸せになれるらしい

g:naoya:id:naoya:20061222:1166754815 id:cooldaemon:20061225:1167016687 id:hyuki:20061222 dankogai 既にいろんな人が書いていますが、使い方次第では便利かもしれませんね。 ……今度利用してみよう。