Weitergabe eines Objectes in eine externe Funktion (PM) (gelöst) (Allgemeines zu Perl)

[thread]19049[/thread]

Weitergabe eines Objectes in eine externe Funktion (PM) [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+12 replies
jan99

2014-04-25 06:22
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich habe folgendes Problem das ich Code in eine PM ausgelagert habe und beim Funktionsaufruf wird auch ein Objekt für ein Logfile ($log) übergeben
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use strict; use warnings; use utf8; use OSM::Tree; use OSM::Tree::Helper; use OSM::Tree::WayMerger; ... my $log=Log::File->open($config{logfile_name}); ... # Aufruf der Funktion für die Way-Suche my @superway_id_result = osmtree_waymerger(@data,$log); ....
Die externe Funktion im Grundzug:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

package OSM::Tree::WayMerger ; use OSM::Tree::Helper; use strict; use warnings; use Data::Dumper; # JT Log-File-PM use Log::File; use base qw (Exporter AutoLoader); our $version='0.1'; our @EXPORT = qw (osmtree_waymerger ) ; ... sub osmtree_waymerger { waymerger(@_); } sub waymerger { my @data = shift; my $log = shift; ... #nachfolgend Zeile 126 $log->doublewrite("-- suchen der Anschluss-Elemente ---");
Die Meldung dabei ist:

Quote
Can't locate object method "doublewrite" via package "OSM::Tree::Way" at C:/Perl
/lib/OSM/Tree/WayMerger.pm line 126, <> line 1.

Die Funktion doublewrite ist in der Log::File definiert und funktioniert an anderer Stelle (dort wo die Instanz angelegt wird).Kann mir einer weiterhelfen?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +9 replies
- Raubtier
  
  2014-04-25 09:30
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  2014-04-25T04:22:02 jan99
  sub waymerger
  
  Code (perl): (dl )
  
  1 2
  
  { my @data = shift;
  
  Was soll @data = shift deiner Meinung nach tun?
  
  Beachte, dass in Perl folgende Aufrufe aus Sicht der Funktion testfunktion gleich sind:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @ab = ("a", "b"); my $c = "c"; my @abc = ("a", "b", "c"); testfunktion(@ab, $c); testfunktion(@abc);
  
  Quote
  
  Die Meldung dabei ist:
  
  Quote
  Can't locate object method "doublewrite" via package "OSM::Tree::Way" at C:/Perl
  /lib/OSM/Tree/WayMerger.pm line 126, <> line 1.
  
  Das zweite Element in @data, das du in der Zeile my @superway_id_result = osmtree_waymerger(@data,$log); übergibst, ist offenbar ein OSM::Tree::Way und kein Log::File-Objekt.
  
  Lösungsmöglichkeiten:
  - übergib das @data als Referenz (siehe auch perlsub, Abschnitt "Pass by Reference")
  - übergib den Logger als ersten Parameter, das Array als letzten
  Last edited: 2014-04-25 09:33:35 +0200 (CEST)
  - +8 replies
  - jan99
    
    2014-04-25 12:30
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    ich habe das mit der Übergabe so gemacht das ich die Variablen getauscht habe.
    
    Jetzt stellt sich aber eine neue Frage.
    
    Wenn ich die Variable @data übergebe, dann ist der Wert in der Auswertung nicht mehr derselbe.
    
    Ich bin mal so frei und stelle im Anschluss das Dumper-Ergebnis rein - vielleicht kann mir einer sagen warum. Ich dachte das jetzt mit dem Referenz verstanden zu haben.
    
    Hier erst der Source:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    print Dumper \@data; # Aufruf der Funktion für die Way-Suche my @superway_id_result = osmtree_waymerger($log,@data);
    
    und in der Unterfunktion:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    sub osmtree_waymerger { waymerger(@_); } sub waymerger { my $log = shift; print Dumper \@data;
    
    Gruß Jan :-)
    
    Hier nun der Dumper
    
    ... würde ich gerne Posten - aber das wird auch bei einem kleinen Beispiel als zu lang gekennzeichnet.
    
    Vielleicht hilft es schon - ansonsten stelle ich das gerne als Textlink bereit. Aber nicht jeder nimmt diese an...
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - pq
      
      2014-04-25 12:52
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2014-04-25T10:30:36 jan99
      Hier nun der Dumper
      
      ... würde ich gerne Posten - aber das wird auch bei einem kleinen Beispiel als zu lang gekennzeichnet.
      
      bitte entweder mit more-tag posten, dann sollte auch längerer text akzeptiert werden, oder lade es als text-datei-anhang hoch.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +6 replies
    - Raubtier
      
      2014-04-25 13:15
      
      User since
      2012-05-04
      1075 Artikel
      BenutzerIn
      
      2014-04-25T10:30:36 jan99
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      sub osmtree_waymerger { waymerger(@_); } sub waymerger { my $log = shift; print Dumper \@data;
      
      Wo kommt das @data her?
      Statt my $log = shift hätte ich my ($log, @data) = @_; erwartet. Und ich hätte dabei gehofft, dass @data keine globale Variable ist und dass der Code also mit "use strict" gar nicht compilen sollte.
      Last edited: 2014-04-25 13:17:06 +0200 (CEST)
      - +5 replies
      - jan99
        
        2014-04-25 13:26
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        also die @data ist keine globale Variable und im Anhang ist jetzt einmal das Dumper-Ergebnis zu finden.
        
        Erst dachte ich mit
        
        Code (perl): (dl )
        
        my @superway_id_result = osmtree_waymerger($log,@data);
        
        und
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        sub osmtree_waymerger { waymerger(@_); } sub waymerger { my @data = @{shift()}; my $log = shift;
        
        Das ganze lösen zu können - aber das hat mir auch Fehler in Richtung ungültig und ARRAY gemeldet.
        
        Bin gespannt. Irgendwie ist der Groschen wohl doch noch hängen geblieben.
        
        Gruß Jan :-)
        Anhänge
        
        text/plain
        257 lines
        osmCreateGPX_Debug.txt
        
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +4 replies
        
        Raubtier
        
        2014-04-25 13:28
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Die Lösung für dein Problem steht in meinem vorherigen Posting.
        
        +3 replies
        
        jan99
        
        2014-04-25 13:33
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        +10
        
        danke - hatte ich eben übersehen.
        
        Verstanden habe ich den Unterschied leider noch nicht ganz.
        
        Das Ergebnis paßt aber!
        
        Nächsten Tage gerettet !
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        +2 replies
        
        Raubtier
        
        2014-04-25 14:21
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Um 09:30 hatte ich geschrieben
        Was soll @data = shift deiner Meinung nach tun?
        
        Darauf bist du nicht eingegangen.
        
        Dann hattest du es durch my @data = @{shift()}; ersetzt, diese wichtige und in diesem Fall fehlerhafte Zeile aber zunächst verschwiegen und nicht kompletten Code gezeigt. Dennoch hätte das funktioniert, wenn du eine Referenz übergeben hättest (mein einer Lösungsvorschlag). Du hast aber den anderen (Parameter umdrehen) gewählt. Der passt aber nicht mit diesem Code zusammen.
        
        Generell musst du genauer arbeiten, sorry, wenn ich das so sage.
        Last edited: 2014-04-25 14:23:21 +0200 (CEST)
        
        jan99
        
        2014-04-25 14:43
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Quote
        Generell musst du genauer arbeiten, sorry, wenn ich das so sage.
        
        alles in Orndung so, hast ja recht.
        
        Wenn der Groschen nur entdlich bei manchen Dingen fallen würde.
        
        Gruß Jan :-)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- Muffi
  
  2014-04-25 09:51
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  magst dir nicht vielleicht erstmal eine Zeit lang Tutorials anschaun?
  In jeder deiner bisherigen Fragen lags am Grundverständnis.
  Lern doch erstmal wie man Variablen in Perl benutzt und les, ich glaub von Raubtier verlinkt, doch mal das durch was vorgeschlagen wird und verinnerliche das.
  Das wird sonst ein wochenlanges Frage-, Antwortspiel.
  1 + 1 = 10
- rosti
  
  2014-04-26 18:29
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  Verzichte auf den Exporter, arbeite rein objektorientiert und schaffe klare Verhältnisse, was den Aufbau Deiner Klassenhierarchien betrifft. Buchtipp: Eric Forster-Johnson, Perl Module.
  
  Übergebe ein Objekt nicht als 'Argument einer Funktion' sondern als ERSTES Argument an eine METHODE, wobei das Objekt eine Instant der Klasse ist, welche die Methode definiert. Nutze dazu anstelle
  
  Code (perl): (dl )
  
  methode($instanz, @argumente);
  
  die Schreibweise mit dem Arrow-Operator
  
  Code (perl): (dl )
  
  $instanz -> method(@argumente);
  
  Was bereits rein optisch die bessere Wahl ist nur wegen der Übersicht.
  
  Nutze die Vererbung.

View all threads created 2014-04-25 06:22.