huhuegg's BLOG

huhuegg.cublog.cn

关于作者

姓名：huhuegg
职业：网游
年龄：而立
位置：上海
爱好：睡觉

\|\|	<<	>>	\|\|

我的分类

最新文章

·	[Perl] perl调用c的so动态..
·	Linux NFS服务固定端口及..
·	[转载]一个母亲一生撒的8..
·	[实用技巧]ps 含义
·	[实用技巧]获取硬盘温度信息

最新留言

·	你真厉害！！你真厉害！！

最新评论

·	好久没写东西了~~~..最近怎..

·	这个就是脚本啊，只要给以..

·	可否举一个具体的例子

·	:注释部分的第一行行号，注..

·	还要PAR::Packer

·	请注意用tmsnc最老的0.1版本

·	打到共产党

·	我安装tmsnc后，./msn这个..

·	我怎么没有spawn这个命令？

·	sorry,忘记贴图了~

最新收藏

杨文军的个人站点

统计信息

·	总访问量：53289
·	文章个数：90
·	评论条数：50
·	留言条数：1
·	网友推荐：

	[Perl] perl调用c的so动态链接库

	#!/usr/bin/perl<br>use Inline C; <br>use Inline C => Config => MYEXTLIB => '/tmp/show.so';<br>use strict;<br><br>my $x=1;<br>my $y=2;<br>print "PERL:x=$x y=$y\n";<br>my $so=return_c_so($x);<b……
查看全文
	发表于:2008-09-08 ┆ 阅读(60) ┆ 评论(0)

	Linux NFS服务固定端口及防火墙配置

	<DIV>#Linux NFS服务固定端口及防火墙配置#<BR>1.在LINUX上正常安装NFS服务<BR>2.修改/etc/service,添加以下内容（端口号必须在1024以下，且未被占用）<BR>    # Local services<BR>  &nb……
查看全文
	发表于:2008-01-18 ┆ 阅读(310) ┆ 评论(1)

	[转载]一个母亲一生撒的8个谎言（感动）

	<DIV>1、儿时，小男孩家很穷，吃饭时，饭常常不够吃，母亲就把自己碗里的饭分给孩子吃。母亲说，孩子们，快吃吧，我不饿！——母亲撒的第一个谎 <BR>　　 <BR>　　　　2、男孩长身体的时候，勤劳的母亲常用周日休息时……
查看全文
	发表于:2007-09-25 ┆ 阅读(212) ┆ 评论(0)

	[实用技巧]ps 含义

	<DIV> <DIV class=t_msgfont id=message6370589>D    不可中断     Uninterruptible sleep (usually IO)<BR>    R    正在运行，或在队列中的进程<BR>  &n……
查看全文
	发表于:2007-07-16 ┆ 阅读(312) ┆ 评论(0)

	[实用技巧]获取硬盘温度信息

	<DIV>CMD:</DIV> <DIV>smartctl -a /dev/sda \|grep "Temperature:"</DIV> <DIV> </DIV> <DIV>RETURN:</DIV> <DIV>Current Drive Temperature:     37 C</DIV>
查看全文
	发表于:2007-06-21 ┆ 阅读(253) ┆ 评论(0)

	[Linux][实用技巧]vi多行注释

	<DIV><FONT size=2>:注释部分的第一行行号，注释部分的最后一行行号s/^/#/g</FONT> <BR></DIV>
查看全文
	发表于:2007-01-11 ┆ 阅读(222) ┆ 评论(1)

	[Linux][实用技巧]vi多行注释

	<DIV><FONT size=2>:注释部分的第一行行号，注释部分的最后一行行号s/^/#/g</FONT> <BR></DIV>
查看全文
	发表于:2007-01-11 ┆ 阅读(287) ┆ 评论(0)

	[Java]Java虚拟机耗费内存的根本原因是...?

	<DIV>在<<Java编程思想3>>中看到下面这句话，这是不是java特耗内存的原因？？</DIV> <DIV><STRONG><FONT color=#ff0000>如果Java虚拟机(JVM)并未面临内存耗尽的情形，它是不会浪费时间在回收垃圾以恢复……
查看全文
	发表于:2006-11-22 ┆ 阅读(410) ┆ 评论(0)

	[Java][学习]组合applet和应用程序

	<DIV>得编写出来的程序既可以在浏览器中运行，也可以作为一个独立的应用程序运行。</DIV>
