Scripting Languages [ Lab Programs ]

Various operation on List

Aim:

☛ Write a TCL script to
(i)create a list
(ii)append elements to the list
(iii)Traverse the list
(iv)Concatenate the list

Solution :

PROGRAM: (list_ops.tcl)

 
# (i) Create a list
set mylist1 {10 20 30}

puts "Original List: $mylist1"

# (ii) Append elements to the list
lappend mylist1 40
lappend mylist1 50

puts "After Appending Elements: $mylist1"

# (iii) Traverse the list
puts "Traversing the List:"
foreach item $mylist1 {
    puts $item
}

# (iv) Concatenate the list with another list
set myList2 {60 70 80}
set newList [concat $mylist1 $myList2]

puts "Concatenated List: $newList"

OUTPUT:

 
Original List: 10 20 30
After Appending Elements: 10 20 30 40 50
Traversing the List:
10
20
30
40
50
Concatenated List: 10 20 30 40 50 60 70 80

Related Content :

1. Write a Ruby script to create a new string which is n copies of a given string where n is a non-negative integer. View Solution

2. Write a Ruby script which accept the radius of a circle from the user and compute the perimeter and area. View Solution

3. Write a Ruby script which accept the users first and last name and print them in reverse order with a space between them. View Solution

4. Write a Ruby script to accept a filename from the user print the extension of that. View Solution

5. Write a Ruby script to find the greatest of three numbers. View Solution

6. Write a Ruby script to print odd numbers from 10 to 1. View Solution

7. Write a Ruby script to check two integers and return true if one of them is 20 otherwise return their sum. View Solution

8. Write a Ruby script to check two temperatures and return true if one is less than 0 and the other is greater than 100. View Solution

9. Write a Ruby script to print the elements of a given array. View Solution

10. Write a Ruby program to retrieve the total marks where subject name and marks of a student stored in a hash. View Solution

11. Write a TCL script to find the factorial of a number. View Solution

12. Write a TCL script that multiplies the numbers from 1 to 10. View Solution

13. Write a TCL script for sorting a list using a comparison function. View Solution

14. Write a TCL script to
(i) create a list
(ii) append elements to the list
(iii) Traverse the list
(iv) Concatenate the list View Solution

15. Write a TCL script to comparing the file modified times. View Solution

16. Write a TCL script to Copy a file and translate to native format. View Solution

17. a) Write a Perl script to find the largest number among three numbers. View Solution
b) Write a Perl script to print the multiplication tables from 1-10 using subroutines. View Solution

18. Write a Perl program to implement the following list of manipulating functions
a) Shift
b) Unshift
c) Push View Solution

19. a) Write a Perl script to substitute a word, with another word in a string. View Solution
b) Write a Perl script to validate IP address and email address. View Solution

20. Write a Perl script to print the file in reverse order using command line arguments. View Solution

Menu