Discussion :

[yanouil]

Bonojur,

Je voudrais pourvoir :
1- copier la 3ième ligne d'un fichier .txt et la recopier dans un fichier resultat.txt
2- Faire cela pour l'ensemble des fichier .txt se trouvant dans le dossier

Je sais que c'est possible avec perl, mais je sais pas comment, je suis plus que débutant.

Je sais juste ouvrir un seul fichier txt, puis copier la premiere ligne :

cf :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
open(tmp1, "seq1.txt");
$nom1=<tmp1>;
open(tmp3, ">sequence.txt");
$nom3="$nom1"."\n";
print tmp3 "$nom3";
close(tmp1);
close(tmp3);

Ce que j'arrive pas, c'est a récuperer la ligne 3 et de faire une automatisation (boucle) pour l'ensemble d'un dossier...

Vous pouvez m'aider et me donner des pistes? Merci

[yanouil]

pour la maniere recurcive, j'ai trouvé çà :

pour lister tous les fichiers dans un repertoire de manieres recursives
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#
#Lit un repertoire et retourne dans un tableau tous les fichiers 
#du repertoires et de ses sous repertoires.
sub lister_fichiers {
    my $repertoire = shift;
    opendir (REP, $repertoire) or 
      croak "impossible d'ouvrir le repertoire $repertoire\n";
    my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
    closedir (REP);
 
    my @fichiers = ();
    foreach my $nom (@file_rep) {
        if ( -f "$repertoire/$nom") {
            push (@fichiers, "$repertoire/$nom");  
        }
        elsif ( -d "$repertoire/$nom") {
            push (@fichiers, &lister_fichiers("$repertoire/$nom"));
        }
    }
    return @fichiers;
}

pour l'appeler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my @mes_fichiers = lister_fichiers("nom_de_ton_repertoire");

Ensuite j'essaye donc ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!/usr/bin/perl -w
#
#Lit un repertoire et retourne dans un tableau tous les fichiers 
#du repertoires et de ses sous repertoires.
sub lister_fichiers {
    my $repertoire = shift;
    opendir (REP, $repertoire) or 
      croak "impossible d'ouvrir le repertoire $repertoire\n";
    my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
    closedir (REP);
 
    my @fichiers = ();
    foreach my $nom (@file_rep) {
        if ( -f "$repertoire/$nom") {
            push (@fichiers, "$repertoire/$nom");  
        }
        elsif ( -d "$repertoire/$nom") {
            push (@fichiers, &lister_fichiers("$repertoire/$nom"));
        }
    }
    return @fichiers;
}
my @mes_fichiers = lister_fichiers("/Perl/YC");
#mes fichier sont pour l'instant dans le dossier c:/Perl/YC
 
 
 
 
foreach my $file (@mes_fichiers) {
open(tmp1, @mes_fichiers);
$nom1=<tmp1>;
open(tmp3, ">sequence.txt");
$nom3="$nom1"."\n";
print tmp3 "$nom3";
}
close(tmp1);
close(tmp3);

Mais j'ai plein d'erreur cf :

C:\Perl\YC>test.pl
Unquoted string "croak" may clash with future reserved word at C:\Perl\YC\test.p
l line 8.
String found where operator expected at C:\Perl\YC\test.pl line 8, near "croak "
impossible d'ouvrir le repertoire $repertoire\n""
(Do you need to predeclare croak?)
syntax error at C:\Perl\YC\test.pl line 8, near "croak "impossible d'ouvrir le r
epertoire $repertoire\n""
Execution of C:\Perl\YC\test.pl aborted due to compilation errors.

[djibril]

Bon il te manque déjà pas mal de notions dans l'ouverture de fichiers, etc etc.
Tu devrais lire notre FAQ et nos sources pour t'améliorer. Entre temps, je te corrige un peu ton script.

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#!/usr/bin/perl
use warnings;
use Carp;
use strict;
 
#mes fichier sont pour l'instant dans le dossier c:/Perl/YC
my @mes_fichiers = lister_fichiers("C:/Perl/YC");
 
# ouverture du fichier pour y ecrire
open(TMP3, '>', "sequence.txt") 
  or die("Impossible d'ecrire dans le fichier sequence.txt, $!");
 
foreach my $file ( @mes_fichiers ) {
  # Ouverture de mon fichier
  open( TMP1, '<', $file) or die("Impossible de lire $file, $!");
  LECTURE:
  while ( <TMP1> ) {
    if ( $. == 3 ) {
      print TMP3 $_;
      # On sort de la boucle while
      last LECTURE;
    }
  }
  close(TMP1);
}
 
close(TMP3);
 
#Lit un repertoire et retourne dans un tableau tous les fichiers 
#du repertoires et de ses sous repertoires.
sub lister_fichiers {
    my $repertoire = shift;
    opendir (REP, $repertoire) or 
      croak "impossible d'ouvrir le repertoire $repertoire\n";
    my @file_rep = grep { !/^\.\.?$/ } readdir(REP);
    closedir (REP);
 
    my @fichiers = ();
    foreach my $nom (@file_rep) {
        if ( -f "$repertoire/$nom") {
            push (@fichiers, "$repertoire/$nom");  
        }
        elsif ( -d "$repertoire/$nom") {
            push (@fichiers, &lister_fichiers("$repertoire/$nom"));
        }
    }
    return @fichiers;
}

[Philou67430]

Ca sent le oneline :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -ne 'print if $. == 2' *.txt > resultat.txt

et si l'on est sur une machine Un*x, pour un répertoire récursif :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(find . -name '*.txt' | xargs perl -ne 'print if $. == 2') > resultat.txt

[yanouil]

Merci, ça marche nikel...