aanoaa

Synopsis

xmlquery req.xml
xmlquery req1.xml req2.xml req3.xml
echo xml | xmlquery

Install

## local::lib, cpanminus install
wget -O - http://cpanmin.us/ | perl - local::lib App::cpanminus && echo 'eval $(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)' >> ~/.bashrc && . ~/.bashrc

aanoaa

#!/usr/bin/env perl
use strict;
use warnings;
use IO::Socket;
use Time::HiRes qw[gettimeofday tv_interval];
my $time=[gettimeofday()];
unless(@ARGV>1) {
	die "usage: $0 host port [document+]\n";
}

aanoaa

#!/usr/bin/env perl
use strict;
use warnings;
use Template;
use XML::Smart;
use Pod::Usage;
use Getopt::Long;
use Data::Dump qw/dump/;
use List::Util qw/first/;
use DBI;

aanoaa

192.168.1.31:8222

aanoaa

3c3
<     template 'special_404', { path => request->path };
---
>     template => 'special_404', { path => request->path };

aanoaa

1. some application hash -> pack -> push to Queue Daemon
2. pop from Queue Daemon -> unpack using hash on another application

aanoaa

"==================================
set ruler
set nobackup
set nu
set tabstop=4
"colorscheme pablo
colorscheme desert256
"==================================
map <F1> v]} zf
map <F2> zo

aanoaa

diff --git a/gistp b/gistp
index acea51a..454b47e 100755
--- a/gistp
+++ b/gistp
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 use strict;
 use warnings;
 use 5.008001;

aanoaa

diff --git a/ibp b/ibp
old mode 100644
new mode 100755
index 99a99ca..22b7ae5
--- a/ibp
+++ b/ibp
@@ -120,6 +120,13 @@ sub install {
     File::Path::mkpath($name, 0, 0777);
     system("unzip -q bp.zip -d ".$name);
     system('rm -rf bp.zip');

aanoaa

foo