09-07-2004
From a math standpoint, suppose the zip code is 12345 and you want to isolate the that 3. Drop the two right most digits by dividing by 10^2. 12345 / 100 = 123. Now use your modulus trick.
9 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi All ,
I'm trying to do a simple math expression ...but unsuccessfull :-(
Anyone can help me?
days=23
amount=`expr ${days} / 30 \* -125`
echo $amount
but as result i got 0 when i expect 95.833333
Another question...how i can limit only to two or three decimal fields?
Thanks in... (1 Reply)
Discussion started by: EDBGSK
1 Replies
2. Programming
Hi all,
Just a little question relative to signals.
I know that if an application is in the sleep state, When a signal is catched, it will be processed by the handler. But what happens if it's processing something? Does the processing stops??
The following code should illustrate this case
... (2 Replies)
Discussion started by: ninjanesto
2 Replies
3. Shell Programming and Scripting
Hi All,
When i have run the below command its showing 90% which is critical for production. for this i need the answer of some below question please help me for that.
1) i want to delete some unwanted files. how can i know the unwanted files ?Is it there any way of knowing this??
2)and... (2 Replies)
Discussion started by: aish11
2 Replies
4. Shell Programming and Scripting
awk "/^<Mar 31, 2012 : /,0" /app/blah.log
can someone please help me figure out why the above command isn't pulling anything out from the log?
basically, i want it to pull out all records, from the very first line that starts with the date "Mar 31, 2012" and that also has a time immediately... (4 Replies)
Discussion started by: SkySmart
4 Replies
5. UNIX for Dummies Questions & Answers
If I run a script called 'abc.sh' and then execute the following :
ps -ef | grep 'abc.sh'
I always get two rows of output, one for the executing script, and the other for the grep command that I have triggered after the pipe.
Questions: Why does the second row turn up in the results. My... (10 Replies)
Discussion started by: jawsnnn
10 Replies
6. Shell Programming and Scripting
awk -F ";" 'FNR==NR{a=$1;next} ($2 in a)' server.list datafile | while read line
do
echo ${line}
done
when i run the above, i get this:
1 SERVICE NOTIFICATION: nagiosadmin skysmart-01.sky.net ....
instead of:
SERVICE NOTIFICATION: nagiosadmin skysmart-01.sky.net ....
can... (4 Replies)
Discussion started by: SkySmart
4 Replies
7. Shell Programming and Scripting
I have a number, say 174. I need to write bash code that will find the first larger number that ends in 99. That would be 199 in this case. If the number were 1263, I would be looking for 1299, for 175438, I would want 175499, etc.
If the numbers were always three digit, I could just grab the... (11 Replies)
Discussion started by: LMHmedchem
11 Replies
8. UNIX for Dummies Questions & Answers
We have huge file with control A as delimiter. Somehow one record is corrupted. This time i figured it out using ETL graph. If future , how to print only bad record.
Example Correct record:... (2 Replies)
Discussion started by: srikanth38
2 Replies
9. Shell Programming and Scripting
Can such Puzzle solve through UNIX script? if yes, what could be the code?
This has been solve in C language. we were trying to solve this through shell but could not because of not able to pass 1st argument with multiple value. we are not expert in unix scripting. Below is the puzzle
John is a... (4 Replies)
Discussion started by: anshu ranjan
4 Replies
LEARN ABOUT OSX
perldbmfilter5.12
PERLDBMFILTER(1) Perl Programmers Reference Guide PERLDBMFILTER(1)
NAME
perldbmfilter - Perl DBM Filters
SYNOPSIS
$db = tie %hash, 'DBM', ...
$old_filter = $db->filter_store_key ( sub { ... } );
$old_filter = $db->filter_store_value( sub { ... } );
$old_filter = $db->filter_fetch_key ( sub { ... } );
$old_filter = $db->filter_fetch_value( sub { ... } );
DESCRIPTION
The four "filter_*" methods shown above are available in all the DBM modules that ship with Perl, namely DB_File, GDBM_File, NDBM_File,
ODBM_File and SDBM_File.
Each of the methods work identically, and are used to install (or uninstall) a single DBM Filter. The only difference between them is the
place that the filter is installed.
To summarise:
filter_store_key
If a filter has been installed with this method, it will be invoked every time you write a key to a DBM database.
filter_store_value
If a filter has been installed with this method, it will be invoked every time you write a value to a DBM database.
filter_fetch_key
If a filter has been installed with this method, it will be invoked every time you read a key from a DBM database.
filter_fetch_value
If a filter has been installed with this method, it will be invoked every time you read a value from a DBM database.
You can use any combination of the methods from none to all four.
All filter methods return the existing filter, if present, or "undef" in not.
To delete a filter pass "undef" to it.
The Filter
When each filter is called by Perl, a local copy of $_ will contain the key or value to be filtered. Filtering is achieved by modifying the
contents of $_. The return code from the filter is ignored.
An Example: the NULL termination problem.
DBM Filters are useful for a class of problems where you always want to make the same transformation to all keys, all values or both.
For example, consider the following scenario. You have a DBM database that you need to share with a third-party C application. The C
application assumes that all keys and values are NULL terminated. Unfortunately when Perl writes to DBM databases it doesn't use NULL
termination, so your Perl application will have to manage NULL termination itself. When you write to the database you will have to use
something like this:
$hash{"$key "} = "$value ";
Similarly the NULL needs to be taken into account when you are considering the length of existing keys/values.
It would be much better if you could ignore the NULL terminations issue in the main application code and have a mechanism that
automatically added the terminating NULL to all keys and values whenever you write to the database and have them removed when you read from
the database. As I'm sure you have already guessed, this is a problem that DBM Filters can fix very easily.
use strict;
use warnings;
use SDBM_File;
use Fcntl;
my %hash;
my $filename = "filt";
unlink $filename;
my $db = tie(%hash, 'SDBM_File', $filename, O_RDWR|O_CREAT, 0640)
or die "Cannot open $filename: $!
";
# Install DBM Filters
$db->filter_fetch_key ( sub { s/ $// } );
$db->filter_store_key ( sub { $_ .= "