— y2sunlight ,Since 2019-10-02 Ground Sunlight は「Windowsで作る - PHPプログラミングの開発環境」をテーマにしたサイトです。 オープンソースを利用している全ての人達に祝福を！

Perlにおける真偽 おいぬま日報(不定期)さんの記事で、 でもこれは下記のように書くことが出来ます。 sub func { my %args = @_; my $hoge = $args{hoge} || 'fuga'; # なんか処理 } なんとこれを知っているだけで3行もコードが節約出来るんです。 とあって、短く書けてエレガントです。 これだけでも97%ぐらいはかまわないのですが、使い続けるとはまりどころがあります。 &func(hoge=>0); &func(hoge=>""); として、$hogeに0や""を入れたい場合がそれ。 なぜなら、0や""がブール値コンテキストにおいて、偽となるからです。 Perlにおける真偽の規則は、らくだ本から引用ですが、 1. ""と"0"を除き、すべての文字列は真である 2. 0を除き、すべての数値は真である 3. すべてのリファレンスは真である

名前¶ Test::More - テストを書くためのもう一つのフレームワーク 概要¶ use Test::More tests => $Num_Tests; # または use Test::More qw(no_plan); # または use Test::More skip_all => $reason; BEGIN { use_ok( 'Some::Module' ); } require_ok( 'Some::Module' ); # 「ok」と示すためのさまざまな方法 ok($this eq $that, $test_name); is ($this, $that, $test_name); isnt($this, $that, $test_name); # STDERR に出力するよりも "# here's what went wrong\n" diag("here's what

« 生協食堂のホイコーロー | トップページ | 今日は満月っぽい » Perlのハッシュスライスと配列スライスについてのメモ [Perl] 夕方、研究室でPerlのハッシュスライスが話題にのぼった。 こういうネタで盛り上がるのは、さすが理系の研究室。 以下、おもにホワイトボードから転写。 Perlのハッシュスライスと配列スライスについて!! 以下は全て、式の左辺で使うと配列が返って来る。 @array@arrayという配列全体@array[0, 1, 2]@arrayの添え字が0〜2番の要素の組@array[0..2]@array[0, 1, 2]と同じ@hash{ 'a','b','c' }ハッシュ%hashの、キーがa,b,cの組@hash{@key}配列@keyをキーとするハッシュ%hashの要素の組 で、ここまでは基礎知識。 これらを応用すると @hash{a,b

Maintainers Authors 説明※ この章ではmod_perlのコーディングの詳細、通常のPerlコーディングとの違いを扱います。その他のほとんどのPerlコーディングに関する情報はperlのmanページや書籍で取り扱われています。 前提※ 原文なし メソッドが有効な場所※ mod_perl 2.0では多くのモジュールに跨ってメソッドが存在します。これらのメソッドを使うためにメソッドを含むモジュールは最初にロードしておかないといけません。そうでないと、mod_perlは「メソッドを見つけられない」とエラーにします。どのモジュールが必要かを探すにはModPerl::MethodLookup モジュールが使えます。 Techniques※ メソッドハンドラ※ 関数ハンドラに加えてメソッドハンドラを使うことができます。メソッドハンドラは継承のメリットを生かしたコードを書きたい場合に便

Last Updated: 2002/03/26 Perl で、16進文字列、10進整数、2進文字列、バイナリー文字列の相互変換を行うための、スクリプトメモです。 特に断っていない限り、Perl 5.001 以上で動作します。 目次 16進文字列からの変換 10進整数からの変換 2進文字列からの変換 バイナリー文字列からの変換 16進文字列→10進整数への変換 hex() 関数は、16進文字列を整数値に、手軽に変換できます。 $num10 = hex("4A"); # $num10 には 74 が入る $num10 = hex("FFFFFF"); # $num10 には 16777215 が入る 余談ですが、数値リテラル中では 0x に続けて 16 進数で記述することで、数値を表すことができます。 $num10 = 0x4A; # 74 $num10 = 0xFFFFFF; # 1677

配列をランダムに並び替える。かっこいいスクリプト Perlで配列をランダムな順番に並び替えるスクリプトを書いてベンチマーク取ってみた。 環境はActivePerl 5.8 スクリプトは #!/usr/bin/perl use strict; use Benchmark; my @array=qw(a b c d e f g h i j k l m n); Benchmark::timethese(50000, { use_sort=>\&use_sort, use_foreach=>\&use_foreach, }); sub use_sort{ my @new= map {$array[$_->[0]]} sort {$a->[1] <=> $b->[1]} map {[$_,rand(1)]} 0..$#array; } sub use_foreach{ my @new = (); f

初心者の頃、探すのに困ったことや、わからなかったことなど。思い出したらメモっていきます。 q(), qq() qw//, qw() =~ . (ドット） .=, += .. DATA 変数の値を交換する 複数行の文字列を一気に読み込む x演算子 Pathの指定方法 配列内容のクリア ハッシュ（連想配列）の初期化 ファイルテスト演算子 q(), qq() q()はシングルクオート。qq()はダブルクオート。つまり、''や""と同じ意味。 print "ダブルクオート \"\"\n"; print qq(ダブルクオート ""\n); qw//, qw() qwは、空白で区切られた文字列をリストにする。 @str = qw(hoge hage hige huga); @str = ("hoge", "hage", "hige", "huga"); qqや正規表現などでも、()の変わりに//や||

iandeth. Perl, Flash ActionScript, MySQL, Movable Type, システム開発 - そんなテーマのサイトdeth. 下記のようなディレクトリ構成の Perl コードがあった場合、 /root/www/cgi-bin/fuga.cgi /root/www/lib/*.pm /root/www/lib/*/*.pm CGIスクリプトの冒頭で /root/www/lib 下を use lib する記述を書きますが、僕は今まで use lib '/root/www/lib'; と、おもむろにフルパスで書いておくものの、後でリソース全部を /root/newdir なんかに移動させたあげく、use lib 記述を修正するの忘れた状態で Can't locate *.pm in @INC なんて怒られて「何故？」と途方にくれてみたり、 BEGIN { #

Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at

Landscape トップページ | < 前の日 2003-03-24 2003-03-25 次の日 2003-03-26 > Landscape - エンジニアのメモ 2003-03-25 Perl の正規表現のオプション m と s 当サイト内を Google 検索できます * Perl の正規表現のオプション m と sこの記事の直リンクURL: Permlink | この記事が属するカテゴリ: [Perl] パターンマッチのオプションをちょっとおさらい。 試した環境は TurboLinux 6.5 Server の perl version 5.005_03 built for i386-linux perldoc perlre も参考になる。 - m オプション: $str を複数行として扱う。m オプションを必要とするのは、文字列中に改行文字を含み、 かつ正規表現中に ^ や

題名 Catalyst::Manual::Intro - はじめてのCatalyst 説明 ここではなぜ、またどうやってCatalystを使うのかを簡単に紹介します。Catalystの挙動について説明し、簡単なアプリケーションを手早く立ち上げる様子をご覧に入れます。 Catalystとは？ Catalystとはエレガントなウェブ・アプリケーション・フレームワークです。きわめて柔軟なのにきわめてシンプル。Ruby on RailsやSpring (Java)、そしてCatalystの元となったMaypoleによく似ています。 MVC Catalystはモデル・ビュー・コントローラ(MVC)というデザイン・パターンを踏襲しているため、コンテンツ、プレゼンテーション、フロー管理といった問題を簡単に切り分けて独立したモジュールにすることができます。こうして切り分けることで他の問題を処

名前¶ carp - エラーの警告 (呼び出し元の観点から) cluck - スタックバックトレースを伴うエラーの警告 (デフォルトではエクスポートされません) croak - エラーを出してdieします (呼び出し元の観点から) confess - スタックバックトレースを伴ってdieします shortmess - carpとcroakが生成するメッセージを返します longmess - cluckとconfessが生成するメッセージを返します 概要¶ use Carp; croak "We're outta here!"; use Carp qw(cluck); cluck "This is how we got here!"; print FH Carp::shortmess("This will have caller's details added"); print FH Car

FormValidator::Simpleプラグインの作成 １つ前のエントリーのFormValidator::Simpleは、validationに使うプラグインが簡単につくれるのも良いところ。すでにCPANにも FormValidator::Simple::Plugin::Number::Phone::JP FormValidator::Simple::Plugin::CreditCard FormValidator::Simple::Plugin::Japanese のといったプラグインがあがってます。 プラグインを使うには、FormValidator::Simple::Plugin::Japaneseならば use FormValidator::Simple qw/Japanese [他モジュール]/; または FormValidator::Simple->load_plugin('