[PERL] [Debutant] Commande shell source en perl

Marsh Posté le 26-10-2006 à 09:53:00

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

Reply

Marsh Posté le 26-10-2006 à 09:53:00

Reply

Marsh Posté le 26-10-2006 à 09:57:33

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

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

Reply

Marsh Posté le 26-10-2006 à 10:19:08

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.

Reply

Marsh Posté le 26-10-2006 à 10:21:42

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

Reply

Marsh Posté le 26-10-2006 à 11:07:11

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

Reply

Marsh Posté le 26-10-2006 à 11:11:26

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

Reply

Marsh Posté le 26-10-2006 à 12:09:53

Elmoricq a écrit :

print "tu peux pas test\n";

[:rofl]

Reply

Marsh Posté le 03-11-2006 à 15:53:30

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 ?

Reply

Marsh Posté le 03-11-2006 à 16:40:02

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]

Reply

[PERL] [Debutant] Commande shell source en perl

Sujets relatifs:

Leave a Replay