Re: [PATCH v3] send-email: extract email-parsing code into a subroutine

From: Ævar Arnfjörð Bjarmason <avarab@gmail.com>
Date: Dec 6, 2017, 23:12 UTC
Message-ID: <CACBZZX50TAPcoqUU_oREC=4T2uXVrKSFTjR+g-pvqusaX3FURw@mail.gmail.com>
In-Reply-To: <20171206230225.18873-1-nathan.payre@etu.univ-lyon1.fr>

On Thu, Dec 7, 2017 at 12:02 AM, Nathan Payre <nathan.payre@etu.univ-lyon1.fr> wrote:

Show 12 quoted lines

> +sub parse_header_line {
> +       my $lines = shift;
> +       my $parsed_line = shift;
> +
> +       foreach (split(/\n/, $lines)) {
> +               if (/^(To|Cc|Bcc):\s*(.+)$/i) {
> +                       $parsed_line->{lc $1} = [ parse_address_line($2) ];
> +               } elsif (/^(From|Subject|Date|In-Reply-To|Message-ID|MIME-Version|Content-Type|Content-Transfer-Encoding|References):\s*(.+)\s*$/i) {
> +                       $parsed_line->{lc $1} = $2;
> +               }
> +       }
> +}

Nit: As noted in my earlier review this results in very long lines,
I'm just typing this pseudocode into an E-Mail client so not tested at
all, but this would be better:

   my $header_parsed   = join "|", qw(To Cc Bcc);
   my $header_unparsed = join "|", qw(From Subject Message-ID ...); #
line wrap this at some point
   foreach [...]
   if (/^($header_parsed)[...]
   } elsif (^/($header_unparsed)[...].