タグ

Perlに関するakaneharaのブックマーク (108)

  • ヒアドキュメントの中でPerlの式を書く

    初代新幹線「0系」最後のラストランの日に、新幹線N700系のぞみでイーモバイルしながらこの記事を書いているid:TAKESAKOです。 Perlのヒアドキュメントを使うと複数行にわたる文字列を一気に代入したりするときに楽なので、使っている人も多いと思います。 my $foo = "bar"; my $tmp = time(); # ←関数の実行結果 print<<EOF; <div class="${foo}1"> <h1>TIME: $tmp</h1> </div> EOF しかし、ヒアドキュメントの途中でサブルーチンの実行結果も一緒に埋め込みたいときがでてくるときがあります。 @{[ Perlの式 ]} そのようなときは、@{[ リスト ]} というイディオムを使うと非常に便利です。 print<<EOF; <div class="${foo}1"> <h1>TIME: @{[ tim

    akanehara
    akanehara 2017/06/20
    [文字列展開]
  • Perl メモリ開放うんぬん - てきとーにやる


     100M  使ps create_scar(); sleep; sub create_scar { my $scar; $scar .= " " for ( 1.. 1000000 ); }  sub create_scar { my $scar; $scar .= " " for ( 1.. 1000000 ); undef $scar; } undef create_scar(); create_scar(); sleep; sub create_scar { my $scar; $scar .= " " for ( 1.. 10000
  • Perlが初めての人に教えてあげたいちょっとしたこと - Unknown::Programming


     PerlPHP Perl Perl ()()bless $self package Foo; sub new { my $class = shift; return bless { @_ } , ref $class || $class; } sub plus { my $self = shift; my $int = shift; return $s
    Perlが初めての人に教えてあげたいちょっとしたこと - Unknown::Programming
  • YAPC::Kansai 2017 OSAKA


    YAPC::Kansai 2017 OSAKA 03/03   YAPC::Kansai 2017 OSAKA 03/04 T   YAPC::Kansai 2017 OSAKA 03/04      Shibuya.pmppencode2003mod_perlC10K Problem YAPC::Asia Tokyo 2006 ITmod_perli18nIT 
    YAPC::Kansai 2017 OSAKA
  • Go For Perl Mongers

    Go For Perl Mongers (or, for Lightweight Language lovers) Daisuke Maki Engineer, LINE Corporation Who Is This Guy? @lestrrat LINE / Japan Perl Association / YAPC::Asia (2008~2013) STF / peco (new!) 2 俺とGo Goしてみて約1年弱 概算10~12万行くらい書いた。lived○○rBl○g の裏方にもこっそりgo入れてる 最初の4万行くらいまでに goの落とし穴にほぼ全て落ちた 自信がある 今日はその落とし穴から学んだ諸々の話 3 対象観客層 もともとPerl/Python/Ruby/PHPあたりから来た人 Goは最低限とりあえずかじった程度はやった人 かじってみたけど「Go、便利そうだけどなん

  • Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ


    PerlparseGetopt::Std Getopt::Long long style option *1  --option-name Getopt::Long 使  使 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent );     
    Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
  • APIをPerlで作る時に 僕達が考えたこと

  • Perl のグローバル変数 $a と $b の詳解 - Qiita


    Perl  - Qiita  Perl4  Perl  sort 使 $a $b  sort  $a  $b sort  $a  $b  sort  $a  $b  sort 
    Perl のグローバル変数 $a と $b の詳解 - Qiita
  • 正規表現(肯定先読み、否定先読み、肯定戻り読み、否定戻り読み) - satosystemsの日記


     (|)(|)  boost::regex   (?=regex) regex 使  "Windows (?=95|98|NT|2000)" "Windows 2000"  "Windows" "Windows 3.1"  "Windows"    (?!regex) regex 使
    正規表現(肯定先読み、否定先読み、肯定戻り読み、否定戻り読み) - satosystemsの日記
  • awkユーザーのためのPerlワンライナー - 忘れないようにメモっとく

    awk(と他のコマンド)ユーザーがPerlワンライナーを覚えるとうれしいこと↓↓ -aオプションでawkと似たような書き方ができる(awkとの比較を参考) カラム1とカラム2を表示 awk '{print $1, $2}' perl -waln -e 'print $F[0], $F[1]' awkよりperlの方が速い場合がある 例えば-aオプションを使わないとき、$F[0]などをレコードごとに生成しないのでperlの方が速く実行できる場合がある(awkはレコードごとに$1などを生成する) awk 'BEGIN{sum=0};{sum+=1};END{print sum}' file.txt perl -wln -e 'BEGIN{my $sum=0}{$sum+=1}END{print $sum}' file.txt 正規表現をperlだけ覚えればいい(awk, sed, grepのコ

    awkユーザーのためのPerlワンライナー - 忘れないようにメモっとく
  • Perlでオブジェクト指向プログラミング - Perl入門ゼミ

    Perl › オブジェクト指向 Perlのオブジェクト指向プログラミングに関する解説です。オブジェクトの作成、コンストラクタ、継承、ポリモーフィズムなど。オブジェクト指向に関する関数についても解説。 入門記事 Perlオブジェクト指向入門【重要】 Object::Simple - 簡単すぎるクラスビルダー、Mojo::Baseの移植、速くて省メモリ オブジェクト指向の仕組み オブジェクトの生成 - bless関数 オブジェクト指向プログラミングとは 「もの型」オブジェクトと「ひと型」オブジェクト クラスの作成 コンストラクタの作成 生成したオブジェクトをいじって遊ぶ コンストラクタに引数を渡せるようにする 汎用的なコンストラクタの雛形 アクセサを生成する クラスの雛形 継承とは クラスを継承する Perlの継承の仕組み baseモジュールを使ってクラスを継承する 継承を使ったポリモーフィズ

    Perlでオブジェクト指向プログラミング - Perl入門ゼミ
  • 時間のかかる処理を捕捉する ALRM シグナル - Qiita

    時間のかかる処理を実行したいんだけど、ある程度の時間が経過したらタイムアウトしたいという要望に応えるために ALRM シグナルというものがあります。 例えば シンプルなライブラリで通信したいんだけど、長時間かかる場合はタイムアウトして欲しい ウェブサーバなどでユーザのリクエスト内容を元に DNS 問い合わせをしたいんだけど、1秒(1000ミリ秒)以上かかったらタイムアウトさせたい バッチプログラムがいつまでも終わらなくて I/O でささっているっぽいんだけど、どこでささっているのか調査したい ささっている系調査は、プログラミング言語のデバッガや strace なども併用するとよいです n分おきに起動する cron プログラムなんだけど、処理するデータが多すぎてn分でおは終わらない場合には終了させないといけない(終了したら次の cron で起こされるプログラムが担当してくれるのでむしろそれで

    時間のかかる処理を捕捉する ALRM シグナル - Qiita
  • はてなブログ | 無料ブログを作成しよう


     2024 1 2
    はてなブログ | 無料ブログを作成しよう
  • Perlのオブジェクト指向をつかんだ - the code to rock

    経緯 概念 実例 参考書籍 まとめ・展望 経緯 2013年の春にふと「よし、プログラミングやろう」と決めてその夏にYAPC::Asiaに参加して、その直後に買ったのが以下の。 すぐわかる オブジェクト指向 Perl 作者: 深沢千尋出版社/メーカー: 技術評論社発売日: 2008/06/20メディア: 大型購入: 12人 クリック: 195回この商品を含むブログ (34件) を見るたしか同YAPCでDeNAの人が大規模新人研修に関する発表をしていて(→)、その最後のほうでお勧め入門書ベスト5みたいなやつを紹介していたのだけど、それがよくある特定の選者が一括で選ぶようなものではなく、研修を受けた側の新人さんたちに聞いたアンケートから抽出されたというリアルなもので、そこに含まれているのを見て興味を持った。 で、先日ようやくそれを読み終わって出た感想。 Perl5によるオブジェクト指向、よう

    Perlのオブジェクト指向をつかんだ - the code to rock
  • オフラインでCPANを使う方法 (2種類) - Qiita

    CPANに接続できなくてもCPANモジュールをインストールする方法を2つ説明。 次のケースで便利。 外部から隔離されたサーバー 山奥や飛行機の上など、ネットにつながらないとき。 手段は2種類。 CPAN::Miniを使ってCPANミラーを作る (オススメ) CPANにあるものなら何でもインストールできる。 簡単。依存関係に悩まされない。 ストレージの容量が必要。(2013年3月時点では2.4G必要) cpanのキャッシュを利用する 一つ目に比べて必要最低限の容量ですむ。持ち運びしやすい。 依存関係ではまる場合もある。 これらの方法は、既にネットにたくさん書かれていますが、自習、確認のためにも投稿。 CPAN::Miniを使ってCPANミラーを作る 流れとして、CPAN::Miniをインストール、CPANミラーを作成、cpanのダウンロード先にローカルのミラーを追加。以上。 実行例

    オフラインでCPANを使う方法 (2種類) - Qiita
  • IO::Select - OO interface to the select system call - Perldoc Browser

  • PSGIアプリでWebSocketを使う場合、responderはどうすべきか? - DebugIto's diary


    Plack::App::WebSocketPSGIresponder Plack::App::WebSocket my $env = shift; my $fh = $env->{"psgix.io"}; return sub { my $responder = shift; ... # WebSocket communication on $fh }; PSGI"psgix.io"WebSocketAmon2::Plugin::Web::WebSocketPocketIO $responder $responder
    PSGIアプリでWebSocketを使う場合、responderはどうすべきか? - DebugIto's diary
  • AnyEvent のタイマーを自由自在に操る - Qiita

    AnyEvent とは AnyEvent とは、Perl のイベント駆動フレームワークです。ウェブ開発エンジニアにも JavaScript などですっかりおなじみになったイベント駆動を包括的に扱うことができます。 詳しくは別の資料や記事に譲りますが、AnyEvent では標準で以下の様なイベントに対応しています。 時間を基準としたタイマー I/O 発生によるフック 子プロセスの終了 非同期ネットワークI/O シグナルハンドラ これらを使って、以下の様な応用モジュールが CPAN でたくさん公開されています。 非同期HTTPクライアント IRCなどのチャット系ボット作成支援モジュール ファイル更新通知 非同期版DBI このあたりについても詳しく書きたいのですが、AnyEvent 自体の歴史も長いことで(それがゆえに今では古い情報がたくさん残るという状況もあるのですが)資料が多いので、まずは検

    AnyEvent のタイマーを自由自在に操る - Qiita
  • Perlだけじゃない!Lobiのサーバーサイドで活躍しているGo製プロダクト7+1個 - KAYAC engineers' blog


    LobiPerl 使Web Perl (Perl6使)  Go Go使 Go   spam-filter maintainer gunfish katsubushi stretcher rin fluent-agent-hydra nuko 
  • 長岡 IT開発者 勉強会(NDS) 46回で「雑Perl」という話をしてきました #nds46 - Re.Ra.Ku tech blog


     2/20NDS46PerlNDS  ScalaiOSSwift/Objective-C使RubyPerl使PerlPerl
    長岡 IT開発者 勉強会(NDS) 46回で「雑Perl」という話をしてきました #nds46 - Re.Ra.Ku tech blog