From 33bdce126d5133bb3355745f84fcd25051dc73f5 Mon Sep 17 00:00:00 2001
From: rick <rick@gnous.eu>
Date: Fri, 4 Jun 2021 10:55:59 +0200
Subject: [PATCH] =?UTF-8?q?Ajout=20deuxi=C3=A8me=20partie?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 jour08/jour8.pl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/jour08/jour8.pl b/jour08/jour8.pl
index f2bd180..638af8c 100644
--- a/jour08/jour8.pl
+++ b/jour08/jour8.pl
@@ -1,3 +1,4 @@
+#!usr/bin/perl
 use strict;
 use warnings;
 
@@ -15,6 +16,19 @@ while (<FH>) {
     $total = $total + length($_) - length($tmp);
 }
 
-close(FH);
+print "Le total est : $total.\n";
+seek FH, 0, 0;
+$total = 0;
+print "Traitement de la deuxième partie…\n";
+
+while (<FH>) {
+    $tmp = $_;
+    $tmp =~ s/\\/\\\\/ig;
+    $tmp =~ s/"/\\"/ig;
+    chomp($tmp);
+    chomp($_);
+    $total = $total + length($tmp) + 2 - length($_);
+}
 
 print "Le total est : $total.\n";
+close(FH);