Bonjour,
 
je suis novice en perl et je veux traiter un fichier texte qui a des données(données espacées) comme ceci :

 
 
Je veux récupérer dans chaque ligne,chacune des données et separer par un diese"#" et mettrer null la où la donnée est vide.
 
Ensuite le mettre dans un autre fichier.
 
Comment faire

Bonjour,
 
Quand il y a ceci : A NAAA_001 MARRT
Ça te fait combien de champs? 1, 2 ou 3?
Et donne un exemple de sortie voulue.
 
A+,

oui c'est ça A NAAA_001 MARRT => donne 3 champs
et je veux A#NAAA_001#MARRT

Je suis nul en perl, par contre Gilou vas surement pouvoir te dépanner, par contre faut poser ta question plus précisément.
Quand il dit un exemple de sortie, il parle des tes deux lignes complété avec les NULL aussi, pacque là on ne sait même pas quel est lé délimiteur entre les champs...

Au fait les deux lignes là se repetent tous de la même façon. il faut arriver à recupérer sur une ligne un groupe des 11 valeurs qui sont présents ou absents.
s'ils sont pas nlà, voilà pourquoi je dis que c'est null.

Bon la tu as une solution générique qui dépend pas du nombre de champs ni ne suppose les lignes complètes (mais qui suppose que tout les n-ième champs présents sont de même longueurs et alignés) .
 

#!/usr/bin/env perl 
use strict; 
use warnings; 
use autodie; 
use feature 'bitwise'; 
no warnings qw(experimental::bitwise); 
 
 
# On determine ou sont les champs avec un masque 
my $mask=''; 
my $input='input.txt'; 
open(my $infh, '<', $input); 
while (<$infh> ) { 
    chomp; 
    s/\S/1/g; 
    s/\s/0/g;     
    $mask = $mask |. $_ ;  
} 
my $fullen = length($mask); 
# print "$mask\n"; 
 
# On tire une expression regulière du masque 
my $pattern = $mask; 
$pattern =~ s/0/\\s/g; 
$pattern =~ s/(1+)/($1)/g; 
$pattern =~ s/1/./g; 
# print "$pattern\n"; 
my $nbgroups = () = $pattern =~ /\(/gi; 
# print "$nbgroups\n"; 
 
 
my $output='output.txt'; 
open(my $outfh, '>', $output); 
seek($infh, 0, 0); 
while (<$infh> ) { 
    chomp; 
    # on fait du padding avec des espaces pour atteindre la longueur de la plus grande ligne 
    my $pad = ' ' x ($fullen - length($_)); 
    my $line = $_ . $pad; 
    # print "|$line|\n"; 
 
    # On matche la ligne au pattern 
    my @matches = $line =~ m/^$pattern$/; 
    if (0+@matches != $nbgroups) { 
        print "Error, inconsistent line with pattern!!\nAborting process!\n"; 
        last; 
    } 
 
    # On construit la ligne de sortie et on l'écrit 
    my $result=""; 
    foreach my $match (@matches) { 
        if ($match =~ /^\s+$/) { 
            $result.="null"; 
        } 
        else { 
            $result.=$match;  
        } 
        $result.='#';  
    } 
    chop $result; 
    print $outfh "$result\n"; 
} 
close $outfh; 
close $infh;

 
Deux choses intéressantes dans ce code :
ligne 17 : $mask = $mask |. $_ ;  utilisation d'un bitwise string operator |.
ligne 43: my @matches = $line =~ m/$pattern/; On construit la liste des matched groups.
 
Un truc un peu tricky ligne 28 : my $nbgroups = () = $pattern =~ /\(/gi;
si je fais my $nbgroups = my @a = qw(aa bb cc);
c'est équivalent a  
my @a = qw(aa bb cc);
je crée une variable @a et je lui assigne 3 elts
my $nbelems = @a;  
je crée $nbelems et lui assign le nb d'elements de @a.
En faisant my $nbelems = () = qw(aa bb cc); j'évite de créer une variable @a.
 
A+,