Le site arthur.bebou.netlib.re - retour accueil
git clone git://bebou.netlib.re/arthur.bebou
Log | Files | Refs |
sub.pl (269B)
1 use v5.36;
2
3 undef $/;
4 sub slurp { local @ARGV = shift; <> }
5 my %corres;
6 for my ($v, $k) (split "\n", slurp 'corres') {$corres{$k} = $v}
7
8 $_= slurp 'A';
9 s{ (?<url>
10 https://sws.geonames.org/
11 (?<key> [^/]+ )
12 /about.rdf )
13 }{ $corres{$+{key}} // $+{url} }gex;
14 print;
15