Entsprechung aus Javascript (gelöst) - #176182 (Allgemeines zu Perl)

bianca

2014-06-28 09:41

User since
2009-09-13
6978 Artikel
BenutzerIn

user image

Hallo!
Folgender Javascript Code:

Code: (dl )

1
2
3

function  integer (n) {
    return n%(0xffffffff+1);
}

Was ist dafür die Entsprechung in Perl?
Ist das was der Name sagt? Eine reine Integer Funktion?
Dann würde ich es gem. msg #166145 hiermit übersetzen:

Code (perl): (dl )

sub integer {
    my $wert = shift (@_) || 0;
    return 'FEHLER' if $wert =~ /e\+?\d+$/;
    return 0 if $wert =~ /e-\d+$/;
    $wert = $1 if $wert =~ /^(.*?)\./;
    $wert = 0 if !$wert or $wert == -0;
    return $wert;
}

10 print "Hallo"
20 goto 10