这个说起来比较复杂,不知道你有没有听说过perl,substr是perl语言中的一个取子串的函数.
substr(expr,skipchars,length),从字符串expr的位置skipchars开始,取一个长度为length的子字符串
比如：substr("this is a test string",1,7)=="his is "
substr($$0018,1,7)这句中比较复杂的是$$0018,$0018看样子存的是一个字符串的地址,$$0018的意思就是取 $0018这个地址中存的字符串,然后一样的做取子串的操作,然后将该子串赋值给前面取的一个子串存的地址.
所以最终的意思就是把a.nsr_swjg_dm这个字符串从第1个字符(从0开始计娄)开始的7个字符替换成地址$0018中存的字符串,从第1个字符(从0开始计数)开始的7个字符.
主要意思就是这样,你可以去找些perl有关的资料来参考.