Découper fichier excel ou .csv

**Artalis** · 30/07/2014, 16h09

Bon apparemment, je ne suis pas encore très à l'aise avec toutes ces nouvelles notions...

Le principe du dernier module est le suivant : supprimer du fichier adressuseless.txt les adresses qui sont presents dans fichiergroup.txt . Bon mis à part m'effacer totalement mon fichier addressuseless cela ne fait pas grand chose. Voici le code :

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
18
19
20
21
22
23
24
 
undef $FICHIERGROUP;
undef $FICHIER1; 
 
open(my $FICHIERGROUP, "<","fichiergroup.txt") or die "can't read $!";
binmode $FICHIERGROUP, "encoding(utf-16):crlf";
open(my $FICHIER1, ">", "addressuseless.txt") or die "can't write $!";
binmode $FICHIER1, "encoding(utf-16):crlf";
my %list;
while(defined(my $list = <$FICHIERGROUP>)) {
	chomp($list);
	$list{$list}++;
}
while(defined(my $adress2=<$FICHIER1>)) {
	chomp($adress2);
	if (exists $list{$adress2}){
		print {$FICHIER1} "adress found \n"; 
	}
	else{	
		print {$FICHIER1} $adress2, "\n";
	}
}
close($FICHIERGROUP);
close($FICHIER1);

edit : c'est peut etre un peu tard pour le dire, mais étant sur un ordinateur anglais, il y a des corrections syntaxiques automatiques, du coup il se peut que des mots comme "problème" se transforme en "problem" etc... j'en suis désolé...

edit 2: heu...je crois qu'il faut enlever les 2 "my" un copié collé qui n'est pas bien passé.

**Philou67430** · 30/07/2014, 16h24

Un point : tu oublies toujours d'ignorer la première ligne d'entête des fichiers lus

Sinon, y a-t-il un problème particulier avec ce que tu as écrit ? (certes, on pourrait sans doute faire cette opération, ou la préparer, dans les étapes précédentes, mais pour l'instant, je ne vois pas d'erreur à la traiter "à part").

**Artalis** · 30/07/2014, 16h31

Les 2 fichiers que je prends en compte sont addessuseless donc je ne dois pas tenir compte de la première ligne, vu qu'elle contient NAME etc... mais pour fichiergroup je ne peux as me passer de la première ligne vu qu'il commence par une adresse IP ? D'ailleurs je viens d'y penser mais le caractère bizarre de début de fichier pourrait poser ici porblème dans ma comparaison non ?

Pour cette étape, je souhaitais reutiliser un peu les connaissances que j'avais pu acquérir pour rajouter une autre comparaison entre les 2 fichiers que l'on avait fait.

Concernant sa place en lui meme dans le code...pas d'importance, je trouvais simplement plus simple de le faire à la fin étant pragmatique ^^.

**Artalis** · 30/07/2014, 16h34

Envoyé par Philou67430

Sinon, y a-t-il un problème particulier avec ce que tu as écrit ?

Enfin je ne suis pas sur d'avoir bien compris la question en fait... si tu parles d'un point de vue code, le problème est que ce que j'ai écrit ne fait rien d'autrers que d'effacer totalement addressuseless ce qui n'est pas vraiment ce que je voulais obtenir

.

**Philou67430** · 30/07/2014, 17h11

En traitant ta nouvelle requête dans les premières parties, le problème du premier caractère BOM devrait disparaitre... mais je n'ai plus le temps de regarder ce soir.

**Artalis** · 31/07/2014, 08h25

Ok, je vais essayer de voir comment faire cela ce matin.

**Philou67430** · 31/07/2014, 10h04

La première partie de ton nouveau "module" (je parlerai plutôt de fonctionnalité) peut être réalisée dans la boucle où tu écris le fichier fichiergroup.txt : tu peux en profiter pour enregistrer les adresses découpées de $out3 dans %rule.
Une manière de faire :

Code :

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

1
2
3
4
5
6
7
8
9
 
...
      if (defined $out3) {
        my @addresses = grep length, split /\s+/, $out3;
        print { $FICHIERGROUP } map "$_\n", @addresses;
        # add these group addresses to the known rules
        $rule{$_}++ foreach @addresses;
      }
...

Ensuite, quand tu voudrais mettre à jour le fichier addressuseless.txt, en l'ouvrant en écriture, et en faisant des lectures dessus. Ceci n'est pas possible : si tu l'ouvres en écriture, il sera vidé, et tu ne pourras pas le lire. Tu dois :
- soit ouvrir le fichier en lecture et écrire dans un nouveau fichier
- soit l'ouvrir, le lire en entier dans une variable tableau, le fermer et le rouvrir en écriture

Cela dit, tu gagnerais à exécuter la partie qui analyse le fichier addressgroup.txt juste après celle qui lit le fichier rule.txt (ainsi, tu remplirais %rule avec les addresses de rule.txt et celles de addressgroup), et ensuite faire le traitement du fichier address.txt, qui tiendra alors compte de toutes les règles enregistrées, sans avoir besoin de refaire le traitement.

