Perl oneliner peut être un message multi-ligne en fuite ++

Question

J'essaye de reformater la date pour MySQL. Ce Perl one-liner me donne ci-dessous un message d'erreur.

Je voudrais comprendre pourquoi il donne ce message d'erreur.

echo 'Dec 2 04:08:40 EST 2012' | perl -lane ' my @abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); 
       ($amon, $mday, $hour,$tz, $year) =split('\s+',$_); 
       for (my $i = 0; $i < @abbr; $i++) { 
       next unless $abbr[$i] =~ /^$amon/; 
       $mon=$i; 
       } 
       $mon++; 
       print "$year-$mon-$mday $hour"; 

      ' 

Message d'erreur

syntax error at -e line 3, near ") {" 
    (Might be a runaway multi-line ++ string starting on line 2) 
syntax error at -e line 9, near ";}" 
Execution of -e aborted due to compilation errors. 

Answer 1

Le problème est que vous avez essayé d'intégrer des guillemets simples dans une chaîne unique cité. Vous pouvez leur échapper, mais split va diviser $_ sur les espaces par défaut.

Voici une solution, mais comme Mat dit que c'est un programme, pas un one-liner. Mettez-le dans un fichier.

echo 'Dec 2 04:08:40 EST 2012' | perl -lane ' 
@abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec); 
($amon, $mday, $hour, $tz, $year) = split; 
for my $i (0..$#abbr) { 
    next unless $abbr[$i] =~ /^$amon/; 
    $mon=$i; 
} 
$mon++; 
print "$year-$mon-$mday $hour";'