• [^] # La même solution en correct.

    Posté par . En réponse au journal du en perl. Évalué à 2. 

    #!/usr/bin/perl -w
use strict;
my $x = 0;		# compteur
my $ligne;
while( $ligne=<> )
{
	chomp $ligne;
	my @F = split / +/, $ligne ;
	if ( $ligne =~ /^total/ )
	{
		$x += $F[1] ;
	}
}
{
	print $x;
}