Discussion :

[dxdiag]

Bonjour,

Je suis sous FreeBSD.
Je programme en Perl.

J'utilise la commande: diff de Perl.

Code :

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

1
2
 
my $diff = diff  "file1", "file2"

Je voudrais imprimer le contenue de $diff ligne par ligne afin d'appliquer une tabulation.

Le probleme est que si je fait:

Code :

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

1
2
 
print "\t\t".$diff."\n"

Et bien seul la premiere ligne est tabule.

Merci de votre aide,
Cordialement.

[Jasmine80]

Je voudrais imprimer le contenue de $diff ligne par ligne afin d'appliquer une tabulation.

Le probleme est que si je fait:

Code :

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

1
2
 
print "\t\t".$diff."\n"

Et bien seul la premiere ligne est tabule.

As-tu trouvé une solution?

... apparemment personne n'a de réponse.
Je ne connais pas la commande diff mais si $diff contient l'ensemble de tes lignes, ne pourrais-tu pas les récupérer via un split dans un tableau? Ensuite, la mise en forme devient très simple.

Code :

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

1
2
my @lines = split (/\n/, $diff);
map{print "\t\t$_\n";} @lines;

J'ai utilisé \n mais à toi de voir sur quel élément effectuer le split.

[Invité]

Et ça, ça t'irait ?

Code :

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

1
2
3
4
5
6
7
my $file1 = "toto";
my $file2 = "titi";
my @lines = `diff  $file1, $file2`;
 
foreach (@lines) {
        print "$_\t";
}