More than 5 years have passed since last update.

Perlワンライナー

Last updated at 2015-03-11Posted at 2015-03-11

仕事でたまに使うワンライナー。
シェルスクリプトの中から、サクッと使えて便利！

Base64エンコード

perl -MMIME::Base64 -le 'print encode_base64(`cat $ARGV[0]`, " ")' /tmp/FILE > /tmp/FILE.base64

Base64デコード

perl -MMIME::Base64 -le 'print decode_base64(`cat $ARGV[0]`)' /tmp/FILE.base64

マイクロ秒スリープ

perl -e 'use Time::HiRes qw(usleep); my $microseconds = 1500000; usleep( $microseconds);'