팀 별칭을 대체하는 매우 간단한 스크립트입니다. 당신은 별칭으로 그것을 채울 필요가있을 것이다, 나는 약간을 만들었다. 게임이 여러 개인 경우 해시는 모든 별칭이 전체 이름으로 바뀌는 한 기존 해설을 덮어 씁니다.
#!/usr/bin/perl
use strict;
use warnings;
my %games;
while (<DATA>) {
chomp;
my ($home, $guest) = split /\s*-\s*/, $_, 2;
$home = get_name($home);
$guest = get_name($guest);
$games{"$home - $guest"} = 1;
}
sub get_name {
# Return the full name for the team, if it exists, otherwise return the original
my %alias = (
'Derry' => 'Derry City',
'Brawlers' => 'Beijing',
'Dolphins' => 'Miami',
'Bray' => 'Bray Wanderers',
);
return $alias{$_[0]} // $_[0];
}
use Data::Dumper;
print Dumper \%games;
__DATA__
Derry City - Bray Wanderers
Derry City - Bray
Brawlers - Dolphins
Beijing - Miami
Miami - Beijing
출처
2011-09-30 16:50:33
TLP
진심으로, ** 전혀 ** 아이디어가 없습니까? 심지어 불완전하거나 잘못되었거나 순진한 사람도 있습니까? –
오직 하나의 순진한 아이디어는 검색으로 하나의 파일을 분석하고 서브 루틴을 sed 또는 perl로 대체하는 것입니다. 하지만 모든 새로운 팀마다 수동으로 파일을 수정해야합니다. – emanuele