urlrule_info

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     urlrule_dump
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     Mon Mar 24 06:25:31 2008
   5 ###APPVER:      0.1
   6 ###APPDESC:     dump urlrule result
   7 ###APPUSAGE:    URL [0-5]
   8 ###APPEXAMPLE:  urlrule_dump http://www.sina.com.cn 0
   9 use strict;
  10 use Data::Dumper;
  11
  12 use lib $ENV{XR_PERL_MODULE_DIR};
  13 use MyPlace::Script::Usage qw/help_even_empty/;
  14 exit 0 if(help_even_empty($0,@ARGV));
  15
  16 use MyPlace::URLRule;
  17 my %rule = %{parse_rule(@ARGV)};
  18 print Data::Dumper->Dump([\%rule],["*rule"]);
  19
  20
  21