javascript -> perl

[Benne]

Hallo Walker,

ist es moeglich ein perlprogramm zu schreiben, welches die gleichen char verschluesselungen anlegt wie javascript?

...

var Name = "xMyTest";
var testa = (Name.charCodeAt(2));
var testb = (Name.charCodeAt(3));
var testc = (Name.charCodeAt(4));
var testd = (Name.charCodeAt(5));
var number = Math.round((testa+testb+testc+testd)*2265.7+35.4-92861);
document.write(number);

Ich frage mich ob dieser Code Sinn macht.
Macht es Sinn, nur das 3. bist zum 6. Zeichen in die Berechnungen einzubeziehen.
Was soll passieren wenn eine zu kurzer String eingegeben wird?
vielleicht wär hier eine for-Schleife angebracht.

stellst du dir das so vor:

  
#!/usr/bin/perl  
use warnings;  
use strict;  
  
my $name = shift;  
my $testa = ord(substr($name, 2, 1));  
my $testb = ord(substr($name, 3, 1));  
my $testc = ord(substr($name, 4, 1));  
my $testd = ord(substr($name, 5, 1));  
my $number = ($testa + $testb + $testc + $testd)*2265.7 + 35.4 - 92861;  
  
printf "%.0f\n", $number;  

die Variante mit for-Schleife vom 2. bis zum letzten Zeichen würde dann so aussehen:

  
my $test = 0;  
for(1..length($name)-1) {  
        $test += ord(substr($name, $_, 1));  
}  
my $number = $test*2265.7 + 35.4 - 92861;  

eine Email schicken und in eine Datenbank schreiben ist eine andere Geschichte. Hast du einen MySQL Server, läuft ein Postfix/Sendmail auf dem Server?

Benne