[STRING][PERL] print un string ligne par ligne

Bonjour,

Je suis sous FreeBSD.
Je programme en Perl.

J'utilise la commande: diff de Perl.

Code:

---

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:

---

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

---

Et bien seul la premiere ligne est tabule.

Merci de votre aide,
Cordialement.

Citation:

---

Envoyé par dxdiag

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

Le probleme est que si je fait:

Code:

---

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:

---

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.

Et ça, ça t'irait ?

Code:

---

1 2 3 4 5 6 7

my $file1 = "toto"; my $file2 = "titi"; my @lines = `diff $file1, $file2`;   foreach (@lines) { print "$_\t"; }

---