help with a function

Discussion in 'Perl' started by Lizzy78, May 17, 2010.

  1. Lizzy78

    Lizzy78

    Joined:
    May 17, 2010
    Messages:
    1
    Likes Received:
    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 (Text):

    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;
    }
     
    Lizzy78, May 17, 2010
    #1
    1. Advertisements

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 (here). After that, you can post your question and our members will help you out.