Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use utf8;
...
}

say "Tags are:\n\t", Mojo::DOM->new($data)->find('a')->map(attr=>'href
+')->uniq->sort->join("\n\t");
  2. or download this
    Mojo::DOM->new($data)->find('a')->map(attr=>'*')->join("\n\t");
  3. or download this
    my %attrs = "Tags are:\n\t", Mojo::DOM->new($data)->attr;
map{ print "(%s)/(%s)\n", $_, $attrs{$_} } sort keys %attrs;
  4. or download this
    my $dom = Mojo::DOM->new($data);
map{ say }  $dom->find('a')->first;
my $attrs = $dom->find('a')->first->attr;
map{ printf "(%s)/(%s)\n", $_, $attrs->{$_} } sort keys %$attrs;