Ceci donne donc le script suivant :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
use strict;
use warnings;
 
open my $RULE, "<", "rule.txt" or die "Can't open rule.txt for reading: $!";
binmode $RULE, ":encoding(utf-16):crlf";
my %rule;
<$RULE>; # Ignore the first line
while (defined(my $rule = <$RULE>)) {
  chomp($rule);
  my ($source, $destination) = (split /\t/, $rule)[5,7];
  foreach my $address_field (grep defined, $source, $destination) {
    foreach my $address (grep $_, split /\s+/, $address_field) {
      $rule{$address}++;
    }
  }
}
 
open (my $ADDRESSGROUP,"<", "addressgroup.txt") or die "Can't open addressgroup.txt for reading: $!";
binmode $ADDRESSGROUP, ":encoding(utf-16):crlf";
open (my $FICHIERGROUP,">", "fichiergroup.txt") or die "Can't open fichiergroup.txt for writing: $!";
binmode $FICHIERGROUP, ":encoding(utf-16):crlf";
print { $FICHIERGROUP } scalar(<$ADDRESSGROUP>);
 
#trouver tous les groupes d'adresses qui sont dans RULE et les stocker dans FICHIERGROUP
while (defined(my $addressgroup = <$ADDRESSGROUP>)) {
	chomp($addressgroup);
  my ($out2, $out3) = (split /\t/, $addressgroup)[0,1];
  if (defined $out2) {
    print $out2, "\n";
    if (exists $rule{$out2}){
      print $out2, "\n"; # WHY WRITING AGAIN out2 ???
      if (defined $out3) {
        my @addresses = grep length, split /\s+/, $out3;
        print { $FICHIERGROUP } map "$_\n", @addresses;
        # add these group addresses to the known rules
        $rule{$_}++ foreach @addresses;
      }
      else {
        print "No zone found at line $. in addressgroup.txt [$addressgroup]\n";
      }
		}
  }
  else {
    print "No group found at line $. in addressgroup.txt [$addressgroup]";
  }
}
 
undef $ADDRESSGROUP;
undef $FICHIERGROUP;
 
open (my $ADDRESS, "<", "address.txt") or die "can't open address.txt for reading: $!";
binmode $ADDRESS, ":encoding(utf-16):crlf";
open (my $FICHIER1,">", "addressuseless.txt") or die "Can't open addressuseless.txt for writing: $!";
binmode $FICHIER1, ":encoding(utf-16):crlf";
print { $FICHIER1 } scalar(<$ADDRESS>); # Read and write the first line
while (defined(my $address = <$ADDRESS>)) {#trouver toutes les adresses de ADDRESS qui ne sont pas dans RULE et les stocker dans FICHIER1 
	chomp($address);
  if (defined(my $out = (split /\t/, $address)[0])) {
    if (exists $rule{$out}) {
      print { $FICHIER1 } "address found \n"; # à supprimer par la suite, n'est là que pour savoir si la condition passe ou pas
		}
		else{
			print $out, "\n";
			print { $FICHIER1 } $out, "\n" ;
		}
  }
  else {
    print "No address found at line $. [$address]\n";
  }
}

Je t'invite à vérifier que le code fait ce qui convient (testé sans plantage, mais pas vérifié fonctionnellement).

**Artalis** · 31/07/2014, 11h12

J'ai modifié mon script en fonction de ce que tu as posté et cela fonctionne très bien !

Merci beaucoup pour ton aide au cours de ces derniers jours, tu m'as vraiment bien débloqué dans toutes les situations problématiques.

Du coup on peut mettre "résolu" sur le topic.

Si j'ai d'autres envies de coder du perl, je referai une autre discussion, plus en rapport avec le theme.

Encore merci pour tout !

**Philou67430** · 31/07/2014, 11h20

Si tu as aimé, n'hésite pas à

**Jedai** · 31/07/2014, 22h01

Juste un détail :

Code :

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

while (defined(my $rule = <$RULE>))

est strictement équivalent à :

Code :

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

while (my $rule = <$RULE>)

C'est fait exprès pour éviter les bogues à la noix comme une ligne vide ou commençant par 0, qui seraient traités comme faux par Perl.

Donc inutile de mettre le defined sur les lectures avec l'opérateur <> (spaceship), bien qu'il soit nécessaire si vous utilisez readline() ou autre à la place.

--
Jedaï

**Philou67430** · 01/08/2014, 12h44

J'avais ajouté le defined justement pour corriger ce qui semblait être un bug ... Donc soit le bug était ailleurs, et je l'ai corrigé avec une autre modification, soit le fonctionnement est différent. Mais j'avoue utiliser rarement le while pour lire un fichier.

Je vérifierai ça lundi (peut-être ...

).

Découper fichier excel ou .csv

Langage Perl

Discussions similaires

Partager

Partager