Perl Hackers Hub
第57回 自作ツールによる日常業務効率化―初歩的なコードだけで身近な問題を解決!(3)
最小限のコードで書く
最後に,
拡張子が異なる同名ファイルを同時に開く
現在筆者が勤めるヴェルク
本文データ
source/helps/help_how_to_contact.html
その他のデータ
source/helps/help_how_to_contact.yml
筆者はかつて編集者だった経験を活かして,
しかし,find-file-open.
です。
find-file-open.
my $query = $ARGV[0];
unless ($query) {
say "Input a query.";
exit;
}
my $result = `find . -iname "*$query*"`;
print $result;
my @result = split /\n/, $result;
say "\nTotal files: ".scalar @result;
print "OK? (y/N)\n> ";
my $answer = <STDIN>;
chomp $answer;
if ($answer eq 'y') {
for (@result) {
print `open $_`;
}
}
本ツールは,
シェルコマンドのfind
とopen
を少し使っている以外はPerlで書かれており,
- 注1)
- 詳しくは当社代表によるブログ記事
「ヘルプのバージョン管理・ 編集・ 」デプロイの仕組みを整備した話 をご覧ください。
使い方
では,help_
)fo
というエイリアスで呼び出します。
.bashrc
alias fo='perl path/to/find-file-open.pl'
実行例
$ fo help_how_to_contact
すると,y
で決定し,
./source/helps/help_how_to_contact.html
./source/helps/help_how_to_contact.yml
Total files: 2
OK? (y/N)
> y
この場合は,
このツールによって,
まとめ
本稿では,
さて,
本誌最新号をチェック!
WEB+DB PRESS Vol.128
2022年4月23日発売
B5判/160ページ
定価1,628円
(本体1,480円+税10%)
ISBN978-4-297-12789-3
- 特集1
演習で慣れる!
データベース入門
SQL操作,テーブル設計,分析用データ処理 - 特集2
クラウド構築ツールの大本命!
ゼロから学ぶTerraform - 特集3
チャットやIssueでちゃんと伝えたい!
エンジニアのための英語
バックナンバー
Perl Hackers Hub
- 第71回 ISUCONの実装から最近のPerlを学ぶ ―わかりやすく変更しやすいコードを実現する考え方と方法(2)
- 第71回 ISUCONの実装から最近のPerlを学ぶ ―わかりやすく変更しやすいコードを実現する考え方と方法(1)
- 第70回 Raisin入門 ―Rest APIマイクロフレームワークを使ってみよう!(2)
- 第70回 Raisin入門 ―Rest APIマイクロフレームワークを使ってみよう!(1)
- 第69回 表形式データを操るUNIXシェル型Perl製コマンド群 ―ビッグデータ時代の汎用的なデータ整備と分析のために(2)
- 第69回 表形式データを操るUNIXシェル型Perl製コマンド群 ―ビッグデータ時代の汎用的なデータ整備と分析のために(1)
- 第68回 他言語のライブラリをPerlに移植する(2)
- 第68回 他言語のライブラリをPerlに移植する(1)
- 第67回 GitHub APIによるチーム開発の効率化 ―基本操作から,GitHub Webhooksの活用まで(2)
- 第67回 GitHub APIによるチーム開発の効率化 ―基本操作から,GitHub Webhooksの活用まで(1)