Filehandle des Diamanten (gelöst) (Allgemeines zu Perl)

[thread]19718[/thread]

Filehandle des Diamanten [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+9 replies
Raubtier

2015-07-09 14:10

User since
2012-05-04
1075 Artikel
BenutzerIn

Hallo,

wie kann ich eigentlich auf das Filehandle des Diamant-Operators referenzieren?

Konkret: ich würde gerne binmode(filehandle_of(<>), ":crlf") setzen. Wie mache ich das? Wenn ich STDIN auf :crlf setze, funktioniert das zumindest schonmal für mein-script.pl < file. Aber ich möchte, dass auch :crlf gesetzt ist für mein-script.pl file1 file2. Geht das irgendwie?

(Workaround "nicht <> benutzen" geht natürlich)
- +2 replies
- GwenDragon
  
  2015-07-09 14:27
  User since
  2005-01-17
  14747 Artikel
  Admin1
  <> ist doch das Lesen von STDIN.
  Da lässt sich das Filehandle über einen Alias ansprechen:
  
  Code (perl): (dl )
  
  my $fh = \*STDIN;
  
  Oder missverstehe ich deine Frage?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Raubtier
    
    2015-07-09 15:15
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    Vielleicht ein Testbeispiel:
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    $ echo "\r" > crlf $ xxd crlf 0000000: 0d0a .. $ perl -E'binmode STDIN, ":crlf"; say length <>' < crlf 1 $ perl -E'binmode STDIN, ":crlf"; say length <>' crlf 2
    
    2 soll= 1 sein.
    
    Und wenn man mehrere Dateien im unteren Beispiel angibt, sollen die natürlich alle mit :crlf geöffnet sein.
    Last edited: 2015-07-09 15:16:49 +0200 (CEST)
- +6 replies
- Gast janus
  
  2015-07-09 16:15
  
  <> ist ARGV
  
  Typeglob also *ARGV für Übergabe in subs o.ä.
  
  MfG
  Last edited: 2015-07-09 17:09:18 +0200 (CEST)
  - +5 replies
  - Raubtier
    
    2015-07-09 17:52
    
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    Ah, ok. Das beantwortet zwar meine Frage nach dem Namen des Handles, hilft mir aber leider nicht.
    
    Denn anwenden kann man binmode erst auf geöffnete Dateien, vor dem <> ist die Datei aber noch nicht offen, daher geht binmode ARGV nicht (bzw. erst nachdem schon gelesen wurde). Ich hatte hier auf "Magie" gehofft.
    - +4 replies
    - betterworld
      
      2015-07-10 08:09
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      Default IO-Layer setzen:
      
      Code: (dl )
      
      1 2
      
      use open IN => ":crlf"; say length <>;
      
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - +3 replies
      - Raubtier
        
        2015-07-10 10:02
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Scheint nicht zu funktionieren:
        
        Code: (dl )
        
        1 2 3 4
        
        [09:59:11] ~/test$ perl -E'use open IN => ":crlf"; say length <>' < crlf 2 [09:59:27] ~/test$ perl -E'use open IN => ":crlf"; say length <>' crlf 1
        
        +2 replies
        
        betterworld
        
        2015-07-11 00:08
        
        User since
        2003-08-21
        2614 Artikel
        ModeratorIn
        
        Wieso meinst du, dass es nicht funktioniert?
        
        Im zweiten Fall funktioniert es offensichtlich.
        
        Im ersten Fall kannst du stattdessen binmode auf STDIN anwenden. Das "use open" wirkt sich nur auf Handles aus, die später geöffnet werden.
        Lieblingsmodule: IPC::System::Simple, Path::Class
        
        Raubtier
        
        2015-07-11 01:49
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        2015-07-10T22:08:34 betterworld
        Wieso meinst du, dass es nicht funktioniert?
        
        Im zweiten Fall funktioniert es offensichtlich.
        
        Es war offenbar zu früh am Morgen ;-)
        Danke, funktioniert!

View all threads created 2015-07-09 14:10.