快毕业时, 听黄兄读过, 当时只知道理教.
以下转载....
判断你是不是北大学生的10个问题
1 图书馆前面狮子的秘密是什么?
2 物美的厕所在什么地方?
3 红湖在什么地方?
4 理科二号楼有哪几层可以通往理科一号楼/理教?
5 北招在什么地方?
6 燕南咖啡厅在什么地方?
7 北大北门在什么地方?
8 图书馆新馆地上有几层?
9 北大微电子所在什么地方?
0 理教2056C在什么地方?
快毕业时, 听黄兄读过, 当时只知道理教.
以下转载....
判断你是不是北大学生的10个问题
1 图书馆前面狮子的秘密是什么?
2 物美的厕所在什么地方?
3 红湖在什么地方?
4 理科二号楼有哪几层可以通往理科一号楼/理教?
5 北招在什么地方?
6 燕南咖啡厅在什么地方?
7 北大北门在什么地方?
8 图书馆新馆地上有几层?
9 北大微电子所在什么地方?
0 理教2056C在什么地方?
淮南子曰:"东风至而酒泛溢。"许慎云:"东风震方也。酒泛清酒也。木味酸,相感故也。"高诱云:"酒泛为米面曲之泛者,风至而沸动。"李淳风又按:今酒初熟,瓮上澄清时,恒随日转。在旦则清者在东畔,午时在南,日落在西,夜半在子。恒清者随日所在。又春夏间,于地荫下停春酒者,瓮上蚁泛,皆逐风而移。虽居深密,非风所至,而感召动也。今人看来, 大概是天气暖了, 细菌易成活的缘故.
性痴则其智凝, 故书痴者文必工, 技痴者艺良; 世之落拓而无成者, 皆自谓不痴者也. 且如粉花荡家, 卢雉倾家, 顾痴人事哉! 以是知慧黠而过, 乃是真痴, 彼孙子何痴乎!
#!/usr/bin/perl -w
#
# Author: jiangzuoyan@gmail.com
# 2008-07-22
#
# parse http get/send through
# tcpdump -S -lnx -s 40960 'tcp port 80 and (((ip[2:2] - ((ip[0]&0xf)<<2)) - ((tcp[12]&0xf0)>>2)) != 0)'
#
# this is buggy.
use Getopt::Long;
use warnings;
use strict;
#open (STDIN,"/usr/sbin/tcpdump -lnx -s 40960 'tcp port 80 and (((ip[2:2] - ((ip[0]&0xf)<<2)) - ((tcp[12]&0xf0)>>2)) != 0)'|");
my ($srchost, $dsthost, $seqstart, $seqend, $ack, $packet);
# packet = {srchost: dsthost:, seqstart:, seqend:, ack:}
my @packets;
sub add_packet {
return unless $_[5] && length($_[5]) && $_[0] && length($_[0]);
my @tmp = @_;
$packets[@packets] = \@tmp;
#print "add packet (" , join(",", @_[0..4]) , "), lidx=", $#packets, "\n";
}
sub is_following {
my ($a, $b) = (shift, shift); #@_;
return ($$a[0] eq $$b[0]) &&
($$a[1] eq $$b[1]) &&
($$a[4] eq $$b[4]) &&
($$a[3] eq $$b[2]);
}
sub compare_packet() {
my ($a, $b) = (shift, shift);
my ($ret, $idx) = 0;
for ($idx = 0; !$ret && $idx < 5; ++$idx) {
$ret = $$a[$idx] cmp $$b[$idx];
}
return $ret;
}
sub print_packets {
return unless @packets;
my $idx = 0;
my ($srchost, $dsthost, $seqstart, $seqend, $ack, $packet) = @{$packets[$idx]};
for ($idx = 1; $idx < @packets; ++$idx) {
#print "check is_following (", join(",", @{$packets[$idx-1]}[0..4]), ") , (", join(",", @{$packets[$idx]}[0..4]), ")\n";
if (&is_following($packets[$idx-1], $packets[$idx])) {
$packet .= $packets[$idx][5];
$seqend = $packets[$idx][3];
} else {
#print $idx, " is not following...\n";
while ($packet && length($packet)) {
$packet = &print_packet($srchost, $dsthost, $seqstart, $seqend, $ack, $packet);
}
($srchost, $dsthost, $seqstart, $seqend, $ack, $packet) = @{$packets[$idx]};
}
}
while ($packet && length($packet)) {
$packet = &print_packet($srchost, $dsthost, $seqstart, $seqend, $ack, $packet);
}
}
sub print_packet{
#print "on print packet, (", join(",", @_[0..4]), ")\n";
my ($srchost, $dsthost, $seqstart, $seqend, $ack, $packet) = @_;
return unless $packet && $srchost && $dsthost;
print "##FROM-TO:$srchost -> $dsthost $seqstart,$seqend ack $ack\n";
my $hp = index($packet, "\r\n\r\n");
if ($hp != -1) {
my $header = substr($packet, 0, $hp);
print "##GOT HEAD\n", $header, "\n\n";
my ($clen) = $header =~ /[\r\n]Content-Length: +([0-9]+)\s/;
$clen = 0 unless $clen;
my $data;
if ($clen) {
$data = substr($packet, $hp + 4, $clen);
$packet = substr($packet, $hp + 4 + $clen);
} else {
$data = substr($packet, $hp+4);
$packet = "";
}
if ($header =~ /[\r\n]Content-Encoding: +gzip\s/) {
print "##got gzip content len=$clen\n";
open(GZIP, "| gunzip");
print GZIP $data;
close(GZIP);
} elsif($header =~ /[\r\n]Content-Type: image\//) {
print "##got a image ....\n";
} else {
print "##got plain content len=$clen\n";
print $data;
}
} else {
print "##UNFOUND HEADER PACKET\n";
print $packet;
$packet = "";
}
print "\n##EFROM-TO:$srchost -> $dsthost\n";
return $packet;
}
binmode STDOUT;
while (<>) {
if (/^\S/) {
&add_packet($srchost, $dsthost, $seqstart, $seqend, $ack, $packet);
($srchost, $dsthost, $seqstart, $seqend, $ack)
= /(\d+(?:\.\d+){4})\s+>\s+(\d+(?:\.\d+){4}):[^0-9]+([0-9]+):([0-9]+)\([0-9]+\) ack ([0-9]+)/;
$packet = "";
} else {
next if /\s+0x00[012]0:\s+/;
s/^(\s+0x[0-9a-f]+:\s+[0-9a-f\s]{0,40}).*$/$1/;
s/^(\s+0x0030:\s+)(?:[0-9a-f]{4}\s+){1,2}/$1/;
s/^\s+0x[0-9a-f]+:\s+//;
s/\s*$//;
s/([0-9a-f]{2})\s?/chr(hex($1))/eg;
$packet .= $_;
}
}
@packets = sort {&compare_packet($a, $b) } @packets;
&print_packets();
"我应为王"
"公平不是总存在的,在生活学习的各个方面总有一些不能如意的地方.但只要适应它,并坚持到底,总能收到意想不到的成效."
"在这个世界上,没有人能使你倒下.如果你自己的信念还站立的话."