今日書いたプログラム（というか）。 #!/usr/bin/env perl #log.pl use strict; use warnings; open (FILE, 'buffer.txt'); while (my $line = <FILE>) { if ($line =~ /^(.+[^\/]..)\s(..:[^\/].+)$/) { print "$2\t$1\n"; } else { print "\t$line"; } } close (</file>…