現在時刻表示

時刻表示なう。

my ($seconds, $minutes, $hours, $day, $month, $year) = localtime;
$year += 1900;
$month += 1;
print sprintf "%4d/%02d/%02d %02d:%02d:%02dなう\n", $year, $month, $day, $hours, $minutes, $seconds;

実行結果
2016/11/09 11:38:56なう

カウントダウン

JavaScriptでカウントダウンしてみるtest。

<script>
//今日の日付データを作成する
var today = new Date();
var year = today.getFullYear();

//来年1月1日の日付データを作成する
var nextYear = year+1;
var newYear= new Date(nextYear+"/1/1");

//来年1月1日－今日のミリ秒を計算し、日にちに換算する
var day = Math.ceil((newYear-today)/(60*60*24*1000));

//表示
document.write("来年まであと"+day+"日です。");
</script>

プロセスID取得

プロセスIDを取得する。

print $$."\n";

PerlでプロセスIDを使うことなどあるのだろうか。

Perlのバージョン

Perlのバージョンを調べる。

$perl -v

Pythonは何故かオプションが大文字。

$python -V

ググレカス

ググレカス
http://ja.uncyclopedia.info/wiki/%E3%82%B0%E3%82%B0%E3%83%AC%E3%82%AB%E3%82%B9

Perlのコンパイル

Perlのコンパイル。オプションの意味はググレカスということで。

$perl -cw test.pl

SSHのアクセス拒否

/etc/hosts.denyに以下の行を追加する。

$vi /etc/hosts.deny
sshd : all

$^O

OS名を取得する。

print $^O."\n";