fork download
copy 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. #my $filename = "akre66_test2.txt";
  6. #my $FILE;
  7. # 
  8. #open($FILE,$filename) or die("Fichier $filename introuvable");                                                                                                                                                     
  9. #my @contenu = <$FILE>;
  10. #close($FILE);
  11.  
  12. my @contenu = <DATA>;
  13.  
  14. $_ = join("", @contenu);
  15. if (/.*\s+DONNEES\sGENERALES.*EPUISEMENT\sMOYEN\.+:\s+([^\s]+)
  16.     .*PUISSANCE\sRELATIVE\.+:\s+([^\s]+)
  17.     .*BORE\sSOLUBLE\.+:\s+([^\s]+)
  18.     .*G1\s+\.+\s+([^\s]+)
  19.     .*G2\s+\.+\s+([^\s]+)
  20.     .*N1\s+\.+\s+([^\s]+)
  21.     .*N2\s+\.+\s+([^\s]+)
  22.     .*R\s+\.+\s+([^\s]+)
  23.     .*\s+COMMENTAIRES\sLIBRES/xs) {
  24.     print "$1\n";
  25.     print "$2\n";
  26.     print "$3\n";
  27.     print "$4\n";
  28.     print "$5\n";
  29.     print "$6\n";
  30.     print "$7\n";
  31.     print "$8\n";
  32. } else {
  33.     print "Erreur de format du fichier\n";
  34. }
  35. __END__
  36.  
  37.  
  38.              DONNEES GENERALES
  39.              -----------------
  40.  
  41.  
  42.  CENTRALE....................:  XXX
  43.  TRANCHE.....................:       X         
  44.  CYCLE.......................:      X
  45.  EPUISEMENT MOYEN............:       AAAA Mwj/T
  46.  PUISSANCE NOMINALE..........:    XXX
  47.  PUISSANCE RELATIVE..........:     AAAA
  48.  BORE SOLUBLE................:     AAAA  
  49.  MODE DE PILOTAGE............:  X
  50.  ENFONCEMENT DES GRAPPES (pas extraits)
  51.                G1  ..........     AAA
  52.                G2  ..........     AAAA
  53.                N1  ..........    AAAA
  54.                N2  ..........     AAAA
  55.                R   ..........     AAAA
  56.  
  57.  
  58.  
  59.  
  60.              COMMENTAIRES LIBRES
  61.              -------------------
  62.  
  63. Truc, machin, bidule PUISSANCE RELATIVE, N1, R.
Success #stdin #stdout 0s 3744KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
AAAA
AAAA
AAAA
AAA
AAAA
AAAA
AAAA
AAAA
https://ideone.com/xZQMxp
language:
Perl (perl 5.28.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!