I using the above Perl Module from CPAN to loop through each vCard in a .vcf file and saving the results to a database. All of the information is pulled correctly with the exception of the data for the PHOTO node. It seems that it picks the PHOTO node at random rather than the PHOTO node for that specific vCard and I am not sure why. Here is my code:

if($p{'vcard'} =~ m/\.vcf/){ <br/>
  my $vcard_file = $cgi->upload('vcard'); <br/>   
  my $vcard_list = Text::vCard::Addressbook->new({   'source_file' => 
+$vcard_file });<br/>
  foreach my $vcard ($vcard_list->vcards()){<br/>

    ...<br/>
    ...<br/>
    ...<br/>

    my $photo = $vcard->get({ 'node_type' => 'photo' }); <br/>
    my $contact_photo = $photo->[0]->value();<br/>
    #decodes it with MIME::Base64<br/>
    #uses Image::Magick to write it as jpg and save to   directory<br/
+>

    ...<br/>
    ...<br/>
    ...<br/>
  }<br/>
}<br/>
[download]