help with a function

Joined
May 17, 2010
Messages
1
Reaction score
0
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

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;
}
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,787
Messages
2,569,630
Members
45,335
Latest member
Tommiesal

Latest Threads

Top