DEVOIR N°1

                                                         bar_green.gif

          Accueil                                     projet 6

 

                                                                                   Projet 2: Selectionner des lignes dans un fichier

 

Ecrire un programme qui prend en entrée un motif et un fichier puis sélectionne dans le fichier les lignes qui contiennent le motif. Ecriture du résultat à l'écran puis dans un fichier de sortie.

 

Voici le texte avec lequel nous avons travaillé : Demain des l'aube

 

                                                                                                                                                              

Details du programme:                                                                                                       Programme:    voir résultats

 

 

 

 

On commence par afficher des instructions que l'utilisateur devra suivrent. Vu    qu'il                                                                                                    

est demandé d'écrire un programme qui lit en entrée un fichier, on demande à l'utilisateur

de rentrer le fichier sur lequel il desire que le programme s'éxécute.On lui demande

ensuite de nommer le fichier dans lequel vont s'afficher les résultats.C'est au tour de la

saisie du motif à rechercher. Une boucle "while" est utilisé pour dire que lors de la lecture

du texte lignes par lignes, si le mot saisi par l'utilisateur se trouve dans une ligne alors, afficher

le résultat à l'écran et l'afficher également dans le fichier de sortie crée.On ferme le progra-

mme et les fichiers sur lesquels ont travail.

Fin du programme.

 

 

 

 

                                            

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 !#usr/bin/perl

      #instructions que l'utilisateur doit suivre

       print "\n\tSaisissez un nom de fichier d'entree:\n";

              $input=<STDIN>;

              chomp($input);

      #dans le cas ou la saisie du fichier d'entrée sera#it mal effectuée

     open (FILE, $input)||die "Impossible d'ouvrir le fichier! Mauvaise saisie du     fichier de travail.\n\tVeuillez recommencer!!!\n";

       #introduit le fichier de sorti (output)

       print "\t Saisissez le nom du fichier de sortie:\n(soit dans lequel vous voulez      que vos resultats s'affiche)\n";

            $output=<STDIN>;

            chomp($output);

       open(SORTIE, ">$output");

       open (Fichier,"$input");

       #demande saisie du motif dans le cadre tjs d une

       # lecture du fichier lignes par lignes

       print "\tSaisissez un mot:\n";

               $mot=<STDIN>;

          chomp($mot);

             chomp($nb);

          while ($ligne=<Fichier>){

           chomp($ligne);

          #si le mot saisi apparait lors du parcours du fichier

                  if ($ligne=~/$mot/) {

                 $mot++;

         #va afficher le résultat a l'ecran puis dans le fichier de sorti crée

        print"\n Resultat a l'ecran:\n";

        print "\t$ligne\n";

        print Fichier "$ligne $mot\n";

                   }

         }

       #ferme le programme

      exit;

          #ferme les fichiers sur lesquels on a travaille

        close(Fichier);

            close(SORTIE);