1个较为完整的简易浏览器实例.docVIP

一个较为完整的简易浏览器实例use Gtk2;use Glib qw( TRUE FALSE );use LWP::UserAgent; ##这个模块用来取回或者发送 http 数据use HTML::TokeParser; ##这个模块用来分析取回的 html 数据use strict;use Encode qw/encode decode/; use URI; ##分析 url 地址模块my $ua = LWP::UserAgent - new;$ua - timeout( 30 ); ##设定 http 取回的超时时间$ua - agent( perl web browser 0.1 by A ); ##设定http头$ua - default_header( Pragma = no-cache, Accept = */*, );$ua - proxy( [http, ftp], http://*.*.*.*:8080 ); ##设定代理服务器地址，不用可以注释掉my $p;my $title = Perl web browser; ##程序的标题my $url_base;Gtk2 - init;my $hovering_over_link = 0;my $hand_cursor = Gtk2::Gdk::Cursor - new ( hand2 ); ##添加一个手型的光标my $regular_cursor = Gtk2::Gdk::Cursor - new ( xterm );my $win = Gtk2::Window - new( );$win - set_title( $title );$win - set_size_request( 640,480 ); ##设定窗口的大小$win - set_position( center ); ##设定窗口出现的位置$win - signal_connect( destroy = sub{Gtk2 - main_quit;} );my $buffer = Gtk2::TextBuffer - new( ); ##添加一个文字缓冲，用于存储所有html数据来显示my $tag_h1 = $buffer - create_tag ( title1, font = Sans 20 ); ##建立一个h1文字标签my $tag_h2 = $buffer - create_tag ( title2, font = Sans 18 );my $tag_h3 = $buffer - create_tag ( title3, font = Sans 14 );my $vbox = Gtk2::VBox - new; ##添加一个 VBox，用来将其他控件竖直布局my $hbox = Gtk2::HBox - new; ##添加一个 Hbox 用来水平布局其他控件my $entry = Gtk2::Entry - new; ##添加一个单行文字输入控件用来输入 url 地址$entry - set_text ( / ); ##设置 url 输入栏里的初始地址$entry - signal_connect( key-release-event , \filter_key ); ##设定 url 输入栏中对于键盘事件的回应$hbox - pack_start( $entry,1,1,0 ); ##在水平 hbox 栏中先放置 url 输入栏my $button = Gtk2::Button - new_from_stock ( gtk-apply ); ##添加一个提交按钮$button - can_focus ( 0 ); ##设置该按钮不能聚焦$button - signal_connect( released,\get_url_content,$entry - get_text ); ##设定按钮按下触发的子程序$hbox - pack_start( $button,0,0,0 ); ##在水平 hbox 栏中后放入提交按钮my $sw = Gtk2::ScrolledWindow - new ( undef,undef ); ##添加一个滚动窗口$sw - set_policy( automatic,automatic ); ##设定滚动窗口的出现滚动条的规则my $textview = Gtk2::TextView - new( ); ##添加一个多行文字控件用于显示html数据$textview - signal_connect ( motion_notify_event = \motion_notify_even