查看全文
	发表于:2006-11-10 ┆ 阅读(447) ┆ 评论(0)

	[Perl]GD::Graph

	<DIV>用GD::Graph绘制数据源为mysql的人数/时间曲线图</DIV><br /> <DIV></DIV>
查看全文
	发表于:2006-10-16 ┆ 阅读(587) ┆ 评论(2)

	[Perl]用Perl实现像wget一样的进度条

	此例子为显示文件下载进度
查看全文
	发表于:2006-10-02 ┆ 阅读(547) ┆ 评论(0)

	[转载]lsof命令查看端口现在运行什么程序，开启文件的进程

	<DIV><PRE><SPAN class=postbody style="COLOR: rgb(0,153,0)">lsof abc.txt <SPAN style="COLOR: rgb(51,51,51)">显示开启文件abc.txt的进程 </SPAN><BR>lsof -i :22 <SPAN style="COLOR: rgb(51,51,51)"……
查看全文
	发表于:2006-10-01 ┆ 阅读(402) ┆ 评论(0)

	[转载]selinux入门教程


查看全文
	发表于:2006-09-25 ┆ 阅读(434) ┆ 评论(0)

	[Perl]让Perl有sh -x一样的调试功能

	<DIV>安装Devel::Trace包，运行以下命令调试pl脚本</DIV> <DIV>perl <FONT color=#ff0000><STRONG>-d:Trace</STRONG></FONT> get_url.pl</DIV>
查看全文
	发表于:2006-09-24 ┆ 阅读(507) ┆ 评论(0)

	[Perl]CU Blog 文章备份

	./bkblog.pl http://blog.chinaunix.net/u/id/article.php<br /> id为自己论坛的数字id<br />
查看全文
	发表于:2006-09-22 ┆ 阅读(591) ┆ 评论(0)

	[转载]top命令


查看全文
	发表于:2006-09-14 ┆ 阅读(599) ┆ 评论(0)

	[oracle]DBD::Oracle

	<DIV>安装中在make test阶段遇到以下问题：</DIV> <DIV>Unable to connect to Oracle as scott/tiger (ORA-12162: TNS:net service name is incorrectly specified (DBD ERROR: OCIServerAttach))</DIV> <DIV>用以下方法解决:</DIV> <DIV><FONT color=#ff0000><STRONG>export TWO_TASK=sid名称</STRONG></FONT></DIV> <DIV><STRONG><FONT color=#ff0000></FONT></STRONG> </DIV> <DIV><STRONG><FONT color=#000000>make test成功率:</FONT></STRONG></DIV> <DIV>Failed Test Stat Wstat Total Fail  Failed  List of……
查看全文
	发表于:2006-09-13 ┆ 阅读(562) ┆ 评论(0)

	有用的rpm技巧

	<DIV> </DIV> <DIV>查询已安装包的适用平台<BR>rpm -q --qf '%{NAME}-%{VERSION}-%{RELEASE}  (%{ARCH})\n' compat-libstdc++-33</DIV> <DIV>若安装了名称相同，版本不同或适用平台不同的rpm包，删除方法如下<BR>rpm -e --allmatches  compat-libstdc++-33-3.2.3-47.3 --nodeps</DIV>
查看全文
	发表于:2006-09-13 ┆ 阅读(349) ┆ 评论(0)

	[Windows]WMI按照时间筛选

	<DIV>select * from Win32_CurrentTime where (Hour>=9) and (Hour<=17)</DIV>
查看全文
	发表于:2006-09-11 ┆ 阅读(378) ┆ 评论(0)

	[shell]stty技巧

	<DIV>在命令行下：</DIV> <DIV> </DIV> <DIV>禁止输出大写： stty iuclc</DIV> <DIV>恢复输出大写： stty -iuclc</DIV> <DIV>禁止输出小写： stty olcuc</DIV> <DIV>恢复输出小写： stty -olcuc</DIV> <DIV>禁止回显：    stty -echo</DIV> <DIV>打开回显：    stty echo</DIV> <DIV>忽略回车符：  stty igncr</DIV> <DIV>恢复：       stty -igncr</DIV> <DIV> </DIV>
