Referenz auf Regex erkennen

15/04/2009 - 00:16 von Frank Seitz | Report spam
#!/usr/bin/perl

use strict;
use warnings;

use Scalar::Util;

my $ref = qr/x/;
print 'Test1: ',ref($ref),"";
$ref = bless $ref,'X';
print 'Test2: ',ref($ref),"";
print 'Test3: ',Scalar::Util::reftype($ref),"";

__END__
Test1: Regexp
Test2: X
Test3: SCALAR

Wie erkenne ich eine Referenz auf einen Regex?
ref() klappt nur bei einer ungeblessten Referenz.
reftype() hilft auch nicht weiter.

Grüße
Frank
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
 

Lesen sie die antworten

#1 Ferry Bolhar
16/04/2009 - 21:18 | Warnen spam
"Frank Seitz":

Wie erkenne ich eine Referenz auf einen Regex?
ref() klappt nur bei einer ungeblessten Referenz.
reftype() hilft auch nicht weiter.



Mir ist nicht ganz klar, was du vorhast bzw. wissen möchtest.

perl -e "print ref \qr/x/"

ergibt bei mir REF.

Wozu benötigst du eine Referenz auf eine Regex bzw. möchtest sie
als Objekt markieren?

LG, Ferry

Ähnliche fragen