Linux伊甸园论坛 » PHP,PERL,Python » 警急：谁可以帮我转这个Bash程序代码转成Perl程序代码？

starbox9922 发表于 2004-1-7 16:58

警急：谁可以帮我转这个Bash程序代码转成Perl程序代码？

以下是Bash的程序代码：
#!/bin/bash

#!/bin/bash

if [ -d ~/.rubbish ]
then
        for arg in $*
        do
                case $arg in
                -l) ls ~/.rubbish
                    ;;
                -r) rm ~/.rubbish/*.*
                    ;;
                *) if [ -f ~/.rubbish/$arg ]
                   then
                        count=1
                        while [ -f ~/.rubbish/$arg$count ]
                        do
                                let count=count+1
                        done
                        mv $arg ~/.rubbish/$arg$count
                   else
                        mv $arg ~/.rubbish
                   fi
                   ;;
                esac
        done
else
        mkdir ~/.rubbish
        for arg in $*
        do
                case $arg in
                -l) ls ~/.rubbish
                    ;;
                -r) rm ~/.rubbish/*.*
                    ;;
                *) if [ -f ~/.rubbish/$arg ]
                   then
                        count=1
                        while [ -f ~/.rubbish/$arg$count ]
                        do
                                let count=count+1
                        done
                        mv $arg ~/.rubbish/$arg$count
                   else
                        mv $arg ~/.rubbish
                   fi
                   ;;
                esac
        done
fi

dearvoid 发表于 2004-3-2 12:19

don't be too lazy

查看完整版本: 警急：谁可以帮我转这个Bash程序代码转成Perl程序代码？