Discussion :

[Slippers]

J aimerai passer de l objet entre deux fichiers .pl

donc le fichier principal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/usr/bin/perl -w
use  strict;
  package Info;
 use strict;
  sub new
  {
     my $this = {};
     $this->{Test} = ();
 
    return $this;
  }
  1;
 
require 'C:\Documents and Settings\Administrator\My Documents\Perl\prog\XXX12.pl';
my $pointer = Info->new( );
$pointer->{Test}="Pof";
suivant();

et le fichier secondaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
sub suivant{
  print "$pointer->{Test}";      
        }
1;

Evidement comme ca, ca fonctionne pas lol, quelqu un peut m expliquer comment je dois initialaliser l objet de l autre cote ? Pour garde evidement les infos que j ai deja mise deds =)

[nematoad]

Passe l'objet en paramètre à suivant()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
$pointer->{Test}="Pof";
suivant( $pointer);
 
######## autre fichier #########
 
sub suivant {
  my $p = shift;
  print "$p->{Test}";     
}

[Slippers]

Exellent =), t une mine d or d information toi =)
Grand merci =)