Pasted

#!/usr/bin/perl -w-
 
use strict;
use warnings;
 
my $INPUTFILE = "matches-2019-2020.txt";
 
my %team = ();
my $line_count = 0;
 
open my $f, '<', "$INPUTFILE" or die "Can't open file '$INPUTFILE' : $!\n";
while (my $line = <$f>) {
    $line_count ++;
    my ($day,$mon,$date,$time,$home_team,$away_team,$home_score,$away_score,$spectator) = 
    ($line =~ m|^(\S+)\s+(\d+)/(\d+)\s+(\d+)\.\d+\s+(\S+)\s+-\s+(\S+)\s+(\d+)\s+-\s+(\d+)\s+(\d+)\s*$|);
    # print "$home_team $away_team $home_score $away_score $spectator\n";
    my $home_points = ($home_score > $away_score)?3:
              ($home_score == $away_score)?1:0;
    my $away_points = ($away_score > $home_score)?3:
              ($away_score == $home_score)?1:0;
            
    $team{$home_team}->{'score_goal'} += $home_score;
    $team{$home_team}->{'concede_goal'} += $away_score;
    $team{$home_team}->{'points'} += $home_points;
 
    $team{$away_team}->{'score_goal'} += $away_score;
    $team{$away_team}->{'concede_goal'} += $home_score;
    $team{$away_team}->{'points'} += $away_points;
}
close $f;
 
print "Matches = $line_count\n";
 
## expected result
# team points score_goal concede_goal
 
for my $name (sort {$team{$b}->{'points'} <=> $team{$a}->{'points'}} keys %team) {
    my $points = $team{$name}->{'points'};
    my $score_goal = $team{$name}->{'score_goal'};
    my $concede_goal = $team{$name}->{'concede_goal'};
    printf "%4s %4d %4d %4d\n", $name, $points, $score_goal, $concede_goal;
}
 
1;