Besoin d'explications

Il s'agit de lignes Informix/4GL. J'écris le code Perl équivalent. Quelqu'un peut-il m'expliquer ce que fait ce code ? sdate correspond à une date quelconque ------------------ let mnth = month(sdate) let yr = year(sdate) # let edatec = mnth using "&&", "/01/", yr using "&&&&" let edate = edatec # let edate = extend(edate) + 1 units month - 1 units day J'ai des difficultés à traduire en Perl les lignes marquées d'un #. Kaladhaur

Kaladhaur Palaniappa a écrit : > > Il s'agit de lignes informix/4GL. J'écris le code Perl équivalent > > Quelqu'un peut-il m'expliquer ce que fait ce code > > sdate peut être n'importe quelle date > ------------------ > > let mnth = month(sdate) > let yr = year(sdate) > # let edatec = mnth using "&&", "/01/", yr using "&&&&" Me fournit une date complète correspondant au premier jour du mois, construite à partir de mnth et yr > let edate = edatec > # let edate = extend(edate) + 1 units month - 1 units day Positionne edate à la fin du mois suivant > > J'ai des difficultés à traduire en Perl les lignes marquées d'un # > > Kaladhaur -- Paul Watson # Oninit Ltd # Vieillir est obligatoire Tél. : +44 1436 672201 # Grandir est facultatif Fax : +44 1436 678693 # Mob. : +44 7818 003457 # www.oninit.com #

Le jeu. 07 août 2003 à 05:46:45 -0400, Kaladhaur Palaniappa a écrit : L'explication de Paul concernant les lignes commençant par « # » est correcte, mais il faut noter qu'il s'agit de commentaires. En 4GL, le caractère « # » met en commentaire tous les caractères qui suivent jusqu'à la fin de la ligne. Art S. Kagel > Ce sont des lignes Informix/4GL. J'écris le code Perl équivalent. > > Quelqu'un peut-il m'expliquer ce que fait ce code ? > > sdate peut être n'importe quelle date > ------------------ > > let mnth = month(sdate) > let yr = year(sdate) > # let edatec = mnth using "&&", "/01/", yr using "&&&&" > let edate = edatec > # let edate = extend(edate) + 1 units month - 1 units day > > J'ai des difficultés à traduire en Perl les lignes marquées d'un # > > Kaladhaur