11-04-2009
Thanks man
BR
One more thing ..can you please recommend to me some books related to TCL & TK
---------- Post updated at 07:01 AM ---------- Previous update was at 06:58 AM ----------
Quote:
Originally Posted by
ahmad.diab
Thanks man
BR
Quote:
One more thing ..can you please recommend to me some books related to TCL & TK
Thanks in advance
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
Need to extract a string from one file and search the same in other files.
Ex:
I have file1 of hundred lines with no delimiters not even space.
I have 3 more files.
I should get 1 to 10 characters say substring from each line of file1 and search that string in rest of the files and get... (1 Reply)
Discussion started by: mohancrr
1 Replies
2. Shell Programming and Scripting
Suppose pwd=/home/user/work/wip1
How to output the "pwd string" into 5 chunks?
/home/user/work/wip1
/home/user/work
/home/user
/home
/
:confused: (1 Reply)
Discussion started by: jehrome_rando
1 Replies
3. Shell Programming and Scripting
Hi All,
I am executing a Tcl script and i am trying to get the user input while they execute the script at start itself like
>>filename.tcl USERINPUT
and then i will take this userinput inside the the tcl assign it to some variable for further manipulation/processing ...... can anyone pls... (1 Reply)
Discussion started by: sukrish
1 Replies
4. Shell Programming and Scripting
Anyone knows how to set variable in TCL ?
let say i have a password variable and it will have different values.
set variable
and variable has different values like:
xxxx
yyyy
zzzz (0 Replies)
Discussion started by: linuxgeek
0 Replies
5. Shell Programming and Scripting
Hi all,
I have some data in the form of
adc|nvhs|nahssn|njadnk|nkfds
in the above data i need to write a script so thet it will append "|||" to the third occurnace in the string ..... the outout should look like
adc|nvhs|nahssn||||njadnk|nkfds
Thanks,
Firestar. (6 Replies)
Discussion started by: firestar
6 Replies
6. Shell Programming and Scripting
Hello,
I will be sending this command to a specific COMID:
exp_send-i $COMID "fdisk -l | grep Disk | awk '{print $2}'"
The command will produce this output:
/dev/sda
/dev/sdb
etc..
the problem is how do I store the output in a variable in TCL,
I am currently using this to grab the... (1 Reply)
Discussion started by: h0ujun
1 Replies
7. Shell Programming and Scripting
Need help with a a tcl code. Need to find out the ip address from a URL if it is present to do some activity.
The URLs will be of the form
<domain>?a=12345&d=somestring1(Note: c not present)
<domain>?c=10.10.10.100&d=somestring1
<domain>?a=12345&b=somestring1&c=10.1.2.4&d=somestring2... (1 Reply)
Discussion started by: ampak
1 Replies
8. Shell Programming and Scripting
The username is of the format : 123456789110000-1234@something.com
With this below TCL procedure, I am trying add first and Sec Id and get third Id.
I checked in online compiler and it seems to work and add. However, when I am running this in my lab, I get error as "integer value too large to... (1 Reply)
Discussion started by: Shaibal_bp
1 Replies
9. Shell Programming and Scripting
The username is of the format : 123456789110000-1234@something.com
With this below TCL procedure, I am trying add first and Sec Id and get third Id.
I checked in online compiler and it seems to work and add. However, when I am running this in my lab, I get error as "integer value too large to... (3 Replies)
Discussion started by: Shaibal_bp
3 Replies
10. Shell Programming and Scripting
Hi,
Below is the command I use to search for IP address in a file.
find ./ -type f \( -name "*.txt" -or -name "*.xml" \) | xargs grep -oE "\b({1,3}\.){3}{1,3}\b"As an output I found three IP address and below is how they look.
#Listen 112.34.56.58:80
Listen 112.134.56.58:80 #This is an... (7 Replies)
Discussion started by: mohtashims
7 Replies
LEARN ABOUT DEBIAN
shell-quote
SHELL-QUOTE(1p) User Contributed Perl Documentation SHELL-QUOTE(1p)
NAME
shell-quote - quote arguments for safe use, unmodified in a shell command
SYNOPSIS
shell-quote [switch]... arg...
DESCRIPTION
shell-quote lets you pass arbitrary strings through the shell so that they won't be changed by the shell. This lets you process commands
or files with embedded white space or shell globbing characters safely. Here are a few examples.
EXAMPLES
ssh preserving args
When running a remote command with ssh, ssh doesn't preserve the separate arguments it receives. It just joins them with spaces and
passes them to "$SHELL -c". This doesn't work as intended:
ssh host touch 'hi there' # fails
It creates 2 files, hi and there. Instead, do this:
cmd=`shell-quote touch 'hi there'`
ssh host "$cmd"
This gives you just 1 file, hi there.
process find output
It's not ordinarily possible to process an arbitrary list of files output by find with a shell script. Anything you put in $IFS to
split up the output could legitimately be in a file's name. Here's how you can do it using shell-quote:
eval set -- `find -type f -print0 | xargs -0 shell-quote --`
debug shell scripts
shell-quote is better than echo for debugging shell scripts.
debug() {
[ -z "$debug" ] || shell-quote "debug:" "$@"
}
With echo you can't tell the difference between "debug 'foo bar'" and "debug foo bar", but with shell-quote you can.
save a command for later
shell-quote can be used to build up a shell command to run later. Say you want the user to be able to give you switches for a command
you're going to run. If you don't want the switches to be re-evaluated by the shell (which is usually a good idea, else there are
things the user can't pass through), you can do something like this:
user_switches=
while [ $# != 0 ]
do
case x$1 in
x--pass-through)
[ $# -gt 1 ] || die "need an argument for $1"
user_switches="$user_switches "`shell-quote -- "$2"`
shift;;
# process other switches
esac
shift
done
# later
eval "shell-quote some-command $user_switches my args"
OPTIONS
--debug
Turn debugging on.
--help
Show the usage message and die.
--version
Show the version number and exit.
AVAILABILITY
The code is licensed under the GNU GPL. Check http://www.argon.org/~roderick/ or CPAN for updated versions.
AUTHOR
Roderick Schertler <roderick@argon.org>
perl v5.8.4 2005-05-03 SHELL-QUOTE(1p)