05-22-2005
If you have a filehandle which you previously open()ed for writing, you can print() to it.
9 More Discussions You Might Find Interesting
1. Solaris
Hi
I am getting the uptime output as follows
12:40am up 4 day(s), 18:29, 2 users, load average: 38.97, 36.54, 34.89
The load average is too high .
I have checked the processes , but no process is taking too much cpu time
Please help (3 Replies)
Discussion started by: guy009
3 Replies
2. Shell Programming and Scripting
Hi All,
I have a got a problem ..
I have t files as below:
1.txt contains
-----
-----
-----
column 1, "cat",
column 24, "dog",
column 100, "rat",
-----
-----
-----
2.sh should contain
-----
-----
-----
awk 'BEGIN { printf ("%1s","cat")}' (19 Replies)
Discussion started by: jisha
19 Replies
3. Shell Programming and Scripting
Hi,
I got a list of file that all got the same standard format.
Can anyone teach me how to put the space in all of them?!
Input file:
>nucleotide1
AAAAAAAAACCCGGG
>nucleotide2
GGGGGGCCCCCTTTTA
>nucleotide3
GGTACACCACACTCAC
>nucleotide4
TTTGGAGAGAGACCCC
desired output:... (4 Replies)
Discussion started by: patrick87
4 Replies
4. Solaris
i am using this way to create zone1 and zone2
bash-2.05b# zonecfg -z zone1
zone1: No such zone configured
Use 'create' to begin configuring a new zone.
zonecfg:zone1> create
zonecfg:zone1> set zonepath=/zone/1
zonecfg:zone1> set autoboot=true
zonecfg:zone1> add net
zonecfg:zone1:net>... (6 Replies)
Discussion started by: coxmanchester
6 Replies
5. Linux
Hi,
I am facing problem while accessing samba share on Linux 5.1 from windows, though I have done the same configuration on Linux 4 (Update 2), on Red Hat 4.0 it is working but while on Linux 5.1 these configuration are not working, I have disabled the firewall also.
Kindly suggest me... (1 Reply)
Discussion started by: manoj.solaris
1 Replies
6. Shell Programming and Scripting
can u plz tell me where is the error
echo enter the filename to be searched
read fname
if #-d $fname
then
echo file exists
if
then
echo itsa directory
elif
then
echo its readable
cat $fname
else
echo its not readable
fi
else
... (1 Reply)
Discussion started by: gotam
1 Replies
7. Shell Programming and Scripting
source file is located in (elk.some.com)
/export/elk2/vp141p/Somedir/dist/current/Filename.ear
destination machine(191.hydc.xxx.com)
/export/home/vp141p/ARCHIVE
scp -p vp141p@hstst191.hydc.sbc.com:/export/elk2/vp141p/PM_Build_SBS/Build_PVT_SBS/dist/current/Filename.ear .
The above code is... (5 Replies)
Discussion started by: vishwakar
5 Replies
8. Shell Programming and Scripting
Dear Brothers!
Need your help for the case where I am running one command on prompt and its giving us the correct output, but when i use the same command from shell its directs no output.:wall:
the command on command prompt is
ls -ltrh * | nawk '{if ($5~ '/$'M'/') print $9}' | grep -v... (1 Reply)
Discussion started by: jojo123
1 Replies
9. AIX
Hi,
I am able to login using su - or su directly ,
# prompt is coming, it doesnt ask for password.
any normal user on aix system is login using su - or su .
Please suggest where to change the configuration
direct root login is disabled in /etc/ssh/sshd_config file. (0 Replies)
Discussion started by: manoj.solaris
0 Replies
LEARN ABOUT DEBIAN
filehandle::fmode
Fmode(3pm) User Contributed Perl Documentation Fmode(3pm)
NAME
FileHandle::Fmode - determine whether a filehandle is opened for reading, writing, or both.
SYNOPSIS
use FileHandle::Fmode qw(:all);
.
.
#$fh and FH are open filehandles
print is_R($fh), "
";
print is_W(*FH), "
";
FUNCTIONS
$bool = is_FH($fh);
$bool = is_FH(*FH);
This is just a (more intuitively named) alias for is_arg_ok().
Returns 1 if its argument is an open filehandle.
Returns 0 if its argument is something other than an open filehandle.
$bool = is_arg_ok($fh);
$bool = is_arg_ok(*FH);
Returns 1 if its argument is an open filehandle.
Returns 0 if its argument is something other than an open filehandle.
Arguments to the following functions must be open filehandles. If
any of those functions receive an argument that is not an open
filehandle then the function dies with an appropriate error message.
To ensure that your script won't suffer such a death, you could first
check by passing the argument to is_FH(). Or you could wrap the
function call in an eval{} block.
Note that it may be possible that a filehandle opened for writing may
become unwritable - if (eg) the disk becomes full. I don't know how
the below functions would be affected by such an event. I suspect
that they would be unaware of the change ... but I haven't actually
checked.
$bool = is_R($fh);
$bool = is_R(*FH);
Returns true if the filehandle is readable.
Else returns false.
$bool = is_W($fh);
$bool = is_W(*FH);
Returns true if the filehandle is writable.
Else returns false
$bool = is_RO($fh);
$bool = is_RO(*FH);
Returns true if the filehandle is readable but not writable.
Else returns false
$bool = is_WO($fh);
$bool = is_WO(*FH);
Returns true if the filehandle is writable but not readable.
Else returns false
$bool = is_RW($fh);
$bool = is_RW(*FH);
Returns true if the filehandle is both readable and writable.
Else returns false
$bool = is_A($fh);
$bool = is_A(*FH);
Returns true if the filehandle was opened for appending.
Else returns false.
Not currently implemented on Win32 with pre-5.6.1 versions of perl (and
dies with appropriate error message if called on such a platform).
CREDITS
Inspired (hmmm ... is that the right word ?) by an idea from BrowserUK
posted on PerlMonks in response to a question from dragonchild. Win32
code (including XS code) provided by BrowserUK. Zaxo presented the idea
of using fcntl() in an earlier PerlMonks thread.
Thanks to dragonchild and BrowserUK for steering this module in
the right direction.
Thanks to attn.steven.kuo for directing me to the perliol routines
that enable us to query filehandles attached to memory objects.
And thanks to Jost Krieger for helping to sort out the test failures that
were occurring on Solaris (and some other operating systems too).
TODO
I don't know that anyone still runs pre-5.6.1 perl on Win32. However, if
someone likes to tell me how is_A() could be made to work on pre-5.6.1
Win32 perl, I would be quite happy to implement it.
LICENSE
This program is free software; you may redistribute it and/or
modify it under the same terms as Perl itself.
Copyright 2006-2008, Sisyphus
AUTHOR
Sisyphus <sisyphus at cpan dot org>
perl v5.14.2 2008-09-26 Fmode(3pm)