#!/bin/bash
printf "checking for hidden modules: "
for mm in /sys/module/*; do
if test -d ${mm}/sections; then
MOD="$(basename ${mm})";
lsmod | grep -E "^${MOD}" > /dev/null || printf "[found hidden module] \n${MOD}\n";
fi;
done
which works as expected. Problem is that:
1) if it doesn't find any modules, i cant figure out with this particular command how to make it say [ok] insted of
[found hidden module]
diamorphine
2) if it doesnt find any modules, it doesn't return a new line. Which would be solved also if I could figure out 1) !
Moderator's Comments:
Please use code tags, for you code and data, thanks
Last edited by vbe; 05-02-2020 at 01:44 PM..
Reason: code tags
Hi,
I have a statement in shell script which i am writing below:
if ]
then
.....
What is the meaning of -a option in files, meaning of the statement in the if condition ] means.
Thanks (3 Replies)
can someone please tell me what is wrong with the below. i'm trying to get a script to run if the content of a variable is either small letter y or capital letter Y.
if
then
whatever
fi (4 Replies)
I want to write a program that would convert yard to feet and feet to yard.
i.e
1 yard = 3 * feet
Echo "enter a"
read a
expr a *3
The trick is that I want to give the user some options. After the conversion from yard to feet is done, I want to ask the user whether or not he/she wants to... (10 Replies)
In my ksh script, if the conditions of a if statement are true, then do nothing; otherwise, execute some commands.
How do I write the "do nothing" statement in the following example?
Example:
if (( "$x"="1" && "$y"="a" && "$z"="happy" ))
then
do nothing
else
command
command
fi... (3 Replies)
Hi All,
I am using Unix ksh script.
I need to insert values to a table using the o/p from a slelect statement.
Can anybody Help!
My script looks like tihs.
---`sqlplus -s username/password@SID << EOF
set heading off
set feedback off
set pages 0
insert into ${TB_NAME}_D... (2 Replies)
I have the program:
#!/bin/ksh
echo Please enter yes or no
read n
typeset -l n
if ]
then
echo My name
exit
else
echo delete my name
fi
Question:
How can I make the program accept only the word "yes" or "no" otherwise it will ask the user to re-enter?
Thanks! (7 Replies)
I'm trying to create a script that would allow me to identify the sucessful removal of a file. Here's what i put together so far, let me know if it's correct or not.
FILE_NAME="cactus.dat"
FILE_FIND='find / -name $FILE_NAME'
if ;then
echo "cactus.dat was not removed successfully" ... (3 Replies)
Hi,
I have this code here. Its suppose to do something when certain condition is met, I'm pretty sure at least one of the condition will be meet somewhere in the loop but it always go to else part of the script.
Is something wrong on this script?
age_list=`tar -tvf /home/dir/$tarfile... (4 Replies)
Hi folks,
I have a scenario to convert the update statements into insert statements using shell script (awk, sed...) or in database using regex.
I have a bunch of update statements with all columns in a file which I need to convert into insert statements.
UPDATE TABLE_A SET COL1=1 WHERE... (0 Replies)
Discussion started by: dev123
0 Replies
LEARN ABOUT OSX
cpanplus::inc
CPANPLUS::inc(3pm) Perl Programmers Reference Guide CPANPLUS::inc(3pm)NAME
CPANPLUS::inc
DESCRIPTION
OBSOLETE
NAME
CPANPLUS::inc - runtime inclusion of privately bundled modules
SYNOPSIS
### set up CPANPLUS::inc to do it's thing ###
BEGIN { use CPANPLUS::inc };
### enable debugging ###
use CPANPLUS::inc qw[DEBUG];
DESCRIPTION
This module enables the use of the bundled modules in the "CPANPLUS/inc" directory of this package. These modules are bundled to make sure
"CPANPLUS" is able to bootstrap itself. It will do the following things:
Put a coderef at the beginning of @INC
This allows us to decide which module to load, and where to find it. For details on what we do, see the "INTERESTING MODULES" section
below. Also see the "CAVEATS" section.
Add the full path to the "CPANPLUS/inc" directory to "$ENV{PERL5LIB".
This allows us to find our bundled modules even if we spawn off a new process. Although it's not able to do the selective loading as
the coderef in @INC could, it's a good fallback.
METHODS
CPANPLUS::inc->inc_path()
Returns the full path to the "CPANPLUS/inc" directory.
CPANPLUS::inc->my_path()
Returns the full path to be added to @INC to load "CPANPLUS::inc" from.
CPANPLUS::inc->installer_path()
Returns the full path to the "CPANPLUS/inc/installers" directory.
CPANPLUS::inc->original_perl5lib
Returns the value of $ENV{PERL5LIB} the way it was when "CPANPLUS::inc" got loaded.
CPANPLUS::inc->original_perl5opt
Returns the value of $ENV{PERL5OPT} the way it was when "CPANPLUS::inc" got loaded.
CPANPLUS::inc->original_inc
Returns the value of @INC the way it was when "CPANPLUS::inc" got loaded.
CPANPLUS::inc->limited_perl5opt(@modules);
Returns a string you can assign to $ENV{PERL5OPT} to have a limited include facility from "CPANPLUS::inc". It will roughly look like:
-I/path/to/cpanplus/inc -MCPANPLUS::inc=module1,module2
CPANPLUS::inc->interesting_modules()
Returns a hashref with modules we're interested in, and the minimum version we need to find.
It would looks something like this:
{ File::Fetch => 0.06,
IPC::Cmd => 0.22,
....
}
INTERESTING MODULES
"CPANPLUS::inc" doesn't even bother to try find and find a module it's not interested in. A list of interesting modules can be obtained
using the "interesting_modules" method described above.
Note that all subclassed modules of an "interesting module" will also be attempted to be loaded, but a version will not be checked.
When it however does encounter a module it is interested in, it will do the following things:
Loop over your @INC
And for every directory it finds there (skipping all non directories -- see the "CAVEATS" section), see if the module requested can be
found there.
Check the version on every suitable module found in @INC
After a list of modules has been gathered, the version of each of them is checked to find the one with the highest version, and return
that as the module to "use".
This enables us to use a recent enough version from our own bundled modules, but also to use a newer module found in your path instead,
if it is present. Thus having access to bugfixed versions as they are released.
If for some reason no satisfactory version could be found, a warning will be emitted. See the "DEBUG" section for more details on how
to find out exactly what "CPANPLUS::inc" is doing.
DEBUG
Since this module does "Clever Things" to your search path, it might be nice sometimes to figure out what it's doing, if things don't work
as expected. You can enable a debug trace by calling the module like this:
use CPANPLUS::inc 'DEBUG';
This will show you what "CPANPLUS::inc" is doing, which might look something like this:
CPANPLUS::inc: Found match for 'Params::Check' in
'/opt/lib/perl5/site_perl/5.8.3' with version '0.07'
CPANPLUS::inc: Found match for 'Params::Check' in
'/my/private/lib/CPANPLUS/inc' with version '0.21'
CPANPLUS::inc: Best match for 'Params::Check' is found in
'/my/private/lib/CPANPLUS/inc' with version '0.21'
CAVEATS
This module has 2 major caveats, that could lead to unexpected behaviour. But currently I don't know how to fix them, Suggestions are much
welcomed.
On multiple "use lib" calls, our coderef may not be the first in @INC
If this happens, although unlikely in most situations and not happening when calling the shell directly, this could mean that a lower
(too low) versioned module is loaded, which might cause failures in the application.
Non-directories in @INC
Non-directories are right now skipped by CPANPLUS::inc. They could of course lead us to newer versions of a module, but it's too tricky
to verify if they would. Therefor they are skipped. In the worst case scenario we'll find the sufficing version bundled with CPANPLUS.
perl v5.10.0 2007-12-18 CPANPLUS::inc(3pm)
05-02-2020
