01-12-2017
Hey C688...
Terrific stuff.
Well done, I noticed you were close but I missed the 4000 point.
Bazza.
10 More Discussions You Might Find Interesting
1. Filesystems, Disks and Memory
I am using a Quantum DLT 4000 tape drive on a PowerMac G4 with OS 10.1.5
I'd like to use the Terminal application, which is based on BSD 4.4, to see the tape drive and write backup tapes to it.
First, is there a way to list all the devices attached to the computer? And secondly, is there a way... (0 Replies)
Discussion started by: derekc132002
0 Replies
2. News, Links, Events and Announcements
http://www.cnn.com/2003/TECH/01/07/dvd.johansen/index.html (1 Reply)
Discussion started by: Neo
1 Replies
3. AIX
Hi
i am new to aix , we are using aix 5.3 version and model is 510 and 520 model servers. in our servers contains 8 gb ram.
but servers average ram usage is reaching 99.9% , can any body help on this , is any impact if memory usage reach 99.9%.
Regards
Balaji Poola (2 Replies)
Discussion started by: Balajipoola007
2 Replies
4. What is on Your Mind?
On behalf of the forums, we are so happy to see such an amazingly rescue of the 33 miners. What a great and happy story of human endurance and team work to save miners trapped nearly 700 meters underground.
Bravo Chile !!
We salute you!!! (5 Replies)
Discussion started by: Neo
5 Replies
5. Shell Programming and Scripting
Hi frnds
i am newbie in linux and trying to write a simple script for adding users.the problem is i am running a while loop under function and loop is running for 3 time more than limit.Here is my Script and output pls help me out :
# CREATE N NO. OF USERS WITH PASSWORD IN SYSTEM
#... (4 Replies)
Discussion started by: Vaibhav.T
4 Replies
6. What is on Your Mind?
Hi all,
Please join me to congrats Neo for crossing 10,000 posts count.
I think he is the first to have this count with the longest journey (12 yrs) at unix.com. At least I didn't see any other member with the same or more figures.Mods, please correct me if wrong. Perderabo is likely to be the... (6 Replies)
Discussion started by: clx
6 Replies
7. Linux
Hi,
I have this problem on RHEL box. I am using two NIC's of same model and make (Intel 82557) in the adjacent PCI slots . I am using each one for different subnet and have assigned them ipaddresses and gateways of respective subnets . While one is O.K. connecting to its ... (5 Replies)
Discussion started by: dextergenious
5 Replies
8. What is on Your Mind?
Please join me in congratulating and thanking Corona688 for 20,000 top quality posts at unix.com !
https://www.unix.com/members/1-albums112-picture651.png (11 Replies)
Discussion started by: Neo
11 Replies
9. What is on Your Mind?
Hello All forum members,
I would like to take this opportunity to THANK RudiC for his tremendous achievement, guidance, help for helping in forums, let us join our hands together for his GREAT achievement :b:
@Rudi sir,
How are you sir?
you ROCK, please keep up the great work sir :b:
... (1 Reply)
Discussion started by: RavinderSingh13
1 Replies
10. What is on Your Mind?
Sometime today Don Cragun reached 4000+ thanks from different folks.
Well done Don, I have learnt a lot from you and other guys on here.
Big thanks from we who have benefitted from your expertise. (6 Replies)
Discussion started by: wisecracker
6 Replies
LEARN ABOUT CENTOS
io::wrap
IO::Wrap(3) User Contributed Perl Documentation IO::Wrap(3)
NAME
IO::Wrap - wrap raw filehandles in IO::Handle interface
SYNOPSIS
use IO::Wrap;
### Do stuff with any kind of filehandle (including a bare globref), or
### any kind of blessed object that responds to a print() message.
###
sub do_stuff {
my $fh = shift;
### At this point, we have no idea what the user gave us...
### a globref? a FileHandle? a scalar filehandle name?
$fh = wraphandle($fh);
### At this point, we know we have an IO::Handle-like object!
$fh->print("Hey there!");
...
}
DESCRIPTION
Let's say you want to write some code which does I/O, but you don't want to force the caller to provide you with a FileHandle or IO::Handle
object. You want them to be able to say:
do_stuff(*STDOUT);
do_stuff('STDERR');
do_stuff($some_FileHandle_object);
do_stuff($some_IO_Handle_object);
And even:
do_stuff($any_object_with_a_print_method);
Sure, one way to do it is to force the caller to use tiehandle(). But that puts the burden on them. Another way to do it is to use
IO::Wrap, which provides you with the following functions:
wraphandle SCALAR
This function will take a single argument, and "wrap" it based on what it seems to be...
o A raw scalar filehandle name, like "STDOUT" or "Class::HANDLE". In this case, the filehandle name is wrapped in an IO::Wrap
object, which is returned.
o A raw filehandle glob, like "*STDOUT". In this case, the filehandle glob is wrapped in an IO::Wrap object, which is returned.
o A blessed FileHandle object. In this case, the FileHandle is wrapped in an IO::Wrap object if and only if your FileHandle class
does not support the "read()" method.
o Any other kind of blessed object, which is assumed to be already conformant to the IO::Handle interface. In this case, you just
get back that object.
If you get back an IO::Wrap object, it will obey a basic subset of the IO:: interface. That is, the following methods (note: I said
methods, not named operators) should work on the thing you get back:
close
getline
getlines
print ARGS...
read BUFFER,NBYTES
seek POS,WHENCE
tell
NOTES
Clearly, when wrapping a raw external filehandle (like *STDOUT), I didn't want to close the file descriptor when the "wrapper" object is
destroyed... since the user might not appreciate that! Hence, there's no DESTROY method in this class.
When wrapping a FileHandle object, however, I believe that Perl will invoke the FileHandle::DESTROY when the last reference goes away, so
in that case, the filehandle is closed if the wrapped FileHandle really was the last reference to it.
WARNINGS
This module does not allow you to wrap filehandle names which are given as strings that lack the package they were opened in. That is, if a
user opens FOO in package Foo, they must pass it to you either as "*FOO" or as "Foo::FOO". However, "STDIN" and friends will work just
fine.
VERSION
$Id: Wrap.pm,v 1.2 2005/02/10 21:21:53 dfs Exp $
AUTHOR
Primary Maintainer
David F. Skoll (dfs@roaringpenguin.com).
Original Author
Eryq (eryq@zeegee.com). President, ZeeGee Software Inc (http://www.zeegee.com).
POD ERRORS
Hey! The above document had some coding errors, which are explained below:
Around line 212:
'=item' outside of any '=over'
=over without closing =back
perl v5.16.3 2005-02-10 IO::Wrap(3)