本帖最后由 yakczh_cu 于 2013-08-12 22:36 编辑 [code] sub linkhandle(＄＄){ my $arr=shift; my $para=shift; @arr=(); foreach my $ele (@{$arr}) { push(@arr,$para.$ele); } return @arr; } sub process(&$) { my ( $handle, $para ) = @_; my @urls=('./201207/t20120705_1887040.html', './201206/t20120608_1846662.html'); @urls= $handle->(@urls,...

contact me by phone 01088421871 68423671 @SUN SAN 套件 Qlogic 2200 +SunA5000*14硬盘箱+72G光纤硬盘 *14+SUN 光纤HUB370-3012+IBM 模块*3（370-2303） 大量光纤模块 批发130元零售150元 易嘉提供SUN 易嘉提供SUN E4500/3000 E450/250/420r/220r netra T 1100/U60,u30,u10,u5,u2，u1 @SUN E4500/3000 cpu*6-12 400mhz/8Mcache/3-24G memory/ 73G*2scsi/DDS4 tape @SUNfire420r cpu*2-4 450MHz 4M cache*2/1-4G Mem...

contact me by phone 01088421871 68423671\r\n @SUN SAN 套件 Qlogic 2200 +SunA5000*14硬盘箱+72G光纤硬盘 *14+SUN 光纤HUB370-3012+IBM 模块*3（370-2303）\r\n\r\n大量光纤模块 批发130元零售150元\r\n\r\n易嘉提供SUN \r\n易嘉提供SUN E4500/3000 E450/250/420r/220r netra T 1100/U60,u30,u10,u5,u2，u1 \r\n@SUN E4500/3000 cpu*6-12 400mhz/8Mcache/3-24G memory/ 73G*2scsi/DDS4 tape \r\n@SUNfire420r cpu*2-4 45...

本帖最后由 gaoyang636 于 2012-12-28 16:08 编辑 看C中有类似这种用法：main调用子程序时，传入参数1为一个数组（例如，储存某行的字符）。而子程序的返回值为一个数字（例如某行的长度）。这个数组并不需要做任何操作，在main和sub中都可以拿来直接操作的，貌似没在Perl中见到类似的用法，我接触到的subroutine（不包括面向对象的），需要返回一个array时，都是通过子程序最后返回值进行操作的。新手不确定，特来请教各位是不...

#!/bin/bash a=`ps aux|grep httpd|awk '{print $2}'` if [ "$a" ne 0 ] then exit else /usr/local/apache2/bin/apachectl start echo "restart.`date`" >> aaa.txt fi 提示 ：too many arguments 用了" "--还是提示这个 ？

-----------------------------------------------------分割线 #!/bin/sh # Program: # Kill the three processes named with 'a','b' and 'c' in absolute path. # History: # 2010/12/21 YangBo Fourth Release PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:~/bin export PATH #Tell if the three processes exist if [ -n `ps -ef|grep $PWD/a|grep -v grep` ] && [ -n `ps -ef|grep $PWD/b|grep ...

argumentsmanyshelltoo