戯術者の日記

foreach my $i (sort {$b <=> $a} keys %{$all_entries{$ymd}}) {
  next if ($i !~ /^\d/);
    my ($ym) = ($ymd =~ /^(\d{4}-\d\d)-\d\d/);
    my $c = $all_entries{$ymd}{$i}{h};
    $c =~ s/[\t\n]//g;
    $c =~ s/\s\s+/ /g;
    [...]
    $c = $c . "[" . join("][", @{$all_entries{$ymd}{$i}{cat}}) . "]";    # <= ココ

hmiyazaki@chaource:~/tmp$ cat test.grep 
#!/usr/bin/grep -ve #
hoge
foo
bar
hoge
hmiyazaki@chaource:~/tmp$ ./test.grep 
hoge
foo
bar
hoge