#!/usr/bin/perl -W
#
# File: lsr_s.pl
# Author: 路小佳
# Cmuch修改
# License: GPL-2

use strict;
use warnings;

sub lsr_s($) {
    my $cwd = shift;
    my @dirs = ($cwd.'/');
    my @DirFile;
    my ($dir, $file);
    while ($dir = pop(@dirs)) {
        local *DH;
        if (!opendir(DH, $dir)) {
            warn "Cannot opendir $dir: $! $^E";
            next;
        }
        foreach (readdir(DH)) {
            if ($_ eq '.' || $_ eq '..') {
                next;
            }
            $file = $dir.$_;        
            if (!-l $file && -d _) {
                $file .= '/';
                push(@dirs, $file);
            }
            push @DirFile,$file;
        }
        closedir(DH);
    }
    return @DirFile;
}
#while (1) {
my @DirFile = lsr_s('.');
foreach my $fh (@DirFile){
    print "$fh\n";
}
#undef @DirFile;
#print "#########################\n";
#@DirFile = lsr_s('.');
#print "@DirFile\n";
#print "=====================\n";
#sleep(5);
#}

变量赋值(没设定、空值、非空值)
${#myvar}                                计算出变量值的长度
${myvar=default}                 若 $myvar 没设定，则输出并取值 default。(保留空值及非空值)
${myvar:=default}                 若 $myvar 没设定或为空值，则输出并取值 default。(保留非空值)
${myvar+default}                若 $myvar 设定为空值或非空值，输出但不取值 default，否则返回空(null)。
${myvar:+default}                若 $myvar 设定为非空值，输出但不取值 default，否则返回空(null)。
${myvar-default}                若 $myvar 没设定，输出但不取值 default。(保留空值及非空值)
${myvar:-default}                若 $myvar 没设定或为空值，输出但不取值 default。(保留非空值)
${myvar?default}        若 $myvar 没设定，将 default 输出至 STDERR。(不取值，保留空值及非空值)
${myvar:?default}                若 $myvar 没设定或为空值，将 default 输出至STDERR。(不取值，保留非空值)

bash 的组数(array)处理
一般而言，A="a b c def" 这样的变量只是将 $A 替换为一个单一的字符串，但是改为 A=(a b c def) ，则是将 $A 定义为组数。bash 的组数替换方法可参考如下方法：
${A[@]} 或 ${A
} 可得到 a b c def (全部组数)；
${A[0]} 可得到 a (第一个组数)，${A[1]} 则为第二个组数；
${#A[@]} 或 ${#A
} 可得到 4 (全部组数数量)；
${#A[0]} 可得到 1 (即第一个组数(a)的长度)，${A[3]} 可得到 3 (第一个组数(def)的长度)；
A[3]=xyz 则是将第 4 个组数重新定义为 xyz。

清除赋值：unset <变量>
变量一旦经过 unset 取消之后，其结果是将整个变量拿掉，而不仅是取消其变量值。如下两行其实是很不一样的：
$ A=
$ unset A
第一行只是将变量 A 设定为"空值"(null value)，但第二行则让变量 A 不在存在：
$ A=
$ echo $A                                打印输出为空
$ unset A
$ echo $A                                打印输出为空
请务必能识别 null value 与 unset 的本质区别，这在一些进阶的变量处理上是很严格的。与export一样，unset 命令行也同样会作变量替换(这其实就是 shell 的功能之一)，因此：
A=B
B=C
unset $A                                事实上所取消的变量是 B 而不是 A 。

$( )、` `、$(( ))、(( ))
A、$( )与 ` `(反引号)
都是用来做命令替换用(command substitution)的。所谓的命令替换与前面的变量替换差不多，都是用来重组命令行：完成引号里的命令行，然后将其结果替换出来，再重组命令行。
例如：$ echo last sunday is $(date -d "last sunday" +%Y-%m-%d) ，如此便可得到上一星期天的日期了。
在操作上，用 $( ) 或 ` ` 都无所谓，只是我"个人"比较喜欢用 $( ) ，理由是：
（1） ` ` 很容易与 ' ' ( 单引号)搞混乱。有时在一些奇怪的字形显示中，两种符号是一模一样的(直竖两点)。
（2） 在多层次的复合替换中，` ` 须要额外的跳脱( \` )处理，而 $( ) 则比较直观。
例如：command1 `command2 `command3` `这是错的。
原本的意图是要在 command2 `command3` 先将 command3 提换出来给command 2 处理，然后再将结果传给 command1 `command2 ...` 来处理。然而，真正的结果在命令行中却是分成了 `command2 ` 与 `` 两段。
正确的输入应该是：command1 `command2 \`command3\` `
要不然，换成 $( ) 就没问题了：command1 $(command2 $(command3))
不过，$( ) 并不是没有弊端的， ` ` 基本上可用在全部的 unix shell 中使用，若写成 shell script ，其移植性比较高。而 $( ) 并不见的每一种 shell 都能使用，只能说，若你用 bash2 的话，肯定没问题！
例：通过$()实现对某目录下文件进行操作的功能：
#!/bin/bash
j=$(ls $1)
for k in $j
do
  echo "$k"
  if [ $k = text ]
  then
    cat $k
  else
    echo no text
  fi
done

B、$(( ))用来作整数运算
在 bash 中，$(( )) 的整数运算符号大致有这些：
+ - * / ：分别为 "加、减、乘、除"。
% ：余数运算
& | ^ !：分别为 "AND、OR、XOR、NOT" 运算。
例：
$ a=5; b=7; c=2
$ echo $(( a+b*c ))      #得19
$ echo $(( (a+b)/c ))    #得6
$ echo $(( (a*b)%c))     #得1
在 $(( )) 中的变量，可用 $ 符号来替换，也可以不用，如：$(( $a + $b * $c)) 也可得到 19 的结果。此外，$(( )) 还可作不同进位(如二进制、八进位、十六进制)作运算呢，只是，输出结果皆为十进制而已：
echo $((16#2a))   结果为 42 (16进位转十进制)
以一个实用的例子来看看吧：
假如当前的 umask 是 022 ，那么新建文件的权限即为：
    $ umask 022
$ echo "obase=8;$(( 8#666 & (8#777 ^ 8#$(umask)) ))" | bc
644

C、用 (( ))重定义变量值或作testing
a=5; ((a++)) 可将 $a 重定义为 6
a=5; ((a--)) 则为 a=4
a=5; b=7; ((a < b)) 会得到 0 (true) 的返回值。
常见的用于 (( )) 的测试符号有如下这些：
<：小于
>：大于
<=：小于或等于
>=：大于或等于
==：等于
!=：不等于
不过，使用 (( )) 作整数测试时，请不要跟 [ ] 的整数测试搞混乱了。

net.ipv4.tcp_fin_timeout = 30
net.ipv4.tcp_keepalive_time = 300
net.ipv4.tcp_syncookies = 1
net.ipv4.tcp_tw_reuse = 1
net.ipv4.tcp_tw_recycle = 1
net.ipv4.ip_local_port_range =  5000    65000

[mysqld]
port = 3306
serverid = 1
socket = /tmp/mysql.sock
skip-locking
skip-name-resolve
back_log = 384
key_buffer_size = 256M
max_allowed_packet = 4M
thread_stack = 256K
table_cache = 128K
sort_buffer_size = 6M
read_buffer_size = 4M
join_buffer_size = 8M
myisam_sort_buffer_size = 64M
table_cache = 512
thread_cache_size = 64
query_cache_size = 64M
tmp_table_size = 256M
max_connections = 768
max_connect_errors = 10000000
wait_timeout = 10
thread_concurrency = 8
skip-networking