Untitled

#!/usr/bin/env perl

use Weborama::Standard version => 1;

open my $fh, '<', $ARGV[0] or die "$!";

my $tpl = '
    <magasin>
        <id>___ID___</id>
        <adresse>___ADDRESSE___</adresse>
        <zip>___CP___</zip>
        <ville>___VILLE___</ville>
    </magasin>
';

use Encode;

my $result = '';

while (my $line = <$fh> ) {
    chomp $line;

    $line = Encode::decode('UTF-8', $line);
    my @tokens = split /,/, $line;
    my ($id, $ad1, $ad2, $zip, $ville) = @tokens;

    my $addresse = $ad1.' '.$ad2;
    $addresse =~ s/"//g;
    $ville =~ s/"//g;

    my $xml = $tpl;
    $xml =~ s/___ID___/$id/;
    $xml =~ s/___ADDRESSE___/$addresse/;
    $xml =~ s/___CP___/$zip/;
    $xml =~ s/___VILLE___/$ville/;

    $result .= $xml."\n";


}

say "<root>
    <status>OK</status>
    $result
    </root>";