You are viewing a single comment's thread. Return to all comments →
Perl
use strict; use warnings; my $n = <>; my %ans = (); for(1..$n){ my $text = <>; while($text =~ m{<\s*(\w+)[^<>]*/?>}g){ $ans{$1} = 1; } } print join ';', sort keys %ans;
Seems like cookies are disabled on this browser, please enable them to open this website
Detect HTML Tags
You are viewing a single comment's thread. Return to all comments →
Perl