in reply to Re: replace number by args<number>
in thread replace number by args<number>
$ret=index($in{'cmd'},":"); if($ret eq -1) { @arr=split(/ /,$in{'cmd'}); $delim=" "; } else { @arr=split(/:/,$in{'cmd'}); $delim=":"; } $i=0; while(@arr[$i]) { if(@arr[$i] == 1) { $cmd=$cmd.$in{'args1'}.$delim; }elsif(@arr[$i] == 2) { $cmd=$cmd.$in{'args2'}.$delim; }elsif(@arr[$i] == 3) { $cmd=$cmd.$in{'args3'}.$delim; }else { $cmd=$cmd.@arr[$i].$delim; } $i++; } chop($cmd);
should become12
args1args2
|
|---|