digが入っていない環境で名前解決のテストをするのにperlが便利 - ぱいぱいにっき
これで名前解決できる $ perl -E 'say join(".", unpack("W4", gethostbyname("example.com")))' 用途 EC2インスタンスやらコンテナから外にほんまに出られるんかな？みたいに調べたいことがある VPC内でprivate subnetだとNAT Gatewayとかがないと外に通信できない サービスメッシュとかで名前引けるかどうかを確認したい時がある 特定の環境でしか引けない名前とかある 今回の用途はGuardDuty ECS Runtime Monitoringを導入した際にちゃんと不審な動きが検知されるかどうかで使いたかった モネロのマイニングプールを引くと検知されるらしい GuardDutyのEC2タイプFindingsを簡単に検知させる方法 – CryptoCurrency編 | DevelopersIO digやらnsl
grepでは困難な、特定文字列の存在行から別の文字列が存在する行までの抽出 (Perlのflip-flop演算子の使い方) - 理系学生日記
特定の文字列がある行から、別の特定の文字列がある行までを抽出したいということがよくあります。 これgrep等を使うと苦労する話なんですが、flip-flop演算子を使ったPerlのone-linerで可能です。 例えば昨日の記事ではgit help commitの中から--no-edit/オプションの説明を抽出しました。 これは--no-editという文字列が出てくるところから空行までを抽出すれば良い。これは以下のようにすれば可能です。 $ git help commit | perl -nle 'print if /--no-edit/ ... /^\s*$/' 解説自体に空行が混じるケースでは以下のようにすれば良いでしょう。 この例では、--cleanupという文字列が出現してから、次のオプション(-文字列形式)が出るまでを抽出しています。 $ git help commit | pe
Perl ワンライナーとその仲間たち - Qiita
こちらはPerl Advent Calendar 2018の18日目の記事になります。昨日は、Morichanさんによる、クラス図とPerlの対応付け でした。 さて、みなさん、日頃からワンライナーは使ってますでしょうか？ これまで何度となく出てきたネタかとは思いますが、Perlによるワンライナーについて改めて整理してみます。 (…本記事は今年のYAPC::Okinawa 2018 ONNASONの「Perlを中心としたワンライナーあれこれ」の加筆・訂正版ですｗ) ワンライナーとは 「ワンライナー」とは、たった1行だけのプログラムです。 プログラムを書きたいが、 エディタを起動するほどの手間はかけたくない、というときに威力を発揮します。 日本語で言うところの、いわゆる一行野郎です。 最近界隈で人気のシェル芸的な分野などでも使えると思います。 基本編 perlでは、コマンドラインオプションの
キャッシュレス還元対象店一覧（PDF 3608ページ）をワンライナーでCSV形式にしてみた - Qiita
pdftotext -raw -f 3 -l 2795 kameiten_touroku_list.pdf - | grep -E '^[0-9]+(,[0-9]+)* |[25]%$' | perl -pe 's/(?<![25]%)\n/ /g' | perl -pe 's/^(\S+) (\S+) (\S+) (.+) (\S+) (\S+) (\S+)$/"$1","$2","$3","$4","$5","$6","$7"/g' > kameiten.csv ※変換しているのは「①固定店舗（EC・通信販売を除く）」のページです。 ※変換結果のCSVは、14MBくらいです。 背景 キャッシュレス・消費者還元事業(公式サイト) 国のキャッシュレスポイント還元PRサイト、「使えるお店一覧」から18万店を網羅した3608ページのPDFに飛ばす(ねとらぼ) 最近話題の「キャッシュレス・消費者
grepの-oオプションと-Pオプションの組み合わせが便利 - Gre's Blog（跡地）
$ paste <(cat score | grep -oP '[^\d]+') <(cat score | grep -oP '\d+') | xargs -n 2 #シェル芸— ぐれ (@grethlen) 2014, 6月 14 上記のようにgrepコマンドを叩いていたら「-oPってオプションなに？」と言われたので。 grep -oPって？ -oオプションとは --only-matchingの略。マッチした部分のみを抽出するというオプションのこと。 $ echo "123abc456dfg" | grep -o [a-z] a b c d f g -Pオプションとは マッチさせる文字列にPerlで使われているものと同じ正規表現(Perl正規表現)をつかえるようにする。PerlのP。 普通の正規表現とPerl正規表現の違いって？ 主に以下の３つ。 一部のメタ文字が使える [参考] \d
WSGI/Rack/PSGIの登場の背景 - $ cat /var/log/shin
何番煎じ変わりませんが、WSGI/Rack/PSGIに関して、何でこれらが必要とされるようになったのか、歴史的経緯を踏まえて色々調べたので、記録しておきます。ただし、特に歴史的な話に関しては、ネットで自分が納得できるまで探りはしましたが、正確性を欠くかもしれません*1。間違っていたらご指摘下さい。 実行環境の多様化とWAFの乱立 結論としては、この見出しがWSGI/Rack/PSGIが生まれることとなった動機といえます。 実行環境の多様化 私が小学生ぐらいの頃、20世紀終盤でしょうか、通信速度も今に比べ格段に遅く、多分スケーラビリティなんて考えも浸透していなかった頃、WebアプリといえばCGIでPerlな時代がありました*2。そんな頃の実行環境はレガシーなApacheとmod_cgiでした。 しかし、時代と共に、数多くのリクエストを捌くことが要求されるようになると、CGIでリクエスト時に毎
anime.udp.jp
ここは、コンピュータでイラストやアニメのキャラクターを識別するプロジェクトのページです。 僕がひとり、趣味で行っています。 目標は、絵を描く人に関係なく、より一般化されたキャラクターというものについて正しく識別できるライブラリを開発し、画像の自動分類や検索に役立てることです。 更新履歴 AnimeFaceを最近の環境で動くようにしてGitHubに置きました(Perl拡張なし) (2016 2/18) Imager::AnimeFaceのビルドスクリプトを修正. Imager-AnimeFace-1.02 (2012 7/30) OpenCV用のアニメ顔分類器にLBPの検出器を追加 (2011 7/18) Ruby拡張ライブラリへのリンク追加 (2010 8/16) 関連リンクを追加,微妙に様々なコメントを修正 (2010 3/30) 昔作ったもの(OpenCV用のアニメ顔分類器,SC),関
よーし、モダンなPerlの開発環境作っちゃうぞー - セカイ内存在証明
諸事情でPerlの開発環境を作らなければいけなかったのでそのメモです。 よーし、モダンなPerlの開発環境構築しちゃうぞー— 七枷さっき作った（CV:佐本二厘） (@make_now_just) 2015, 2月 16 死にそう— 七枷さっき作った（CV:佐本二厘） (@make_now_just) 2015, 2月 16 まずはplenvをインストールしまーす！— 七枷さっき作った（CV:佐本二厘） (@make_now_just) 2015, 2月 16 これですね https://t.co/JIigi8NhQg— 七枷さっき作った（CV:佐本二厘） (@make_now_just) 2015, 2月 16 $ git clone git://github.com/tokuhirom/plenv.git ~/.plenv— 七枷さっき作った（CV:佐本二厘） (@make_now_ju
コマンドラインツールを作るときに考えているちょっとした設計方針 | おそらくはそれさえも平凡な日々
個人的にPerlでもGoでもRubyでもコマンドラインツールを作るときに考えることの一つに以下がある。 その実装言語からライブラリとして直接呼べるインターフェースを作り、コマンドもそれを呼び出すようにする。 どういうことかというと、最近書いたgo-timeoutの場合、 % go-timeout --kill-after 5 --signal=HUP 10 perl -E "say 'Hello'" は、内部的に以下を呼び出している。 tio := &timeout.Timeout{ Cmd: exec.Command("perl", "-E", "say 'Hello'"), Duration: 10 * time.Second, KillAfter: 5 * time.Second, Signal: syscall.SIGHUP, } exitStatus := tio.RunSimp
欧米のYAPCの問題点とイベント運営について僕の考え : D-7 <altijd in beweging>
今年のYAPC::Asia Tokyo 2014は海外ゲストの方々と色々話す機会があったのでかなりの時間彼らと話していた。 特にスピーカーの方々とは「日本人に受けるためにはどういうアプローチがいいんだ」という相談をYAPC期間中に（今更！）聞かれて 「日本人は証拠として数値の提示を求める傾向があるから、数値をもっと盛り込め」とか「おまえらの会社日本だと全然知られてないんだからまずそこから変えろ」とか等々の助言をして大分彼らのトークの内容を微調整する業務があった。特にDBICのトークは（見てないけど）YAPC::EUでやったものと全く内容が違う、という報告をスピーカー本人にもらった。ははは、通訳の人たちに迷惑かけたかなーw ともあれ、その流れで海外のYAPCの話。今回話した人たち全員から 「なんでYAPC::Asiaはこんなに人が集まるんだ？」「どうしたら俺たちのYAPC（EUにしろNAにし
Introducing Swift - and the Sunset of Our Culture?
Apple recently released a language called Swift. As a language it appears to be the best of both worlds -- a script language that emits native codes. But I've got a feeling it means more than just a language. The talk roughly consists of 4 parts as follows: * Introducing Swift * Script Languages vs "Compiler" Languages * Free Software vs. Open Source * The Sunset of Our CultureRead less
趣味開発のためのクラウド/VPS活用術 - YAPC::Asia Tokyo 2014
仕事でプログラムを書く時は指定された環境や、便利な社内ツール群、相談にのってくれる仲間や、何より豊富なコンピューティングリソースがあるでしょう。 しかし仕事から分離された趣味の開発ではそういったサーバは使えないことがあるわけで、それをどのように調達したり工夫を行うことで、いかに自分のポケットマネーから最大の自己満足感を得られるかを紹介させていただきます。 以下の様な内容を紹介させていただきます。 おすすめのVPS/クラウドサービス 作業用、助っ人、本番用、それぞれの使い分け Amazon EC2/S3 etc, Google Cloud Platform, Digital Ocean, VULTR, さくらのVPS etc... 自宅サーバという選択肢におけるメリット・デメリット 超低消費電力サーバ RaspberryPi で出来る事出来ないこと 作業場という意味での自宅やコワーキングスペ
テキストから辞書にある文字列をすべて取り出す簡単なプログラム (Pure Perl)
テキストから辞書にある文字列をすべて取り出す簡単なプログラム (Pure Perl) 2014-05-09-1 [Programming][NLP] 機械学習のデータ加工用のスクリプト。辞書によりテキストから素性を抽出する簡単なプログラムです。先日ちょっと需要がありまして、Pure Perl で動くものを作りました。 あらかじめ用意された辞書（文字列とIDのペア）があり、テキスト中にその辞書の文字列が存在したら対応するIDを出力する、というタスクです。 辞書マッチは最長一致のみではなく、一部重なりや内包含むすべて。最長一致のみならば辞書エントリを長い順にならべてORでつなげた正規表現を作れば一発なのですが、すべて欲しいというわけで（疑似）TRIEを採用。ハッシュで TRIE という懐かしい実装です（初期のJUMAN風）。 ■辞書の例 (fepp-dic.txt)。フォーマットは「^エントリ
Carton考2014 | おそらくはそれさえも平凡な日々
こうするのがいいかなーと思ってる。経緯は端折って大枠だけ。Webアプリケーションプロジェクトの場合です。 cpanfileちゃんと書いてコミット 今やどこでもやってますね。scan-prereqs-cpanfileも便利です。 開発者は各自carton installでモジュールをインストール。プロジェクトごとにPerlをビルドしたりしてる場合は、cpanm --installdeps .でも別に良い。 CI環境でcpanfile.snapshotを作る CI環境は必ず以下のとおりとする。 本番環境と同じアーキテクチャ 本番環境と同じバージョンのPerl まっさらな状態(Globalに何のモジュールも入っていない) CIにcarton installもさせて、必要なモジュールをlocal/に入れてテストさせる。毎回サラからcarton installしてたら時間かかるので、git pull
Perl One-Liners: book review
Perl One-Liners I was recently contacted by No Starch Press and they gently offered to send me a copy of “Perl One-Liners“, a book by Peteris Krumins. Before looking at the book itself, it’s interesting to see that the author is a serial-oneliner-author, if I can say: Perl One-Liners is his third book on the topic, after Awk One-Liners Explained and Sed One-Liners Explained. I think Peteris bash h
2人のリーダーが決断した賢い世代交代
Perl技術や文化の啓蒙・促進を促す組織「JPA」は2013年11月11日、新人事を公開。2013年11月1日をもって、肥後彰秀氏と和田裕介氏が新理事に就任したと発表した。 Perl技術や文化の啓蒙・促進を促す組織「Japan Perl Association（以下、JPA）」は2013年11月11日、新人事を公開。2013年11月1日をもって、肥後彰秀氏と和田裕介氏が新理事に就任したと発表した。JPAは、Perl技術の発展を促す技術者のためのカンファレンス「YAPC::Asia（以下、YAPC）」も主催しており、今回理事となった和田氏はYAPC運営委員会の委員長にも同時に就任する。これまでのYAPCを支えてきた人物の突然の引退発表により開催が危ぶまれた2014年のYAPCだったが、今回の発表により来年度のYAPC開催が約束された。 これまでのYAPCを支えてきたその人物とは、牧大輔氏と櫛
find／xargsを使ったファイル・ディレクトリ名の一括置換／一括作成コマンド一覧
業務で楽するためのUNIXテクニック集 ファイル・ディレクトリ名の一括置換／一括作成 この記事は2008年～2009年頃に翔泳社で連載していた「業務で楽するためのUNIXテクニック集」の原本です。 はじめに この連載では、UNIX系OSをコマンドライン上から効率よく利用するために知っておくべきテクニックや、便利な小技を紹介していきます。 今回は、第0回、第1回で紹介したfind／xargsコマンド、シェルの変数展開、制御構造を利用した「ファイル・ディレクトリ名の一括置換」に関するテクニックを紹介します。 また、「ファイルやディレクトリの一括作成方法」「シンボリックリンクの作成方法」に関するテクニックも紹介します。「ファイル名の置換」テクニックを検証する際の、コマンド確認環境構築にご利用ください。 関連記事 シェル制御構造と正規表現の基礎 grepを使った便利なコマンド一覧 find／xar
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl One-Liners Guide
YAPC::Asia 2014 - 半端なPHPDisでPHPerに陰で笑われないためのPerl Monger向け最新PHP事情
Perl Hackers Hub：連載｜gihyo.jp … 技術評論社
