Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
5_5
#perl 5.26.1 use strict; use warnings; print "Ingresa tu fecha de nacimiento\n"; print "Sigue este formato: YYYY/MM/DD\n"; print "Fecha de nacimiento:"; my $fecha = <STDIN>; print "Ingresaste: $fecha\n"; my ($YYYY, $MM, $DD) = split ("/", $fecha); my $actual = 2021; my $edad = $actual - $YYYY; print "Tu edad es :$edad"; exit;
run
|
edit
|
history
|
help
1
Please
log in
to post a comment.
taller in front
Hash-Nevil
hashes
Challenge 41 Task 1
Toy singleton class
XPPErrorLog
1st code
Attractive Numbers
Perl
main_objetos
Please log in to post a comment.