On Wed, Sep 25, 2002 at 03:01:18PM +0200, St�phane Louis wrote:
> At 14:17 25/09/02 +0100, Yves Rutschle wrote:
> >si on prend un tout petit peu de
> >peine c'est extr�mement portable (Je me souviens avoir port�
> >un petit programme PerlTk en moins de 15 minutes de Linux �
> >Win32.)
>
> Et un gros programme �a prend combien de temps ? ;-))
Pas beaucoup plus longtemps "si on prend un tout petit peu
la peine."
La peine � prendre, c'est d'�viter de faire des appels
directs � des programmes externes Unix genre:
$list = `ls`;
C'est pas portable. La mauvaise solution est:
if ( $os eq "unix" ) {
$list = `ls`;
} else if ( $os eq "windows" ) {
$list = `dir`;
}
La bonne solution est bien entendu d'utiliser les
abstractions de Perl, opendir/readdir etc.
Apr�s avoir �a, porter un gros programme prend aussi 5
minutes.
/Y
