#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   D ' U N   C H I F F R E   P A R   L I G N E   D ' U N   F I C H I E R   N U M E R I Q U E  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#              $xrp/UnChiffreParLigne.01$vv$Z     <FichierA>                                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrp/UnChiffreParLigne.01$vv$Z' :                                                                                #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240620082417).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       FichierA=$1

if        (-e $FichierA) then
          set       SePaRaTeUr="@"

          $CA       $FichierA                                                                                                     |     \
          $SE       -e "s/^  *//"                                                                                                       \
                    -e "s/\.//"                                                                                                         \
                    -e 's/\\$//'                                                                                                  |     \
          $GRE      -v '^ *$'                                                                                                     |     \
          $SE       -e "s/ //g" -e "s/\(.\)/\1$SePaRaTeUr/g"                                                                      |     \
          $R        "$SePaRaTeUr" "$K_NL"                                                                                         |     \
          $GRE      -v '^ *$'
else
          EROR      "Le fichier '$FichierA' n'existe pas."
endif