in reply to replace number by args<number>

  D) 12

[download]
becomes 
  D) args1args2

[download]
or 
  D) args12

[download]

Replies are listed 'Best First'.
Re^2: replace number by args<number>
by himanshu.padmanabhi (Acolyte) on Mar 20, 2009 at 10:02 UTC
    Without using regular expression,Following already gave me what I want.I just wanted to make it better using regular expression,but I couldn't think of any..:( 
    $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);

    [download]
    12

    [download]
    should become 
    args1args2

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom