use strict;
use warnings;

print "<views>\n";

my $currId;

while (<DATA>) {
    my ($viewId, $viewName, $paramId, $paramName) = split;
    
    print "    </view>\n" if defined $currId && $currId ne $viewId;
    if (! defined $currId || $viewId ne $currId) {
        print qq(    <view id="$viewId" name="$viewName">\n);
        $currId = $viewId;
    }
    
    print qq(        <parameter id="$paramId">$paramName</parameter>\n);
    
}
print "    </view>\n</views>\n";

__DATA__
123456       all          123           Param 1
123456       all          124           Param 2
123457      detail        125           Param 3
123457      detail        126           Param 4
123457      detail        127           Param 5
123457      detail        128           Param 6