11-15-2002
Thank You very much guys for your help.
It worked the way I wanted.
9 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi!
I have a Tru64 40f box and I am trying to figure out how the banner is displayed after login.
Now the sys admin (who is now gone) has a message that is displayed for all users AFTER login.
In addition to the /etc/issue and the /etc/motd files another file with a longer message is... (2 Replies)
Discussion started by: sdharmap
2 Replies
2. UNIX for Dummies Questions & Answers
I dont want the kernal info and OP type to come up to every one that logs in to my server. How do I edit the telnet banner to say something different. (1 Reply)
Discussion started by: macdonto
1 Replies
3. UNIX for Dummies Questions & Answers
I don't want SunOS 5.8 to appear when someone logs into my machine... how do I go about changing the banner?
I was thumbing through my unix books and I haven't found anything... I'm probably looking under the wrong topic...
anyways... any help would be greatly appreciated. (20 Replies)
Discussion started by: xyyz
20 Replies
4. UNIX for Dummies Questions & Answers
How can I display a message to the crt whenever someone logs on? They do not see a unix prompt. I need to easily update this also. (2 Replies)
Discussion started by: Beetlejuice
2 Replies
5. Shell Programming and Scripting
Somewhat long story:
I have a simple Perl CGI script that uses Expect to Telnet to a device and grab some data, and then spits it back to Perl for display on the Webpage.
This works for many devices I've tried, but one device just fails, it keeps rejecting the password on this device, only... (1 Reply)
Discussion started by: jondo
1 Replies
6. HP-UX
why I didn't set /etc/inetd.conf
telnet stream tcp nowait root /usr/lbin/telnetd \
telnetd -b /etc/issue
only
telnet stream tcp nowait root /usr/lbin/telnetd
in /etc/ineted.conf
but when I telnet my HPUX machine
it shows those message
HP-UX hp1008 B.11.31 U ia64 (tb)
login:
... (1 Reply)
Discussion started by: alert0919
1 Replies
7. UNIX for Dummies Questions & Answers
Hi,
I was writing one script which includes to switch to the another telnet automatically from the present telnet server. I was using rlogin but firstly it takes the same user name of the present telnet and secondly it is prompting for the password.
But i want to switch to the another telnet... (2 Replies)
Discussion started by: Prateek
2 Replies
8. UNIX for Dummies Questions & Answers
is there a way to reduce the size of the banner?
banner -w ?
TIA (8 Replies)
Discussion started by: budz26
8 Replies
9. UNIX for Dummies Questions & Answers
Hi,
I want to know the difference between these two services. Both are under xinetd. Both are used for enabling and disabling Telnet service. So, can somebody please explain me the difference between the two ?
Thanks in advance :) (0 Replies)
Discussion started by: kashifsd17
0 Replies
LEARN ABOUT DEBIAN
file::find::wanted
Wanted(3pm) User Contributed Perl Documentation Wanted(3pm)
NAME
File::Find::Wanted - More obvious wrapper around File::Find
VERSION
Version 1.00
SYNOPSIS
File::Find is a great module, except that it doesn't actually find anything. Its "find()" function walks a directory tree and calls a
callback function. Unfortunately, the callback function is deceptively called "wanted", which implies that it should return a boolean
saying whether you want the file. That's not how it works.
Most of the time you call "find()", you just want to build a list of files. There are other modules that do this for you, most notably
Richard Clamp's great File::Find::Rule, but in many cases, it's overkill, and you need to learn a new syntax.
With the "find_wanted" function, you supply a callback sub and a list of starting directories, but the sub actually should return a boolean
saying whether you want the file in your list or not.
To get a list of all files ending in .jpg:
my @files = find_wanted( sub { -f && /.jpg$/ }, $dir );
For a list of all directories that are not CVS or .svn:
my @files = find_wanted( sub { -d && !/^(CVS|.svn)$/ }, $dir ) );
It's easy, direct, and simple.
WHY DO THIS
?
The cynical may say "that's just the same as doing this":
my @files;
find( sub { push @files, $File::Find::name if -f && /.jpg$/ }, $dir );
Sure it is, but File::Find::Wanted makes it more obvious, and saves a line of code. That's worth it to me. I'd like it if find_wanted()
made its way into the File::Find distro, but for now, this will do.
FUNCTIONS
find_wanted( &wanted, @directories )
Descends through @directories, calling the wanted function as it finds each file. The function returns a list of all the files and
directories for which the wanted function returned a true value.
This is just a wrapper around "File::Find::find()". See File::Find for details on how to modify its behavior.
COPYRIGHT & LICENSE
Copyright 2005-2012 Andy Lester.
This program is free software; you can redistribute it and/or modify it under the terms of the Artistic License v2.0.
perl v5.14.2 2012-06-08 Wanted(3pm)