Ques:- 1.What are the different ways to initialize a variable. How to differentiate global and local variables, explain it through a simple tcl program. 2.Create a list of week days and print the first and last character of each day using foreach command 3.Can you write a small program to verify the given input is file or directory.Before checking, just ensure that the file/dir exists or not in the given path. If the given input is a file, findout the size and verify that the file has all read ,write and execute permission.
Asked In :-
Right Answer:
1. In Tcl, a variable can be initialized in several ways:
- Using the `set` command: `set varName value`
- Direct assignment: `set varName "value"`
- Using `array` for associative arrays: `array set myArray {key value}`
To differentiate between global and local variables, you can use the `global` command for global variables. Here's a simple program:
```tcl
proc exampleProc {} {
set localVar "I am local"
global globalVar
set globalVar "I am global"
puts $localVar
puts $globalVar
}
exampleProc
puts $globalVar ;# This will print "I am global"
```
2. To create a list of weekdays and print the first and last character of each day using the `foreach` command:
```tcl
set weekdays {Monday Tuesday Wednesday Thursday Friday Saturday Sunday}
1. In Tcl, a variable can be initialized in several ways:
- Using the `set` command: `set varName value`
- Direct assignment: `set varName "value"`
- Using `array` for associative arrays: `array set myArray {key value}`
To differentiate between global and local variables, you can use the `global` command for global variables. Here's a simple program:
```tcl
proc exampleProc {} {
set localVar "I am local"
global globalVar
set globalVar "I am global"
puts $localVar
puts $globalVar
}
exampleProc
puts $globalVar ;# This will print "I am global"
```
2. To create a list of weekdays and print the first and last character of each day using the `foreach` command:
```tcl
set weekdays {Monday Tuesday Wednesday Thursday Friday Saturday Sunday}
Comments
2. % set days {monday tuesday wednasday thursday friday
saturday sunday}
monday tuesday wednasday thursday friday saturday sunday
% foreach day $days {
set str [split $day ""]
puts "[lindex $str 0]"
puts "[lindex $str end]"
}
1.
a. Initializing using
set x 10Â
lappend y 13
b. Initializing using out put of an expressionÂ
set z [expr $x + $y ]
c . Initializing using a list
set m [list $x $y $z]