查看全文
	发表于:2006-09-11 ┆ 阅读(470) ┆ 评论(0)

	[Perl]生成独立运行包的模块PAR

	<DIV>需要以下相关模块：</DIV> <DIV>File::Temp</DIV> <DIV>Compress::Zlib</DIV> <DIV>Archive::Zlib</DIV> <DIV>Module::ScanDeps</DIV> <DIV>PAR::Dist</DIV> <DIV>Digest</DIV> <DIV>Digest::SHA</DIV> <DIV>Module::Signature</DIV> <DIV> </DIV> <DIV>生成tk打包程序时可用-g参数丢弃perl程序启动后的黑框</DIV> <DIV>pp -g -o gui.exe gui.pl</DIV> <DIV> </DIV> <DIV>编译出的文件不能用<STRONG>perl <文件名></STRONG>运行，</DIV> <DIV>否则可能会出现<FONT color=#ff0000><STRONG>Unrecognized……
查看全文
	发表于:2006-09-11 ┆ 阅读(603) ┆ 评论(1)

	[排错]LVM做SNAPSHOT失败的解决方法

	<P>1. 检查动态加载项 dmsetup targets </P> <P>2. 若无snapshot-origin v1.0.1 </P> <P>       snapshot        v1.0.1 </P> <P>   则运行 modprobe dm-snapshot </P> <P>3. 再运行dmsetup targets后可添加snapshot </P> <DIV></DIV> <DIV></DIV>
查看全文
	发表于:2006-09-11 ┆ 阅读(360) ┆ 评论(0)

	[排错]在64位下安装TK失败的解决方法

	<DIV>将/usr/X11R6/lib64/libX11.so和libX11.a拷贝到/usr/X11R6/lib/</DIV>
