12-01-2009
First occurance
A PERL script that prints just the first occurrence of a string in a file and immediately exits (the string and the filename are the first and the second command line arguments; I used filehandle to open an input file).
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi All,
I need to extract the last occurance of a pattern match. So far I've got the code below which extracts the first occurance. Any ideas how I can modify it so that it extracts the last?
BEGIN {}
{
if (data++ == 0)
... (17 Replies)
Discussion started by: pondlife
17 Replies
2. UNIX for Dummies Questions & Answers
Hi All,
How can i replace the n'th occurance in a file. ?
I have a property file like
EAR;_TrackingEAR;META-INF/application.xml;xml;context-root;1;valeur
EAR;_TrackingEAR;META-INF/application.xml;xml;context-root;2;valeur2... (2 Replies)
Discussion started by: subin_bala
2 Replies
3. Shell Programming and Scripting
Hi
I have a file which contains the following two lines which are same But I would like to insert the value=8.8.8.8 in the 1st occurance line and value=9.9.9.9 in the 2nd occurance line.
<parameter name="TestIp1" value="">
<parameter name="TestIp1" value="">
Please suggest (1 Reply)
Discussion started by: madhusmita
1 Replies
4. Shell Programming and Scripting
I want to call a script like this:
./somescript some-thing.knows.what.ending
Inside the script it needs to split at last .(period)
so I can:
a=some-thing.knows.what
b=ending
I know I can do it in perl but im still learing awk and sed.
Thanks (3 Replies)
Discussion started by: Ikon
3 Replies
5. UNIX for Dummies Questions & Answers
There is scenario that i have to replace a pattern at the first 5 occurance in a file. say i need to replace 'abc' by 'xyz' at its first 5 occurance in a file a.txt,
can anybody help me how it can be done, i can do complete replacement of the pattern using sed throughtout the file. (1 Reply)
Discussion started by: palash2k
1 Replies
6. Shell Programming and Scripting
Here is the text file:
1This is a text file
2this is a text file
3This is a text file
4this is a text file
5This is a text file
6this is a text file
7This is a text file
8this is a text file
9This is a text file
10this is a text file
11This is a text file
12this is a text file
13This... (4 Replies)
Discussion started by: Johny001
4 Replies
7. Shell Programming and Scripting
Hello
Im trying to grep for a string in grub.conf . I've used the -F option since its a long string, but when i execute, i run into errors. Script and output below.
GRUBPASSWD="password --md5 xyz"
if grep -Fxq $GRUBPASSWD /etc/grub.conf
then
.
.
output:
grep: unrecognized option... (5 Replies)
Discussion started by: bludhemn
5 Replies
8. Shell Programming and Scripting
Hi,
I need to search a string and replace with nothing, but only the First occurring string
using sed/perl/awk (3 Replies)
Discussion started by: suraj.sheikh
3 Replies
9. Shell Programming and Scripting
Hi all,
I have file structure as file.log
84t-rw-r--r-- 1 emily04 us_cms 24492717 Oct 5 13:29 vgtree_84_1_K3L.root
85t-rw-r--r-- 1 emily04 us_cms 50410380 Oct 5 16:06 vgtree_85_1_uZv.root
85t-rw-r--r-- 1 emily04 us_cms 50567380 Oct 5 16:06 vgtree_85_1_hjv.root
86t-rw-r--r-- 1 emily04... (4 Replies)
Discussion started by: emily
4 Replies
10. UNIX for Beginners Questions & Answers
Hi All,
From the below file. I need to get only the first occurrence and print. I tried to do it in separate grep not coming as expected
Original file
11001;1213;304;;;;;;;111020677.64;;;;;;;;;;;;;;;;;;;;;;;;;;
11001;1214;304;;;;;;;102376462.96;;;;;;;;;;;;;;;;;;;;;;;;;;... (5 Replies)
Discussion started by: arunkumar_mca
5 Replies
close(n) Tcl Built-In Commands close(n)
__________________________________________________________________________________________________________________________________________________
NAME
close - Close an open channel
SYNOPSIS
close channelId
_________________________________________________________________
DESCRIPTION
Closes the channel given by channelId.
ChannelId must be an identifier for an open channel such as a Tcl standard channel (stdin, 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.
All buffered output is flushed to the channel's output device, any buffered input is discarded, the underlying file or device is closed,
and channelId becomes unavailable for use.
If the channel is blocking, the command does not return until all output is flushed. If the channel is nonblocking and there is unflushed
output, the channel remains open and the command returns immediately; output will be flushed in the background and the channel will be
closed when all the flushing is complete.
If channelId is a blocking channel for a command pipeline then close waits for the child processes to complete.
If the channel is shared between interpreters, then close makes channelId unavailable in the invoking interpreter but has no other effect
until all of the sharing interpreters have closed the channel. When the last interpreter in which the channel is registered invokes close,
the cleanup actions described above occur. See the interp command for a description of channel sharing.
Channels are automatically closed when an interpreter is destroyed and when the process exits. Channels are switched to blocking mode, to
ensure that all output is correctly flushed before the process exits.
The command returns an empty string, and may generate an error if an error occurs while flushing output. If a command in a command pipe-
line created with open returns an error, close generates an error (similar to the exec command.)
EXAMPLE
This illustrates how you can use Tcl to ensure that files get closed even when errors happen by combining catch, close and return:
proc withOpenFile {filename channelVar script} {
upvar 1 $channelVar chan
set chan [open $filename]
catch {
uplevel 1 $script
} result options
close $chan
return -options $options $result
}
SEE ALSO
file(n), open(n), socket(n), eof(n), Tcl_StandardChannels(3)
KEYWORDS
blocking, channel, close, nonblocking
Tcl 7.5 close(n)