perl von Benutzereingabe einer Zahl, fügen Sie jede Ziffer hinzu

Question

Ich bin sehr neu zu Perl und ich lerne das ist nicht wie C++. Der Benutzer wird also eine beliebige Länge eingeben, und ich möchte jede Ziffer hinzufügen und die Summe ausdrucken.

#!/usr/bin/perl -w 
use strict; 
use warnings; 

print "Enter a number :"; 

my $num = <STDIN>; 

my @array = $num; 
my $sum=0; 
for my $arr (@array){ 

    $sum += $arr; 

print $sum; 
} 

Zum Beispiel gibt der Benutzer 1234, die Summe: 10 das tatsächliche Ergebnis bekomme ich 1234.

Answer 1

Sie brauchen nur zwei Linien

use strict; 
use warnings; 

print "Enter a number :"; 

my $num = <STDIN>; 

#You missed out to remove the entermark at the end 
chomp($num); my $newnum = "0"; 

$newnum += $_ for split//, $num; 

print $newnum; 

Nachricht hinzuzufügen: ich außer Kraft nicht oder nicht die Methode überlegen, was man jedoch gefolgt habe ich tat genau das, was ich in Perl wissen.

Further More details

Answer 2

Sie müssen die Eingabezeichenfolge $num in einzelne Ziffern brechen. Versuchen Sie, my @array = $num durch my @array = split //, $num zu ersetzen. Lesen Sie mehr, indem Sie perldoc -f split ausführen.

In Perl werden sowohl Strings als auch Nummern als SCALAR s klassifiziert. Ein Skalar wird automatisch als Zahl behandelt, wenn arithmetische Operationen (wie +) mit ihnen ausgeführt werden, sodass die Summierung innerhalb der for-Schleife wie erwartet funktioniert.