From eric.vernichon.ev at borchers.fr Thu Jan 16 08:40:00 2003 From: eric.vernichon.ev at borchers.fr (eric.vernichon.ev@borchers.fr) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] split In-Reply-To: <1029148228.14490.491.camel@mirlin.xmltwig.com> Message-ID: Bonjour , J'ai une question surement stupide mais bon je me lance. Pourquoi si je fais $_= "deb.fin"; ($debut,$fin)=split (/./); print "debut : $debut"; print "fin : ".$fin; $debut ne contient pas deb et $fin ne contient pas fin ? Merci Eric Vernichon From mrodrigu at ieee.org Thu Jan 16 08:50:01 2003 From: mrodrigu at ieee.org (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] split In-Reply-To: Message-ID: On Thu, 16 Jan 2003 eric.vernichon.ev@borchers.fr wrote: > Pourquoi si je fais > > $_= "deb.fin"; > ($debut,$fin)=split (/./); > print "debut : $debut"; > print "fin : ".$fin; > > $debut ne contient pas deb et $fin ne contient pas fin ? Parce que quand tu ecris split /./ tu splite sur une expression reguliere (note que meme si tu ecris split "." ou split '.' tu splite sur une regexp), donc le . est une wild-card. split /\./ marchera mieux. Michel Rodriguez Perl & XML http://www.xmltwig.com From oulala at chez.com Thu Jan 16 09:42:00 2003 From: oulala at chez.com (Thierry B.) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] split In-Reply-To: ; from eric.vernichon.ev@borchers.fr on Thu, Jan 16, 2003 at 03:41:13PM +0100 References: <1029148228.14490.491.camel@mirlin.xmltwig.com> Message-ID: <20030116162212.A10588@hydrangelles> On Thu, Jan 16, 2003 at 03:41:13PM +0100, eric.vernichon.ev@borchers.fr wrote: > > > $_= "deb.fin"; > ($debut,$fin)=split (/./); > print "debut : $debut"; > print "fin : ".$fin; > > > $debut ne contient pas deb et $fin ne contient pas fin ? > > Le '.' est un caract?re sp?cial pour les expresions de split, il faut l'escaper: split (/\./) $ perldoc perlre -- --------------- http://tboudet.free.fr/cv.html --------------- From eric.vernichon.ev at borchers.fr Mon Jan 20 08:48:00 2003 From: eric.vernichon.ev at borchers.fr (eric.vernichon.ev@borchers.fr) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] foreach Message-ID: Pouvez vous me dire pourquoi lorsque je lance ce code ( dans un sub ) le foreach my $choixtransport (@listeTransport) ne fait qu'un passage m?me si @listeTransport contient plusieurs valeurs ( j'ai v?rifi? le contenu) my @listeTransport=$listbox->get(0,'end'); foreach my $choixtransport (@listeTransport) { my @fichiers = glob ("s:\\trans\\cofiles\\*$choixtransport*"); if (@fichiers eq 0 ) { $listefic->insert("end","Le selection n\'existe pas "); } else { foreach my $fichier (@fichiers) { $ordre = substr($fichier,index($fichier,".")+1,3).substr($fichier,rindex ($fichier,"\\")+1,7); $listefic->insert("end","Ordre : $ordre \n \n"); if ($ValueCopie == 1) { (my @fichier)= split(/\\/,$fichier); ($fichier) = split(/\./,pop(@fichier)); $fichier = substr($fichier,1); copie($fichier); } if ($ValueAddToBuff == 1) { addtobuffer($ordre); } if ($ValueTransporte == 1) { importe ($ordre); } } } $listefic->insert(""); } Soyez indulgent sur la qualit? du code je d?bute en perl Merci Eric Vernichon ------------------------------------------------------------- Borchers France S.A. Service Informatique Rue Albert Calmette F-81100 Castres T?l?phone : +33 (0)5 63 72 65 80 T?l?fax : +33 (0)5 63 59 70 06 E-mail : eric.vernichon.ev@borchers.fr ____________________________________________________ From eric.vernichon.ev at borchers.fr Mon Jan 20 09:09:01 2003 From: eric.vernichon.ev at borchers.fr (eric.vernichon.ev@borchers.fr) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] =?iso-8859-1?Q?R=E9f=2E_=3A_Re=3A_[Toulouse-pm]_foreach?= In-Reply-To: Message-ID: Salut , je sais que @listeTransport est rempli parce que j'utilise komodo et je peux donc voir le contenu de @listeTransport. Cordialement Eric Vernichon ------------------------------------------------------------- Borchers France S.A. Service Informatique Rue Albert Calmette F-81100 Castres T?l?phone : +33 (0)5 63 72 65 80 T?l?fax : +33 (0)5 63 59 70 06 E-mail : eric.vernichon.ev@borchers.fr ____________________________________________________ |---------+---------------------------> | | Michel Rodriguez| | | | | | | | | 01/20/03 04:02 | | | PM | |---------+---------------------------> >-------------------------------------------------------------------------------------------------------------------------------| | | | Pour : eric.vernichon.ev@borchers.fr | | cc : toulouse-pm@happyfunball.pm.org | | Objet : Re: [Toulouse-pm] foreach | >-------------------------------------------------------------------------------------------------------------------------------| On Mon, 20 Jan 2003 eric.vernichon.ev@borchers.fr wrote: > > Pouvez vous me dire pourquoi lorsque je lance ce code ( dans un sub ) > le foreach my $choixtransport (@listeTransport) ne fait qu'un passage > m?me si @listeTransport contient plusieurs valeurs ( j'ai v?rifi? le contenu) Sans le reste du code (que retourne la methode get pour commencer) c'est difficile de savoir ce qui se passe. Tout a l'air normal en tout cas. En general pour debugger un probleme de ce genre tu as 2 solutions: utiliser le debugger Perl (perl -d toto.pl, perldoc perldebug pour plus d'infos, x @listeTransport apres l'appel a get(0, 'end') te donnera le contenu de @listeTransport) utiliser print: mets un print join( '-', @listeTransport), "\n"; avant la boucle et print $choixtransport, "\n"; dans la boucle. Et pour finir, si rien d'autre ne marche, quand tu postes, essaye de reduire ton code au maximum, en enlevant tout ce qui n'est pas directement utile. Ici ca donnerai probablement ca: > my @listeTransport=$listbox->get(0,'end'); > foreach my $choixtransport (@listeTransport) > { print $choixtransport, "\n"; } Note que ca ne nous aiderai toujours pas vu qu'on ne sait pas ce que get renvoie, mais au moins, en enlevant des bouts de code petit a petit, tu as une chance de trouver d'ou vient le probleme. Bonne chance Michel Rodriguez Perl & XML http://www.xmltwig.com From mrodrigu at xmltwig.com Mon Jan 20 09:09:04 2003 From: mrodrigu at xmltwig.com (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] [pm_groups] YAPC::NA 2003 (fwd) Message-ID: Ci dessous l'annonce de YAPC::NA 2003, qui se tiendra a Boca Raton, Floride. J'y serais, si ya d'autres amateurs faites le moi savoir. Plus facile d'acces depuis Toulouse (et avant que BooK ne s'indigne ;--), YAPC::Europe (web site provisoire http://dev.briac.net/) se tiendra probablement en Juillet a Paris. Si ca vous dit d'organiser un convoi, on peut s'arranger. Pour ceux qui doivent convaincre leur boss, Ca vaut vraiment le coup de participer a une conf. A chaque fois j'en reviens plein d'idees, et surtout regonfle et avec un moral d'enfer. En plus la c'est pas cher et c'est pres, les lighning talks de 5 mn c'est un excellent moyen de s'exprimer, de se faire connaitre et de se lancer dans l'exercice difficile de la presentation. On en recause quand je rentre a Toulouse A tshao ---------- Forwarded message ---------- Date: Mon, 20 Jan 2003 09:00:17 -0500 From: Kevin Meltzer To: pm_groups@pm.org Subject: [pm_groups] YAPC::NA 2003 Since I heard back from Larry last week, the official dates for YAPC::NA 2003 are June 16-18. Please pass this along to your members, and encourage them to submit proposals. http://yapc.org/America/ Cheers, Kevin From mrodrigu at xmltwig.com Mon Jan 20 09:09:05 2003 From: mrodrigu at xmltwig.com (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] foreach In-Reply-To: Message-ID: On Mon, 20 Jan 2003 eric.vernichon.ev@borchers.fr wrote: > > Pouvez vous me dire pourquoi lorsque je lance ce code ( dans un sub ) > le foreach my $choixtransport (@listeTransport) ne fait qu'un passage > m?me si @listeTransport contient plusieurs valeurs ( j'ai v?rifi? le contenu) Sans le reste du code (que retourne la methode get pour commencer) c'est difficile de savoir ce qui se passe. Tout a l'air normal en tout cas. En general pour debugger un probleme de ce genre tu as 2 solutions: utiliser le debugger Perl (perl -d toto.pl, perldoc perldebug pour plus d'infos, x @listeTransport apres l'appel a get(0, 'end') te donnera le contenu de @listeTransport) utiliser print: mets un print join( '-', @listeTransport), "\n"; avant la boucle et print $choixtransport, "\n"; dans la boucle. Et pour finir, si rien d'autre ne marche, quand tu postes, essaye de reduire ton code au maximum, en enlevant tout ce qui n'est pas directement utile. Ici ca donnerai probablement ca: > my @listeTransport=$listbox->get(0,'end'); > foreach my $choixtransport (@listeTransport) > { print $choixtransport, "\n"; } Note que ca ne nous aiderai toujours pas vu qu'on ne sait pas ce que get renvoie, mais au moins, en enlevant des bouts de code petit a petit, tu as une chance de trouver d'ou vient le probleme. Bonne chance Michel Rodriguez Perl & XML http://www.xmltwig.com From Paul.Gaborit+pm at enstimac.fr Mon Jan 20 09:13:00 2003 From: Paul.Gaborit+pm at enstimac.fr (Paul Gaborit) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] foreach In-Reply-To: References: Message-ID: At 15:43 +0100 20/01/03, eric.vernichon.ev@borchers.fr wrote: >Pouvez vous me dire pourquoi lorsque je lance ce code ( dans un sub ) >le foreach my $choixtransport (@listeTransport) ne fait qu'un passage >m?me si @listeTransport contient plusieurs valeurs ( j'ai v?rifi? le contenu) > > > > my @listeTransport=$listbox->get(0,'end'); ? l'intuition... Ce n'est pas plusieurs valeurs. C'est une seule valeur sur plusieurs lignes... Essayez cela : my @listeTransport = split("\n", $listbox->get(0,'end')); -- Paul Gaborit -- DR/GI -- Perl en fran?ais -- From eric.vernichon.ev at borchers.fr Mon Jan 20 09:16:01 2003 From: eric.vernichon.ev at borchers.fr (eric.vernichon.ev@borchers.fr) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] =?iso-8859-1?Q?R=E9f=2E_=3A_Re=3A_[Toulouse-pm]_foreach?= In-Reply-To: Message-ID: Je me r?ponds tout seul l'erreur ?tait sur la derni?re ligne $listefic->insert(""); comme l'application est graphique je ne voyais pas le message d'erreur li?e ? TK $listefic est un widget texte , je voulais le vider. Excusez moi Eric Vernichon From mrodrigu at xmltwig.com Tue Jan 21 16:24:00 2003 From: mrodrigu at xmltwig.com (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] Le lien du jour Message-ID: Salut, Le choix des "langages" est un peu bizarre, mais on peut considerer ca comme un etat du marche de l'emploi (ah oui, le titre est debile aussi): Programming Community Index for January 2003 http://www.tiobe.com/tpci.htm Michel Rodriguez Perl & XML http://www.xmltwig.com From mirod at xmltwig.com Wed Jan 22 15:47:00 2003 From: mirod at xmltwig.com (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] Le Ciel ne nous tombe pas sur la tete Message-ID: Salut, Je crois pas avoir poste ce lien, vu que je n'arrivais pas a retrouver l'article. Heureusement PerlMonks a la rescousse... http://www.samag.com/documents/s=4075/sam1013019189971/sam0203h.htm Excellent article de Damian presentant une serie de bouts de code en Perl 5 portes en Perl 6, d'abord "naivement" (avec le moins de modifications possible), puis en utilisant un peu plus de perl 6-ismes. Bonne lecture, veinards 11 degres a Toulouse... ici il fait plutot -5 (-15 la nuit)... Michel Rodriguez Perl & XML http://www.xmltwig.com From mirod at xmltwig.com Wed Jan 29 08:44:00 2003 From: mirod at xmltwig.com (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] L'outil XML du jour Message-ID: Salut, Juste pour vous dire que j'ai ecrit un outil qui passe un correcteur orthographique sur un fichier XML, en sautant les balises et les atrributs. Il est sur http://www.xmltwig.com/xmltwig/ , la doc est a http://www.xmltwig.com/xmltwig/xml_spellcheck.html C'est la version 0.01, donc je suis preneur de tout retour, suggestions, patchs, insultes etc... A part ca il neige ici, ce qui veut dire qu'il fait moins froid et que je peux aller fumer ma clope dehors sans me geler grave. Je rentre Samedi a Toulouse, la meteo prevoit entre 2 et 7C, c'est quasiment tropical (ici aujourd'hui c'est -7/0C)! A tshao Michel Rodriguez Perl & XML http://www.xmltwig.com From mirod at xmltwig.com Wed Jan 29 12:48:00 2003 From: mirod at xmltwig.com (Michel Rodriguez) Date: Mon Aug 2 21:38:16 2004 Subject: [Toulouse-pm] Which OS are you? Message-ID: Je suis OS2/Warp... moi qui n'ai jamais utilise OS2... http://bbspot.com/News/2003/01/os_quiz.php Michel Rodriguez Perl & XML http://www.xmltwig.com