03-03-2010
Thanks, drl, so the eval statements would help me control exceptions better. Will give that a try.
Any ideas on why the 'Illegal seek' is returned on Linux and not on Solaris?
How can I find out what codes and/or messages may get returned from opening and/or using a socket?
Thanks, kind regards.
Last edited by Hollinch; 03-03-2010 at 11:15 AM..
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi,
I am opening a file......then i am wrting some data into it......and i am reopening the file again but ......i get a error cannot open file.......
$::file= "\adder\testfile.txt"
open(TEST1,$::file);
some write operation
close(TEST1)
open(TEST1,$::file) 'I GET A ERROR CAN OPEN... (2 Replies)
Discussion started by: vivekshankar
2 Replies
2. Shell Programming and Scripting
Guys,
I'm doing signal handling in Perl. I'm trying to catch ^C signal inside the script.
There two scripts : one shell script and one perl script.
The shell script calls the perl script.
For e.g. shell script a.sh and perl scipt sig.pl.
Shell script a.sh looks something like this :... (6 Replies)
Discussion started by: obelix
6 Replies
3. Programming
Hi there,
I'm newby in perl and XML. I can read and parse Xml with XML-Node upper XML::Parser, but how can I create XML tags and pack my individual data in it then send through socket. PLZ lead me :)
Thanks in Advance. (1 Reply)
Discussion started by: Zaxon
1 Replies
4. Shell Programming and Scripting
Hi,
Here is my piece of code--
sub per_user_qna_detail
{
for($index=0;$index<@records;$index++)
{
if($records =~ m/^(.*)\s*Morocco.*Entering\s*Module::authenticate/)
{
printf "INSIDE per_user_qna_detail on LINE NO $index\n";
$Time_Stamp = $1;... (0 Replies)
Discussion started by: namishtiwari
0 Replies
5. Shell Programming and Scripting
Hi All,
I'm pretty new to the forum and also to UNIX. I have a requirement for which I need some help. I have a script (example.script) where I get user inputs using the read command. I would need to pass the read-fetched input to a perl command (explained below) in my script. The part which... (3 Replies)
Discussion started by: bharath.gct
3 Replies
6. Infrastructure Monitoring
I can get this working, but if something is down I get an error and the script does not move on. I can not get the "else" function working. What might I be doing wrong?
use SNMP::Simple
my %ios = ();
$list="list.list";
open(DAT, $list) || die("Can't Open List");
@raw_data=<DAT>;... (4 Replies)
Discussion started by: mrlayance
4 Replies
7. Programming
$# some text
$$ some text
$@ some text
$$. some text
Mg1 some text
Mg2 some text
.
.
.
Mg10 some text
The above 10 lines are to be extracted except the lines starting from $#,$$.,... (4 Replies)
Discussion started by: baig.abdul
4 Replies
8. Shell Programming and Scripting
I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file.
perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4
How do I handle errors coming out... (1 Reply)
Discussion started by: OTChancy
1 Replies
9. UNIX for Dummies Questions & Answers
Hi
Am making connection to oracle using ISQL as shown in the code.
This code is just a minor part of a big code.
I want to capture the error if the password/login is wrong or if connection is not made.
I need to capture the error code also.
Also, If such an error occurs, i need to exit out... (4 Replies)
Discussion started by: irudayaraj
4 Replies
10. Shell Programming and Scripting
Hi,
I am reading and file and writting each word to other file.
where I have used array to store the data.
I am getting below error as
"Use of uninitialized value in concatenation (.) or string at customize_split_raw.pl line 51, <IN_FILE> "
Where my line 51 code is
50 foreach... (8 Replies)
Discussion started by: Beginer123
8 Replies
seek(n) Tcl Built-In Commands seek(n)
__________________________________________________________________________________________________________________________________________________
NAME
seek - Change the access position for an open channel
SYNOPSIS
seek channelId offset ?origin?
_________________________________________________________________
DESCRIPTION
Changes the current access position for channelId. ChannelId must be a channel identifier such as returned from a previous invocation of
open or socket. The offset and origin arguments specify the position at which the next read or write will occur for channelId. Offset must
be an integer (which may be negative) and origin must be one of the following:
start The new access position will be offset bytes from the start of the underlying file or device.
current The new access position will be offset bytes from the current access position; a negative offset moves the access position back-
wards in the underlying file or device.
end The new access position will be offset bytes from the end of the file or device. A negative offset places the access position
before the end of file, and a positive offset places the access position after the end of file.
The origin argument defaults to start.
The command flushes all buffered output for the channel before the command returns, even if the channel is in nonblocking mode. It also
discards any buffered and unread input. This command returns an empty string. An error occurs if this command is applied to channels
whose underlying file or device does not support seeking.
Note that offset values are byte offsets, not character offsets. Both seek and tell operate in terms of bytes, not characters, unlike |
read.
SEE ALSO
file(n), open(n), close(n), gets(n), tell(n)
KEYWORDS
access position, file, seek
Tcl 8.1 seek(n)