查看全文
	发表于:2006-09-11 ┆ 阅读(346) ┆ 评论(0)

	[排错]LDAP启动失败

	<DIV align=center><FONT size=5><STRONG>LDAP启动失败</STRONG></FONT></DIV> <DIV align=left><FONT size=5><FONT size=3>首先用slapd -d 256 排错</FONT></FONT></DIV> <DIV align=left><FONT size=5><FONT size=3>chown ldap.ldap /etc/openldap/*</FONT></FONT></DIV> <DIV align=left><FONT size=5><FONT size=3>mkdir /etc/openldap/cacerts</FONT></FONT></DIV> <DIV align=left><FONT size=5><FONT size=3>也可配置/etc/openldap/ldap.conf,加入以下行</FONT></FONT></DIV> <DIV align=left><FONT size=5><FONT size=3>TLS_……
查看全文
	发表于:2006-09-11 ┆ 阅读(361) ┆ 评论(0)

	[Linux]用户及密码相关命令

	<DIV> <TABLE border=0> <TBODY> <TR> <TD><A id=chage name=chage></A><SPAN class=term><SPAN><STRONG class=command>chage</STRONG></SPAN></SPAN> </TD> <TD> <P>用于设置必须对密码进行更改的最大间隔天数 </P></TD></TR> <TR> <TD><A id=chfn name=chfn></A><SPAN class=term><SPAN><STRONG class=command>chfn</STRONG></SPAN></SPAN> </TD> <TD> <P>用于对用户的全名及其他信息进行修改 </P></TD></TR> <TR> <TD><A id=chpasswd name=chpasswd></A><SPAN class=term><SPAN><STRONG class=command>chpasswd</STRONG></……
查看全文
	发表于:2006-09-11 ┆ 阅读(302) ┆ 评论(0)

	[perl][system]手动修改/etc/shadow中的用户密码

	<DIV>/etc/shadow中格式如下</DIV> <DIV>#testaccount:<FONT color=#ff0000><STRONG>$1$<FONT color=#006666>acQMceF9</FONT>$<FONT color=#0080ff>1SaCpG2qiKKA3eGolU4Fp0</FONT></STRONG></FONT>:13402:0:99999:7:::</DIV> <DIV>彩色段为加密后的密码，<FONT color=#ff0000><FONT color=#ff0000>$1$表示采用的是md5加密</FONT>，</FONT><FONT color=#006666>绿色段是简单的字符串，</FONT><FONT color=#0080ff>蓝色段为加密后的密码</FONT></DIV> <DIV><FONT color=#0080ff></FONT> </DIV> <DIV><FONT color=#0080ff>以下命令可……
查看全文
	发表于:2006-09-11 ┆ 阅读(503) ┆ 评论(0)

	[实用技巧][转载]bash定义了的快捷键


查看全文
	发表于:2006-09-08 ┆ 阅读(326) ┆ 评论(0)

	[实用技巧][转载]使用vim对被编辑文件加密


查看全文
	发表于:2006-09-08 ┆ 阅读(375) ┆ 评论(0)

	[转载]用户登录后精确命令记录

	<DIV> <DIV>主要功能：<BR>可以记录哪个ip和时间（精确到秒）作了哪些命令<BR>通过用户登录时候，重新定义HISTFILE<BR>HISTFILE文件名包含登录用户名，ip,登录时间（精确到秒）等<BR>这样即使相同的用户从不同ip、在不同的时间登录都会被记录<BR>可以记录每条命令的开始执行时间</DIV> <DIV> </DIV> <DIV>把下面的代码直接粘贴到/etc/profile后面就可以了<BR>#history<BR>export HISTTIMEFORMAT="[%Y.%m.%d %H:%M:%S]"<BR>USER_IP=`who -u am i 2>/dev/null\| awk '{print $NF}'\|sed -e 's/[()]//g'`<BR>HISTDIR=/var/log/.hist……
查看全文
	发表于:2006-09-07 ┆ 阅读(350) ┆ 评论(0)

	[Perl]Linux终端下的屏幕保护程序

	可定义成快捷方式，具体方法是建立或修改~/.inputrc加入以下内容，定义快捷方式为ctrl-t<br /> Control-t:"/sbin/screensave\C-m"<br /> <br /> 注意不能和bash预定义的快捷键相同，否则不会生效。<br /> bash预定义的快捷键见http://blog.chinaunix.net/u/8897/showart.php?id=166846<br />
查看全文
	发表于:2006-09-07 ┆ 阅读(569) ┆ 评论(0)

	[Perl]Win32下发送事件日志(Win32::EventLog)

	利用Perl在Windows下发送事件日志
查看全文
	发表于:2006-09-06 ┆ 阅读(513) ┆ 评论(2)

	[Perl]向syslog写入自定义日志(Sys::Syslog)

	Sys::Syslog模块的详细说明
查看全文
	发表于:2006-09-06 ┆ 阅读(531) ┆ 评论(0)

	[Perl]发送带附件的邮件


查看全文
	发表于:2006-09-05 ┆ 阅读(530) ┆ 评论(1)

	[转载]心灵的洗礼


查看全文
	发表于:2006-09-03 ┆ 阅读(729) ┆ 评论(5)

	[Perl]用Jabber做系统监控和报警（可使用Google Talk）

	最近在看jabber，总希望通过它建立一个方便的系统报警的东东。以下脚本是最初的混乱思想~，以后会整理清楚并添加各项功能。<br /> v0.1 添加fork,pid部分<br /> v0.1.1 添加cmd.ini(可使用命令列表)，添加config.ini(设定Jabber服务器相关信息)<br /> v0.1.2 添加通信中文支持<br /> <br /> jabber服务的建立就不说了，以下为可自动回复消息的Linux下的客户端，windows下有很多客户端可以用GoogleTalk、SoapBox、Gaim等<br /> 若要用GTalk,设定服务器为talk.google.com，端口5222
查看全文
	发表于:2006-08-21 ┆ 阅读(449) ┆ 评论(0)

	[疑问]大于1TB的lastlog文件~

	<DIV>系统为RHEL4.1,分别用i386和x86_64平台，结果不同。</DIV> <DIV>i386下</DIV> <DIV>ls -l /var/log/lastlog文件显示大小为19136220</DIV> <DIV>du -sh /var/log/lastlog显示大小为52k</DIV> <DIV> </DIV> <DIV>x86_64下</DIV> <DIV>ls -l /var/log/lastlog文件显示大小为1254130450140 > 1TB !</DIV> <DIV>du -sh /var/log/lastlog显示大小为56k</DIV> <DIV> </DIV> <DIV>能够理解它可能是稀疏文件，不过怎样实现的呢？？</DIV> <DIV>    </DIV>
查看全文
	发表于:2006-08-14 ┆ 阅读(302) ┆ 评论(0)

	[Perl]网上看到的对于Perl的评价，其实有点道理拉

	对于$number=@list，初学的人应该都熟悉，刚接触时总觉得有问题，时间长了也就这么用而且还挺方便。当我们尝试$number=%list时，返回值实在令人费解~<br /> 光这一个就不得不承认Perl是一个比较混乱的东东~<br /> <br /> 不过由于它的方便也顾不得那么多了~
查看全文
	发表于:2006-08-14 ┆ 阅读(539) ┆ 评论(0)

	[疑问]为什么在x86_64+RHEL4.1上安装oracle总是不成功

	在x86_64+RHEL4.1上安装过oracle10很多次，参考了不少文档(包括官方的)，总是失败！但是在x86+RHEL4.1上就能够一次成功~ 难道在文档之外另有别的玄机？是硬件原因？百思不得其解~ <DIV> </DIV> <DIV>成功了，失败原因:</DIV> <DIV>1.没有升级到<A href="http://oss.oracle.com/projects/compat-oracle/dist/files/RedHat/binutils-2.15.92.0.2-13.0.0.0.2.x86_64.rpm"><FONT color=#800080>binutils-2.15.92.0.2-13.0.0.0.2.x86_64.rpm</FONT></A></DIV> <DIV>2.同时安装了compat-libstdc++-33-3.2.3-47.3的i386和x86_64两个包<……
查看全文
	发表于:2006-08-12 ┆ 阅读(510) ┆ 评论(1)

	[Perl]GD::Graph模块的安装

	直接使用CPAN控制台安装可能会失败，<br /> 本文为保守的安装方式，经过实际测试可用，<br /> 安装平台为RedHat 4.1 x86_64
查看全文
	发表于:2006-08-09 ┆ 阅读(520) ┆ 评论(0)

	为什么，又出错了！

	郁闷~，yt05的数据库被log-bin撑满了，几百个人要回档。虽然不像魔兽世界范围那么大，可毕竟不爽......
查看全文
	发表于:2006-06-21 ┆ 阅读(260) ┆ 评论(0)

	[Perl]为了方便修改了一点点mysqlhotcopy

	<DIV> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#dddddd cellSpacing=0 cellPadding=0 width=360 align=center border=1> <TBODY> <TR height=60> <TD align=middle width=60><IMG alt="" src="http://control.cublog.cn/fileicon/rar.gif" border=0></TD> <TD> <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR height=20> <TD align=middle width=40>文件:</TD> <TD>mysqlhotcopy_leozhang.rar</TD></TR> <TR height=20> <TD align=middle width=4……
查看全文
	发表于:2006-04-24 ┆ 阅读(373) ┆ 评论(0)

	[Shell]用户操作监控脚本

	<DIV> <TABLE style="BORDER-COLLAPSE: collapse" borderColor=#dddddd cellSpacing=0 cellPadding=0 width=360 align=center border=1> <TBODY> <TR height=60> <TD align=middle width=60><IMG alt="" src="http://control.cublog.cn/fileicon/rar.gif" border=0></TD> <TD> <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR height=20> <TD align=middle width=40>文件:</TD> <TD>operate_log.rar</TD></TR> <TR height=20> <TD align=middle width=40>大小:</T……
查看全文
	发表于:2006-04-17 ┆ 阅读(354) ┆ 评论(0)

	[Perl]用snapshot方式备份MYSQL数据库

	当mysql数据库的操作情况不适于开启log-bin选项时，<br /> 双机备份和mysqlsnapshot命令都无法使用于备份，此时<br /> 只能够用mysqlhotcopy来备份。<br /> 当数据库增大到一定大小，索引较多时mysqlhotcopy就会<br /> 非常慢，此时只有采用snapshot技术本身来备份。<br /> 默认LINUX自动分区会分配所有的磁盘空间给Lv00，而由于/分区无法在线缩减大小腾出空间给snapshot卷。所以在这样的情况下最好使用mysqlhotcopy到内存的方法，效果也是非常好的，唯一要注意的就是完成后一定要清内存。<br />
查看全文
	发表于:2006-04-17 ┆ 阅读(395) ┆ 评论(2)

	学习过5年的地方

	<IFRAME marginWidth=0 marginHeight=0 src="http://my.edushi.com/blog/previewutf8.aspx?lx=2331&ly=3153&lw=500&lh=400&citycode=sh&content=%u5B66%u4E60%u8FC75%u5E74%u7684%u5730%u65B9" width=500 scrolling=no height=400></IFRAME>
查看全文
	发表于:2006-04-07 ┆ 阅读(372) ┆ 评论(2)

	[Perl]线程telnet

	<DIV>#!/usr/bin/perl<BR>use strict;<BR>use Sys::AlarmCall;<BR>use Net::Telnet;<BR>use Thread 'async';<BR>use DBI;<BR>my $obj=new Net::Telnet;<BR>#get sign 14<BR><FONT color=#cc3333>$SIG{ALRM} = sub { die "Your alarm clock went off" };</FONT></DIV> <DIV>###start###<BR>my $dsn="DBI:mysql:SERVERLIST:192.168.1.1:3306";<BR>my $db_user="dbuser";<BR>my $db_pass="dbpass";<BR>my $dbh=DBI->connect($dsn,$db_user,$db_pass,{RaiseError=>1});</DIV> <DIV> </DIV> <DIV>sub telnet {<BR>  &n……
查看全文
	发表于:2006-03-13 ┆ 阅读(371) ┆ 评论(0)

	用strace记录其他进程（用来监控TTY终端很不错！）

	<p>strace -e read，write  -p $tty_bash_pid -o $outfile</p><p>可以放在后台运行~，应该适用于写出shell脚本</p><p>我现在用的是ttylog，缺点是不能够后台运行，一定要用screen~</p><p>
查看全文
	发表于:2005-11-25 ┆ 阅读(372) ┆ 评论(0)

	linux命令行下发送msn消息

	<p>在下面站点下载tmsnc工具</p><p><a href="http://tmsnc.sourceforge.net/download.html">http://tmsnc.sourceforge.net/download.html</a></p><p>#!/bin/sh<br />#用spawn激活程序,expect判断回显内容<br />expect -c "spawn ./msn -l <a href="mailto:aaa@hotmail.com;">aaa@hotmail.com;</a><br />           expect "Enter password:";<br />           send "aaa ";<br />   &nbsp……
查看全文
	发表于:2005-11-24 ┆ 阅读(649) ┆ 评论(5)

	[Perl]实用性很强的模块Getopt::Std和Getopt::Long

	这两个模块能够很容易处理命令开关，以后就不用自己在程序中分析处理了。这两个模块无需到CPAN下载，p
查看全文
	发表于:2005-10-08 ┆ 阅读(950) ┆ 评论(1)

	[Linux]命令行下的硬件浏览器

	<p>dmidecode获取硬件信息</p><p># dmidecode 2.2<br />SMBIOS 2.3 present.<br />42 structures occupying 1320 bytes.<br />Table at 0x000F0100.<br />Handle 0x0000<br />        DMI type 0, 20 bytes.<br />        BIOS Information<br />                Vendor: Award Software International, Inc.<br />          &nb……
查看全文
	发表于:2005-09-13 ┆ 阅读(517) ┆ 评论(2)

	[Perl]获取Google Talk聊天信息~

	<p>与先前的获取msn信息差不多啦~ 想要gmail账号的留mail,我有69个~ ：）</p><p><p>#!/usr/bin/perl</p><p>#  use strict;<br />use Net::PcapUtils;<br />use Time::Format;<br />$time{$format};<br />$time{$format, $unixtime};</p><p /><p>sub process_pkt {<br />        my($arg, $hdr, $pkt) = @_;<br />        my($packages)=unpack('H*', $pkt);<br />### START PACKAGE INFO ###<br />        my(%PACK……
查看全文
	发表于:2005-09-13 ┆ 阅读(787) ┆ 评论(0)

	[Perl]获取从web页面上传的文件名称及POST操作

	<p>1.获取所有web页面的POST</p><p>2.获取从web页面上传的文件名称。</p><p><p>#!/usr/bin/perl</p><p>#  use strict;<br />use Net::PcapUtils;<br />use Time::Format;<br />$time{$format};<br />$time{$format, $unixtime};</p><p> </p><p>sub process_pkt {<br />        my($arg, $hdr, $pkt) = @_;<br />        my($packages)=unpack('H*', $pkt);<br />### START PACKAGE INFO ###<br />        my(%PACKT……
查看全文
	发表于:2005-09-12 ┆ 阅读(675) ┆ 评论(0)

	[Perl]获取完整数据包内容（未分析~）

	<p>从mac开始，都可以分析~  甚至可以做自己的ids工具</p><p>#!/usr/bin/perl</p><p>#  use strict;<br />use Net::PcapUtils;</p><p>sub process_pkt {<br />        my($arg, $hdr, $pkt) = @_;<br />        my($packages)=unpack('H*', $pkt);<br />        print(" $packages ");<br />}</p><p>Net::PcapUtils::loop(&process_pkt);</p><p><p>#!/usr/bin/perl<br />#  use strict;<br />&n……
查看全文
	发表于:2005-09-08 ┆ 阅读(746) ┆ 评论(0)

	[Perl]转换十进制为其他任意进制

	<p>很简单啦~</p><p><p>#!/usr/bin/perl -w<br />$out="";</p><p>print("Change 10 format number to-->? ");<br />$format=<STDIN>;<br />chomp $format;<br />print("input 10 format number:");<br />$_=<STDIN>;<br />chomp $_;<br />while ($_>0) {<br />                $mo=$_%$format;<br />                $_=($_-$……
查看全文
	发表于:2005-09-08 ┆ 阅读(676) ┆ 评论(2)

	[Perl]建立自己的全球ip地址归属地数据库~

	<p>Perl真是好东东！本来用shell处理一天的东西20秒就搞定了</p><p>1 从以下网址获取需要处理的全球ip地址归属： <a href="http://210.73.64.88/doorway/cgi-bin/getiplist.asp?PageNum=1&PageLine=175000&qtype=0">http://210.73.64.88/doorway/cgi-bin/getiplist.asp?PageNum=1&PageLine=175000&qtype=0</a></p><p>2 用Perl格式化输出获取的内容（乍一看格式很简单很好处理，小心哦~ 想取出完整内容还不方便呢~）</p><p><p>#!/usr/bin/perl<br />use URI::Escape;<br />use DBI; </p><p>my $dsn="DBI:mysql:dbname:192.168……
查看全文
	发表于:2005-09-08 ┆ 阅读(838) ┆ 评论(0)

	[Linux]编码转换的好工具[转载]

	找了好久的东西，一看就明白~~~jv-c
查看全文
	发表于:2005-09-06 ┆ 阅读(545) ┆ 评论(0)

	[C]指针练习-3

	<p>#define FORMAT "%d,%d,%d,%d "<br />main()<br />{<br />static int a[3][4]={1,3,5,7,9,11,13,15,17,19,21,23};<br />printf("1,3,5,7,9,11,13,15,17,19,21,23 ");</p><p>printf("a,a,(a),(a) ");<br />printf(FORMAT,a,a,(a),(a));</p><p>printf("a[0],(a+0),(a[0]),((a+0)) ");<br />printf(FORMAT,a[0],(a+0),(a[0]),((a+0)));</p><p>printf("&a[0],&a[0][0],(&a[0]),&a[0][0] ");<br />printf(FORMAT,&a[0],&a[0][0],*(&a[0])……
查看全文
	发表于:2005-08-31 ┆ 阅读(473) ┆ 评论(0)

	[C]指针练习-2

	int a1,a2;/数据内容交换/
查看全文
	发表于:2005-08-31 ┆ 阅读(619) ┆ 评论(1)

	[Linux]mantis乱码问题

	原来参照网上的提示修改了以下内容，可是有的页面可以正常显示，有的却不可以~
查看全文
	发表于:2005-08-31 ┆ 阅读(573) ┆ 评论(0)

	[C]指针练习-1

	倒序读出，获取最大最小值
查看全文
	发表于:2005-08-30 ┆ 阅读(555) ┆ 评论(0)

	[C]libpcap函数库说明

	libpcap获取数据包函数库说明
查看全文
	发表于:2005-08-29 ┆ 阅读(794) ┆ 评论(0)

	[Linux]才发现的bc计算器

	echo "(1+2)*3" \|bc<p>
查看全文
	发表于:2005-08-29 ┆ 阅读(590) ┆ 评论(7)