egghelp/eggheads community

change filenames

2015-03-24T13:14:50-04:00

Thanks guys,

That is exactly what I wanted. The output was to go to a text file which I could copy/paste into an SSH session. It would have been ideal to write this in Expect, as I could send the commands I want within the SSH session, but I didn't know how to do the loop with the variables. I think I have enough now to migrate this over to Expect. I appreciate the help.

Statistics: Posted by glennsftn — Tue Mar 24, 2015 1:14 pm

change filenames

2015-03-24T01:16:59-04:00

Maybe this is closer to what you say you want...

Code:

#!/usr/bin/tcl set src(1) "myfilename1.txt"set src(2) "myfilename2.txt"set src(3) "myfilname3.txt"set dst(1) "mynewfilename1.txt"set dst(2) "mynewfilename2.txt"set dst(3) "mynewfilename3.txt"set count 0 set log [open output.txt w] while {$count < 3} {    incr count   set srcName $src($count)   set dstName $dst($count)   puts $log "mv $srcName $dstName" } close $log

You should probably have the tcl script actually do the file renaming, and as mentioned above, mv is not a tcl command:)

Statistics: Posted by SpiKe^^ — Tue Mar 24, 2015 1:16 am

change filenames

2015-03-24T01:17:51-04:00

actualy "mv" not a Tcl command. ( http://www.tcl.tk/man/tcl8.6/TclCmd/contents.htm ) you can use file rename : http://www.tcl.tk/man/tcl/TclCmd/file.htm - http://wiki.tcl.tk/10083

Statistics: Posted by heartbroken — Tue Mar 24, 2015 1:08 am

change filenames

2015-03-23T23:26:10-04:00

Please excuse my noobiness, I’ve just been learning TCL a few days now and have little coding experience except a rudimentary understanding of Expect.

I have a NAS with a bunch of files that I’d like to rename. I want to create a script which will generate the commands to name the files from “this” to “that.” Below is a quick example of how I’m going about this.

Code:

#!/usr/bin/tclset src1 myfilename1.txtset src2 myfilename2.txtset src3 myfilname3.txtset dst1 mynewfilename1.txtset dst2 mynewfilename2.txtset dst3 mynewfilename3.txtset count 0set log [open output.txt w]while { $count < 4 } {   set count [incr $count]   set srcName "src$count"   set dstName "dst$count"   puts $log "mv $srcName $dstName"}close $log

What I would like the output.txt to be is:

mv myfilename1.txt mynewfilename1.txt
..
..
mv myfilename4.txt mynewfilename4.txt

The actual output:
$ cat output.txt
mv src1 dst1
mv src1 dst1
mv src2 dst2
mv src1 dst1
mv src3 dst3
mv src1 dst1
mv src4 dst4

Statistics: Posted by glennsftn — Mon Mar 23, 2015 11:26 pm