请教高难度 shell脚本 搞定加微信发红包奖励

f_cook

1. perl -F'\|' -ane 'if($F[4]=~/^\"OTH\"$|^\"Resident\"$/){pass}elsif($F[4]=~/^\"Citizen\"$|^\"Dual_Citizen\"$/){$F[5]="\"US\""}elsif($F[4]=~/^\"\"$/){$F[5]="\"DKK_US\""}else{@F=()};splice(@F, 4, 1);for($i=0;$i<scalar(@F);$i++){if($i eq scalar(@F)-1){print "@F[$i]"}else{print "@F[$i]|"}}' A

复制代码