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

##</code><code>##

<views>
    <view id="123456" name="all">
        <parameter id="123">Param</parameter>
        <parameter id="124">Param</parameter>
    </view>
    <view id="123457" name="detail">
        <parameter id="125">Param</parameter>
        <parameter id="126">Param</parameter>
        <parameter id="127">Param</parameter>
        <parameter id="128">Param</parameter>
    </view>
</views>