comparision of files and script

[sun_ray]

Can anyone please provide a script to compare between two file lists which should have the same list of files in each of them. The script will be able to say if there are any files missing.

 

[poluekt]

kdiff3
http://kdiff3.sourceforge.net/

 

[sun_ray]

Can anyone write the script in tcl and provide it?

 

[vijayR15]

Hai sunray,

This is simple in tcl just open the two file using tcl

store all the lines in a list or array

so now u got two list..

Then compare the two list... now u will get all the missing things..

 

[vijayR15]

hai sunray,

As per ur private request i spend time and do the code for u... enjoy......

proc intersection_lists { fileopen1 fileopen2 } {
set file1 [open $fileopen1 r]
set file2 [open $fileopen2 r]
while {[gets $file1 line] >= 0} { 
lappend filelist1 $line
}
while {[gets $file2 line] >= 0} { 
lappend filelist2 $line
}
for {set i 0} {$i< [llength $filelist1]} {incr i} { 
for {set j 0} {$j< [llength $filelist2]} {incr j} {
lappend en [string compare [lindex $filelist1 $i] [lindex $filelist2 $j]]
}
set envar [lsearch $en "0"]
if {$envar eq -1} {
puts "[lindex $filelist1 $i]"
}
set en {}
}
}


intersection_lists file_1.txt file_2.txt
intersection_lists file_2.txt file_1.txt