Interested to Buy Any Domain ? << Click Here >> for more details...
how to increment eacl element in a list ?
eg: incrlist {1 2 3}
=>2 3 4
- 9 Answers
- 21041 Views
- Honeywell, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / yatanti
set incrlist { 1 2 3 }
foreach element $incrlist {
set new_element [ expr $element + 1 ]
lappend new_incrlist $new_element
}
puts $new_incrlist
| Is This Answer Correct ? | 18 Yes | 3 No |
Answer / gagik sukiasyan
set list {1 2 3}
regsub -all {(\d+)} $list "\[expr \\1 + 1\]" new_list
set result [eval concat "" $new_list]
| Is This Answer Correct ? | 9 Yes | 2 No |
Answer / rangasa
set listItems {15 2 35}
for {set i 0} {$i < [llength $listItems]} {incr i} {
set newVal [expr [lindex $listItems $i] + 1]
set listItems [lreplace $listItems $i $i $newVal]
}
puts "The newly framed list is $listItems"
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / thirumurugan
set list1 {1 2 3}
foreach ele $list {
incr ele
lappend list2 $ele
}
puts $list2
| Is This Answer Correct ? | 4 Yes | 2 No |
Answer / ritu gupta
set l {1 2 3}
set i 0
foreach e $l {
lset l $i [ expr $e + 1]
incr i
}
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / ch.venkatesh
set list {1 2 3}
for {set i 0} {$i < [llength $list]} {incr i} {
set x [lindex $list $i]
set y [expr $x+1]
puts "$y"
}
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / mayank
// it works like incrlist 5 6 7 =>> 6 7 8
proc incrlist args {
set s 0
foreach s $args {
incr s 1
puts $s
}
}
//for list
proc incrlist list {
set s 0
foreach s $list {
incr s 1
puts $s
}
}
| Is This Answer Correct ? | 5 Yes | 5 No |
Answer / jiandoer
set lstr [list 10 20 30]
unset rlstr
foreach item $lstr {
if {[info exists rlstr]} {
lappend rlstr [incr item]
} else {
set rlstr [incr item]
}
}
puts "input list: $lstr"
puts "result list: $rlstr"
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / meganathan
set a {10 11 12}
set b 0
foreach c $a {
set c [expr $c+1]
lset a $b $c
incr b
}
puts $a
| Is This Answer Correct ? | 0 Yes | 0 No |
How do you find the length of a string without using string length command in TCL??
how to remote log in to a system A to system B ,execute commands in it and collect the log in system A from B using TCL script??
1 Answers Global Edge, Sandvine,
Where can find the sample tcl programs?
Which scripting language is better among TCL Perl and Python and why?
How to get the next ip for given ip ex: 10.10.10.1 -> 10.10.10.2 ex: 10.10.10.255 -> 10.10.11.0
Write a proc to increment the ip by the given no. of times. The incremented IPs should be a valid one. Ex: proc <name> {ip no_of_incrments} { body }
How do you check whether a string is palindrome or not using TCL script?
how to increment eacl element in a list ? eg: incrlist {1 2 3} =>2 3 4
How to Swap 30 & 40 in IP address 192.30.40.1 using TCL script?
write a program to the given ip is valid private address or not(192.168.1.1)?
how to write the startup scripts in winrunner? can any body explain with example code?
How increment a character? For example, I give 'a' and I should get 'b'.
ASP 
