2006-05-27から1日間の記事一覧
sort + uniq 機能つき。 #! /usr/bin/env perl use warnings; use strict; my @articles = (); # [id(date+author), begin, end] my @lines = <>; # collect ids and begins for my $i (0 .. $#lines) { if ( $lines[$i] =~ m/^(\d\d\d\d-\d\d-\d\d\s+.*)$/ …