Opened by barney at 2024-04-27 11:27
User since
2008-08-31
165 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-08-31
165 Artikel
BenutzerIn
In Frankreich werden die Anfangsbuchstaben der Hundenamen jährlich durchgewechselt. Siehe https://www.zooplus.de/magazin/hund/hundehaltung/h... . Mit PERL kann man das ganz einfach programmatisch behandeln.
Code: (dl
)
1
2
3
4
5
6
$ cat SCN.pl
sub {$_=shift;s.\..$\=$/;$\=(ord($&)-($>'K')-($>'Q')+1940)\.$/;print''.e;}->(
'Perligator'
);
$ perl SCN.pl
2019