Referenz auf FILEHANDLE oder Global (Allgemeines zu Perl)

[thread]20453[/thread]

Referenz auf FILEHANDLE oder Global

Tags: perl5 global declaration Filehandel Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+11 replies
Karsten42

2018-04-27 11:09
User since
2018-04-27
1 Artikel
BenutzerIn
Moin Moin Experten,
So ganz "unbeleckt" bin ich nicht mit Perl jedoch habe ich da ein Problem mit einem Filehandle und tie.
Wie bekomme ich einen Filehandel global oder eine Referenz darauf?

Beispiel das NICHT funktioniert:
Code: (dl )

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

sub open_COM { ... $tie_ob = tie(*PORT,'Win32::SerialPort', $cfgfile); #Create filehandle only local ... #DEBUG print PORT "42, why not?\n"; # Yepp, working ... } sub txd { my $msg = shift; printf PORT "%s\n\r",$msg; # ouch... NOT working usleep(200000); }
Vielen Dank für eure Mühe und Tipps.
beste Grüße
Karsten

modedit Editiert von GwenDragon:
Titel geändert, da in Forum kein Handel mit Files stattfindet ;)
Last edited: 2018-04-27 14:48:58 +0200 (CEST)
- lichtkind
  
  2018-04-27 13:06
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  echte FILEHANDLE sind von sich aus global, das war ja das problem damit, weswegen man sie in lokale variablen packt.
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- +9 replies
- rosti
  
  2018-04-27 13:22
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  Tie::Handle gibt es, siehe dort. Ob sich die von Dir gewählte Klasse dafür eignet wäre zu prüfen. Ansonsten, da ja Handle auch scalare sind, könnest Du mit
  
  Code (perl): (dl )
  
  1 2 3
  
  my $handle; *PORT = $handle; $hand = *PORT;
  
  den Typeglob entsprechend anwenden.
  
  MfG
  - +8 replies
  - Gast Karsten42
    
    2018-04-27 14:00
    
    Hallo rosti,
    
    Herzlichen Dank für deinen Hinweis. Ja,ich hatte ja auch angenommen das der filehandel global sei.
    Das mit dem Typeglob funktioniert leider nicht. Dann muss ich den Tie eben im Globalen scope ausführen...
    
    Meeega Danke für eure Hilfe!
    
    gruß
    Karsten
    Last edited: 2018-04-27 14:52:05 +0200 (CEST)
    - +6 replies
    - Linuxer
      
      2018-04-27 15:06
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Hi,
      
      aus perltie Tying-FileHandles:
      
      perldoc perltie
      When tying a handle, the first argument to tie should begin with an asterisk. So, if you are tying STDOUT, use *STDOUT . If you have assigned it to a scalar variable, say $handle , use *$handle . tie $handle ties the scalar variable $handle , not the handle inside it.
      
      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!
      - +5 replies
      - hlubenow
        
        2018-04-27 17:03
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2018-04-27T13:06:58 Linuxer
        perldoc perltie
        the first argument to tie should begin with an asterisk. So, if you are tying STDOUT, use *STDOUT.
        
        Hmm, was ist denn das? Sieht aus wie ein C-Zeiger, aber das kann's wohl nicht sein.
        
        +4 replies
        
        rosti
        
        2018-04-27 17:10
        
        User since
        2011-03-19
        3470 Artikel
        BenutzerIn
        
        2018-04-27T15:03:47 hlubenow
        2018-04-27T13:06:58 Linuxer
        perldoc perltie
        the first argument to tie should begin with an asterisk. So, if you are tying STDOUT, use *STDOUT.
        
        Hmm, was ist denn das? Sieht aus wie ein C-Zeiger, aber das kann's wohl nicht sein.
        
        Das sind sog. Typeglobs. Dh., eine Zuweisung *glob = $symol; muss wissen, was $symbol für ein Type ist. Das kann z.B. ein beliebiger Scalar sein, eine Funktionsreferenz oder auch ein FileHandle.
        
        Wenn der Type vom Interpreter nicht erkennbar ist, gibts Mecker:
        
        Code (perl): (dl )
        
        1 2 3
        
        my $com; *com = $com; # Undefined value assigned to typeglob at ..
        
        .
        
        +3 replies
        
        hlubenow
        
        2018-04-27 22:34
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        Ok, danke. Laura Lemay schreibt dazu:
        
        Quote
        Typeglobs werden heutzutage in Perl nicht mehr so oft verwendet wie früher, als es noch keine Referenzen gab und man die Typeglobs dazu nutzte, Verweise auf Listen an Subroutinen zu übergeben. Typeglobs stellen aber auch einen Weg dar, um Referenzen auf Datei-Handles zu erzeugen, und geben uns damit eine Möglichkeit an die Hand, bei Bedarf Datei-Handles in und aus Subroutinen zu übergeben oder lokale Datei-Handles zu erzeugen.
        
        Ich werde, wenn möglich, wohl eher Referenzen verwenden.
        Datei-Handle an Subroutinen übergeben oder lokale Datei-Handle erzeugen muß ich normalerweise wohl auch eher nicht, sofern nicht irgendein Modul das verlangt. Ich komme daher wohl eher selten mit Typeglobs in Berührung.
        Last edited: 2018-04-27 22:35:28 +0200 (CEST)
        
        Linuxer
        
        2018-04-28 01:44
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Solange Du nur "einfache" Handles aus oder an Subroutines geben willst, funktioniert das wunderbar bereits mit lexikalischen Variablen. Da braucht es keine Typeglobs (mehr).
        
        Ich habe das schon sehr erfolgreich für einen Parser eingesetzt. Der durfte zeilenweise aus einer Datei mit einer verschachtelten Struktur lesen; je nach Zeile wurden dann die folgenden Unterstrukturen mit eigenen Subroutinen verarbeitet, indem einfach nur das lexikalische Handle an die Subroutine gereicht wurde und diese dann selber aus dem Handle gelesen hat.
        
        Grobes Schema (aus der Erinnerung, ungetestet):
        more (4.5kb)
        
        Mehr zu Typeglobs kann man auch da nachlesen: perldata Typeglobs-and-Filehandles
        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!
        
        rosti
        
        2018-04-28 08:06
        
        User since
        2011-03-19
        3470 Artikel
        BenutzerIn
        
        Nunja, wenn man STDIN an eine sub übergeben will ist das gar nicht anders möglich: $self->foo(*STDIN);
        
        Anderes Beispiel:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        # Response als Rohdaten ausgeben # Optional FileHandle als Argument sub print_rawdata{ my $self = shift; my $fh = shift || *STDOUT; ...
        
        Und noch ein Beispiel für ein Typeglob auf eine sub in einer ausgelagerten Datei:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        # Datei foo.pm *foo = sub{ my $self = shift; };
        
        Wer diese Datei per require einbindet, lädt eine Funktion mit dem Namen foo in seinen Namespace. Wobei o.g. Schreibweise auch sicherstellt, daß die Datei einen wahren Wert zurückgibt.
        
        Dasselbe in herkömmlicher Schreibweise:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        # Datei foo.pm sub foo{ my $self = shift; } 1;
        
        MfG
    - rosti
      
      2018-04-27 16:55
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      Das Problem ist, daß Tie::Handle einen *Glob haben will, damit es mit Tie::Scalar keinen Konflikt gibt.
      
      Andererseits funktioniert der Typeglob nur, wenn im Scalar auf welchen sich der glob bezieht, ein eindeutiger Type erkennbar ist. Untenstehender Trick funktioniert:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      use Win32::SerialPort qw(:STAT 0.19); use IO::Handle; # Dummy handle damit der Typeglob funktioniert my $com = IO::Handle->new; # und damit funktioniert der Typeglocb *COM = $com; my $PortObj = tie *COM, 'Win32::SerialPort', 'd:/home/dev/comport3.cfg' or die $@; # Modem abfragen my $out = "ATQ0V1E0".pack "C", 13; print COM $out; my ($BlockingFlags, $InBytes, $OutBytes, $LatchErrorFlags) = $PortObj->status() or die "can't get status"; print Dumper $PortObj->read($InBytes);
      
      Der Trick besteht also darin, daß ein beliebiges Handle als Dummy erstellt wird. Mit IO::File oder IO::String funktioniert das auch weil diese Klassen von IO::Handle erben. Danach kannst Du
      
      Code (perl): (dl )
      
      1 2
      
      print $com $sequence; print COM $sequence
      
      gleichermaßen anwenden.
      
      mfg
      Last edited: 2018-04-27 17:27:01 +0200 (CEST)

View all threads created 2018-04-27 11:09.