GNU/shell - 我的文章 - dorainm's blog

dorainm.cublog.cn

关于作者

dorainm
dorainm@gmail.com

我的梦想是当一名地主家的少爷，家有良田千顷，终日不学无术，没事领着一帮狗和奴才去调戏一下良家少女……

格物、致知、正心、诚意、修身、齐家、治国、平天下

电影的长度取决于观众的那泡尿能憋多久

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

我的分类

	文章列表 - GNU/shell

	基于Perl+MySQL的文本界面的任意字段通讯录
	好久好久没来blog上写文章了，公司最近真很忙。<br>    稍微安顿下来了，客户的一些通讯资料和我的破手机成了矛盾，只能存储200个号码，而且在SIM卡中，慢死不说，装不下呀，无奈，花了个下午，弄个能支持任意字段的通讯录出来玩玩，其实这种款式的通讯录，命令行下的，以前也设想过了呢：）<br><br>    程序叫做 dcontacts，是 Perl写的，使用 MySQL数据库，要调用 Perl的 DBI连接数据库，如果要使用，需要自己准备安装好这些。<br><br>    看下程序的使用帮助<br> <table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><code><span style="color: rgb(0, 0, 0);">dorainm@thinkpad<span style="color: rgb(0, 0, 204);">/</span><span style="color: rgb(0, 0, 204);">~</span> $ dcontacts <span style="color: rgb(0, 0, 204);">-</span><span style="color: rgb(0, 0, 204);">-</span>help<br> dcontacts 0<span style="color: rgb(0, 0, 204);">.</span>2<br> Copyright <span style="color: rgb(0, 0, 204);">(</span>C<span style="color: rgb(0, 0, 204);">)</span> 2008 dorainm <span style="color: rgb(0, 0, 204);"><</span>dorainm@gmail<span style="color: rgb(0, 0, 204);">.</span>com<span style="color: rgb(0, 0, 204);">></span><br> Usage <span style="color: rgb(0, 0, 204);">:</span><br> Help <span style="color: rgb(0, 0, 255);">Info</span><span style="color: rgb(0, 0, 204);">.</span> <span style="color: rgb(0, 0, 204);">:</span> dcontacts <span style="color: rgb(0, 0, 204);">-</span><span style="color: rgb(0, 0, 204);">-</span>help<br> Re<span style="color: rgb(0, 0, 204);">/</span>Install <span style="color: rgb(0, 0, 204);">:</span> dcontacts INSTALL<br> Backup <span style="color: rgb(255, 0, 0);">Data</span> <span style="color: rgb(0, 0, 204);">:</span> dcontacts BACKUP<br> Create Name <span style="color: rgb(0, 0, 204);">:</span> dcontacts newname<br> <span style="color: rgb(255, 0, 0);">Update</……
