comparer les tailles de deux fichiers

Version imprimable

10/04/2007, 12h57
narmika

comparer les tailles de deux fichiers

Bonjour, je veux comparer deux fichiers, je veux dire certainement ils sont identiques, mais les blocs sont mélangés par rapport à l'autre ( et il y'a aussi des espaces)!
par ex:
fichier 1 fichier 2
aaaaaaaaaaaa dddddddddddd
bbbbbbbbbbbb
bbbbbbbbbbbb
dddddddddddd cccccccccccc
cccccccccccc aaaaaaaaaaaa

Je me demande s'il est possible de comparer ces fichiers sans comparer ligne par ligne. Vouns avez une idée sur la manière de faire, soit calculer la taille du fichier soit...Merci
10/04/2007, 14h36
Arioch
Bonjour,

pour comparer tes deux fichiers via le poids qu'ils occupent sur le disque :
Code:

1 2 3 4 if ( (-s "fichier1.txt" == -s "fichier2.txt") && (-s "fichier1.txt" != 0) ) { print "les deux fichiers existent et sont de taille identique\n"; }
Maintenant, si tu veux pouvoir comparer leur contenu afin d'être sûr qu'il est identique alors que l'ordre des lignes peut différer d'un fichier à l'autre, je te préconiserai de charger chaque fichier en mémoire dans un tableau. Ensuite, tu tries les deux tableaux et il te suffit ensuite de les comparer.

Ils pèsent combien, tes fichiers ?
10/04/2007, 15h09
narmika

En pricipe c'est les 4000 lignes chacun...merci pr l'idée du tableau j'avais pas pensé...mais ya des blocs ds le fichier ou il est sous forme d'espace donc li'dée du tableau peut faire l'affaire!!merci

par ex : fichier 1

aaaaa
bbbbb

ccccc
ddddd

333333
10/04/2007, 17h47
Woufeil

Bonjour,

Ton raisonnement est faux : deux fichiers contenant exactement les mêmes caractères mis à part les sauts de lignes ne péseront pas la même taille. En revanche, tu peux lire tes fichiers ligne à ligne, et charger chaque ligne dans un tableau sauf si c'est un saut de ligne, puis faire la manip d'Arioch. Ce n'est qu'une solution, il en existe sûrement beaucoup d'autres !
10/04/2007, 18h55
narmika

ok, c noté. j'ai un autre problème. Ces deux fichiers n'ont même pas a vrai dire la meme struture , je te done un exemple, ds une ligne de l'un des fichiers ya des espaces , par exemple:
fichier 1 : abababa car t
fichier 2 : abababa car t

je dois donc avant tout éliminer les espaces supplémentaires...et là je en sais pas comment faire ce traitement!!! v en avez une idée!
10/04/2007, 18h57
narmika

fichier 1 :
ababababaespacecar
fichier2:
ababababaespaceespacecar
10/04/2007, 19h02
Woufeil

Oui, avec une simple substitution, tu peux faire ça ;)
Un truc de ce style :

Code:

my $var =~ s/\s{2,}/\s/g
11/04/2007, 11h25
narmika

wi mais moi je veux laisser qu'un seul espcace ( désolée mais je me perds aveec les parenthèses), bon je veux des lignes avec une seule espace, le genre:
marespaceespaceespacetespacebespacen
ça donne :
marespacetespacebespacen

mercii :aie:
11/04/2007, 11h42
narmika

j'explique plus, le but de laissser juste un seul espace c pr avoir en fin de compte un modèle de fichier sur koi je peux appliquer u autre script, alors svp si klk un a une idée pr enlever les occurences des espaces ( ça veut dire il faut pas eliminer ts les espaces mais laisser uns eul espace), la ligne que tu m'as propose elimine ts les espaces sils sont plusieurs donc ca me donne:
ex : tarespaceespacebespacer
tarsbr

En admettant que tes fichiers s'appelent fichier1.txt et fichier2.txt, voici une méthode pour vérifier rapidos si leur contenu est identique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl -w
use strict;
 
my ($fic1, $fic2) = ("fichier1.txt", "fichier2.txt");
my @tab1;
my @tab2;
 
@tab1 = ChargeTab($fic1);
@tab2 = ChargeTab($fic2);
 
if (@tab1 eq @tab2)
{
    print "données identiques entre $fic1 et $fic2\n";
}
else
{
    print "données différentes entre $fic1 et $fic2\n";
    print "$fic1 contient ", scalar(@tab1), " lignes valides\n";
    print "$fic2 contient ", scalar(@tab2), " lignes valides\n";
}
 
sub ChargeTab
{
    my $fic = shift();
    my @retour;
 
    open(FIC, "$fic") or die("lecture $fic erreur : $!\n");
    while(<FIC>)
    {
        chomp();
        # attention, ici, je ne charge par une ligne vide ou ne contenant que des espaces
        if ($_ && $_ !~ /^ +$/)
        {
            s/ +/ /g;
            push(@retour, $_);
        }
    }
    close(FIC);
    @retour = sort(@retour);
    return(@retour);
}

11/04/2007, 11h50
narmika

j'ai trouvé la reeponse ds ce forum la, le prblm ça est déja posé et ça donne:
$var = $chaine =~ s/\s+/ /g;
mercii :yaisse2:
11/04/2007, 12h36
djibril

Citation:

Envoyé par narmika

j'ai trouvé la reeponse ds ce forum la, le prblm ça est déja posé et ça donne:
$var = $chaine =~ s/\s+/ /g;
mercii :yaisse2:

plutot

Code:

($var) = $chaine =~ s/\s+/ /g;

car il te renvoie un tableau avec toutes les occurences trouvées, sinon tu recupera plutot le nombre de cases qu'il y a dans le tableau ;)
11/04/2007, 13h53
narmika

Ok merci pr vos suggestions, pr Arioch le bloc de code que tu m'as fournie est en fait une bne idée, je t'en remercie..mais je ne saisi pas tb comment le programme traite le cas des lignes vides..merci
11/04/2007, 13h54
Arioch

Citation:

Envoyé par narmika

Ok merci pr vos suggestions, pr Arioch le bloc de code que tu m'as fournie est en fait une bne idée, je t'en remercie..mais je ne saisi pas tb comment le programme traite le cas des lignes vides..merci

C'est simple : mon prog ne traite pas les lignes vides et ne les charge pas dans le tableau. Il considère les lignes vides comme du bruit (ou de la pollution si tu préfères), tout comme les espaces multiples qui se suivent.