Ist eine Variable ein Filehandle? (gelöst) (Allgemeines zu Perl)

[thread]19993[/thread]

Ist eine Variable ein Filehandle? [gelöst]

Tags: perl5 FileHandle GLOB Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+5 replies
pq

2016-02-21 13:59
User since
2003-08-04
12208 Artikel
Admin1
Gibt es vielleicht ein Modul, um zu prüfen, ob eine Variable ein Filehandle ist?

Wir haben gestern diesen Pull Request für YAML::XS gemerged:
https://github.com/ingydotnet/yaml-libyaml-pm/comm...
Code: (dl )

1 2

- if (ref $filename eq 'GLOB') { + if (defined fileno($filename)) {
Unglücklicherweise stirbt fileno($var), wenn $var ein Objekt ist, was kein Filehandle ist (beispielsweise Path::Class::File).

Nun habe ich den Code aus File::Copy kopiert:
https://github.com/perlpunk/yaml-libyaml-pm/commit...
Code (perl): (dl )

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

sub _from_a_handle { my ($var) = @_; my $from_a_handle = ( ref($var) ? ( ref($var) eq 'GLOB' || UNIVERSAL::isa($var, 'GLOB' ) || UNIVERSAL::isa($var, 'IO::Handle') ) : (ref(\$var) eq 'GLOB') ); return $from_a_handle; }
Der benutzt UNIVERSAL::isa, das heisst, das funktioniert nicht, wenn die Klasse isa() überschreibt.
Das ist vermutlich ein seltener Fall, den man fixen könnte, indem man eine weitere Prüfung einbaut und dann $var->isa aufruft.
Aber mich würde interessieren, ob es mittlerweile ein Modul gibt, was solch eine Prüfung für mich macht.
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
- pq
  
  2016-02-21 14:14
  User since
  2003-08-04
  12208 Artikel
  Admin1
  hmm. Ref::Util scheint zu tun, was ich möchte.
  
  Code (perl): (dl )
  
  1 2
  
  use Ref::Util qw/ is_globref is_ioref /; return is_globref($var) || is_ioref($var);
  
  cool.
  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
- +2 replies
- Gast janus
  
  2016-02-21 17:09
  Was machen, damit der Patient nicht verblutet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $v = 123; print eval{ fileno($v); } || $^E; # Ein Vorgang bezog sich auf ein Objekt, das kein Socket ist # sagt $^E
  
  Last edited: 2016-02-21 17:23:45 +0100 (CET)
  - pq
    
    2016-02-21 19:30
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    ja, hatte ich auch dran gedacht, konnte mich aber nicht so mit anfreunden.
    unbestritten sehr pragmatisch, kurz und ohne neue abhängigkeiten.
    
    interessant wäre herauszufinden, ob es fälle gibt, wo die anderen lösungen nicht funktionieren, und wie die genau aussehen.
    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
- pq
  
  2016-02-21 20:53
  User since
  2003-08-04
  12208 Artikel
  Admin1
  TIMTOWTDI:
  
  Code (perl): (dl )
  
  1 2
  
  use Scalar::Util qw/ openhandle /; if (openhandle($filename)) ...
  
  mein favorit, und wird gleich mein vierter pull request zu diesem thema.
  Last edited: 2016-02-21 21:40:55 +0100 (CET)
  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

View all threads created 2016-02-21 13:59.