tucan-extract-log

   1 #!/usr/bin/perl -w
   2 # $Id: script_template 17 2010-10-08 17:47:31Z xiaoranzzz $
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 my %OPTS;
  17 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  18
  19 my @logfile;
  20 if(@ARGV)
  21 {
  22     require Getopt::Long;
  23     require MyPlace::Usage;
  24     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  25     MyPlace::Usage::Process(\%OPTS,$VERSION);
  26     @logfile = @ARGV;
  27 }
  28 else
  29 {
  30     @logfile = ( $ENV{HOME} . "/.tucan/tucan.log*");
  31 }
  32
  33 my %URLS;
  34 foreach(@logfile) {
  35     #print STDERR "$_:\n";
  36     foreach my $file (glob($_)) {
  37         #print STDERR "\t$file\n";
  38         if(-f $file) {
  39             open FI,"<",$file or die("$!\n");
  40             while(<FI>) {
  41                 chomp;
  42                 if(m/:\s+(http:\/\/[^\s]+)/) {
  43                     $URLS{$1} = 1;
  44                 }
  45             }
  46             close FI;
  47         }
  48     }
  49 }
  50
  51 print join("\n",keys %URLS),"\n";
  52
  53 __END__
  54
  55 =pod
  56
  57 =head1  NAME
  58
  59 tucan-extract-log - PERL script
  60
  61 =head1  SYNOPSIS
  62
  63 tucan-extract-log [options] ...
  64
  65 =head1  OPTIONS
  66
  67 =over 12
  68
  69 =item B<--version>
  70
  71 Print version infomation.
  72
  73 =item B<-h>,B<--help>
  74
  75 Print a brief help message and exits.
  76
  77 =item B<--manual>,B<--man>
  78
  79 View application manual
  80
  81 =item B<--edit-me>
  82
  83 Invoke 'editor' against the source
  84
  85 =back
  86
  87 =head1  DESCRIPTION
  88
  89 ___DESC___
  90
  91 =head1  CHANGELOG
  92
  93     2010-10-26  xiaoranzzz  <xiaoranzzz@myplace.hell>
  94
  95         * file created.
  96
  97 =head1  AUTHOR
  98
  99 xiaoranzzz <xiaoranzzz@myplace.hell>
 100
 101 =cut
 102
 103 #       vim:filetype=perl