Discussion :

[donmamio]

salut a tous
je voudrais écrire un script perl qui copie le contenu de plusieurs fichiers et les concaténe dans un autre fichier a créer .comme si on fait avec la commande more *.prt > fich.out
mais il faut que ca soit ligne par ligne (chaque ligne de chaque fichier est copiée telle quelle est et représente une ligne du fichier fich.out)
les fichiers source "*.prt" se trouvent dans le méme repertoire .
j'éspère que j'ai été clair dans l'explication e mon problème.
je vous remercie pour votre aide

[elvivo]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
open(DESTFILE, "> $DestPath" ;
 
foreach my $Path (@PathList)
{
    open(SRCFILE, $Path) ;
    while (<SRCFILE>)
    {
        print DESTFILE $_ ;
    }
    close(SRCFILE) ;
}

Ca devrait faire ce que tu veux.
@PathList doit contenir la liste des chemins vers tes fichiers sources.

[lami20j]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/perl
 
use warnings;
 
open ECRIRE,">fichier.out" or die "E/S : $!\n";
@ARGV = glob "*.txt" or die "Il n'y a pas des fichiers .txt\n";
 
while (<>){
    print ECRIRE;
}
close ECRIRE;

lami20j

P.S. Il faut remplacer .txt avec l'extension que tu utilises

[elvivo]

Bien vu. Je connaissais pas la fonction glob.

[donmamio]

bonjour
merci pour votre aide,
j'ai executé le script , ca marche , mais dans le fichier de sortie tous les fichiers sont concaténés directement (sans retour a la ligne)
comment y remedier a ça !!
merci por votre aide

[lami20j]

Salut,

tu ajoutes un saut de ligne "\n"

Code :

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

1
2
 
print ECRIRE "$_\n";

Tu n'ajoutes par hazard un chomp? Puisque normalement les lignes ont déjà un caractère "\n" à la fin.

lami20j