TCL script in PERL


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting TCL script in PERL
# 1  
Old 05-19-2011
Error TCL script in PERL

Hi all,
I am trying to run a tcl script in a perl script.

Now my problem is when I run the tcl script from the perl script it runs very slowly but when I run the tcl script individually it is running at expected speed.
What could be the problem??

Help please!!!!
Thanks
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

TCL script help

Hi All , I am having a file as stated below File 1 chain = chan6 group = grp0 input = '/pad_pc10' output = '/pad_pb7' length = 9900 chain = chan2 group = grp0 input = '/pad_pa4' output = '/pad_pb12' length = 10000 chain = chan7 group = grp0 input = '/pad_pb2' output =... (1 Reply)
Discussion started by: kshitij
1 Replies

2. Shell Programming and Scripting

Expect/tcl (not perl) logging troubles

My logs aren't correct. Im trying to log failure and successes, then use the resulting successes file "seed" to perform another function. Problem is that the log has only a single random entry. Thanks in advance for the help ! !#/usr/bin/expect set count 0 set bcount 0 set fcnb 923... (0 Replies)
Discussion started by: sumguy
0 Replies

3. Shell Programming and Scripting

Help with TCL script

I need to read a file, the file has a table in it. From the table I need to choose all the rows for which AVG 2 value is greater than 0.050 and write them on to a separate file. Please help me with the TCL script for this. Thanks in Advance (0 Replies)
Discussion started by: tonystark
0 Replies

4. Programming

Tcl script

Dear Users I'm struck by while the following tcl script. foreach l { set w($l) {} set fsum 0 foreach ftemp $f($l) { set fsum lappend w($l) $fsum } } It shows me error as "missing operand at _@_ in expression "0.10308400000000001 + _@_* 0.4 * 1" ... (0 Replies)
Discussion started by: bala06
0 Replies

5. Shell Programming and Scripting

Syntax error calling TCL script from shell script

hello everyone i am beginner on shell scripting .and i am working on my project work on ad hoc network i wrote a batch (.sh) to do a looping and execute a tcl script i wrote before in each iteration ..but i got this problem " syntax error near unexpected token `('... (1 Reply)
Discussion started by: marcoss90
1 Replies

6. Shell Programming and Scripting

executing perl with arguments in tcl

I have a question on perl/Tcl script execution .... right now i have both perl and Tcl script working individually standalone but i want to integrate the perl script in a Tcl script .... and the perl has the arguments to be passed along with command line execution and this argument is actually... (0 Replies)
Discussion started by: sukrish
0 Replies

7. Shell Programming and Scripting

Perl or Tcl/tk : Which one is better ?

Hi, I am just going to start learning perl, but i have about tcl that it is easy. So , i am confused that whether to go for tcl or perl. I am just learning it as my interest, but still in future which one of these will benefit me. Also please guide me about tk, can we make GUI based applications... (4 Replies)
Discussion started by: sarbjit
4 Replies

8. Shell Programming and Scripting

Running Perl script in TCL script

Hi, experts, I wonder if anyone can help me up with this. Has been googling and reading several books but still come to no idea how this can be done. Well, it's like this. I have a bundle of codes developed in Perl. I need to do something like this: 1. perl script run using spawn 2. in... (3 Replies)
Discussion started by: dniz
3 Replies

9. Shell Programming and Scripting

TCL/Perl scipting for PF

Hi All, I have a PF Firewall running on Freebsd v6.x Now I would like to change and review the config in my rc.conf file via a browser . So my approach here would be: - make a script , which changes for instance the default route - have this script built-in a Webpage and have a form... (9 Replies)
Discussion started by: unx_united_1980
9 Replies

10. Shell Programming and Scripting

TCL TK SCRIPT Help Please

Hi Seniors, Need a help from your end. I am new to scripting and still in the learning process of scripting. I have written a script on TCL TK. This is the script that i have written. if { $EssEntityType == "rss_user" && $EssAction == "Insert" } { puts $fp " Ess Action :$EssAction" ... (0 Replies)
Discussion started by: tech90210
0 Replies
Login or Register to Ask a Question
source(n)						       Tcl Built-In Commands							 source(n)

__________________________________________________________________________________________________________________________________________________

NAME
source - Evaluate a file or resource as a Tcl script SYNOPSIS
source fileName source -encoding encodingName fileName | _________________________________________________________________ DESCRIPTION
This command takes the contents of the specified file or resource and passes it to the Tcl interpreter as a text script. The return value from source is the return value of the last command executed in the script. If an error occurs in evaluating the contents of the script then the source command will return that error. If a return command is invoked from within the script then the remainder of the file will be skipped and the source command will return normally with the result from the return command. The end-of-file character for files is "32" (^Z) for all platforms. The source command will read files up to this character. This restriction does not exist for the read or gets commands, allowing for files containing code and data segments (scripted documents). If you require a "^Z" in code for string comparison, you can use "32" or "u001a", which will be safely substituted by the Tcl interpreter into "^Z". The -encoding option is used to specify the encoding of the data stored in fileName. When the -encoding option is omitted, the system | encoding is assumed. EXAMPLE
Run the script in the file foo.tcl and then the script in the file bar.tcl: source foo.tcl source bar.tcl Alternatively: foreach scriptFile {foo.tcl bar.tcl} { source $scriptFile } SEE ALSO
file(n), cd(n), encoding(n), info(n) KEYWORDS
file, script Tcl source(n)