A voir également:
- PERL: Appeler 1 procédure ds une autre ?
- Denon perl pro test - Guide
- Active perl - Télécharger - Édition & Programmation
- Can't open perl script "makefile.pl": no such file or directory - Forum Perl
- Tableau(perl) ✓ - Forum Perl
- Perl ftp - Forum Perl
1 réponse
Bobinours
Messages postés
2898
Date d'inscription
jeudi 26 avril 2001
Statut
Membre
Dernière intervention
21 mars 2013
504
20 mars 2002 à 00:26
20 mars 2002 à 00:26
#!/usr/bin/perl -w
use strict;
sub fonct_1
{
return "Hello Worl";
}
sub fonct_2
{
my $chaine = fonct_1;
print $chaine;
}
fonct_2();
-= Bobinours =-
use strict;
sub fonct_1
{
return "Hello Worl";
}
sub fonct_2
{
my $chaine = fonct_1;
print $chaine;
}
fonct_2();
-= Bobinours =-
20 mars 2002 à 14:29
Thanks and see you Soon