05-07-2009
10 More Discussions You Might Find Interesting
1. Programming
Hi Everyone, I really hope I could get some insight from a few of you, I've been searching the net for various resources, and this board seems to be the friendliest and most helpful by far.
I work for a medical research company and we use sun 4
and we have different studies that have their... (1 Reply)
Discussion started by: milenky
1 Replies
2. Shell Programming and Scripting
Can someone tell me what this is doing? I know it is reading records from a table and puts them in a hash. How do I print out, let's say, the first 5 columns of data (assuming columns are named col1, col2, ...)?
$sth = $dbh->prepare("select *
from stsc.loc
... (2 Replies)
Discussion started by: ssmiths001
2 Replies
3. UNIX for Dummies Questions & Answers
I hope this makes sense, but I need help with what is indicated with %%, below :
A.) ####List active servers and send to file####
# ps -ef | grep jboss | grep sh | awk '{if ($14) {print $12;}else {print $11}}' | sort > /export/home/kthatch/script_results
client302
client306
client309... (1 Reply)
Discussion started by: kthatch
1 Replies
4. UNIX for Dummies Questions & Answers
Hello everyone,
Just started UNIX today! In our school we use solaris. I just want to know how do I setup Solaris 10 not the GUI one, the one where you have to type the commands like ECHO, ls, pwd, etc... I have windows xp and I also have vmware.
I hope I am not missing anything! :p (4 Replies)
Discussion started by: Hanamachi
4 Replies
5. Shell Programming and Scripting
Hi,
I am new to programming and also to perl..But i know 'perl' can come to my rescue, But I am stuck at many places and need help..any small help is much appreciated... below is the description of what i intend to acheive with my script.
I have a files named in this format... (13 Replies)
Discussion started by: xytiz
13 Replies
6. UNIX for Dummies Questions & Answers
I have the following question in perl, I have come up with couple of solutions,Perl gurus please help me find the best answer to my question?
You have a PERL database named DataEntryData, and you need to separate out the various values from the DB entry $item, delimited by the ^ sumbol. There... (2 Replies)
Discussion started by: ramky79
2 Replies
7. SCO
Ok new in here so be gentle:
I'm a programmer with the need to also be a sys admin on a box running:
Client has purchased a Kyocera KM-4035 do it all machine. However, no driver exists for SCO and when I contacted their Kyocera rep he told me to install CUPS. I downloaded CUPS and ran... (2 Replies)
Discussion started by: bbxguy
2 Replies
8. Red Hat
Any one tell me about the list of Redhat Linux Enterprise 5 SERVERS and their functions. thanks (3 Replies)
Discussion started by: salman103
3 Replies
9. Shell Programming and Scripting
Hi there
apologies for the really basic question but if i have a variable called $string that I want to run a regex against and output to another variable ...how do i do it, I know that if i wanted to alter the current $string variable i would do
$string=~ s/old/new/g;
but i kind of want... (2 Replies)
Discussion started by: rethink
2 Replies
10. AIX
Hello,
what is the meaning of:
lparstat -i
Node Name : ****
Partition Name : ****
Partition Number : 1
Type : Shared-SMT
Mode : Capped
Entitled Capacity : 2.00
Partition Group-ID : 32769
Shared Pool ID : 0
Online Virtual CPUs : 4
Maximum Virtual CPUs : 4
Minimum Virtual CPUs :... (5 Replies)
Discussion started by: Talulah
5 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)