Hi,
I am trying to run the following in my tcl script---
set ul *//;s/*$//;/^$/d;s/^/"20080401 09:43:08.770798,/;s/$/"/;s/,/","/g} | \
/bin/awk -F, {{print $1","$2","$3","$4","$5}} | \
sed '1i\
REPORT.TIMESTAMP.s,REPORT.CUSTOMER.s,REPORT.CODE.s,REPORT.A_CODE.s,REPORT.DESCRIPTION.s' \
>... (2 Replies)
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)
Hi All,
I have written a code in tcl which is supposed to open an GUI in which numbers will be entered & after performing selected operation it wil show a result.
#!/usr/local/bin/wish
#package require Tk
#global opr
proc DoOperation {} {
global opr
set fstno
set scdno
set result ... (2 Replies)
Hello,
I write a TCL script for Expect/ Telnet.
I want to send command to the telnet server.
But I want to close after the command is sent.
Anybody know which command can flush the expect so I can sure the command is sent to the telnet server???
EX:
send "./command1\r"
close... (0 Replies)
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)
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 (0 Replies)
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)
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)
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
LEARN ABOUT CENTOS
puts
puts(n) Tcl Built-In Commands puts(n)
__________________________________________________________________________________________________________________________________________________NAME
puts - Write to a channel
SYNOPSIS
puts ?-nonewline? ?channelId? string
_________________________________________________________________DESCRIPTION
Writes the characters given by string to the channel given by channelId.
ChannelId must be an identifier for an open channel such as a Tcl standard channel (stdout or stderr), the return value from an invocation
of open or socket, or the result of a channel creation command provided by a Tcl extension. The channel must have been opened for output.
If no channelId is specified then it defaults to stdout. Puts normally outputs a newline character after string, but this feature may be
suppressed by specifying the -nonewline switch.
Newline characters in the output are translated by puts to platform-specific end-of-line sequences according to the current value of the
-translation option for the channel (for example, on PCs newlines are normally replaced with carriage-return-linefeed sequences. See the
fconfigure manual entry for a discussion on ways in which fconfigure will alter output.
Tcl buffers output internally, so characters written with puts may not appear immediately on the output file or device; Tcl will normally
delay output until the buffer is full or the channel is closed. You can force output to appear immediately with the flush command.
When the output buffer fills up, the puts command will normally block until all the buffered data has been accepted for output by the oper-
ating system. If channelId is in nonblocking mode then the puts command will not block even if the operating system cannot accept the
data. Instead, Tcl continues to buffer the data and writes it in the background as fast as the underlying file or device can accept it.
The application must use the Tcl event loop for nonblocking output to work; otherwise Tcl never finds out that the file or device is ready
for more output data. It is possible for an arbitrarily large amount of data to be buffered for a channel in nonblocking mode, which could
consume a large amount of memory. To avoid wasting memory, nonblocking I/O should normally be used in an event-driven fashion with the
fileevent command (do not invoke puts unless you have recently been notified via a file event that the channel is ready for more output
data).
EXAMPLES
Write a short message to the console (or wherever stdout is directed):
puts "Hello, World!"
Print a message in several parts:
puts -nonewline "Hello, "
puts "World!"
Print a message to the standard error channel:
puts stderr "Hello, World!"
Append a log message to a file:
set chan [open my.log a]
set timestamp [clock format [clock seconds]]
puts $chan "$timestamp - Hello, World!"
close $chan
SEE ALSO
file(n), fileevent(n), Tcl_StandardChannels(3)KEYWORDS
channel, newline, output, write
Tcl 7.5 puts(n)