• # Ça devrait ressembler à ça

    Posté par . En réponse au message mettre les données d'un fichier dans un tableau. Évalué à 1.

    En supposant que chaque ligne que tu as décrit est bien une ligne, et qu'elles sont toujours dans le même ordre, ton code devrait ressembler à quelquechose comme ça:



    my @tableau = ();
    open my $fh, "< mon_fichier" or die $@;

    my $jdate;
    my $cdate;
    my $topocentric;

    while <$fh>
    {
    if(/^(JD[^,]*),/)
    { jdate = 1ドル; }
    elsif(/^(.*) TDT$/)
    { cdate = 1ドル; }
    elsif(/^Topocentric: (R\.A\..*)$/)
    {
    topocentric = 1ドル;
    unshift @tableau, ([$jdate, $cdate, $topocentric]);
    }
    }

    close $fh;


    au final, @tableau est un tableau de triplets [jdate, cdate, topocentric].

    En espérant que ça t'aide.