19 lines
415 B
Perl
19 lines
415 B
Perl
use 5.010;
|
|
use strict;
|
|
use warnings;
|
|
|
|
say "What is your name? ";
|
|
my $name = <STDIN>;
|
|
chomp $name;
|
|
say "Hello $name, how are you?";
|
|
|
|
# Leer un fichero de texto
|
|
my $filename = 'C:\Users\Juan\12051601_merged.tcx';
|
|
open INFILE,$filename;
|
|
my $linea;
|
|
while ( $linea = <INFILE>) {
|
|
chomp($linea);
|
|
# Incluir aquí debajo el código para procesar la línea
|
|
print $linea . "\n";
|
|
}
|
|
close INFILE; |