タグ

perlに関するeiei_yhのブックマーク (12)

  • Announcing Perl 7

    Announcing Perl 7 Jun 24, 2020 by brian d foy image credit: Darren Wood, “7”, on Flickr. This morning at The Perl Conference in the Cloud, Sawyer X announced that Perl has a new plan moving forward. Work on Perl 7 is already underway, but it’s not going to be a huge change in code or syntax. It’s Perl 5 with modern defaults and it sets the stage for bigger changes later. My latest book Preparing f

    Announcing Perl 7
    eiei_yh
    eiei_yh 2020/06/29
  • 5分でわかる Perl and web security

    yapcjapan2016_lt.md 5分でわかる Perl and web security ma.la CSRFとかXSSとか CSRF: フレームワークの機能使って下さい XSS: Xslateとか自動エスケープして下さい、jsの動的生成はするな 終わり 題 YAPCなのでPerl固有の問題について解説します。 Webアプリケーションの一般的な流れ パラメータ受け取る(フォームとかJSONとか) 何らかの処理をする レスポンスを返す(HTMLとかJSONとか) フォームやJSONを安全に受け取るには paramはscalarで受け取りましょう Why $params = { name => $r->param("name"), value => $r->param("value"), } これをやると ?name=hoge&name=fuga で壊せる。 list context

    5分でわかる Perl and web security
    eiei_yh
    eiei_yh 2017/04/14
  • Perl+Windowsでファイルを再帰的にリネームする方法

    Perl+Windowsでファイルを再帰的にリネームする方法を紹介します。 1.はじめに 仕事Windowsuenファイルを再帰的にリネームする必要が生じました。 とりあえずPerlを使ってスクリプトを組もうと思いますが再帰的にサーチしてリネームする方法が分かりません。 ということで、Perl+Windowsでファイルを再帰的にリネームする方法を紹介します。 ここではC:tmp配下のファイルがExcelの場合、末尾に「.bak」を付与するサンプルで紹介します。 2.ファイルを再帰的にリネームする ファイルを再帰的にリネームするには次のようなコードを実行します。 #!/usr/bin/perl use strict; use File::Find; my $dir = 'C:¥tmp'; find( ¥&rename, $dir ); sub rename { my $file = $_;

    Perl+Windowsでファイルを再帰的にリネームする方法
    eiei_yh
    eiei_yh 2016/04/24
  • perlpacktut - pack と unpack のチュートリアル

    pack and unpack are two functions for transforming data according to a user-defined template, between the guarded way Perl stores values and some well-defined representation as might be required in the environment of a Perl program. Unfortunately, they're also two of the most misunderstood and most often overlooked functions that Perl provides. This tutorial will demystify them for you. pack と unp

    eiei_yh
    eiei_yh 2016/04/20
  • ActivePerlでLHA

    ActivePerlでLHA(99/1/8) by Hippo2000(1999/1/8) Microsoft社のVBScriptは、VBやVBAからいくつか機能が削られています。 それでもファイル関連の処理やプログラムの起動はFileSystemObjectやWSHといった別オブジェクトの力によって、 同じことを実現できるようになっています。 でも不思議なことにDLLを直接呼び出すことは、相変わらずできないままのようです。 ActivePerlではWin32::APIモジュールを使って、DLLも呼び出すことができます。 ここではUNLHA32.DLLの呼び出しについて書こうと思います。 PerlでもDLLが呼び出せないと思ってunlhacom.dllなんて作ったのにぃー。 目次 1.PerlからUNLHA32.DLLを呼び出す 1.1 必要なパッケージをインストール 1.2 

  • XML::Simple使ったらcould not find ParserDetails.iniエラー - masahilog

    iniファイルはこれで生成できるらしい。 perl -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"

    eiei_yh
    eiei_yh 2010/08/16
    お世話になりました
  • Perl 5は生き返った! 新たな前進を再開したPerl

    Perl 5コアの開発はここ数年、負の連鎖が続いていた。リリースは滞り、開発者は去り、将来の見通しはどんどん悪くなっていった。ここで話すのは、Perl 5の開発におけるこの悪い流れがどのようにして、楽しく、前向きで、エキサイティングなものに変わったか、というストーリーだ」 Perl 5のコアデベロッパーで、ActiveStateの技術リードでもあるJan Dubois氏は、4月13日に同社のブログにポストしたエントリ「Perl 5 is Alive」で、このように書き出しています。 Perlは、機能が高度化し複雑になったPerl 5までのバージョンを見直し、新たに作り直そうと、2000年にPerl 6の開発が始まりました。しかしPerl 6は10年たったいまでもリリースされておらず(今月に最初のバージョンがリリースされるといわれていましたが…)、一方でPerl 6の開発が始まってからは、

    Perl 5は生き返った! 新たな前進を再開したPerl
  • tips/perl風正規表現をxyzzy用に変換 - XyzzyWiki

    2009-11-25 tips/addref造Crefwiki??refwiki?a? 質問箱/267 2009-11-23 QuickTour/コメント/QuickTour質問箱 RecentDeleted 2009-11-17 tips/recentfっぽいもの 2009-11-15 tips/perl風正規表現をxyzzy用に変換 2009-11-14 patch/condition.l 2009-11-12 xyzzyでプログラミング/正規表現 2009-11-10 質問箱/266 2009-11-07 tips/olt2の更新を過剰に tips perl風正規表現をxyzzy用に変換 † どれに\つけるんだっけー みたいな (defun regexp-perl->xyzzy (str) "perl風正規表現をxyzzy正規表現に変換" ; 対応表 (let ((reps '((#

  • よく使用する関数・標準モジュール一覧 - Perl入門ゼミ

    Perl › よく使う関数・モジュール よく使用する関数・標準モジュールの一覧です。これらの関数を覚えておけば、Perlをより便利なものにすることができます。詳細な解説は避け、簡単なサンプルを紹介しています。戻り値のあるものについては$retという記号で表しています。 また、よく使用する特殊変数、標準モジュールについても、解説しています。各項目から、関数の詳細にもリンクしていますので、便利にご利用ください。 数学関数 文字列操作 配列操作 ハッシュ操作 ファイル入出力 ファイル・ディレクトリ操作 時刻・時間 その他の重要な関数 関数とモジュールのドキュメントの調べ方 よく使用する特殊変数 よく使用する標準モジュール 数学関数 abs 絶対値を求めるにはabs関数を使用します。 $ret = abs $num; abs(-3)は3になります。 sqrt 正の平方根を求めるには、sqrt関数を

    よく使用する関数・標準モジュール一覧 - Perl入門ゼミ
    eiei_yh
    eiei_yh 2009/09/07
    これは便利
  • XML::SimpleのXMLinで、UTF-8 flagがonになるときとならないときがあるのはなぜでしょう?→解決 - 結城浩のはてなブログ

    いつも教えてクンで申し訳ありません。PerlUTF-8 flagに詳しい方に質問です。 以下のCGIをWindowsで動かしたときと、Freebsdで動かしたときに振る舞いが変わる理由を知りたいと思っています。 sample.cgi #!/usr/bin/perl use strict; use warnings; use Encode; use Data::Dumper; use XML::Simple; my $ref = XMLin('input.xml'); print "Content-type: text/html; charset=UTF-8\n\n"; print '<pre>'; print Dumper($ref); if (utf8::is_utf8($ref->{name}->[0])) { print 'ON'; } else { print 'OFF'; }

    XML::SimpleのXMLinで、UTF-8 flagがonになるときとならないときがあるのはなぜでしょう?→解決 - 結城浩のはてなブログ
    eiei_yh
    eiei_yh 2009/08/24
    文字化けを防ぐ方法/一日中悩んでいたのが解決した
  • Perlでアニメ顔を検出&解析するImager::AnimeFace - デー

    というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ

    Perlでアニメ顔を検出&解析するImager::AnimeFace - デー
  • サンプルコードによるPerl入門

    文字列 数値をASCII(アスキー)コードに対応する文字に変換するには、chr関数を使用します。 #!/usr/bin/perl use strict; use warnings; # ASCII文字コードでは65,66,67はそれぞれ 'A','B','C'に対応する。 my $a_num = 65; my $b_num = 66; my $c_num = 67; print chr( $a_num ), "\n"; print chr( $b_num ), "\n"; print chr( $c_num ), "\n"; __END__ 続きを読む

    eiei_yh
    eiei_yh 2009/03/28
    モダンPerlに対応していてわかりやすい
  • 1