Perl

[PERL] [Debutant] Commande shell source en perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] [Debutant] Commande shell source en perl

3xc4l18ur

question = ( to ) ? be : ! be;

Bonjour,

Je commence a me mettre au perl et je me retrouve tres vite avec un fichier perl de 3 kms de long.
N'y a t il pas l'equivalant de la commande builtin "source" en shell ?

merci

Message édité par 3xc4l18ur le 26-10-2006 à 09:53:51

Publicité

Elmoricq

Modérateur

http://perldoc.perl.org/Exporter.html

http://perldoc.perl.org/functions/use.html

3xc4l18ur

question = ( to ) ? be : ! be;

Je dois m'etre mal exprimé.
Je voudrais faire un truc du genre.

Code :

[plop@plop ~/test]$ cat test.pl
#!/usr/bin/perl -w
use strict;
require ("test.txt" );
affiche ("plop" );
[plop@plop ~/test]$ cat test.txt
sub affiche
{
print ( @_ );
}
[plop@plop ~/test]$ ./test.pl
test.txt did not return a true value at ./test.pl line 5.

Elmoricq

Modérateur

Non non, tu as parfaitement bien exposé ton problème.

3xc4l18ur

question = ( to ) ? be : ! be;

Pour les suivants :

Code :

[plop@plop~/test]$ cat test.pl
#!/usr/bin/perl -w
use strict;
push @INC, '.';
require Fonctions;
affiche ("plop" );
[plop@plop ~/test]$ cat Fonctions.pm
sub affiche
{
print ( @_ );
}
1;

Message édité par 3xc4l18ur le 26-10-2006 à 11:07:36

Elmoricq

Modérateur

Je trouve que c'est plus propre avec Exporter, tout le blabla déclaratif est dans le module, et on ne s'embarrasse plus que d'un "use" dans le programme PERL :

cat machin.pm

#! /usr/bin/perl

package machin;
require Exporter;

@ISA = ("Exporter" );
@EXPORT = qw(affiche);
$VERSION = 1.00;

sub affiche()
{
print "tu peux pas test\n";
}

1;

cat truc.pl :

#! /usr/bin/perl

use machin;

affiche();

(edit : justement pour les suivants )

Message cité 1 fois
Message édité par Elmoricq le 26-10-2006 à 11:13:21

Chaos Intestinal

Elmoricq a écrit :

print "tu peux pas test\n";

[:rofl]

gen2

Je me permets un petit HS, c'est juste pour savoir d'où vient cette phrase.
Je l'ai vu dans une parodie de Mozinor, mais ça vient de lui ?

Elmoricq

Modérateur

Je me pose la question aussi, mais pour une obscure raison cette phrase me fait rire (à cause du ton employé et de la plaque d'immatriculation [:god] ).

Je ne la rencontre aussi que depuis cette (énorme) parodie de Mozinor. [:dawa]

FORUM HardWare.fr

Programmation

Perl

[PERL] [Debutant] Commande shell source en perl

Sujets relatifs
[Débutant C] Problème aprés bonne compilation	Newsletter débutant
Problème débutant Gallerie	[Perl] script utilisant les pipe unix, sql, et p'tet fork
arborescence en perl	Probleme de débutant...
pascal et commande dos ...	Récupérer des données de l'utilisateur en ligne de commande
[Perl] Connexion serveurs	est ce possible en perl ?
Plus de sujets relatifs à : [PERL] [Debutant] Commande shell source en perl

Page générée en 0.085 secondes