2005年11月05日14:13 カテゴリ一日一行野郎 行番号ふりふり こういうやつこそ、一行野郎でしょう。 naoyaのはてなダイアリー - きよへろのPerlコードをリファクタしようのコーナー No.3 でも、今回は id:kiyohero のコードそのものが結構シンプルで直しどころがあんまりない。いくつか書いてみる。 perl -nle 'print "$.:$_"' filename ... perl -nle 'printf "%3d:$_\n", $.' filename ... perl -ple 'printf "%3d:", $.' filename ... # いつも使っているやつ あるいは、PerlIO::via::LineNumber perl -MPerlIO::via::LineNumber -pe 'BEGIN{binmode STDOUT, "via(Lin
ちゃんとPerlで書けよ #!/usr/bin/perl print `ruby -e "puts Time.now.strftime('%Y/%m/%d')"` ねたもと: http://subtech.g.hatena.ne.jp/secondlife/20051101/1130810376 発端: http://d.hatena.ne.jp/naoya/20051031/1130710931 ---- 追記 そういや以前JavaScriptでstrftimeっぽいのを作ったのを思い出した。 http://la.ma.la/misc/js/strftime.html ソースはこんなかに。 http://la.ma.la/js/date_extra.js かなりいい加減な気がするのでPerlのDateTime参考にして書き直そうかなあ。とか考えてたり。
2005年10月31日09:13 カテゴリLightweight Languages一日一行野郎 Core vs. Wrapper 組み込みを使うかWrapperを使うか、それが問題だ naoyaのはてなダイアリー - きよへろのPerlコードをリファクタしようのコーナー No.2 やっぱり最初は localtime を素で使っちゃうよね。Perl の入門書にはおそらくほとんど localtime での例になってると思われます。しかし、僕なら Time::Piece を使う。 なぜって、localtime の関数型インタフェースがださすぎるから。Matt Sergeant タンのTime::Piece を使えば組み込みの localtime が OO インタフェースに変化します。 なのだけど、この手の組み込みはやたら実行回数が多い事も多く、そしてWrapperを使うとその分Performa
2回目やってるっぽいので、今回も私家版を書いてみる。 というわけで id:naoya からの今回の課題。 「スクリプトを実行することで、現在の日付を返すスクリプト」 やっぱり最初は localtime を素で使っちゃうよね。Perl の入門書にはおそらくほとんど localtime での例になってると思われます。しかし、僕なら Time::Piece を使う。 #!/usr/local/bin/perl use strict; use warnings; use Time::Piece; my $lt = localtime; printf "%s %s\n", $lt->ymd('/'), $lt->hms;なぜって、localtime の関数型インタフェースがださすぎるから。Matt Sergeant タンのTime::Piece を使えば組み込みの localtime が OO イン
プログラミング講座第2回 Perl日記 | 01:21 | さっそくCaps lock と Ctrl の位置を変えてみました。 小指が手持ち(?)無沙汰だけど、とりあえず形から入る。 猫まねき for Windows 95/98/Me(Windows95/98/Me / ユーティリティ) というわけで id:naoya からの今回の課題。 「スクリプトを実行することで、現在の日付を返すスクリプト」 必要な知識は print time #!/usr/bin/perl use strict; my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); my $date = sprintf("%04d/%02d/%02d %02d:%02d:%02d", $year + 1900, $m
2005年10月29日00:58 カテゴリLightweight Languages Yet another refactoring for ためさん 月曜日に「民主党 ブロガーと前原代表との懇談会」に行くといったら、妻に「弾はますます何者かわけわからなくなってるね」とからかわれたので、一応<まだ>Perlがで書ける事を証明しておこうというEntry. naoyaのはてなダイアリー - きよへろの Perl コードをリファクタしようのコーナー キーに姓、バリューに名を格納したハッシュに yasuhiro と引数を渡すことで onishi と返すスクリプト(今月始めに作成) #!/usr/local/bin/perl -w use strict; my $first = shift or die "$0 <firstname>"; my %last_name_of; foreach my $
キーに姓、バリューに名を格納したハッシュに yasuhiro と引数を渡すことで onishi と返すスクリプト(今月始めに作成) id:kiyohero が Perl を勉強しはじめたというのでリファクタしようのコーナーです。続くかどうかは分かりません。 #!/usr/local/bin/perl use strict; use warnings; my %staff = ( kondo => 'junya', ito => 'naoya', onishi => 'yasuhiro', danjou => 'nobuo', minowa => 'higepon', ); my $user = shift or die "usage: $0 <name>"; print $staff{$user}, "\n" if $staff{$user}; 変数が入らない文字列はシングルクォートで。
Perlを勉強し始めてます Perl日記 | 13:22 | id:onishiからの宿題 キーに姓、バリューに名を格納したハッシュに yasuhiro と引数を渡すことで onishi と返すスクリプト (今月始めに作成) #!/usr/bin/perl use strict; my $hatena = $ARGV[0]; my %staff = ( kondo => "junya", ito => "naoya", onishi => "yasuhiro", danjou => "nobuo", minowa => "higepon", ); for my $key (keys%staff){ if ($hatena eq $staff{$key}){ print $key."\n"; }; }; 普段は専ら秀丸なのですが、Perlを書くときはmeadowを使ってます。指が攣りそう。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く