my@test=qw(A B Z AA AC BA ABC);subSIZE_ALPHABET(){scalar (()='A'..'Z')}formy$test(@test){my$num=0;formy$idx(0..length($test)-1){my$char=substr($test,-$idx-1,1);$num+=((ord($char)-ord('A')+1)*(SIZE_ALPHABET **$idx));} say "$test = $num";}
1 + 1 = 10
+2 replies
Kean
2017-05-15 23:13
User since 2004-08-18
464
Artikel BenutzerIn
Jaaaa genau das habe ich gesucht! Vielen Dank :-)
GwenDragon
2017-05-16 10:20
User since 2005-01-17
14848
Artikel Admin1
Oh, ich hatte deine Frage grundsätzlich missverstanden.