alecchen

" ===========================================================================
"     Filename: .vimrc
"       Author: Yen-Liang Chen (Alec), <alec@cpan.org>
"      Created: Tue 12 May 2009 01:40:41 PM CST
"     Modified: Tue 01 Sep 2009 03:12:34 PM CST
" ===========================================================================

" ===========================================================================
" General settings
" ===========================================================================

alecchen

# Look and feel
#caption always "%{= 11}%{+b w}Screen: %n | %h %=%t %c"
hardstatus alwayslastline "%-Lw%{= BW}%50>%n%f* %t%{-}%+Lw%<"
 
# Our warning of activity
activity "Activity in %t(%n)"
 
# Left Right meta key mods
#ALT-,. and ALT-<>
bindkey "^[<" eval number !echo $WINDOW-1|bc

alecchen

ScriptID SourceID Filename
--------------------------
40   8798  :AutoInstall: DrawIt.vim
1066 7618  :AutoInstall: cecutil.vim
642  8136  :AutoInstall: getscript.vim
273  7701  :AutoInstall: taglist.vim
556 11480 :AutoInstall: perl-support.vim
1338 4976  :AutoInstall: TabBar
42   9524  :AutoInstall: bufexplorer.zip
40   8798  :AutoInstall: DrawIt!

alecchen

#!/usr/bin/perl

use strict;
use warnings;
use HTML::Table;

my $table1 = new HTML::Table( 
    -spacing => 2,
    -padding => 2,
    -border  => 2,

alecchen

<h2><%=l(:label_contact_plural)%></h2>

<table class="list">		
    <thead><tr>
            <%= sort_header_tag('login') %>
            <% for header in @headers %>
                <%= sort_header_tag(header) %>
            <% end %>
    </tr></thead>
    <tbody>

alecchen

ScriptID SourceID Filename
--------------------------
40   8798  :AutoInstall: DrawIt.vim
1066 7618  :AutoInstall: cecutil.vim
642  8136  :AutoInstall: getscript.vim
273  7701  :AutoInstall: taglist.vim
556 11480 :AutoInstall: perl-support.vim
1338 4976  :AutoInstall: TabBar
42   9524  :AutoInstall: bufexplorer.zip
40   8798  :AutoInstall: DrawIt!

alecchen

" ===========================================================================
" General settings
" ===========================================================================

set nu
set ic
set ai
set ruler
set bs=2
set shiftwidth=4

alecchen

source ~/.vimrc

if has("gui_gtk2")
    set guifont=Courier\ 10\ Pitch\ 14
else
    set guifont=-adobe-courier-medium-r-normal--20-140-100-100-m-110-iso8859-1
endif

alecchen

#!/usr/bin/perl

    my $self = shift;
    my $input = shift;

    my $in_block = 0;
    my $in_function = 0;
    my $block_name = q{};
    my $result = q{};

alecchen

#!/usr/bin/env perl

use strict;
use warnings;

my $log = $ARGV[0] || 'log.txt';

while (1) {
    my $line_number = (split q{ }, `wc -l $log`)[0];
    my $tail = `tail $log`;