#!/usr/bin/perl
my $path = "/web/blog/".shift()."/";
$blog[$_]++ for map { /(\d+)\.txt/&&$1} <$path/*txt>; 
system("vim",$path.@blog.".txt");