#!/usr/bin/env perl
use strict;
use warnings;

my %n;
while (<>) {
    #warn "[$_]";
    if (m/^\s*$/) {
        printf "%-10s = %s <%s>\n", $n{U}, $n{N}, $n{E} if $n{U};
        %n = ();
    }
    next unless m/^([NEDUSW]): (.*)/;
    my ($f, $v) = ($1, $2);
    $n{$f} = $v unless $n{$f};  # doesn't do the right thing for the multiline fields
}

#!/usr/bin/env perl
# Copyright (C) 2001-2009, Parrot Foundation.
# $Id$
use strict;
use warnings;

my %n;
while (<>) {
    #warn "[$_]";
    if (m/^\s*$/) {
        printf "%-10s = %s <%s>\n", $n{U}, $n{N}, $n{E} if $n{U};
        %n = ();
    }
    next unless m/^([NEDUSW]): (.*)/;
    my ($f, $v) = ($1, $2);
    $n{$f} = $v unless $n{$f};  # doesn't do the right thing for the multiline fields
}

Add copyright notice and svn id tag.
[codingstd] Add copyright notice and svn id tag.


git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@49773 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
