動的解析を利用し、実働6日でレガシーコードを1/3削った話(Perl編) - CARTA TECH BLOG
こんにちは！株式会社VOYAGE MARKETINGで働くエンジニアの yopidax です。 約20年ほど続くサービス、ECナビの技術的負債の返済に取り組んでいます。 ecnavi.jp 今回は直近で、レガシーコードを大量に削除したので、そのアプローチをご紹介したいと思います。 目次 目次 解析の対象と抱える課題 アプローチ 実行されるファイルを洗い出す ログを出力するモジュール 実行 ログのサンプル いざ、大量削除 Perlファイルをgrepする リリース単位を細かくする 結果 工数 実績 まとめ 合わせて読みたい 解析の対象と抱える課題 ECナビを長年支える、Perlで書かれたバッチが対象です。コードはGitLabのリポジトリで管理されていて、規模をまとめるとこんな感じです。 ファイルの数 バッチ関連全体 : 3,315 うち、Perlファイル(.pm, .pl) : 1,111 P
単純作業を自動化して人類の無駄な時間をなくそう - 竹迫の近況報告
このエントリーは Recruit Engineers Advent Calendar の 5日目の記事です。 www.adventar.org 目次 自己紹介 時間は有限、大切に使おう sshで30台のサーバをセットアップする expect コマンドを使おう StrictHostKeyChecking no chpasswdでパスワード設定 chmod u+sとSUID seqコマンドとbash拡張構文{1..9} Excel業務を自動化しよう Win32::GuiTest でキーボード入力を自動化 MouseMoveAbsPix でマウス操作を自動化 マインスイーパーの自動化 BadUSBによるキーボード入力の自動化 まとめ 1. 自己紹介 @takesakoです。最近、まつもとゆきひろさんと岸川克己さんが技術フェローと技術顧問に就任した会社で専門役員を担当しています。 会社ではホールデ
未だ現役なPerl5.8 ＆ MySQL4.0とどう戦うか？ ライブドアブログが生んだカオスとレガシーからの脱却
未だ現役なPerl5.8 ＆ MySQL4.0とどう戦うか？ ライブドアブログが生んだカオスとレガシーからの脱却 Inside of Blog 15年熟成されたサービスの光と影、カオスとレガシーへの挑戦 #2/2 2019年11月20、21日の2日間、LINE株式会社が主催するエンジニア向け技術カンファレンス「LINE DEVELOPER DAY 2019」が開催されました。1日目は「Engineering」をテーマに、LINEの技術の深堀りを、2日目は「Production」をテーマに、Web開発技術やUI/UX、プロジェクトマネジメントなど、より実践的な内容についてたくさんのプレゼンテーションが行われました。「Inside of Blog; 15年熟成されたサービスの光と影、カオスとレガシーへの挑戦」に登壇したのはLINE 開発Bチームの大森貴博氏。後半パートとなる今回は、現役で稼
10年でどう変わった? はてなブックマークでのPerlの使い方
計算ファースト vs. 型ファースト / Computation First vs. Type First
Go のバイナリを Perl スクリプトとしても扱う - アルパカ三銃士
環境は macOS 10.14.4 で go1.12.5 です。 まずは次のコードを読んでみましょう package main import ( "fmt" "io/ioutil" ) const script = ` #!perl print "Hello, Perl World!!"; __END__ ` func init() { ioutil.Discard.Write([]byte(script)) } func main() { fmt.Println("This is Go world!!") } これをビルドして実行してみます go build -o main main.go こうすると main という実行用のバイナリができますね。 通常通り実行してみましょう。 $ ./main This is Go world!! 今度は Perl で実行してみましょう $ perl
Regexp::Assemble - Assemble multiple Regular Expressions into a single RE - metacpan.org
NAME Regexp::Assemble - Assemble multiple Regular Expressions into a single RE SYNOPSIS use Regexp::Assemble; my $ra = Regexp::Assemble->new; $ra->add( 'ab+c' ); $ra->add( 'ab+-' ); $ra->add( 'a\w\d+' ); $ra->add( 'a\d+' ); print $ra->re; # prints a(?:\w?\d+|b+[-c]) DESCRIPTION Regexp::Assemble takes an arbitrary number of regular expressions and assembles them into a single regular expression (or
LTSVログをパースする最強のワンライナー集 · DQNEO日記
最初に結論 これ最強 cat accesslog | perl -F'\t' -nale '%h=map{split/:/,$_,2}@F;print"$h{time}\t$h{ua}"' なぜPerlワンライナーなのか？ LTSVログを解析するには、Perlのワンライナーに限る。 なぜならPerlはほとんどのサーバにデフォルトで入ってるから。 Perl 5.8で動くワンライナーを覚えておけばどの環境でも使える。 「何にも依存しない」 これ最強。 基本中のキホン まずは基本形です。 これだけは絶対覚えてしまいましょう。 perl -nale 'print' % cat access_log | perl -nale 'print ' time:[22/Feb/2014:15:13:07 +0900] host:10.10.200.102 ident:- user:- method:GET
環境に依存しないワンライナーを書くならsedよりperlの方がいい - Qiita
まえがき sedで環境に依存しないワンライナーを書きたかったけど、BSDとGNUの実装で微妙に挙動が違うせいで難しかった。で、いっそのことperlで書いた方がいいのでは、という結論になった。ぐぐったらperlのワンライナーの書き方出てくるけど何でそう動くのか分からなかったのでそれも調べた。そこらへんについてまとめる。 GNU sedとBSD sedの違い、perlからsedへの乗り換え方簡易版、その詳細、という感じでまとめたので知りたいところからどうぞ。 sedにはGNU sedとBSD sedがある sedで とかしようとすると実行する環境によって失敗する。 sedにはBSDの実装とGNUの実装があるからだ。-EはBSD sedで拡張正規表現を使うオプションで、GNU sedで拡張正規表現を使いたければ-rを使う必要がある。 じゃあ拡張正規表現を使わずにデフォルトの正規表現を使えばいいの
TRIE-Optimized Regexp : 404 Blog Not Found
2005年09月11日07:06 カテゴリLightweight Languages TRIE-Optimized Regexp これをPerlで直接使えたらうれしいよね＞おおる きまぐれ日記: はてなキーワードを高速に付与 そこで、はてなキーワードを TRIE を使って付与するプログラムを作ってみました。 というわけで、やってみました。 最初はDartsのXSを作ろうとしたのだけど、どうもtemplateばりばりのC++コードとXSは相性が悪い。でもTrieを作るだけなら、Perlでもそこそこ出来るし、実際Regexp::OptimizerやRegexp::Assembleのようなモジュールもある。ただこれらはTrie以外のOptimizeもしてしまうので、ちょっと重たいというわけで、mk_trie_regexp.plというScriptをサクっと書いてみました。 使い方は簡単。/usr/
リファレンスの循環参照によるメモリリークを Scalar::Util::weaken で解決する - naoyaのはてなダイアリー
Perl のガベージコレクション(GC)の実装にはリファレンスカウント方式のGCが採用されています。リファレンスカウントというのは、あるデータ構造やオブジェクトがあった際、それらを参照するリファレンスの数を内部で換算して、その数が 0 になったらメモリから実体を破棄するという仕組みです。(JavaやRubyなどの他言語のGC方式については 'Perl、Java、Ruby における GC アルゴリズム' あたりを。) リファレンスカウント式GCは、仕組みがシンプルで分かりやすい利点を持つ反面、相互参照が原因で参照を切ることができずにオブジェクトが解放されず、結果メモリリークを引き起す場合があるという欠点も持っています。 このメモリリークはバッチスクリプトや CGI のように、一度の実行で Perl のプロセスそのものが終了するプログラムではあまり問題になりませんが、デーモンプログラム、あるい
Big Sky :: Perl6 の無限リストとダイナミックバインディングが最強すぎる
Perl には x 演算子があり、x 3 といった具合に繰り返し回数を付ける事で連続した文字列を簡単に作り出すことが出来る。 say 1 x 3; # 111 say "foo" x 3; # foofoofoo これは Perl5 でもお馴染み。しかし Perl6 の Range は凄い。 say 1 xx 3; # (1 1 1) say "foo" xx 3; # (foo foo foo) 連続した配列要素が作り出せる。それどころか無限リストが作り出せる。 say 1 xx *; # (...) say "foo" xx *; # (...) もちろん無限数列も作れる。 (1 .. *)[^10].perl.say; # (1, 2, 3, 4, 5, 6, 7, 8, 9, 10) fibonacci 数列もこんなに簡単。 (1, 1, *+* ...^ *)[^100].per
Shipped full featured Plack clone for Perl6 named `Crust` - tokuhirom's blog
Hi, i'm tokuhirom, one of the core developer of Plack. During the past few weeks, I've been hack the Perl6. This is to celebrate the Christmas in the best mood. I'm a minimalist, and I love a software built on clean and well tested parts. I mean tokuhirom loves CPAN. To write the practical web applications in Perl6, it has released some of the library. HTTP::Server::Tiny - IO::Socket::Async based
Yet Another Perl Cooking - YAPC::Asia Tokyo 2015
Perl (あるいは他の言語) を用いて料理・調理を自動化するという話をします． 料理は時間と手間がかかる営みですから，21世紀に生活する我々はこれを可能な限り自動化していく必要があります． 話す内容 2015年はプログラミング料理界にとって本当にエポックメーキングな年となっています．私は大変興奮しています！ 皆さんは nomikuというデバイスをご存知でしょうか．nomiku は簡単に言うと，鍋に装着して使う料理器具で鍋の中の温度を一定に保ってくれるというデバイスとなっています．これにより，人間が火加減を逐一確かめて調節するという手間を省き，機械に調理を任せることが可能となります． そして2015年，nomiku は更なる進化を遂げました．Wi-Fi を介して操作できる nomiku WiFi が登場したのです． このモデルは nomiku を遠隔地から操作するという機能を提供しているだ
Perlはもう古い、これからはDocker - ゆううきブログ
本記事の内容はWEB+DB Vol.88 Perl Hackers Hub 第34回 に「DockerによるPerlのWebアプリケーション開発」という記事にまとめなおしていますのでそちらをご覧ください。 「Perl Hackers Hub」では、「DockerによるPerlのWebアプリケーション開発」と題して@y_uuk1さんにご執筆いただきました！Dockerの基本的な考え方からPerlのWebアプリ向けのDockerfileの書き方まで、実践的な内容です！ #wdpress— WEB+DB PRESS編集部 (@wdpress) 2015, 8月 22 この記事は Perl Advent Calendar 2014 の19日目の記事です。 Plack/Carton で構築したモダンな Perl の Web アプリケーションの開発環境を Docker 化するための試行錯誤を紹介します
Carmel 使ってみる - skaji's blog
https://github.com/miyagawa/Carmel を使ってみる！ 注：miyagawa さんに教えていただき cpanm インストール方法、例ともに修正しました https://gist.github.com/shoichikaji/5a951ab796ed0e596c47/revisions まず copy-build-artifacts ブランチの cpanm をインストール $ cpanm File::Copy::Recursive # 依存してるのではじめに入れておく $ cpanm git://github.com/miyagawa/cpanminus.git@copy-build-artifacts Carmel をインストール $ cpanm git://github.com/miyagawa/Carmel.git Plack のバージョン1.0033,
Perlモジュールが入っているか調べる2つの簡単なやり方 - あれだよ、あれ……なんだっけ？
Perlのモジュールがインストールされているかを調べる方法の中でも初心者向けのものを書き残しておきます。 Perlでスクリプトを書いているとよく自分が使おうとしているモジュールがインストールされているのか調べたくなる時がやってきます。 僕の知人にも最近Perlを使い始めた人が居まして、彼から今日まさにこのことについて質問されたので、彼がまた同じことを聞いてきた時に・或いは彼以外の人間がPerlを使い始めた時に答えやすいようにここに記録を残しておきたいと思います。 さて、本題に入りましょう。Perlのモジュールがインストールされているか調べる方法は幾つかありますが、ここでは2つ挙げておきます。 忙しい人向け インストールされているモジュールの.pmファイルのパスを調べたい人向け この2つですね。他にも色々と手はありますが、まあ初心者向けの比較的簡単な手ということでひとつ。そうそう、今回の方法
Yokohama.pm #12 でGoからPerlを使うというマニアックな話をしました
今年も残すところあと1ヶ月ですね! さて、先週金曜日にYokohama.pm #12がありました。会場がうちの会社だったのでじゃあ誰かしゃべるよね〜と思って眺めてたのですが、なんかみんなもじもじしてて誰もしゃべりそうになかったので、とりあえずネタ枠としてGoからPerlを呼ぶという一発ネタでもやるかねぇということを考え始めました。 ちょうど最近GoでC/C++のライブラリを呼ぶのを仕事でやっていて、既にcgo周りの知見はだいぶたまっていたので、PerlをCから呼ぶところさえ理解すればたぶんできるなーということでperldocのperlembedを読みながらCのサンプルを動かして、それをGoに移植したら30分くらいで動いたのでじゃあこれで一ネタやろうかなということで15分でエントリーしました。 発表に至ったなりゆきはそんな感じでした。内容はスライドをご参照ください。 表紙の背景の写真はうちの
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
How we replaced a 10-year-old Perl product using Scala
GitHub - hatena/Hatena-Intern-Exercise2015: はてなインターン参加者向けの事前課題です
GitHub - miyagawa/Carmel: CPAN Artifact Repository Manager
