Discussion :

[pongping]

Bonjour,
Pour l'école on doit programmer une sorte de carnet d'adresses. L'utilisateur peut ajouter, supprimer, changer, des adresses. Les adresses sont stockées dans un fichier. Pour lister les adresses, j'ai écrit une subroutine listAddressBook. La voila:

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
 
sub listAddressBook() {
 
  open (ADDRESS_BOOK, "address_book.dat");
 
  my (@file);
 
  @file = <ADDRESS_BOOK>;
 
  close ADDRESS_BOOK;
 
 
 
  chomp @file;
 
  my ($i);
 
  $i = 0;
 
  while ($i < scalar (@file)) {
 
    print "$file[$i]: \t $file[$i+1] \n";
 
    print "\t$file[$i+3] $file[$i+2], $file[$i+4], $file[$i+5], $file[$i+6]\n";
 
    $i += NUMBER_LINES_PER_ADDRESS; # aantal rijen omhoog
 
  }
 
}

Sous Windows Vista, avec ActivePerl, ceci marche parfaitement. Mais quand je l'exécute sous Ubuntu, on dirait qu'il oublie des mots. L'output n'est pas du tout ce qu'il doit être. Comment ça se fait? Je croyais que comme Perl est un langage interprété, qu'il est portable...

Merci d'avance,

Yoran

[lami20j]

Salut,

essai d'utiliser open avec 3 arguments

Code :

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

1
2
3
 
open ADDRESS_BOOK,"<:crlf", "address_book.dat"
       or die "E/S : $!\n";

Les chaines se finissent avec \r\n sous Win, et avec \n sous GNU/Linux.
La couche E/S :crlf permets d'effecuter les substitutions de CR/LF en saut de ligne et viceversa.

Il ne s'agit pas de la portabilité de Perl (qui, OUI, est portable )

lami20j

[pongping]

Ok merci beaucoup ça marche! Ah, ce Windows, il doit toujours te compliquer la vie