- 博客(9)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 perl 5中三个预定义的特定子程序
PERL5预定义了三个子程序，分别在特定的时间执行，它们是：BEGIN子程序在程序启动时被调用；END子程序在程序结束时被调用；AUTOLOAD子程序在找不到某个子程序时被调用。你可以自己定义它们，以在特定时间执行所需要的动作。如： BEGIN { print("Hi! Welcome to Perl!/n"); } AUTOLOAD{ print("subroutine $AU
2010-02-21 10:44:00
1065
原创 perl 中匹配十进制数 ^-?/d+$
11、指定选项 字符"|"指定两个或多个选择来匹配模式。如：/def|ghi/匹配def或ghi。 例：检验数字表示合法性 if ($number =~ /^-?/d+$|^-?0[xX][/da-fa-F]+$/) { print ("$number is a legal integer./n"); } else { print ("$number is not
2010-02-20 20:25:00
1214
原创 shell中行到一个月的最后一天 echo $(cal)|awk '{print$(NF)}'
shell中行到一个月的最后一天 echo $(cal)|awk {print$(NF)}或cal $ym|xargs|awk {print $NF}
2010-02-20 12:16:00
2176
原创 子串的变量扩展 主要用在路径变量中 ${变量%模式}${变量%%模式} ${变量#模式} ${变量##模式} ${#变量}
${变量%模式} 将变量值的尾部与模式进行最小匹配，并将匹配到的部分删除$ pathname="/usr/bin/local/bin"$ echo ${pathname%bin*}/usr/bin/local ${变量%%模式} 将变量值的尾部与模式进行最大匹配，并将匹配到的部分删除$ pathname="/usr/bin/local/bin"$ echo $
2010-02-20 11:50:00
647
原创 shell 几中专用修饰符 :- :+ := ${variable:offset:length}
${variable:-word} 如果variable已经被设置了，且不为空，则代入它的置，否则代入word;$ fruit=peach$ echo ${fruit:-plum}peach$ echo ${newfruit:-apple}apple ${variable:=word}如果variable已经被设置且不为空，则代入它的值，否则代入word，并且在后面va
2010-02-20 10:54:00
1952
转载 一句话的perl
zcat *|perl -e while(){可以写一条语句}; 1. hello world! =========================================================== 还是从最经典的 hello,world! 开始...... ## # perl -e print "hello,world!/n" hel
2010-02-19 15:34:00
1510
原创 flash chart
$g = new graph(); 建立一个对象$g->title( Spoon sales . date("Y"), {font-size: 26px;} );$g->set_data( $data ); 设置每个点的数 $g->line_hollow( 2, 4, 0x80a033, Spoon sales, 10 );其中第一个参数是设置线条的粗线，第一个
2010-02-05 09:55:00
731
原创 html 中表格长度固定
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">testtable {width:500px;table-layout:fixed;}.col1 {width:100px;}.col2 {width:200px;}.col3 {width:200px;}th strong {display:block;width:100%;}tr stro
2010-02-03 14:25:00
8671
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人