Run Code
|
API
|
Code Wall
|
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
Hash
Perl - Sort hash of filenames by file extension
101772
Price_supriya
Sort
neigh.pl
Perl
OSTL prateeshrk
Array_with_shift_function
reverse polish notation experiment