hello,
I have to complete the code with a function but I have problems doing it.
The function I have to write is sub getInfosBio but my code doesn't work. Can you help me? I must admit I'm not good at coding.
Thank you
Lizzy
I have to complete the code with a function but I have problems doing it.
The function I have to write is sub getInfosBio but my code doesn't work. Can you help me? I must admit I'm not good at coding.
Thank you
Lizzy
Code:
use strict;
use warnings;
open( SOURCE1, '<', $ARGV[0] )
or die("Impossible d'ouvrir le fichier $ARGV[0]\n");
my @data1 = <SOURCE1>;
close( SOURCE1 );
open( SOURCE2, '<', $ARGV[1] )
or die("Impossible d'ouvrir le fichier $ARGV[1]\n");
my @data2 = <SOURCE2>;
close( SOURCE2 );
my $infos_bio = &getInfosBio(\@data1, \@data2);
print "NOM : " . $infos_bio->{'nom'} . "\n";
print "PRENOM : " . $infos_bio->{'prenom'} . "\n";
print "VILLE : " . $infos_bio->{'ville'} . "\n";
print "DATE DE NAISSANCE : " . $infos_bio->{'date_naissance'} . "\n";
sub getInfosBio {
my ($ref_arg1, $ref_arg2) = @_;
my @data1 = @{$ref_arg1};
my @data2 = @{$ref_arg2};
@data1 = split (/\t: /, @data1);
@data2 = split (/\t: /, @data2);
return;
}