[Perl]猿でもわかるクロージャ超入門 - DQNEO起業日記
[JavaScript] 猿でもわかるクロージャ超入門という記事が好評だったので、今回はPerl編です。 上記のJavaScript版の記事を読んだという前提で解説させていただきます。 問題 呼び出すたびに、1,2,3,...を返すような関数f( )を定義せよ。 f(); // 1 f(); // 2 f(); // 3 クロージャ その１ JS版のクロージャに似せて書くとこうなります。 #!/usr/bin/perl use strict; use warnings; sub outer { my $i = 1; return sub { print "$i\n"; $i++; }; } my $f = outer(); $f->(); # 1 $f->(); # 2 $f->(); # 3 JS版とそっくりですね～。 関数のリファレンスを使っているので、呼び出し方法が$f->()のよう
![[Perl]猿でもわかるクロージャ超入門 - DQNEO起業日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/8f7de7c0278993661a11fbc3637f96292ba773aa/height=288;version=1;width=512/http%3A%2F%2Fdqn.sakusakutto.jp%2Fimages%2Fkali.jpg)
第16回 無名関数をもっと理解する - bingo_nakanishiの他言語出身者のためのPerl入門
さて、前回は、 配列全要素に対してなにか処理したものを配列として受け取れる map について見てきました。 今回は、また無名関数の話題に戻します。 無名関数をもう一度よく見てみましょう。 use strict; # 無名関数 my $f = sub { print "無名の世界から、こんにちは\n"; }; # 無名関数を実行 $f->(); 結果： 無名の世界から、こんにちは 無名関数ですが、関数ですので、もちろん引数も受け取れます。 use strict; # ふつうの関数のように引数も受け取れる my $f = sub { my ($x, $y) = @_; print "$x\n"; print "$y\n"; }; # 無名関数を実行 $f->('無名の世界へ引数を与える', 'こんにちは'); 結果： 無名の世界へ引数を与える こんにちは これで、普通の関数となんら変わらないこ
Use of uninitialized value の傾向と対策 - bonar note
テストスクリプトで Use of uninitialized value の valuewarning を出しまくってみました。 #!/usr/bin/perl use strict; use warnings; my $str; # undifined string my %hash; # undifined hash # Use of uninitialized value in pattern match # Use of uninitialized value in substitution $str =~ /a/; $str =~ s/a/b/g; my $foo = 'hello'; $foo =~ s/hell/$str/; # Use of uninitialized value in string eq # (numeric eq, ==, lt, gt, ...) if
WindowsでApacheサーバを立てよう - 良くあるエラーと対処方法 - futomi's CGI Cafe
perl のデバッガは、ミスを発見する有効な情報を提供してくれます。しかし、必ず的確な原因を指摘してくれるとは限りません。そこでまず、デバッガを使うコツを簡単に説明します。 【コツ１】 １行前もチェックすること。 デバッガは、原因と思われる行を指定して報告してくれますが、場合によっては、その１行前に問題があることが多々あります。従って、指摘された行に問題がなければ、その１行前をチェックしましょう。この場合は、概ね、セミコロン抜けや、「'」「"」などの引用符抜けが考えられます。 【コツ２】 上から順に解決すること。 一つのミスで、エラーが何行も出てくることもあります。この場合には、根本的な原因を特定するためにも、上から順に解決していきましょう。下から見ていくと、まったく問題無いにもかかわらず、エラーと指摘され、無駄な時間を過ごすことになります。 では、よくある文法エラーの内容を紹介します。p
Perlシグナル処理 : D-7 <altijd in beweging>
%SIGに限った事ではないのだけれども、ここでまず注意しなくてはいけないのが、%SIGはグローバル変数であること。ある関数foo()内で%SIGをいじったあとにreturnすると、foo()を呼び出したスコープでもその値は有効になってしまう。これだと自分はよくても他のモジュール等に影響を与える可能性がある。そこでまず癖としてlocal修飾子を使う癖をつけてほしい local $SIG{INT} = sub { warn "got SIGINT (OUTSIDE)" }; sub foo { warn "inside foo()"; local $SIG{INT} = sub { warn "got SIGINT (INSIDE foo)" }; sleep 10; } warn "sleeping..."; sleep 10; foo(); warn "outside foo()"; sl
「知恵ノート」は終了いたしました - Yahoo!知恵袋
平素よりYahoo!知恵袋をご利用いただきありがとうございます。 2017年11月30日をもちまして、「知恵ノート」機能の提供を終了いたしました。 これまでご利用いただきました皆様にはご迷惑をおかけすることとなり、誠に申し訳ございません。 長年のご愛顧、心よりお礼申しあげます。 引き続き、Yahoo!知恵袋の「Q&A」機能をご利用ください。 Yahoo!知恵袋トップ 知恵ノートサービス終了のお知らせ プライバシー - 利用規約 - メディアステートメント - ガイドライン - ご意見・ご要望 - ヘルプ・お問い合わせ JASRAC許諾番号：9008249113Y38200 Copyright (C) 2018 Yahoo Japan Corporation. All Rights Reserved.
このタイミングでシェルスクリプトの基本を学ぶ
よーしお前ら、今日はシェルスクリプトを勉強するぞ。シェルの種類はbashだ。ただ、他のシェルでも基本は同じなので安心してくれ。 シェルスクリプトと言っても、findの使い方とかglob展開とかそういう細かいTIPSはやらん。そういうのは他の記事でも読んでくれ。そうじゃなくて、基本的な処理の流れ、考え方の勉強だ。 だいたいシェルスクリプトなんて普段大してやってなくて、いざ必要になったときに「まあPerlやRubyみたいなもんだろ」とか軽く考えてたらしょーもないことでハマって時間を無駄にしたりするもんだ。 なんでそんなことが起きるのか。 それはシェルスクリプトの基本的な発想が分かってないからだ。PerlやRubyのような普通に使われてるプログラム言語とシェルスクリプトの書き方はけっこう違うところがあって、それを理解せずに書いてしまってるからだ。 そもそもシェルとは何かもう一度思い出してみろ。
FacebookのTest Users APIをPerlで叩く - すぎゃーんメモ
Facebookアプリで色々試す際に、自分のアカウントを使うと何かと不都合が起きるかも、というときに使える TestUser作成APIがある。 本家ドキュメント： Graph API Reference Test User /test-user - グラフAPI - 参考資料 - 開発者向けFacebook 解説記事いろいろ： http://www.madin.jp/diary/?date=20110508 今日の出来事 : Facebookアプリテストユーザー作成方法 今日の出来事 : Facebookアプリテストユーザー作成方法〜実践編 フェイスブックの新 API でフェイスブックアプリのテストを自動化しよう。 - IT戦記 もちろんcurlとかで叩いても良いのだけど、試しにPerlからAPIを叩いたりしてみた。 ユーザ作成 Facebook開発者 - 開発者向けFacebookでアプ
LWP::UserAgentを使ってみる - 目の前に僕らの道がある
今日のknew new things 1日1つ以上アウトプット。日々コレ日常。 Twitterスクリプトの時に書いたけど、備忘録。 WEB APIからJSONテキストが返ってくる時、ほげほげするためのコード。 動かしていないから間違っているかも…。 use LWP::UserAgent; use JSON; my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new('GET', 'http://api.hogehoge/goo/'); my $res = $ua->request($req); if ($res->is_success) { my $json = from_json($res->content); # あとはよしなに }
LWP::UserAgentで、文字列をそのままPOST - ろば電子が詰まつてゐる
何がしたいかと言うと。普通はこんな感じで、POSTでパラメタを引き渡すのだけど。 #!/usr/bin/perl use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my %param = ( "id" => "ozuma", "type" => "12", ); my $res = $ua->post("http://localhost/~ozuma/param.cgi", \%param); print $res->as_string; 今回はSOAPっぽいインタフェースで、Request Bodyにパラメタ名を付けず、無造作にXMLをそのまま送りつけたかった。HTMLでformを作るとパラメタとしてPOSTしてしまうし。 これがちょっと迷ってしまったのだけど、HTTP::Requestのインスタンスにconten
URI.pmを継承する - Hatena Developer Blog
こんにちは、アプリケーションエンジニアのid:nanto_viです。 この記事はKyoto.pm Tech Talk 02で発表した内容を加筆修正したものであり、はてなエンジニアアドベントカレンダーの5日目です。 はてなは今年で設立13年目を迎え、以前から存在するサービスの保守・運用も重要な業務のひとつとなっています。今日はそんな業務における改修作業の一例を紹介します。 独自のURIクラス はてなで以前から存在するサービスのアプリケーションコードは、ほとんどの場合Perlで書かれています。PerlでのWebアプリケーション開発に欠かせないモジュールといえばURIでしょう。 use URI; my $u = URI->new('http://example.org/'); $u->host; # => 'example.org'; $u->path('/foo'); $u->as_strin
実行ファイルのフルパスの取得 - Shohei Yoshida's Diary
会社の人に聞かれて強引な方法を提示してしまったで、 普通にできるだろってことで調べてみた。 Perl, シェルスクリプトどちらでも $0で実行ファイル名が 取得できます。それをフルパスにできればよいというわけです。 まあ basenameとか dirnameがあるんだったら abspathとかが あるはずだって思って補完で出てくるかなって思ったんですが、 ありませんでした。basenameの manpageを見ると readlinkという のが SEE ALSOにあります。で、これを調べてみると以下の通りで フルパスが取得できます. % readlink -f ファイル名しかし説明を読むとシンボリックリンクにコマンドみたいなので 使い方があってるのかが微妙ですね。さらに調べてみると, realpath というコマンドがあって, 絶対パスを表示させる専門みたいです. % realpath フ
Perl コンソールでトライアル3 webzoit.net
perlスクリプトにチャレンジ3 ここでは、PerlスクリプトをブラウザとLinuxサーバに接続したssh(Secure Shell)対応ターミナルエミュレータ(TTSSH/TeraTerm SSH、PuTTY等)から実行・デバッグ・エラーチェックをしてみましょう。 サーバ上で実行する場合の注意点 ssh接続に関しては、サーバがsshに対応している必要があります。 LANではなくインターネットを介してssh接続を利用しない、利用できない場合、セキュリティ面からサーバにアクセスして作業することは避けるべきです。 また、サーバがレンタルで、特に共有サーバの場合には、サーバ負荷を考慮して一度に接続できるssh接続数やrdb接続数、ftp接続数を限定して設定しているのが一般的でレンタルサーバによっては途中で強制終了されたり、なかなか接続できなかったりといった状況も起こり得ます。 こうした状況では、
Perl 「 モジュール 」File::Spec メソッドリスト その 9 (0xab)
目次 - Perl Index Theme Perl について、復習を兼ねて断片的な情報を掲載して行く連載その 0xab 回。 Perl モジュール File::Spec の各種メソッドを確認する。その 9。 rel2abs() について。 File::Spec のメソッド その 8 Perl 「 モジュール 」File::Spec メソッドリスト その 1 (0xa3) Perl 「 モジュール 」File::Spec メソッドリスト その 2 (0xa4) Perl 「 モジュール 」File::Spec メソッドリスト その 3 (0xa5) Perl 「 モジュール 」File::Spec メソッドリスト その 4 (0xa6) Perl 「 モジュール 」File::Spec メソッドリスト その 5 (0xa7) Perl 「 モジュール 」File::Spec メソッドリスト
Time::Piece - 日付・時刻を扱う新しい方法 - Perl入門ゼミ
Perl › モジュール › here Perlの5.10からTime::Pieceと呼ばれる時刻を便利に扱うためのモジュールが標準モジュールに加わりました。Perlの5.10以上を使用している場合はTime::Pieceモジュールを日付と時刻を扱いたい場合に利用すると便利です。 従来のPerlでは日付や時刻を直感的に扱う手段が標準モジュールにはありませんでした。日付や時刻を扱うためには少し面倒な作業が必要でした。Time::Pieceは日付と時刻の直感的な操作を提供します。また日付・時刻の書式化の機能や解析する機能も備えます。 Perlには実質的に日付を扱うモジュールのスタンダードといえるDateTimeというモジュールがあります。ただしこのモジュールは標準モジュールではなくCPANからインストールする必要があります。また巨大なモジュールですのでモジュールを読み込む時間が非常にかかります
perlでYYYYMMDD形式の日付を得る
こんな感じでおーけーヾ(*･∀･)ノ" my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); my $yyyymmdd = sprintf("%04d%02d%02d", $year + 1900, $mon + 1, $mday);
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlでシグナル処理（DBIを黙らせる編） : D-7 <altijd in beweging>
シグナルとkill
perlでのsignal処理 | てっく★ゆきろぐ Rev2
Perlの組み込み変数 %SIG の翻訳 - perldoc.jp