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)
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)
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 searching for two string in the .log file
The strings are
Active Flop-Maps "0 0 1 0 1" 1
and
Ouput-Maps " 0 0 1 1 0" 2
It should search in the file ignoring white spaces .Tell me what is wrong with this script.
The tcl script is as follows
proc proc2 {arglist} {
... (2 Replies)
Hi All,
I have a string
re_em="NODE_NAME=ABCDEF;NODE_TYPE=ghijkl;CIRCLE=jkl;Serving_Circle=abcdefghthjk;DOMAIN_TYPE=1234;REGION=12345;ZONE=12334;SOURCE_TYPE=dhfkdkfjdjf"
I want to split this string and convert it into array so that i can easily access any value like NODE_NAME or... (2 Replies)
I have csh script and call tck command but it do nothing. can you help me?
I only can see it echo
#!/bin/csh -f
set mypath = `pwd`
echo $mypath
if ($mypath =~ *PLL*) then
echo "source ../PreBoot.qel"
else if ($mypath !~ *PLL*) then
echo "source ../hdfuse.qel"
endif
if i remove... (1 Reply)
In a tcl script I need to find a way of reading a file, and looking for a phrase ("set myvariable") and putting the word following that into a variable.
I've used a file open, and a while loop with gets to read each line from the file into a variable, and using regexp searched for the item. I'm... (1 Reply)
Discussion started by: Tonyb61
1 Replies
LEARN ABOUT DEBIAN
graph::easy::layout::chain
Graph::Easy::Layout::Chain(3pm) User Contributed Perl Documentation Graph::Easy::Layout::Chain(3pm)NAME
Graph::Easy::Layout::Chain - Chain of nodes for layouter
SYNOPSIS
# used internally, do not use directly
use Graph::Easy;
use Graph::Easy::Layout::Chain;
my $graph = Graph::Easy->new( );
my ($node, $node2) = $graph->add_edge( 'A', 'B' );
my $chain = Graph::Easy::Layout::Chain->new(
start => $node,
graph => $graph, );
$chain->add_node( $node2 );
DESCRIPTION
A "Graph::Easy::Layout::Chain" object represents a chain of nodes for the layouter.
METHODS
new()
my $chain = Graph::Easy::Layout::Chain->new( start => $node );
Create a new chain and set its starting node to $node.
length()
my $len = $chain->length();
Return the length of the chain, in nodes.
my $len = $chain->length( $node );
Given an optional $node as argument, returns the length from that node onwards. For the chain with the three nodes A, B and C would return
3, 2, and 1 for A, B and C, respectively.
Returns 0 if the passed node is not part of this chain.
nodes()
my @nodes = $chain->nodes();
Return all the node objects in the chain as list, in order.
add_node()
$chain->add_node( $node );
Add $node to the end of the chain.
start()
my $node = $chain->start();
Return first node in the chain.
end()
my $node = $chain->end();
Return last node in the chain.
layout()
my $todo = $chain->layout();
Return an action stack as array ref, containing the nec. actions to layout the chain (nodes, plus interlinks in the chain).
Will recursively traverse all chains linked to this chain.
merge()
my $chain->merge ( $other_chain );
my $chain->merge ( $other_chain, $where );
Merge the other chain into ourselves, adding its nodes at our end. The other chain is emptied and must be deleted by the caller.
If $where is defined and a member of $other_chain, absorb only the nodes from $where onwards, instead of all of them.
error()
$last_error = $node->error();
$node->error($error); # set new messags
$node->error(''); # clear error
Returns the last error message, or '' for no error.
dump()
$chain->dump();
Dump the chain to STDERR, to aid debugging.
EXPORT
None by default.
SEE ALSO
Graph::Easy, Graph::Easy::Layout.
AUTHOR
Copyright (C) 2004 - 2006 by Tels <http://bloodgate.com>.
See the LICENSE file for more details.
perl v5.14.2 2011-12-23 Graph::Easy::Layout::Chain(3pm)