First commit

1 files changed, 35 insertions, 0 deletions

diff --git a/examples/detect_encoding.pl b/examples/detect_encoding.pl
new file mode 100644
index 0000000..cea8102
--- /dev/null
+++ b/examples/detect_encoding.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+
+use utf8;
+use strict;
+
+use HTML::MyHTML;
+use LWP::UserAgent;
+
+my $ua = LWP::UserAgent->new;
+my $req = HTTP::Request->new(GET => "https://www.google.com/");
+my $res = $ua->request($req);
+
+my $body = $res->content;
+
+# init
+my $myhtml = HTML::MyHTML->new(MyHTML_OPTIONS_DEFAULT, 1);
+my $tree = $myhtml->new_tree();
+
+# detect encoding
+my $encoding;
+$myhtml->encoding_detect($body, $encoding);
+
+# parse
+$myhtml->parse($tree, $encoding, $body);
+
+# print result
+print "Print HTML Tree:\n";
+$tree->document->print_childs($tree, *STDOUT, 0);
+
+
+$tree->destroy();
+
+
+
+