Externe Funktionen einbinden (Allgemeines zu Perl)

[thread]13564[/thread]

Externe Funktionen einbinden

Leser: 23

Articles: hide open all | hide show old branches

+7 replies
trojax

2009-05-25 10:45
User since
2009-05-13
21 Artikel
BenutzerIn
Hallo zusammen,
ich komm eigentlich aus der PHP-ecke, und da hab ich meine mehrmals benützen Funktionen (z.B. CSV-Files auslesen etc) immer in einer getrennten Datei abglegt und diese per Include eingebunden.
In Perl scheint das require() oder do() zu sein, nur, wie müsste das konkret aussehen wenn in dem externen File Unterfunktionen stehen würden?
Also im Stile von:
Code (perl): (dl )

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

sub MATRIX { #Einlesen und Speichern der Datenfiles open (FILETOREAD, "<$_") || die "Can't open $_: $!"; $i = 0; while (<FILETOREAD>) { # read each line of file, one at a time ++$i; chomp; next if /^#/; # Kommentarzeilen überspringen s/\s+//g; # Leerzeichen entfernen $xyz = $_; push(@values,[split(/\,/,$xyz)]); } $values_ref = \@values; [b]return $values_ref; return $i; return $spalten_values = @ergebniss = (split(/\,/,$xyz));[/b] }
Und wie greife ich dann auf die zurückgegebenen Werte zu (Fett) ?
Danke schon im Voraus für eure Hilfe!

Gruß trojax
- renee
  
  2009-05-25 11:19
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Z.B. so:
  
  Dein Skript:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  #!/usr/bin/perl use strict; use warnings; use DeinModul; my $var = funktion(); my @test = test(); print "$var\n"; print $_,"\n" for @test;
  
  Das Modul (DeinModul.pm):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  package DeinModul; use strict; use warnings; use base 'Exporter'; our @EXPORT = qw(funktion test); sub funktion { return 'test'; } sub test { return (1,2,3); } 1;
  
  Mehr gibt's auch im Wiki
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +5 replies
- Linuxer
  
  2009-05-25 11:39
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Da renee bereits den Weg des Moduls gezeigt hat, hier noch ein paar Anmerkungen zu Deinem Schnipsel:
  
  'use strict;' und 'use warnings;' verwenden
  Funktionsnamen würde ich klein schreiben, nicht GROSS
  alle Informationen, die die Funktion nutzen soll, als Argument übergeben; nicht aus globalen Variablen nehmen!
  open mit lexikalischer Variable als Handle: open my $readhandle, 'datei'...
  open in der 3-Argument-Version nutzen: open my $handle, '<', 'datei'
  $xyz ist überflüssig; split() kann auch $_ verarbeiten
  Wenn Du mehr als einen Wert zurückliefern muss, liefer eine Liste zurück
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
  
  use strict; use warnings; my $i=0; sub matrix { my ( $filepath ) = @_; # new array my @values; # open file for reading open my $fh, '<', $filepath or die "$filepath: open failed: $!\n"; my $i = 0; while ( my $line = <$fh> ) { $i++; # skip commented lines next if $line =~ m{^#}; # remove line breaks; obsolete because of following s/\s+//g # but good idea to do this (what happens if the s///g is gone?) ;o) chomp $line; # remove any white spaces (including line breaks) $line =~ s/\s+//g; push @values, [ split m{,}, $line ]; } close $fh or die "$filepath: close failed: $!\n"; # return number of read lines and reference to this array return $i, \@values; }
  
  Aufruf:
  
  Code (perl): (dl )
  
  my ( $count, $array_r ) = matrix( '/path/to/file' );
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +3 replies
  - trojax
    
    2009-05-25 13:56
    
    User since
    2009-05-13
    21 Artikel
    BenutzerIn
    
    Danke schön!
    ich habs noch nicht ganz gerafft, bin aber drüber.
    Eine kurze Frage: in der Zeile:
    
    Quote
    return $i, \@values;
    
    gibst du ja die referenz auf das Array @values zurück, wie lange bzw. aus welchen codeteilen heraus kann ich denn das übergebene Array wieder dereferenzieren? Verfällt das nicht wenn die Subfunktion vorbei ist? (Also offensichtlich nicht, nur warum?)
    - murphy
      
      2009-05-25 14:29
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Perl 5 verwaltet Speicher, den es für Datenstrukturen alloziert, mit Hilfe von Referenzzählern. Für Dich als Programmierer bedeutet das, dass Du Dir in der Regel überhaupt keine Gedanken machen musst, ob irgendein Speicherzugriff noch erlaubt ist -- solange Du eine Referenz oder Variable kennst, über die Du direkt oder indirekt an ein Objekt kommen kannst, solange ist auch der Zugriff erlaubt.
      
      Etwas präziser funktioniert dieses Speichermanagement so: Jedes Objekt wird mit einem Referenzzähler von eins erstellt. Es wird dealloziert sobald sein Referenzzähler auf Null fällt. Immer wenn Du eine Referenz auf ein Objekt erzeugst -- explizit mit dem \-Operator oder auch implizit durch Verwendung als Rückgabewert, Closures, Aliase oder ähnliches -- wird der Zähler um eins erhöht. Immer wenn eine Referenz auf das Objekt ungültig wird -- explizit indem eine Variable, die eine Referenz enthielt, auf einen anderen Wert gesetzt wird oder implizit, weil ein Rückgabewert vom internen Stack gelöscht wird, der Gültigkeitsbereich einer Variable oder eines Aliases verlassen wird oder weil andere Objekte, die noch eine Referenz enthalten, selbst zerstört werden -- wird der Zähler um eins verringert.
      
      Dieses automatische Speichermanagement ist bequem für den Programmierer und effizient. Es hat allerdings den Nachteil, dass es möglich ist, zirkuläre Referenzketten aufzubauen, was dazu führt, dass die an der Kette beteiligten Objekte niemals freigegeben werden. Um das zu vermeiden bräuchte man einen "echten" Garbagecollector.
      When C++ is your hammer, every problem looks like your thumb.
    - Linuxer
      
      2009-05-25 14:32
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Eine Datenstruktur verschwindet, sobald die letzte Referenz darauf verschwunden ist.
      
      Da hier die Referenz auf den Array zurückgeliefert wird und einer Variable ($array_r) zugewiesen wird, stirbt der Array auch nicht.
      
      Über die Referenz kann wie (referenz)gewohnt auf den Array zugegriffen werden:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      # alle elemente der array referenz for ( @$array_r ) { print $_; } # erstes element print $array_r->[0];
      
      siehe perldoc perlreftut
      und perldoc perlref
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - Crian
    
    2009-05-26 08:37
    
    User since
    2003-08-04
    5870 Artikel
    ModeratorIn
    
    Das $i scheint mir überflüssig zu sein. $. enthält schon die aktuelle Zeilennummer (was nach der Whileschleife der Anzahl der Zeilen entspricht).
    
    Wenn du die Datei nicht schließt, sollte $. noch Verwendbar sein, nach dem Ende der Funktion wird die Datei eh geschlossen.
    Last edited: 2009-05-26 08:40:31 +0200 (CEST)
    s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
    
    use strict; use warnings; Link zu meiner Perlseite

View all threads created 2009-05-25 10:45.