単純作業を自動化して人類の無駄な時間をなくそう - 竹迫の近況報告
このエントリーは 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です。最近、まつもとゆきひろさんと岸川克己さんが技術フェローと技術顧問に就任した会社で専門役員を担当しています。 会社ではホールデ
テストにコケる度にシーザーが死ぬ仕組みを作りました - その手の平は尻もつかめるさ
タイトルは釣りです。 App::WithSound をリリース致しました。 https://github.com/moznion/App--WithSound https://metacpan.org/module/MOZNION/App-WithSound-v1.0.2/with-sound (2013.03.06 追記) App::WithSound はv1.1.0 にバージョンアップしました。 コマンドの成功・失敗時だけでなく、コマンドの実行中にも音声を再生出来るようになっています。 https://metacpan.org/module/MOZNION/App-WithSound-v1.1.0/with-sound (追記ここまで) App::WithSound? コマンドが成功するか失敗するかによって、その結果に対応した音声が流れるアプリケーションです。 まず、このモジュールはm
俺のワンライナー改め CLI ツール群のステマ
このエントリーは Perl 5 Advent Calender 2015 の3日目の記事です。 まだワンライナーで消耗してるの？ Perl で書くワンライナーが便利というのはもうさんざん語られている気がするし自明だろうて、このたびはコマンドラインインターフェースで便利なツール群をドヤ顔でステマしたいと思います。怠惰ゆえ、もうワンライナー書くのも面倒になったらコマンドにしてしまえこのやろう、というノリですぜ、おとっつあん。 手前みそですが、できる限り便利そうなやつをピックアップするので、ひとつお付き合いください。ペコリ。 swoop まずは Statistics::Swoop をインストールすると付いてくる swoop コマンド。これは、ログのあるカラムの合計、最大、最小、レンジ、平均をさくっと算出してくれるコマンド。 $ cat log_file | swoop -f3 -d, .----
同じサーバ上の他のターミナルウィンドウで何をやっているのかを見れる『ttylog』コマンド | 俺的備忘録 〜なんかいろいろ〜
時折、ちょっとした好奇心でサーバ上の他のユーザーがどんな操作をしているのか、見てみたいと思うときもあるだろう。 そんなときは、perlスクリプト『ttylog』を用いると良いだろう。 それでは、実際にインストールし使ってみる事にしよう。検証には、CentOS 7を用いる。 1.インストール まずは、ttylogを利用する前提となるPerl 5などのパッケージをインストールする。 yum install perl perl-Time-HiRes perl-ExtUtils-MakeMaker strace インストール完了後、git cloneでttylogのファイルを取得、makeする。 git clone https://github.com/gitpan/ttylog cd ttylog perl Makefile.PL make make test make install これで、
ls のソースを読んでプログラマになりました - ablog
タイトルは釣りですw*1 とあるテキストファイルを加工してCSVファイルを出力する Perl スクリプトがあり、ディレクトリ内のファイルをリストアップしてCSVファイルに出力しているのだが、なぜファイル名でソートされていないのか聞かれたので調べてみた。 その Perl スクリプトは File::DosGlob::glob でファイルリストを取得していたので、 yazekats% mkdir tmp yazekats% cd tmp yazekats% ls yazekats% touch 3 yazekats% touch 2 yazekats% touch 1 yazekats% ls 1 2 3 yazekats% perl -MFile::DosGlob -e 'map{print qq/$_\n/} File::DosGlob::glob(q/*/)'; 1 3 2 試してみると確
色付き tail: uyota 匠の一手
特定のキーワードが tail で流れていて、目視では見つけられない。調べてみたら、以下の方法があった。どうもあちらこちらでミラーされていて元はどこだか判らない。 tail -f file | perl -pe 's/keyword/\e[1;31;43m$&\e[0m/g' This only works on ANSI terminals, but all others have become virtually extinct. \e[...m ist the ANSI escape sequence SGR "select graphic rendition". The "..." can be replaced by some semicolon-separated integers, with the meaning: 0 : all attributes off 1 : bol
Unix Programming with Perl 2 (my slides at YAPC::Asia 2011)
No matter if some one searches for his required thing, therefore he/she desires to be available that in detail, so that thing is maintained over here. http://forsan-elnil.com/arabic/?id=1 شركة نقل اثاث بالدمام http://forsan-elnil.com/arabic/index.php?id=2 شركة نقل اثاث بالجبيل http://forsan-elnil.com/arabic/index.php?id=3 شركة نقل اثاث بالخبر http://forsan-elnil.com/arabic/index.php?id=5 شركة نقل
GNU Parallelがすごすぎて生きるのがつらい
皆さん今日もたくさんのサーバを相手にされていることかと思いますが、いくつかのサーバにアクセスして 1 秒間の統計情報(例えばvmstat 1 2)を集めてパッと表示したい時ってどうやってますかね？shell script を学びはじめたばっかりの僕はこんな感じで書いてました。 $ for i in host1 host2 host3; do ssh $i "vmstat 1 2 | tail -1"; done 0 0 0 329004 210836 14275360 0 0 0 2424 1410 1828 0 0 100 0 0 0 0 0 3716112 587704 25921684 0 0 0 488 1643 2026 0 0 100 0 0 1 0 0 555440 265560 14015548 0 0 0 4204 1534 2392 1 0 99 0 0 vmstatと
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Unix Programming with Perl