Filehandle auf __DATA__ übergeben (gelöst) (Allgemeines zu Perl)

[thread]16136[/thread]

Filehandle auf __DATA__ übergeben [gelöst]

Leser: 27

Articles: hide open all | hide show old branches

+14 replies
pktm

2011-03-31 12:34
User since
2003-08-07
2921 Artikel
BenutzerIn
Hallo!

Man kann in einem Perlskript Daten in der __DATA__-Sktion definieren.
Wenn ich diese Daten als FileHandle verwenden?

Hier mein (nicht funktionierender) Ansatz:
Code (perl): (dl )

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

#!perl use strict; use warnings; use utf8; use FileHandle; my $fh = FileHandle->new(*DATA, "r"); if( $fh ) { print $fh->getlines(); }else{ print "no fh"; }
Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )
- Taulmarill
  
  2011-03-31 12:44
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Mit dem Modul FileHandle hab ich es noch nicht hin bekommen, denke auch, dass das über einen dokumentierten Weg nicht gehen wird, aber wenn du einfach nur einen lexikalischen Filehandle auf __DATA__ brauchst, geht das so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $fh = *DATA; if( $fh ) { print <$fh>; } else{ print "no fh"; }
  
  Hoffe es hilft weiter.
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- renee
  
  2011-03-31 12:45
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Mit *<Package>::DATA
  
  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
  
  #!/usr/bin/perl use strict; use warnings; readfh( *main::DATA ); sub readfh { my ($fh) = @_; while ( my $line = <$fh> ) { chomp $line; print ">>$line<<\n"; } } __DATA__ 1 2 3 5 72 13
  
  Edit: Ich glaube ich hätte den Post nochmal genauer lesen sollen... Meine Antwort passt nicht so ganz zur Frage ;-(
  Last edited: 2011-03-31 12:48:02 +0200 (CEST)
  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/
- +9 replies
- murphy
  
  2011-03-31 12:45
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Da braucht es gar keinen Konstruktoraufruf, sondern nur das Erzeugen einer Globreferenz. Zum Beispiel so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use strict; use warnings; use IO::Handle; my $fh = \*DATA; print $fh->getlines; __DATA__ oans zwoa mehra
  
  Übrigens ist FileHandle soweit ich weiß veraltet und nurmehr ein Stub für IO::Handle.
  When C++ is your hammer, every problem looks like your thumb.
  - +8 replies
  - Taulmarill
    
    2011-03-31 13:02
    
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    2011-03-31T10:45:59 murphy
    Übrigens ist FileHandle soweit ich weiß veraltet und nurmehr ein Stub für IO::Handle.
    
    FileHandle ist von IO::File abgeleitet was seinerseits wieder von IO::Handle abgeleitet ist. Ganz veraltet ist FileHandle aber wohl nicht, es implementiert immerhin eigene Methoden, vor allem getline und getlines.
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - +2 replies
    - pktm
      
      2011-03-31 14:25
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Ich hatte das damals für mich entdeckt, weil mir die alte open DATA - Sytntax so unermesslich hässlich vorkam. Ich hatte es also sowieso eher als Front-End für etwas anderes angesehen. Und es ist im Core, wenn ich mich nicht täusche. Ich kann es also noch ein Weilchen verwenden :)
      http://www.intergastro-service.de (mein erstes CMS :) )
      - Taulmarill
        
        2011-03-31 15:30
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Da das Objekt FileHandle bzw. IO::File bzw. IO::Handle selbst eine Referenz auf ein File Handle ist, geht übrigens auch folgendes, auch wenn ich das nicht schön finde und nicht sicher bin, ob da dann wirklich alles funktioniert:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        use FileHandle; my $fh = \*DATA; bless $fh, 'FileHandle'; if( $fh ) { while ( my $line = $fh->getline ) { print $fh->tell . $line; } }
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - +5 replies
    - murphy
      
      2011-03-31 14:53
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2011-03-31T11:02:36 Taulmarill
      [...]
      Ganz veraltet ist FileHandle aber wohl nicht, es implementiert immerhin eigene Methoden, vor allem getline und getlines.
      
      Keine Ahnung wie es mit anderen Methoden aussieht, die von Dir genannten sind jedenfalls in IO::Handle implementiert, nicht in FileHandle.
      
      In der Dokumentation zu FileHandle steht bei mir auch gleich als erster Satz:
      
      perldoc FileHandle
      NOTE: This class is now a front-end to the IO::* classes.
      [...]
      
      Ich behaupte, das würde man andernorts "deprecated" nennen.
      When C++ is your hammer, every problem looks like your thumb.
      - +4 replies
      - Taulmarill
        
        2011-03-31 15:27
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Du scheinst recht zu haben, ein Blick in den Quellcode zeigt, dass FileHandle nur die Methode pipe() selbst implementiert und alle anderen erbt. pipe() selbst ist dann auch nicht so spannend. Schade dass das in dem POD zu FileHandle nicht deutlicher drin steht.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +3 replies
        
        pktm
        
        2011-04-18 08:37
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Habe ich das eigentlich übersehen, oder wie mache ich ein IO::Handle per Dateiname auf?
        Bei FileHandle geht mdas z.B. mit $fh->open("file", "<").
        
        Wie geht das mit IO::Handle?
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        +2 replies
        
        Taulmarill
        
        2011-04-18 10:02
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Dafür gibt´s IO::File, das ist von IO::Handle abgeleitet.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        pktm
        
        2011-04-18 10:19
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Danke!
        http://www.intergastro-service.de (mein erstes CMS :) )
- GwenDragon
  
  2011-03-31 12:46
  User since
  2005-01-17
  14536 Artikel
  Admin1
  DATA ist doch ein globales Filehandle, also einfach einen Alias drauf. ;)
  my $fh = *DATA;
  
  Also:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  #!/usr/bin/perl use strict; use warnings; use utf8; use FileHandle; my $fh = *DATA; if( $fh ) { print $fh->getlines(); }else{ print "no fh"; } __DATA__ A B X Y Z
  
  Ergibt:
  A B X Y Z
  
  EDIT: Kaum kurz mal am Telefon abgelenkt, kommen die Tipps massenweise. ;)
  Last edited: 2011-03-31 12:48:47 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- pktm
  
  2011-03-31 13:01
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Ok, das war lehrreich :)
  
  Danke.
  http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2011-03-31 12:34.