Conversion de fichier en shell

[jp@MDK shm]$ cat fich.txt

0;Y;N;;
0;N;N;10;
0;N;N;11;
1;Y;N;;

[jp@MDK shm]$ cat script.sh

#!/bin/bash

for i in $(cat fich.txt)
do
        echo "$i" |\
        awk -F";" '{ printf \
        "%s\042%s\042\
        %s\042%s\042\
        %s\042%s\042\
        %s\042%s\042%s\n",\
        "(Colonne1:",$1,\
        "Colonne2:",$2,\
        "Colonne3:",$3,\
        "Colonne4:",$4,")" }'
done

[jp@MDK shm]$ sh script.sh

(Colonne1:"0"   Colonne2:"Y"    Colonne3:"N"    Colonne4:"")
(Colonne1:"0"   Colonne2:"N"    Colonne3:"N"    Colonne4:"10")
(Colonne1:"0"   Colonne2:"N"    Colonne3:"N"    Colonne4:"11")
(Colonne1:"1"   Colonne2:"Y"    Colonne3:"N"    Colonne4:"")

[jp@MDK shm]$ 

#!/bin/bash

file_in=$1

for line in $(cat $file_in); do
  i=1
  val=`echo $line | cut -d ";" -f$i`
  echo -ne "("
  while test "$val" != ""
  do
    echo -n "Colonne$i:\"$val\" "
    val=`echo $line | cut -d ";" -f$i`
    let i=i+1
  done
  echo ")"
done

(mando@aldur) (~) $ chmod +x plop.sh

(mando@aldur) (~) $ cat plop
plop;plop1;plop2
plap;plap1;plap2
plip;plip1;plip2

(mando@aldur) (~) $ ./plop.sh plop
(Colonne1:"plop" Colonne2:"plop" Colonne3:"plop1" Colonne4:"plop2" )
(Colonne1:"plap" Colonne2:"plap" Colonne3:"plap1" Colonne4:"plap2" )
(Colonne1:"plip" Colonne2:"plip" Colonne3:"plip1" Colonne4:"plip2" )

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

open F_LIRE,"fic.txt" or die "E/S : $!\n";
my (@v,%h,@t);

while(<F_LIRE>){
  next if /^\#/;
  push @v,[split /;/,$_];
}

for (@v){
  grep {s/(.*)/"$1"/} @$_;
  @h{grep {s/(.*)/Colonne$1:/} 1..@$_-1} = @$_;
  for(sort keys %h){push @t,$_,$h{$_}," "}
  pop @t and print "(",@t,")\n" and @t=();
}

lami20j@debian:~/trash$ cat fic.txt
#Colonne1;Colonne2;Colonne3;Colonne4;Colonne5;
0;Y;N;;Miss;
0;N;N;10;Jipicy;
0;N;N;11;Sentenza;
1;Y;N;;lami20j;
lami20j@debian:~/trash$ perl point_virgule.pl
(Colonne1:"0" Colonne2:"Y" Colonne3:"N" Colonne4:"" Colonne5:"Miss")
(Colonne1:"0" Colonne2:"N" Colonne3:"N" Colonne4:"10" Colonne5:"Jipicy")
(Colonne1:"0" Colonne2:"N" Colonne3:"N" Colonne4:"11" Colonne5:"Sentenza")
(Colonne1:"1" Colonne2:"Y" Colonne3:"N" Colonne4:"" Colonne5:"lami20j")
lami20j@debian:~/trash$

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

for (map {[split /;/,$_]} `cat fic.txt`){
  my (%h,@t); grep {s/(.*)/"$1"/} @$_;
  @h{grep {s/(.*)/Colonne$1:/} 1..@$_-1} = @$_;
  for(sort keys %h){push @t,$_,$h{$_}," "}
  pop @t and print "(",@t,")\n" and @t=();
}

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

for (map {[split /;/,$_]} `cat fic.txt`){my (%h,@t);grep {s/(.*)/"$1"/} @$_;@h{grep {s/(.*)/Colonne$1:/} 1..@$_-1} = @$_;for(sort keys %h){push @t,$_,$h{$_}," "}pop @t and print "(",@t,")\n" and @t=();}