初心者から見たPerl言語I/Fは気持ち悪いが、たった一行の記述が素晴らしく強力な件について - Y's note
プログラミングPerl〈VOLUME1〉 作者: ラリーウォール,ジョンオーワント,トムクリスチャンセン,Larry Wall,Jon Orwant,Tom Christiansen,近藤嘉雪出版社/メーカー: オライリー・ジャパン発売日: 2002/09メディア: 単行本購入: 8人 クリック: 245回この商品を含むブログ (130件) を見る 追記 ※2012/06/10 toku_bassさんからご指摘頂いた内容を載せておきます。 shebangの定義は #!/usr/bin/env perlの方が都合が良い。 連想配列の定義でkeyを''や""で囲まないとエラーになる。 use strict無しでは''や""が無くてもそのまま実行されてしまいますが、use strictを使うと確かにエラーになる事を確認しました。よって必ずkeyは''や""で囲むべきです。 #!/usr/bin/
時間の処理(time/localtime) | Perl･CGI講座 | 有限会社ミスティーネット
現在時刻を取得する為には、time 関数を使います。 time 関数では1970年1月1日0：00からの経過秒数を取得できます。 また、これだけでは扱いづらいのですが、 localtime 関数を使うと年･月･日･曜日･･･など、項目ごとに時間のデータをリスト形式で取り出すことが出来ます。 → time 関数のリファレンス → localtime 関数のリファレンス 取得されたリストデータは、下記のように別々の変数にセットすると扱いやすいでしょう。 取得された値についての詳細は、localtime 関数のリファレンス をご参照ください。 $times = time(); ($sec,$min,$hour,$mday,$month,$year,$wday,$stime) = localtime($times); localtime 関数に直接 time 関数を放り込んでもよいのですが、取得し
Perl に末尾で Missing right curly or square bracket と言われたら
Perl の文法チェックをしていると、エラー箇所がファイルの末尾ですと表示される事がある。 例えば以下のように、どこかでカッコが抜けているけど、1500行目はファイルの末尾だったりする場合。 ％ perl -c blabla.pl Missing right curly or square bracket at blabla.pl line 1500, at end of line syntax error at blabla.pl line 1500, at EOF blabla.pl had compilation errors. あたりを付けるためには、ファイル中間、たとえば700行目付近のどこか切りのいいところに「__END__」 を挟んで再度 perl -c する。 Perl コンパイラは「__END__」以降のコードを無視するので、もしカッコの不足が「__END__」を挿入した
【続】やはり Perl はメモリ喰いな言語。データ型の内部構造
以前、「やはり Perl はメモリ喰いな言語。データ型の内部構造」という記事を書いたことがあるのですが、自分で書いておきながらしばらく立つと完全忘却してました。時代は変わって、今仕事で運用しているサーバは、64bit 版のＯＳです。 最近になって、DB のテーブルのデータを加工・集計しながら CSV にダンプするってプログラムが、データ数が非常に多いときに、1.5 GByte ほどメモリを食いつぶしているってことに気がつきました。理由は至って簡単なのですが、結構ハマリどころなので備忘録として記事にしておくことにしました。 みなさん、仕事とかでは特にそうだと思うのですが、DBI の処理って何らかのラッパーを書いて使っていると思います。僕は適当に書くとよくやってしまいがちなのですが、イメージ的には、こんな処理の流れのコードを書いていました。 （・・・えっ？そんなへぼコード書いてない？？・・・す
やはり Perl はメモリ喰いな言語。データ型の内部構造
use Devel::Size::Report qw/report_size/; # 1bit, 1byte, 2byte, 3byte, 4byte(=32bit), 5byte my $b = [ 0, 0xFF, 0xFFFF, 0xFFFFFF, 0xFFFFFFFF, 0xFFFFFFFFFF ]; print report_size($b, { indent => " " }); # null, length=1, 2, 3, 4, 5 my $c = [ '', '1', '10', '100', '1000', '10000' ]; print report_size($c, { indent => " " }); Size report v0.10 for 'ARRAY(0x8c8bc28)': Array ref 192 bytes (overhead: 92 byte
DevelSize - Perl変数のメモリ使用量を調べる
名前¶ Devel::Size - Perl変数のメモリ使用量を調べる 概要¶ use Devel::Size qw(size total_size); my $size = size("A string"); my @foo = (1, 2, 3, 4, 5); my $other_size = size(\@foo); my $foo = {a => [1, 2, 3], b => {a => [1, 3, 4]} }; my $total_size = total_size($foo); 説明¶ This module figures out the real sizes of Perl variables in bytes. Call functions with a reference to the variable you want the size of. If the va
メモリ使用量を調べられるDevel::MemUsedを使ってみた - ホットリンク研究開発室のblog
はじめまして。yukiinu2ndです。 随分間が空いてしまいましたが、R&Dブログに初投稿します。 人前でこういった形で書くことは初めてなので、読みにくい点等あるかもしれませんが参考にして頂ければ幸いです。 今回はPerlでメモリ使用量を調べることができるモジュールDevel::MemUsedを紹介します。 メモリ使用量を確認したい対象が変数であればDevel::Sizeでよいのですが、 スクリプト中で範囲を決めて、その範囲内で消費しているメモリを確認する方法はないかな、 ということで探していたところできそうなモジュールを見つけたので試してみました。 インストール おなじみのCPANでインストールします。ここではCPANの説明は割愛します。 install Devel::MemUsed このモジュールは以下のモジュールに依存しているため、合わせてインストールします。 CPANが「このモジ
Perlひと工夫 処理高速化やメモリー消費低減 - Perl/CGI解説・豆知識
http://perl-free.topsite.ne.jp/PERL/Perl CGI フリー工房 総合 Perl フリーソフト Mod_Perl フリーソフト Perl 初めて使う Mod_Perl 環境構築 Perl CGI 実験室 サポート Perlスクリプト ひと工夫 処理高速化やメモリー消費低減など - 解説・豆知識 Perlスクリプトの高速化、ライブラリやモジュールの軽量化、メモリー消費低減、 データ1行読み、ループ工夫、絶対パス取得などの豆知識。- Perlひと工夫 Perlスクリプトって動けばそれで良い？ 簡単便利 本質的には、Perlスクリプトは動けばそれで良いと思います。 元々はLarry Wall氏が、「手間の掛からない、使い易いプログラム言語を」と開発したのがPerlです。 ですからPerlスクリプトの本質は速さよりも「簡単便利」でしょう。 もっと高速に！ 上記
OSが何でも、Perlスクリプトをコマンドとして気持ちよく起動する方法 - 檜山正幸のキマイラ飼育記 (はてなBlog)
とある事情により、Windows、UNIX系OS、Windows上のMSYS（またはCygwin）の3つの環境で同一のスクリプトを動かしたいのです。最初、bashのシェルスクリプトを3つの環境で使おうと思っていたのですが、なかなかに難しい。それで、Perlにしようかと考え直しました。スクリプト言語は別になんでもいいのです。 さて、僕の要望は次の2つです。 Perlソースファイルは環境によらず単一で、hello.plのような.pl拡張子を持つ。 だが、コマンドラインから実行するときは、hello としたい。 1番目の.pl拡張子に関しては、エディタとかGUIシェルとか人間とかが、すぐにPerlスクリプトだと認識できて便利だからです。2番目のほうは単に気分の問題、合理的根拠は特にありません。コマンド名に拡張子が付くと気持ち悪くてイヤなのよー。 [追記]以下の方法は、Perl以外のスクリプト言語
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
すぐ使えるWebサーバ環境チェッカー
動作環境 UNIX 系 OS 全般で動作します。（Perl 5.00x 以上） Windows OS では、以下の機能の対応が無いかまたは不十分です。 サーバ環境調査（以下の項目） 日本語文字コード変換関連モジュールの調査 利用できるメールコマンド（sendmail）のパス CGI設定チェック（全ての項目） Windows OS で ウェブサーバが IIS の場合、文法チェックができない場合があります。 利用規約 「すぐ使えるWebサーバ環境チェッカー」（このツール）は無料でお使いいただけます。 ご自身でご利用になる場合改変は自由ですが、再配布および改変品の再配布は禁止です。 このツールを利用したことおよびこのツールを利用できなかったことにより生じる一切の損害や不利益について、作者は責任を負いません。 このツールは利用者がダウンロード（またはその他の手段で入手）した時点の「あるがまま」の状
Perlによる日本語コード変換のメモ（第二版）
Perlによる日本語コード変換のメモ（第二版） hikoboshi.home / Perlによる日本語コード変換のメモ（第二版） 前に書いたときと時代背景も知識も大幅に違うので、書き直してみることにしました。Perl 5.8以降を前提として考えます。 この文章で書く（つもりの）こと use utf8環境での、文字セットの考え方 発生しがちな文字化けとその原因 解決のヒント jcode.pl時代の文字セットの扱い まずは、jcode.plなどが全盛だった時代を思い出してみます。jcode.plの時代は、Unicodeはほぼ使われておらず、JIS, Shift_JIS, EUC_JPあたりの変換を行う事が主でした。実際のコードを見て、扱われ方を考察してみましょう。 #!/usr/bin/perl # jcode.plを用いたコード変換 require 'jcode.pl'; open my $
unpack
説明 ルールに従って変換した結果のリストを返します。 指定できる型指定文字についてはpackを見て下さい。 使用例 #!/usr/bin/perl use strict; use warnings; my $str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; my @items = unpack "c*", $str; foreach my $item (@items) { print $item, " "; } print "\n"; my @head10 = unpack "c10", $str; foreach my $item (@head10) { print $item, " "; } print "\n"; #!/usr/bin/perl use strict; use warnings; my $str = 'Alpha Bravo Charlie De
Perl/Unicode - BugbearR's Wiki
2017-04-16 FreeBSD/mpd 2016-12-23 RecentDeleted Blogアプリ 日記 2016-11-17 本当にあった怖いコード/1 2016-05-16 .NET 2015-07-06 書きたいこと 2015-07-05 postgres Java/変数の初期化に安易に空オブジェクトを代入しない 2015-06-30 PukiWiki/1.4/マニュアル/プラグイン/u 本当にあった怖いコード/15 2014-10-01 日記/2014-10-01 2014-09-09 日記/2014-09-09 2014-08-13 日記/2014-08-10 2014-05-28 バグパターン/日時 バグパターン 2014-04-13 IPv6 2014-03-20 パスワード問題 2014-01-27 DNS/ルートサーバーは13台という神話 2014-01-25
JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ
名前 JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ JSON::XS - 正しくて高速な JSON シリアライザ/デシリアライザ (http://fleur.hio.jp/perldoc/mix/lib/JSON/XS.html) 概要 use JSON::XS; # exported functions, they croak on error # and expect/generate UTF-8 # エクスポートされる関数, これらはエラー時には # corak し, UTF-8 を期待/生成します. $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref; $perl_hash_or_arrayref = decode_json $utf8_encoded_json_text; # O
POSTを送信するperlスクリプト - 猫大好き、ネットワーク大好き。
CGIにデータを送る時、GETならURLの後に http://ドメイン名/cgi-bin/なんとか.cgi?name=nekodaisuki という具合にして送ることができる。 じゃあPOSTの時はどうやってデータを送信しているのか。 その辺りのことがよく分かっていなかったので調べてみた。 通常、Webサーバにデータを送ってもらう時、クライアントは リクエストメッセージを生成して、それをWebサーバに送信している。 Webサーバは受け取ったリクエストメッセージを解析し、 解析結果に基づいてデータをクライアントに送信している。 リクエストメッセージは大きく分けて二つから構成されている。 メッセージ・ヘッダ メッセージ・ボディ メッセージ・ヘッダでは、HTTPがリクエストで使用するメソッドを 指定することが出来る。主なものは以下の三つである。 GET HEAD POST メソッド以外にも、Us
FlashとCGIとの連携の方法 (AS3.0) | maxar quartz
FlashとCGIの連携を行ってみました。サーバサイドではPHPやJavaと連携した紹介が多いので、今回はPerlを使ってみたいと思います。 以下がサーバサイドのソースです。受けたデータをそのまま返します。 use CGI qw(:cgi); my$cgi = new CGI; print $cgi -> header( 'text/plain' ). "value=". $cgi -> param( 'val' ); exit; value=”値” のようにクエリ型で返します。valueの部分は変更可能です。また複数の値を返したい場合は、value=”値”&value2=”値”のように＆でつなげて返します。 今回外していますが、ヘッダの”expire”を”0″にするとFlash側で値を受け取れないようです。 次にFlash側のソースです。 var url_vars:URLVariable
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Amazon.co.jp (Perl: ,: «imon Cozens, o
Perl関数リファレンス pack_sockaddr_in -- Key：雑学事典
http://www.g-ishihara.com/perl/network01.html