第135回 Perlに true, falseなんてない - bingo_nakanishiの他言語出身者のためのPerl入門
あ、そこの君！ だまされたと思ってこれを実行していきなさい。 if( false ){ print "ああああ\n"; } どんな結果になったかね？ そうだ。 ああああこう表示されただろう。 ことの発端 この事実に気づいたのは、あるJS使いから if( !false ){ print "ああああ\n"; } が trueにならないんだけど、どういうこと？ と質問があったからだ。 とあるC言語経験者の発言 そもそもC言語にも true, falseはないよね。 と言うのは、あるC言語経験者の発言。 ブーリアン型 - Wikipedia C言語では、C89 にはブーリアン型が定義されていない（C99には定義されている）。ブーリアン型がない代わりに true/false は 0 かどうかで判断される。 C++では、標準化の過程で bool、true、false というキーワードが導入され、基本デ
プラグマモジュール
use strict use strict; # 3つの厳格さをすべて適用する． use strict "vars"; # 変数はあらかじめ宣言しなければならない． use strict "refs"; # シンボリックリファレンスは使えない． use strict "subs"; # 裸のワードによる文字列はクォートしなければならない． use strict; # すべてを適用して no strict "vars"; # そのうち1つをやめる． Perl が何を正当なコードとみなすかに関する基本的な規則を変更する． このような厳格さは，わずか5行のフィルタのような， ちょっとしたプログラムを書く際には厳しすぎることもある． しかし，プログラムが大きくなるにつれ， より厳格な扱いが必要になる． 現在のところ，3つの点 subs，vars， refs に関して， 厳格さを適用することができる
Perlにおける真偽値 - Perl入門ゼミ
Perl › 構文 › here Perlにおける真偽値を解説します。Perlにおける偽値は次の五つです。 1 undef 未定義値 2 "" 空文字列 3 0 0 4 "0" 文字列の0 Perlにおける真値は上記以外すべてです。 未定義値、数値の0、空の文字列、0と等しい文字列、空のリストだけが偽値になります。 真になる値の例 # 1 1; # 文字列 "Hellow" # オブジェクト my $obj = Point->new; # 文字列の"0.0" "0.0" "0.0"は、数値としては0と等しいが、真として扱われます。 サンプルプログラム 真偽値のサンプルです。 # 真偽値のサンプル my $var; # 偽。定義した直後の変数はundef $var = undef; # 偽。 $var = 0; # 偽。 $var = 0.0 # 数値で0と等価なものは偽。 $var = 1
Graph::EasyとGraphvizでステキなグラフを作ってみる - iDeaList::Writing
Graph::EasyはASCII, HTML, SVG *1での出力が可能なグラフに変換し描画してくれるモジュールです。 ASCIIでの出力 +------+ +-------+ | AAA | --> | BBB | +------+ +-------+ +------+ +-------+ | test | --> | test2 | +------+ +-------+ #!/usr/bin/perl use strict; use warnings; use utf8; use Graph::Easy; my $graph = Graph::Easy->new(); $graph->add_edge_once ('AAA', 'BBB'); $graph->add_edge_once ('test', 'test2'); print $graph->as_ascii(); コマン
Projects/GTK-Perl - GNOME Wiki!
GTK-Perl is the collective name for a set of perl bindings for GLib, GTK+, and various related libraries. These modules make it easy to write Gtk and Gnome applications using a natural, perlish, object-oriented syntax. GTK+ is a GUI toolkit for developing graphical applications that run on POSIX systems such as Linux, Windows and MacOS X (provided that an X server for MacOS X has been installed).
iandeth. - Benchmark モジュールの使い方、結果情報の読み方
仕事で Benchmark モジュールを使う機会があったので、使い方＆結果情報の読み取り方をまとめてみました。基本的には perldoc 読めばオールオッケーでしょ？と思っていたのですが、docs では結果情報の読み方についてはあんまり触れられていなかった為、ガッツリ補足してみました。 基本 とある２種類のコードの実行速度を比較計測するには以下のようなソースを記述します： bench.pl #!/usr/bin/perl use strict; use warnings; use Benchmark qw(timethese cmpthese); sub hogeLoop1 { my $str; for my $i (1 .. 10000){ $str .= $i } } sub hogeLoop2 { my $str; for my $i (1 .. 20000){ $str .= $i
Encode.pmの使い方軽いまとめ
ホーム ＞ HTMLに役立つヒント ＞perlのいろんなルーチン入れ perlのいろんなルーチン入れ 自分でperlを書いていて、しょっちゅう使いそうなもの、作るのに苦労したルーチン、引っかかったことなどを書きためている。ま、自分用の備忘録です。使う場合はオウンリスクでどうぞ。何せ初心者ですから間違いがあるかも。 ■■ 目次 ■■ mac/UNIX ▲ページトップ ▲▲HTMLに役立つヒント ●MACとUNIXの違いでよく使うルーチン # OSがUNIXなら0、macなら1。 $pc = "0"; # mac/UNIXの区切りをセット if ( $pc == 1) { # 1はマック $partition = ":"; # home:name:等の区切り $partition_down = ":"; # 相対パスで下がる時 $partition_up = "::"; # 相対パスであがる時
メモリ使用量を調べられるDevel::MemUsedを使ってみた - ホットリンク研究開発室のblog
はじめまして。yukiinu2ndです。 随分間が空いてしまいましたが、R&Dブログに初投稿します。 人前でこういった形で書くことは初めてなので、読みにくい点等あるかもしれませんが参考にして頂ければ幸いです。 今回はPerlでメモリ使用量を調べることができるモジュールDevel::MemUsedを紹介します。 メモリ使用量を確認したい対象が変数であればDevel::Sizeでよいのですが、 スクリプト中で範囲を決めて、その範囲内で消費しているメモリを確認する方法はないかな、 ということで探していたところできそうなモジュールを見つけたので試してみました。 インストール おなじみのCPANでインストールします。ここではCPANの説明は割愛します。 install Devel::MemUsed このモジュールは以下のモジュールに依存しているため、合わせてインストールします。 CPANが「このモジ
perldiag - さまざまな Perl 診断メッセージ - perldoc.jp
These messages are classified as follows (listed in increasing order of desperation): (W) A warning (optional). (D) A deprecation (optional). (S) A severe warning (default). (F) A fatal error (trappable). (P) An internal error you should never see (trappable). (X) A very fatal error (nontrappable). (A) An alien error message (not generated by Perl). (W) 警告 (オプション) (D) 非推奨 (オプション) (S) 重大な警告 (デフォルト)
SAKURA Internet
さくらのサービス さくらのレンタルサーバ WordPress、モリサワ提供のWebフォントが使えるご利用件数56万突破の人気サーバーサービス。 さくらのVPS レンタルサーバより高い自由度が魅力。はじめて使うroot権限のある1台目に最適です。 さくらのVPS for Windows Server Windows搭載プランが登場。リモートデスクトップやOfficeのご利用も可能です。 さくらのクラウド 初期費用無料、トラフィック課金なしのクラウドサーバー。最適な環境をすぐに作成できます。 さくらの専用サーバ PHY 大容量ストレージも選べる物理サーバー。オンプレミスからの移行、ウェブシステムの最適化におすすめです。 高火力コンピューティング 機械学習、データ解析、ハイパワーマシンを必要とする全ての用途に。GPU搭載、妥協のない最高性能を提供します。 さくらのIoT デバイス、ネットワーク、
Win32::OLE
NAME Win32::OLE - OLE Automation extensions SYNOPSIS $ex = Win32::OLE->new('Excel.Application') or die "oops\n"; $ex->Amethod("arg")->Bmethod->{'Property'} = "foo"; $ex->Cmethod(undef,undef,$Arg3); $ex->Dmethod($RequiredArg1, {NamedArg1 => $Value1, NamedArg2 => $Value2}); $wd = Win32::OLE->GetObject("D:\\Data\\Message.doc"); $xl = Win32::OLE->GetActiveObject("Excel.Application"); DESCRIPTION This
リファレンスを使って仮想的多次元配列
1.リスト 複数のスカラ変数を並べた構造を『リスト』といいます。リストはスカラと同じように数値、文字列を区別なく扱います。リストの書き方はとても簡単で、値をカンマで区切り、その全体をカッコで囲むだけです。1、2、3の 3 つの値のリストは、以下のように表します。 (1, 2, 3) リストの代入 リストの要素に代入する場合は、下記のような方法があります。 ($a, $b, $c) = (1, 2, 3); リストの中にリストがある場合には、自動的に展開されます。 (@list1, @list2, &function) 上記のようなリストは @list1 のすべての要素の後に @list2 のすべての要素を追加し、その後にfunction というサブルーティンが返すすべての要素を追加します。 リストの要素数と変数の数が違う場合 リストの要素数よりも、用意した変数のほうが多い場合には、あまった
news - 上に中国のソース行動強制開示あり、下に対策あり : 404 Blog Not Found
2009年04月24日23:30 カテゴリNewsLightweight Languages news - 上に中国のソース行動強制開示あり、下に対策あり ガクガクブルブル？ 中国、ＩＴソースコード強制開示強行へ…国際問題化の懸念 : 経済ニュース : マネー・経済 : YOMIURI ONLINE（読売新聞） 痛いニュース(ﾉ∀`):中国、IT「ソースコード」強制開示強行へ…国家機密漏洩、知財流出など国際問題化の懸念 欢迎光临、没问题！ 当局には、以下の三行だけ提出すればおk。 #!/usr/bin/perl use LWP::Simple; eval get('http://colabv6.dan.co.jp/zh-cn/nihao.pl'); コンプライアンスを満たすだけではなく、アップデートの配布まで不要になるというおまけ付き！一石二鳥とはこのことです。そこまで考えた上での中華人民
wait関数 - 子プロセスの終了を待つ - Perl入門ゼミ
Perl › 関数 › here forkで分岐させた場合は親プロセスと子プロセスはどちらが先に終了するかはわかりません。今回は親プロセスが子プロセスの終了を待つ方法を解説します。 1. waitで子プロセスの終了を待つ 子プロセスの終了を待つにはwait関数を使用します。wait関数はひとつの子プロセスが終了するまで待機し続けます。戻り値は終了した子プロセスのプロセスIDです。子プロセスが何らかの理由で自動的に回収されていた場合は-1が返却されます。 my $pid = wait; 子プロセスを待つサンプルです。前回のサンプルを少し修正します。結果がわかりやすいように、子プロセス側でprint文を実行する前に、sleep関数で2秒待機しています。 use strict; use warnings; my $pid = fork; die "Cannot fork: $!" unless
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl-mongers.org
Perlゼミ(サンプルコードPerl入門)
Perlゼミ(サンプルコードPerl入門)
Home
Perlリファレンス
正規表現の入門（2） 難しいメタ文字
