Copier 100 lignes d un fichier [Résolu]

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

my($c3,$c4,$m4,$m5,$n,$e1,$e2);

open F,"fic" or die "E/S : $!\n";
while(<F>){
        next if /^\s*$/;
        my @col=(split /\s+/,$_)[3,4];
        $c3+=$col[0];
        $c4+=$col[1];

        ++$n;
}
$m4=$c3/$n;
$m5=$c4/$n;
$e1=sqrt((($c3-$m4)^2) / $n);
$e2=sqrt((($c4-$m5)^2) / $n);

printf "\t\t%s\t\t%s\t\t%s\n"," Total","Moyenne","Ecart type";
printf "Colonne 4 :\t% .2f\t% .2f\t\t% .2f\n",$c3,$m4,$e1;
printf "Colonne 5 :\t% 8.2f\t% .2f\t\t% .2f\n\n",$c4,$m5,$e2;
close F;

open F,"fic" or die "E/S : $!\n";
while(<F>){
   my @col=(split /\s+/,$_)[3,4];
   s/(.*)\s+\d.*/$1 0.1/ if (abs($col[0] - $m4) < $e1)
                            ||
                            (abs($col[1] - $m5) < $e2);
   print;
}

close F;
__END__
lami20j@debian:~/trash$

lami20j@debian:~/trash$ cat fic
0 8452 2844 180.88 22.81 0.09
1 8452 3137 180.62 2.28 0.14
2 8452 3430 149.66 -1.84 0.30
3 8452 3724 180.62 -28.81 0.15
4 8760 2942 118.56 -18.09 0.12
5 8760 3235 173.00 28.62 0.12
6 8760 3528 149.59 -1.97 0.17
7 8760 3821 149.75 -1.88 0.44
8 9067 3039 157.84 2.12 0.18
9 9067 3333 134.97 -5.31 0.17
10 9067 3626 149.50 -1.75 0.48
11 9375 2844 137.22 -0.03 0.13
12 9375 3137 179.19 9.19 0.14
13 9375 3430 149.38 -1.91 0.47
14 9375 3723 153.91 -19.97 0.10
15 9682 2942 125.97 26.34 0.17

lami20j@debian:~/trash$ perl cyg2.pl
                 Total          Moyenne         Ecart type
Colonne 4 :      2470.66         154.42          12.04
Colonne 5 :         9.80         0.61            0.83

0 8452 2844 180.88 22.81 0.09
1 8452 3137 180.62 2.28 0.14
2 8452 3430 149.66 -1.84 0.1
3 8452 3724 180.62 -28.81 0.15
4 8760 2942 118.56 -18.09 0.12
5 8760 3235 173.00 28.62 0.12
6 8760 3528 149.59 -1.97 0.1
7 8760 3821 149.75 -1.88 0.1
8 9067 3039 157.84 2.12 0.1
9 9067 3333 134.97 -5.31 0.17
10 9067 3626 149.50 -1.75 0.1
11 9375 2844 137.22 -0.03 0.1
12 9375 3137 179.19 9.19 0.14
13 9375 3430 149.38 -1.91 0.1
14 9375 3723 153.91 -19.97 0.1
15 9682 2942 125.97 26.34 0.17

sed -n '105,+100 p' fichier

sed -n '105,+100 w fichier_sortie' fichier_entrée

sed -n '105,+100 s/\./,/gp' fichier.txt > fichier

awk '{ sum +=$5; moy = (sum / NR) } END { printf "Total :% g \nMoyenne :% g \n",sum,moy }' fichier
Total : 182,53
Moyenne : 10,7371

find /repertoire -name 'fichier*.txt' -exec perl -ne 'print if 105 .. 205' {} \; > resultat

root@debian:~/trash# cat fic
0 8452 2844 180.88 22.81 0.09
1 8452 3137 180.62 2.28 0.14
2 8452 3430 149.66 -1.84 0.30
3 8452 3724 180.62 -28.81 0.15
4 8760 2942 118.56 -18.09 0.12
5 8760 3235 173.00 28.62 0.12
6 8760 3528 149.59 -1.97 0.17
7 8760 3821 149.75 -1.88 0.44
8 9067 3039 157.84 2.12 0.18
9 9067 3333 134.97 -5.31 0.17
10 9067 3626 149.50 -1.75 0.48
11 9375 2844 137.22 -0.03 0.13
12 9375 3137 179.19 9.19 0.14
13 9375 3430 149.38 -1.91 0.47
14 9375 3723 153.91 -19.97 0.10
15 9682 2942 125.97 26.34 0.17
root@debian:~/trash# cat cyg.pl
#!/usr/bin/perl
use strict; use warnings;

open F,"fic"
  or die "E/S : $!\n";

my ($c4,$c5,$l);
while(<F>){
  my @tmp=split /\s+/,$_;
  $c4 += $tmp[4];
  $c5 += $tmp[5];
  $l = $.;
}
printf "moyenne colonne 4 = %.2f\n",$c4 / $l;
printf "moyenne colonne 5 = %.2f\n",$c5 / $l;
__END__
root@debian:~/trash# perl cyg.pl
moyenne colonne 4 = 0.61
moyenne colonne 5 = 0.21

{
sum1 +=$4; moy1 = (sum1 / NR)
sum2 +=$5; moy2 = (sum2 / NR)
}
{
ecart1 = (sqrt(((sum1-moy1)^2)/NR))
ecart2 = (sqrt(((sum2-moy2)^2)/NR))
}

END {
printf "\t\t%s\t\t%s\t\t%s\n"," Total","Moyenne","Ecart type"
printf "Colonne 4 :\t% .2f\t% .2f\t\t% .2f\n",sum1,moy1,ecart1
printf "Colonne 5 :\t% 8.2f\t% .2f\t\t% .2f\n",sum2,moy2,ecart2
}

awk -f script.awk fichier_&_traiter

cat -A fichier_a_traiter

sed -n '$=' fichier_a_traiter