Unrecognized character \xE2 at HelloWorld.p line 8.

Unrecognized character \xE2 at HelloWorld.p line 8. - Perl - Programmation

Marsh Posté le 27-08-2004 à 11:16:07    

$ perl HelloWorld.p
Unrecognized character \xE2 at HelloWorld.p line 8.


 

Code :
  1. # !/usr/bin/perl -w
  4. use strict ; # une bonne idée pour tout script Perl non-trivial
  6. # Charge le module Gtk2 et lance une procédure d’initialisation de
  7. # la bibliothèque C
  8. use Gtk2 ’-init’ ;
  10. # Variables convenables pour vrai et faux
  11. use constant TRUE => 1 ;
  12. use constant FALSE => 0 ;
  14. # Création d’une fenêtre
  15. my $window = Gtk2::Window->new(’toplevel’ ) ;
  17. # Quand on attribue le signal ”delete_event” à une fenêtre ( ce qui est
  18. # attribué par le gestionnaire de fenêtre, soit par l’option ”fermer” soit
  19. # par la barre de titre), on demande à celle-ci d’appeler la fonction
  20. # Close_Window définie plus loin.
  21. $window->signal_connect( ’delete_event’ , \&Close_Window,’coucou’ ) ;
  23. # Ici, on connecte l’évènement ”destroy” à un gestionnaire de signal.
  24. # Cet évènement se produit quand on appelle la fonction Gtk2::widget_destroy
  25. # sur la fenêtre ou si la fonction de rappel liée au ”delete_event” retourne
  26. # FALSE.
  27. $window->signal_connect( ’destroy’ , \&Destroy_Window ) ;
  29. # On déclare les attributs de la fenêtre. Il s’agit ici d’une bande de 15 pixels
  30. # disposée sur le contour de la fénêtre afin que celle-ci ne soit pas trop
  31. # ”rabougrie” !
  32. $window->set_border_width( 15 ) ;
  34. # Création d’un bouton
  35. my $button = Gtk2::Button->new(’Hello World’ ) ;
  37. # Quand le bouton reçoit le signal ’clicked’, il appelle la fonction
  38. # Hello définie plus loin...
  39. $button->signal_connect( ’clicked’ , \&Hello ) ;
  41. # Ensuite, il déclenchera la destruction de la fenêtre en appelant la
  42. # fonction Gtk2::widget_destroy (). Encore une fois, le signal ”destroy”
  43. # peut provenir d’ici ou du gestionnaire de fenêtre.
  44. $button->signal_connect( ’clicked’ , sub { $window->destroy} ) ;
  46. # On place le bouton dans la fenêtre.
  47. $window->add($button ) ;
  49. # On montre lebouton quand on a défini tous ses attributs.
  50. $button->show() ;
  52. # Idem pour la fenêtre.
  53. $window->show() ;
  55. # Toute application en Gtk2-Perl doit posséder la ligne suivante qui
  56. # lance la boucle principale.
  57. Gtk2->main ;
  60. ### La fonction de rappel qui est appelée quand on lique sur le bouton.
  61. sub Hello{
  62. print(”Salut à tous ! !\n” ) ;
  63. }
  65. ### La fonction de rappel appelée par l’évènement ”delete_event”.
  66. sub Close_Window {
  67. # Si vous retournez FALSE dans le gestionnaire de l’évènement
  68. # ”delete_event”, alors le signal ”destroy” sera emis.
  69. # Si vous retournez TRUE, c’est que vous ne voulez pas que la
  70. # fenêtre soit détruite.
  71. # C’est utile si on veut demander une confirmation du style
  72. # ” voulez-vous vraiment quitter ?” dans une boîte de dialogue.
  73. # Changez TRUE en FALSE et la fenêtre principale sera détruite.
  74. return TRUE ;
  75. }
  77. ### La fonction de rappel pour fermer la fenêtre
  78. sub Destroy_Window {
  79. Gtk2->main_quit ;
  80. return FALSE ;
  81. }


 
Je suis sous mandrake 10.0, RPM perl tous installés.
Quel est le problème ?


Message édité par jjgan le 28-08-2004 à 00:50:15

---------------
Qui suis-je ? Que fais-je ? | phpLister | Perdu ? Vous êtes ici --> *
Reply

Marsh Posté le 27-08-2004 à 11:16:07   

Reply

Marsh Posté le 27-08-2004 à 22:34:26    

hum, personne ?


---------------
Qui suis-je ? Que fais-je ? | phpLister | Perdu ? Vous êtes ici --> *
Reply

Marsh Posté le 28-08-2004 à 00:50:52    

j'ai viré le [1ere utilisation] du titre ; les [ ] en début de titre empêchent l'affichage du nom du langage dans la liste générale.
(je peux pas t'aider pour ton problème par contre ; désolé)


Message édité par antp le 28-08-2004 à 00:50:57

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 28-08-2004 à 01:22:36    

tu as fais un copier coller du code toi [:joce]
 
nettoie le code et ca ira mieux :jap: (je viens de tester, y ades caracteres speciaux un peu partout)


---------------
IVG en france
Reply

Marsh Posté le 28-08-2004 à 01:45:11    

Oui j'ai copier/coller, c'était pour tester mon installation de perl :D
Je vais réécrire le tout à la main alors :D
(en même temps je m'en suis douté des carractères spéciaux, mais je ne les ai pas trouvés :/ )


---------------
Qui suis-je ? Que fais-je ? | phpLister | Perdu ? Vous êtes ici --> *
Reply

Marsh Posté le 28-08-2004 à 01:50:33    

non, par exemple, ligne 8, ce sont les '  qui merdent, sans doute venant de windows ou d'un programme non UTF-8
 
sous vi tu les verras :jap:


Message édité par uriel le 28-08-2004 à 01:50:48

---------------
IVG en france
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed