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
- 21460 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 to write the startup scripts in winrunner? can any body explain with example code?
Hi all, Is there any certification exams available for TCL and Perl. If so please let me know, my mailid is vpbharathi@gmail.com. Thanks in advance, Bharathi.P
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?
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
Set ip address as 10.30.20.1 write a script to replace the 30 with 40 ?
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 TCL works
How to extract "information" from "ccccccccaaabbbbaaaabbinformationabcaaaaaabbbbbbbccbb" in tcl using a single command?
How to run a package 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,
How do you find the length of a string without using string length command in TCL??
ASP 
