たまに使うのでメモ。 #!/usr/bin/perl # read csv file to array in array use strict; use warnings; use Fatal qw/ open /; my $csv_file = "./test.csv"; my @csv = &readCsvFile($csv_file); print $csv[0][0]."\n"; print $csv[1][1]."\n"; print $csv…

たまに使うのでメモ。 sub getSysdate { @da = localtime(time); $date = sprintf("%04d%02d%02d%02d%02d%02d", $da[5]+1900, $da[4]+1, $da[3], $da[2], $da[1], $da[0]); return $date; }

Geekなぺーじ : ドメイン用DNSの発見（Net::DNS） （http://www.geekpage.jp/programming/perl-network/net-dns-ns.php） 面白いと思ったので、自分でも試してみました。コマンドラインで引数にドメインを渡すと、IPアドレスとNSレコードをコンソール出力し…