学会基本操作后,值得细究的Mode:
perl -MURI -anle '%h=URI->new("http://127.0.0.1" . $F[-1])->query_form; print $h{src}'
| sort | uniq -c | sort -nr
| history | perl -anle '$c{$F[3]}++; END{@keys = sort { $c{$b} <=> $c{$a}} keys %c; foreach(@keys){print;}}' | |
| | head |
我的配置是是针对23的,也不知道到24有多大变化, 所以还是用23好了.
升到24, 好多包的管理方式要变了, 怕不适应.
编译参数:
./configure --prefix=/opt/emacs/ --with-x=no --with-x-toolkit=no --enable-largefile
make -j 8
向后查找:
echo "pt=1234" | grep -Po '(?<=pt=)\d+'
向前查找:
echo "1234pt=" | grep -Po '\d+(?=pt=)'
git log --
graph
git log --
graph--oneline
| (defn max2 [ & coll ] | |
| (if (empty? coll) | |
| nil | |
| ((fn iter [s m] | |
| (if (empty? s) | |
| m | |
| (if (>= (first s) m) | |
| (iter (rest s) (first s)) | |
| (iter (rest s) m)))) | |
| (rest coll) (first coll)) |
| (fn range2 [ss ee] | |
| ((fn iter [s e res] | |
| (if (>= s e) | |
| res | |
| (do | |
| (iter (inc s) e (concat res (list s)))))) | |
| ss ee '())) |
| (fn [coll n] | |
| (apply concat | |
| (map #(for [x (range n)] %) coll))) |
| (fn [coll] | |
| (apply concat | |
| (map (fn [x] (list x x)) coll))) |