perl

foreach と map を比べてみた

perlの話です。文字列1と文字列2を比較して、文字列2に文字列1の文字が全て含まれているか確認する処理をperlで書いてる最中に、「foreachとmapのどちらで書いた方が早いのか」と急に気になったのでベンチマークして比較してみました。つまりこんなような処…

SMTP AUTHチェックスクリプトを書いてみた

ちょっとした理由で特定のメールサーバのSMTP AUTHが機能してるかを確認する必要が出てきたのでちょっと書いてみました。 半年くらい前に書いて以来Evernoteに入れて満足していたのですが、自分だけで保存しておくのはちょっともったいないくらい簡単にでき…

今日の小ネタ! (2) push()で配列を統合できる

今日の小ネタ! 「コレ多分出来るよね」って思ってやってみたら出来ちゃった!けど一発ネタすぎる!という内容を投げっぱなしで書いて終わるコーナーです。 今回は「push()って解説サイトとかではスカラを継ぎ足す方法しか書いてないけどリストも継ぎ足せる…

今日の小ネタ!(1) 特殊変数$nはスコープの影響を受ける

今日の小ネタ! コーディングしてて気がついたトリビア的な(知ってる人にはトリビアでもなんでもないけど)内容を唐突に書き殴って終わって行こうと思います! #!/usr/local/bin/perl use strict; my $val; my $matched1; my $matched2; $val = "hoge12345"…

ここ最近の私がやらかした極めてみっともない失敗を晒す(1) open()の成否をif()で確認しようとした

前々から「ブログでプログラムの話題に触れたらいつかはやっておかないといけないだろうなあと思っていた事をやってみようかと思い立って、ちょうどネタもあったし唐突にコーナーを始めてみることにしました。 世の中に手本となる記事は数あれど、これから僕…