ngn999

perl -MURI -anle '%h=URI->new("http://127.0.0.1" . $F[-1])->query_form; print $h{src}' 

| sort | uniq -c | sort -nr

ngn999

history | perl -anle '$c{$F[3]}++; END{@keys = sort { $c{$b} <=> $c{$a}} keys %c; foreach(@keys){print;}}'
 | head

ngn999

我的配置是是针对23的,也不知道到24有多大变化, 所以还是用23好了.
升到24, 好多包的管理方式要变了, 怕不适应.

编译参数:

 ./configure --prefix=/opt/emacs/ --with-x=no --with-x-toolkit=no --enable-largefile

make -j 8

ngn999

向后查找:

echo "pt=1234" | grep -Po '(?<=pt=)\d+'

向前查找:

echo "1234pt=" | grep -Po '\d+(?=pt=)'

ngn999

git log --graph

git log --graph --oneline

ngn999

(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))

ngn999

(fn range2 [ss ee]
  ((fn iter [s e res]
    (if (>= s e)
      res
      (do
      (iter (inc s) e (concat res (list s))))))
      ss ee '()))

ngn999

(fn [coll n]
  (apply concat
    (map #(for [x (range n)] %) coll)))

ngn999

(fn [coll]
  (apply concat
    (map (fn [x] (list x x)) coll)))

ngn999

/*
		12306 Auto Login => A javascript snippet to help you auto login 12306.com.
		Copyright (C) 2011 Kevintop
		
		Includes jQuery
		Copyright 2011, John Resig
		Dual licensed under the MIT or GPL Version 2 licenses.
		http://jquery.org/license

		Includes 12306.user.js