查看全文
	发表于:2008-06-06 ┆ 阅读(256) ┆ 评论(0)

	Perl 用 sysread读取 socket字符流的缓冲区buffer大小解决方法
	继 <a href="http://blog.chinaunix.net/u1/41420/showart_504678.html" target="_blank">另类的 Linux在线文本打印和基于 Perl的 Web Service</a> 中，dorainm曾经提到：<br><br><br>:: START QUOTE<br><br>    Perl 开始在 $sys{'port'}端口侦听了，如果运行成功的话，然后要开始接收客户请求，下面是实现的关键代码:<br><br><table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><code><span style="color: rgb(0, 0, 0);"><span style="color: rgb(0, 0, 255);">sub</span> accept_client<span style="color: rgb(0, 0, 204);">(</span><span style="color: rgb(0, 0, 204);">)</span><span style="color: rgb(0, 0, 204);">{</span><br>     <span style="color: rgb(0, 0, 255);">while</span><span style="color: rgb(0, 0, 204);">(</span> <span style="color: rgb(0, 0, 255);">$</span><span style="color: rgb(0, 128, 128);">client_socket</span><span style="color: rgb(0, 0, 204);">=</span><span style="color: rgb(255, 0, 0);">accept</span><span style="color: rgb(0, 0, 204);">(</span> CLIENT<span style="color: rgb(0, 0, 204);">,</span> SERVER <span style="color: rgb(0, 0, 204);">)</span> <span style="color: rgb(0, 0, 204);">)</span> <span style="color: rgb(0, 0, 204);">{</span><br>     <span style="color: rgb(0, 0, 204);">(</span> <span style="color: rgb(0, 0, 255);">$</span><span style="color: rgb(0, 128, 128);">client_port</span><span style="color: rgb(0, 0, 204);">,</span> <span style="color: rgb(0, 0, 255);">$</span><span style="color: rgb(0, 128, 128);">client_ip</span> <span style="color: rgb(0, 0, 204);">)</span> <span style="color: rgb(0, 0, 204);">=</span> sockaddr_in<span style="color: rgb(0, 0, 204);">(</span> <span style="color: rgb(0, 0, 255);">$</span><span style="color: rgb(0, 128, 128);">client_socket</span> <span style="color: rgb(0, 0, 204);">)</span><span style="color: rgb(0, 0, 204);">;</……
查看全文
	发表于:2008-04-29 ┆ 阅读(351) ┆ 评论(0)

	Perl程序中类似setuid的权限设置
	<br>   Perl 编写了一个系统的服务程序(见文章 <a href="http://blog.chinaunix.net/u1/41420/showart_504678.html" target="_blank">另类的 Linux在线文本打印和基于 Perl的 Web Service</a> )，开机时候利用 rc.d启动，但是运行时刻都是 root权限，对于脚本程序，比起二进制的ELF文件，毕竟更怕些，嘻，因为比较容易暴露源代码…<br><br>    为了保障运行的稳定性，也让系统更稳定一些，我们需要类似 setuid之类的函数，在不需要特权的时候，以一个伪用户权限运行。<br><br>    Perl 在处理这权限，用 $< 和 $>，如下：<br><br><br><table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><code><span style="color: rgb(0, 0, 0);"><span style="color: rgb(0, 0, 255);">$</span><span style="color: rgb(0, 0, 204);"><</span> The real uid of this process<span style="color: rgb(0, 0, 204);">.</span> <span style="color: rgb(0, 0, 204);">(</span>Mnemonic<span style="color: rgb(0, 0, 204);">:</span> it<span style="color: rgb(255, 0, 255);">'s the uid you came<br>         from, if you'</span>re running setuid<span style="color: rgb(0, 0, 204);">.</span><span style="color: rgb(0, 0, 204);">)</span> You can change both the real<br>         uid <span style="color: rgb(0, 0, 255);">and</span> the effective uid at the same <span style="color: rgb(255, 0, 0);">time</span> by using<br>         POSIX<span style="color: rgb(0, 0, 204);">:</span><span style="color: rgb(0, 0, 204);">:</span>setuid<span style="color: rgb(0, 0, 204);">(</span><span style="color: rgb(0, 0, 204);">)</span><span style="color: rgb(0, 0, 204);">.</span> Since changes to <span style="color: rgb(0, 0, 255);">$</span><span style="color: rgb(0, 0, 204);"><</span> <span style="color: rgb(0, 0, 255);">require</span> a <span style="color: rgb(2……
查看全文
	发表于:2008-04-28 ┆ 阅读(323) ┆ 评论(0)

	Perl 中的正则表达式
	<font size="2"><span class="top11"><h3>1 正则表达式的三种形式</h3> <p>首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：</p> <p>匹配：m/<regexp>/ （还可以简写为 /<regexp>/ ，略去 m）</p> <p>替换：s/<pattern>/<replacement>/</p> <p>转化：tr/<pattern>/<replacemnt>/</p> <p>这三种形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整条语句中读作 does，"!~" 表示不匹配，在整条语句中读作 doesn't），并在左侧有待处理的标量变量。如果没有该变量和 =~ !~ 操作符，则默认为处理 $_ 变量中的内容。举例如下：</p> <p><b>$str = "I love Perl";<br><br>$str =~ m/Perl/; # 表示如果在 $str 中发现 "Perl" 字符串，则返回 "1" 否则返回 "0"。<br><br>$str =~ s/Perl/BASH/; # 表示将变量 $str 中的 "Perl" 字符串替换为 "BASH"，如果发生此替换则返回 "1"，否则返回 "0"。<br><br>$str !~ tr/A-Z/a-z/; # 表示将变量 $str 中的所有大写字母转化为小写字母，如果转化发生了则返回 "0"，否则返回 "1"。</b></p> <p>另外还有：</p> <p><b>foreach (@array) { s/a/b/; } # 此处每次循环将……
查看全文
	发表于:2007-11-25 ┆ 阅读(516) ┆ 评论(0)

	Perl 特殊变量 $_
	<pre>#title Perl 特殊变量<br>大概像这样：<br><br><src lang="perl"><br>foreach ( qw(a.txt b.txt) ) {<br> test($_);<br>}<br><br>sub test {<br> my $file = shift;<br> open(FH, $file) \|\| die "Cann't open file $file: $!";<br> $i = 1;<br> while (<FH>) {<br> print $_;<br> last if $i++ > 10;<br> }<br>}<br></src><br><br>错误提示说：<br><example><br>perl "e:/Programs/emacs/home/temp/t.pl"<br>Modification of a read-only value attempted at e:/Programs/emacs/home/temp/t.pl line 36.<br></example><br><br>后来终于知道怎么回事了，在 foreach 那里 $_ 被赋值成一个字符常量，<br>由于 $_ 是全局变量，所以在函数中仍然是一个字符常量，这样 <FH> 就不能<br>赋值给 $_ 了。<br><br>结论是：使用 $_ 要很小心。还是显示的声明比较好。<br><br>转 Python Humor 中的一首诗：<br><example><br>The Zen of Python (by Tim Peters)<br><br>Beautiful is better than ugly.<br>Explicit is better than implicit.<br>Simple is better than complex.<br>Complex is better t……
查看全文
	发表于:2007-11-24 ┆ 阅读(649) ┆ 评论(0)

	findstring 文本文件中搜索字符串
	<font size="2">     需要一个能检索文件内容的小程序, 对perl不太熟悉,最近要操作查阅众多源码众多配置文件, 有时候很想检索这些文本文件中某个字符串, 内容搜索的. 以前用 find -type f -exec cat {} \; 再加管道(pipe)再 grep -n xxx, 但是现在没法满足了(dorainm对find命令也不甚精通), 只好自己写个 shell 来做吧!<br><br>看下程序:<br><br></font> <table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><font size="2"><code><span style="color: rgb(0, 0, 0);"><span style="color: rgb(0, 0, 255);">$</span> findstring<br> findstring<span style="color: rgb(0, 0, 204);">,</span> by dorainm<span style="color: rgb(0, 0, 204);">,</span> dorainm<span style="color: rgb(0, 0, 255);">@</span><span style="color: rgb(128, 128, 0);">gmail</span><span style="color: rgb(0, 0, 204);">.</span>com<br> usage<span style="color: rgb(0, 0, 204);">:</span> finds……
查看全文
	发表于:2007-11-11 ┆ 阅读(878) ┆ 评论(0)

	用进程名杀死所有进程
	<div style="text-align: justify;">    在给 fluxbox 写各种快捷键，<br>比如 Mod1 F9 :mpg321 -z -Z /home/dorainm/multimusic/music/*.mp3<br>    意思就是说，按下Alt+F9，系统就自动播放音乐了，那么关闭呢？！或者下一曲呢？！<br>    嘿嘿，关闭就是杀死进程，下一曲，就是杀死进程后又重新播放嘛，反正我们是-z -Z（乱序+重复）播放<br>    去百度上搜索了2页，看了下似乎没有直接的命令（可能有，没有细找），就自己写个长度点的命令啦~<br><br> </div><table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><code><span style="color: rgb(0, 0, 0);"><span style="color: rgb(255, 0, 0);">kill</span> <span style="color: rgb(0, 0, 204);">-</span><span style="color: rgb(255, 0, 0);">KILL</span> `ps aux <span style="color: rgb(0, 0, 204);">\|</span> <span style="color: rgb(255, 0, 0);">grep</span> mpg321 <span style……
查看全文
	发表于:2007-08-09 ┆ 阅读(830) ┆ 评论(2)

	显示当前网络连接与对应物理地址的shell脚本
	再贴个我利用自己写的showip读取纯真数据库和netstat -an \| grep ":8080" 来查看当前电脑web服务器连接的脚本程序：）<br><br><br> <table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><code><span style="color: rgb(0, 0, 0);"><span style="color: rgb(255, 153, 0);">#!/bin/bash<br> </span><br> netstat <span style="color: rgb(0, 0, 204);">-</span>an <span style="color: rgb(0, 0, 204);">\|</span> <span style="color: rgb(255, 0, 0);">grep</span> <span style="color: rgb(255, 0, 255);">":8080"</span> <span style="color: rgb(0, 0, 204);">\|</span> <span style="color: rgb(255, 0, 0);">grep</span> <span style="color: rgb(255, 0, 255);">"ESTABLISHED"</span> <span style="color: rgb(0, 0, 204);">\|</span> awk <span style="color: rgb(0, 0, 204);">-</span>F<span style="color: rgb(0, 0, 204);">:</span> <span style="color: rgb(255, 0, 255);">'……
查看全文
	发表于:2007-08-07 ┆ 阅读(750) ┆ 评论(0)

	程序返回值在 shell 编程中的应用
	今天终于在凑巧的情况下，知道了 linux 下shell 的返回值<br> <br> 大家知道我们编写一个程序，不可能就一个 main 函数，<br> <br> 当 main 函数调用子函数的时候，可以设置一个子函数的返回值<br> 比如<br><br> <table style="border-collapse: collapse;" bgcolor="#f1f1f1" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0" width="95%"><tbody><tr><td><p style="margin: 5px; line-height: 150%;"><code><span style="color: rgb(0, 0, 0);"><span style="color: rgb(0, 0, 204);">.</span><span ……
查看全文
	发表于:2006-06-28 ┆ 阅读(1512) ┆ 评论(0)

	nasm自动编译脚本程序 [shell script] [for linux]
	linux 下的 nasm，编译需要先把 .asm 编译成 .o 的 elf 文件<br> 然后用 gcc 把它变成可执行程序<br> <br> 现在用一个脚本，把这些动作变成一个自动化的过程，<br> <br> 见 assemble.sh<br><table style="bord……
查看全文
	发表于:2006-06-25 ┆ 阅读(668) ┆ 评论(0)

	邮箱攻击者 [shell script] [for linux]
	邮箱攻击者<br> <br> 没有什么技术含量，循环发送邮件而已<br> 最好设置一个延时，不然服务器也受不了<br> （攻击2个目标了阿？哇哈哈，赚了）<br> <br> 脚本大家可以自由修改，<br> 就是不要攻击 dorainm 的……
查看全文
	发表于:2006-05-29 ┆ 阅读(1241) ┆ 评论(0)

	终端下显示网速的SHELL脚本
	<span class="bold"></span><br><br> <div style="font-size: 12px;">除了视频, 终端下的生活已经很完美和效率了 <br> ( framebuffer: 喂, 我可以让你在字符界面看电影的... ) <br> <br> <br> 我几乎用不到X, 而……
查看全文
	发表于:2006-04-13 ┆ 阅读(1326) ┆ 评论(0)