Reading metatags

[redstarfcs1]

How to read metatags without any perl module?

 

[duncdude]

Hi feherke

Thank you. No, that was not rude

I'll see what i can do to solve the problems of additional information, as per your examples


Kind Regards
Duncan

 

[TrojanWarBlade]

Come on Duncs, you can do it! ;-)


Trojan.

 

[KevinADC]

Use eyes.

It was all just a joke between me and ishnid, not meant to be taken seriously mate.

 

[rharsh]

Hmmm.. this looks like it works will all the examples that have been provided; it's a mess though!

local undef $/;
my $text = <DATA>;

my (@meta_data) = $text =~ m[(<meta[^>]+>)]ig;
foreach my $tag (@meta_data) {
    my (@results)= grep {defined && /[^'"]/} $tag =~ m!.*?['"]?(\w+)['"]?=(?(?=['"])(['"]))(.+?)(?(2)\2|\b)!isg;    
    my $ref = {@results};
    foreach (keys %$ref) {
        print "$_ - $ref->{$_}\n";
    }
}