Discussion :

[siaoly]

Je cherche un moyen efficace de comparer deux tableaux qui ne sont pas forcement de taille identique.

Voila donc le code que j'ai fait et qui n'est pas très efficace

@feed -> Tableau des flux déjà enregistré
@flux -> Tableau des nouveaux flux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
if ( scalar @$feed > 1 and scalar @$flux > 1 ) {
     for ( my $i = 0; $i <= scalar @$flux; $i++ ) {
      if ( $flux->[$i] !~ /$feed->[$i]/i ) {
        # Le flux n'existe plus ont le supprime de la base de données
        [...]
      }
       else {
         # Présence d'un nouveau flux ont l'ajoute
         [...]
      }
    }
 }

Mon code pose problème que fait que $i peut etre hors limite pour @feed

merci de votre aide

[pospos]

tu veux quoi en sortie?

[djibril]

t'es pas clair, que veux tu comparer? en sortie?

[siaoly]

Ce que je veut faire est comparer le contenue de @feed par rapport a celui de @flux si un flux est présent dans @feed et pas dans @flux il est supprimé de la base de données. Les flux etant présent dans @flux et pas dans dans @feed sont ajouté a la base de données.

J'espère avoir été plus clair

[pospos]

met ces deux tableaux dans des hashs, parcours les clés d'un des deux hash (ou le tableau cirectement) et test l'autre. Et l'inverse ensuite

pour mettre un tableau en hash:
my %hash = map {$_ => 1} @tab;

[lami20j]

Salut,

à adapter selon tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#! /usr/bin/perl
#
use warnings;use strict;
 
my (@feed,@flux);
my (@just_feed,%in_flux);
 
 
@feed = qw/a c d e 4 6 a/;
@flux = qw/a d f g h i j k l m a d/;
 
@in_flux{@flux}=();
 
foreach(@feed){push @just_feed,$_ unless exists $in_flux{$_}}
 
print "Just in \@feed : @just_feed\n";

lami20j