View bs-code-detect.pl
#!/usr/bin/env perl
# bs-code-detect.pl [--daemon] [--replace [--pasteback]] [--silent]
use strict;
use warnings;
use Term::ANSIColor qw(colored);
use Getopt::Long qw(:config posix_default no_ignore_case bundling auto_help);
use constant DAEMON_INTERVAL => 3;
View mystacktrace-test.pl
#!/usr/bin/perl
use strict;
use warnings;
use Sys::Syslog;
#use Carp;
BEGIN {
( my $basename = $0 ) =~ s{.*/}{};
View 99seen.pl
#!/usr/bin/perl
use strict;
use warnings;
my %seen;
for my $i (1..9) {
for my $j (1..9) {
$seen{$i * $j}++;
View 99sum.pl
#!/usr/bin/perl
use strict;
use warnings;
my $sum = 0;
for my $i (1..9) {
for my $j (1..9) {
$sum += $i * $j;
View leapwatch.pl
#!/usr/bin/perl
use strict;
use warnings;
use Time::HiRes qw(usleep time);
while(1) {
printf "%s [%s]\n", time, scalar localtime;
# 0.1秒 = 10**5 microsecond
View qqns.pl
#!/usr/bin/perl
# xtetsuji 2016/10/26
# qqns.pl - qq.com の MX を qq.com の NS 群全部に問い合わせをして、その記録を取る
#
# 何も考えず雑に書いたのでかなり適当です
# qq.com の NS のうち複数が返答しない場合があるらしく、その調査観察を行うためのスクリプトです
use v5.10;
use strict;
use warnings;
View set-unuse-array.sh
#!/bin/bash
set -eu
declare -a ar=()
echo length ${#ar[*]}
for i in {1..10} ; do
# set -u のときは array push のときに中身が無い ${ar[*]} を参照できない
View forward.pl
#!/usr/bin/perl
use strict;
use warnings;
# こういう forward 関数(仮名)があれば
sub forward {
my $landing_cb = pop;
my @sub_returns = @_;
View syslog-manual-rotate.pl
#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor qw(colored);
my %mon_digit_of = (
qw(Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12)
);
View mhls
#!/usr/bin/perl
# mhls MH_FILENAME ...
# MH 形式のファイルを引数に与えるとファイルサイズとDateヘッダから導き出される日付を表示します
use strict;
use warnings;
use Date::Format qw(time2str);
use Date::Parse qw(str2time);
use List::Util qw(first);