shell:
function exitfile {
#transfer parameter (attention : it is not in function name ,like exitfile(a); it didn't permit have "()" in shell function. sometimes it is in awk/nawk/xwak function which is in shell)
a=$1
if [ -f $a ]
then
#OFC33L40.0
load=$(echo $a |nawk 'if (/OFC(\d+)/) exit $1')
echo "line21 $load"
release=$(echo $a |nawk 'if (/OFC\d+L(\d+)/) exit $1')
echo "line23 $release"
cp /apx/ecpc/$a/1apx10/omp/OMPgiu/OMPsugr/com/atcalink /var/tmp/atcalink
exit 10
else
exit 11
fi
}
http://bbs.chinaunix.net/thread-1820454-1-1.html
tcl:
proc chkDBMS { AP mode } {{-------------------------------------parameter
global C env
# If this isn't an NGN, nothing to check.
if { "$C(AP${AP}platform)" != "NGN" } {
return 0]------------------------------------------------return value
}
}
perl
sub part (Code $is_sheep, *@data) {
my (@sheep,@goats);
for@data {
if $is_sheep($_) { push @sheep, $_ }
else { push@goats, $_ }
}
return (\@sheep, \@goats);
}