• # Sans les mains !

    Posté par (site web personnel) . En réponse au message Lire un fichier et le découper. Évalué à 3.

    #! /bin/env perl -w

    use strict;

    open(FH,"<soil_GRIJ_ldas125.corr.corr");
    while(){
    # Supprime le \n à la fin de la ligne
    chomp; # Supprime le \n à la fin de la ligne

    # Coupe aux espaces, et stocke chaque morceau
    my ($CeldaActiva, $Numcelda, $Lat, $Lon, $binfilt, $Ds) = split /\s+/;

    # Affiche
    print "CeldaActiva:\t$CeldaActiva\n";
    print "Numcelda:\t$Numcelda\n";
    print "Lat:\t\t$Lat\n";
    print "Lon:\t\t$Lon\n";
    print "binfilt:\t$binfilt\n";
    print "Ds:\t\t$Ds\n\n";
    }

    close FH;