コマンド - とほほのWWW入門
■ コマンドを実行する（system） ◆ systemによるコマンド実行 system() は、指定したコマンドを実行します。下記の例では netstat というネットワーク関連の情報を表示するコマンドを実行しています。 system("netstat -a"); 関数の戻り値として 実行ステータス を返します。実行ステータスは実行結果を示す整数値で、通常、成功すれば 0、失敗すれば 0 以外の値になります。 $retcode = system("netstat -a"); system() では、コマンドが終了するまで処理を Perl に戻しません。 ■ コマンドの実行結果を読み取る(1)（`...`, qx/.../） ◆ `...` によるコマンド実行 コマンドの実行結果を変数に読み取るには、`...` を用います。` はクォーテーションではなく、バッククォーテーションなので注意し
なぜ Perl で配列に対して defined を使ってはいけないのか?
defined の挙動で相談されたのでソースコードを見てみたら、配列に対して defined を呼んでいた。 最近の Perl では配列に対して defined を使うのは非推奨である(perldata や perlfunc 参照)。 ほとんどの人が望むような判定結果は返ってこない*1。 perl -e '@a = (); print defined @a ? 1 : 0; push @a, 1; print defined @a ? 1 : 0; shift @a; print defined @a ? 1 : 0' 配列が空かどうかならスカラーコンテキストで評価するだけで OK なのだが、Perl プログラミング経験上、1度は defined を使用してしまうだろう。 ただ通常は警告が出るのですぐ気がつく。 この警告は Perl 5.6.0 以降で出る。 #!/usr/bin/perl
Perlのprintデバッグをシュッと見やすくする - 文字っぽいの。
この記事は、Perl Advent Calendar 2014 - Qiita の6日目の記事です。（※初学者向け） シュッと変数の様子を見る Perlでプログラムを書いていて、「ここの変数なにが入ってるのかな？」と調べたい場合、このようにprintで表示させるプログラムを書くと use strict; use warnings; my @array = (1, 2, 3, 4, 5); my $array_ref = [@array]; my %hash = ( name => "tarou", age => 20, ); my $hash_ref = {%hash}; print @array, "\n"; # => 12345 print %hash, "\n"; # => nametarouage20 print $array_ref, "\n"; # => ARRAY(0x7fd
GitHub - hatena/Hatena-Textbook: はてな研修用教科書
Hatena-Textbook はてな教科書は、はてなのエンジニアとして最低限必要とされる技術を身につけるための教科書です。 Web開発における重要なトピックを順番に学びながら、課題をといていくことで、Webアプリケーションをひととおり構築できるようになります。 実装言語としてPerlとScalaのどちらを選ぶことができます。 トピックごとに学びたい言語の方の教科書を読み進めてください。 目次 プログラミングの基礎 Perlによるプログラミングの基礎 Scalaによるプログラミングの基礎 データベースの基礎 Perlによるデータベースプログラミング Scalaによるデータベースプログラミング Web開発の基礎 PerlによるWebアプリケーション開発 ScalaによるWebアプリケーション開発 Webフロントエンド開発 はてな教科書JavaScript編 hatena/Hatena-Tex
関係演算子 - 条件分岐 - Perl入門
関係演算子には数値を比較するための演算子と文字列を比較するための演算子の二種類が用意されています。例えば 2 つの値が等しいかどうかを判別する場合、数値を比較するには == 演算子を使い、文字列を比較するには eq 演算子を使います。関係演算子は結果として真(true)又は偽(false)を返します。 文字列を比較する場合には、両辺の文字列の値を1文字ずつ順に比較していきます。大きいか小さいかの判別は比較する2つの文字列をソートしてどちらが先にくるのかで比較しています。 なお文字列の比較の場合には数値用の演算子を使うこともできます。 等しいかどうかの比較 2 つの値が等しいかどうかを比較するには == 演算子、または eq 演算子を使います。例えば次のように記述します。
Object::Container ‐ Containerを使って開発スピードをあげる - Articles Advent Calendar 2011 Casual
こんにちは！hirobanexです！PerlのWAFのKamuiを使って以来、Containerというのが大好きなんですが、どうもContainerというものがWeb上で見かけることが少ないのでカジュアルに紹介しますね！ Containerとは より一般的に言えば、newされたインスタンスやリファレンスをキャッシュしておくクラスで、いろんなクラスからそのクラス経由でキャッシュしたオブジェクトを利用するような形態のクラス、あるいは、そのクラスを生成をサポートするモジュール群、を指すといえると思います。 ここで紹介するのは、typesterさん作のObject::Containerで、Containerクラスの生成をサポートするモジュールです。Inside mobage platformをみると、しっかりしたところでも使われいるんだなーということが垣間見えます。 Containerのメリット
File::Temp - テンポラリファイルの名前とハンドルを安全に返す
File::Temp - return name and handle of a temporary file safely File::Temp - テンポラリファイルの名前とハンドルを安全に返す 概要¶ use File::Temp qw/ tempfile tempdir /; $dir = tempdir( CLEANUP => 1 ); ($fh, $filename) = tempfile( DIR => $dir ); ($fh, $filename) = tempfile( $template, DIR => $dir); ($fh, $filename) = tempfile( $template, SUFFIX => '.dat'); $fh = tempfile(); MkTemp 系: use File::Temp qw/ :mktemp /; ($fh, $fil
macOSX に homebrew で perl 環境構築 - てしりこじり
構築メモ 基本的に rbenv と似たような感じ plenv 導入！ brew install plenv perl-build bash_profile に初期化設定を追記する eval "$(plenv init -)" インストールできるバージョンを確認 plenv install -l 現状確認 $ perl -v This is perl 5, version 18, subversion 0 (v5.18.0) built for darwin-2level インストール $ plenv install 5.20.0 設定と反映 $ plenv global 5.20.0 $ plenv rehash バージョン確認 $ perl -v This is perl 5, version 20, subversion 0 (v5.20.0) built for darwin-2le
[Perl] DBIx::Skinnyを使ったお手軽データストア[Perl] Simple data store using DBIx::Skinny – inet-lab
暑くなってきてワインからビールにスイッチして楽しんでいます。松浦です。 フランスはベルギーから近く、レフ(250ml*12)が7ユーロ、デュベルやシメイは 330mlで1.5ユーロくらい、ヒューガルデンはレフよりちょっと高いくらいで 手に入ります。レフをベースに色々挟んでビール生活を満喫しています 今日はO/Rマッパーを使って、気象データをデータベースに保存していく お手軽な方法を紹介します。似たようなケースは色々な所で遭遇するので、 DBI等を使って直接SQLを書かず、自分の好きなO/Rマッパーでさっさと 済ませるのが得策です。 Perl界隈のO/RマッパーはDBIx::Classがメジャーですが、 今回使ったDBIx::Skinnyはより軽いDBIx::Classを目指したO/Rマッパーで、 基本的な機能は十分揃っています。後継のTengというO/Rマッパーもあります。 どの言語でも基
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Test::Double::Mock
bayashi.net