I am using
printf "%-75s%+10s %5s %1s \n" $s $z $x $y > status
It works really well, however, when I email status it is sending 10 emails when I would like it to be in one.
Is there a way to make all the output to go into one instance of a txt file. Yet still keep it 1 on each... (12 Replies)
Hi all,
I have a bunch of files that are named like 12543, 467249877, etc all over some directories.These files are named only with numbers, they dont have any letters or special characters in their file names. Could you please help me out and give me some command/script to remove only those... (6 Replies)
My goal is to send multiple files to a person based on their input. The files have similar names like:
file1-egress-filter
file2-ingress-filter
stuff1-egress-filter
stuff2-ingress-filter
...
The script is run with the filename given as arguments, such as: ./mail.sh file stuff
would... (6 Replies)
Hi,
So I have a text file which I want to separate into separate text files. I would use the split command but the problem here is that the text file is separated by delimiters. For example:
blah
blah blah
------
more text
-----
and some more text
So basically the first part should be... (4 Replies)
Hello,
I am comparing files with for mismatches using fgrep but I've run into a problem.
fgrep -vf $file1 $file2 > mismatches.dat
file1 and file2 both contain file names on each line
file1 has filenames which are up to 92 characters long and contain the "$" char.
example file name:... (2 Replies)
It may sounds too easy but appreciate any help on this..
i have a file with the below details:
******************************************
Please find the locked pernr details for the Time evaluation
Personnel number could not be locked
Person rejected: 04552737
Personnel number could not... (4 Replies)
Hello all,
New to this forum!
I got a Q: i want to find all files with numbers in the file name. e.g. blabla234.pm or fool654.pl
action i took:
ls | egrep '+'
ls | egrep
ls | egrep +
ls | egrep ''
ls | egrep '(+)'
ls | egrep '()'
ls | egrep '(.*.*)'
ls | egrep '.*.*'
ls | grep... (2 Replies)
Hello,
I need help finding a script that will allow me to move files from one directory to another directory 10k files at a time.
I have a directory that has 100 K files in it. I need to have those 100k files broken apart to separate directories each with 10k files in them.
Here is the... (8 Replies)
Hi,
My first post!!
I have a files with header, something like this
Header_Row
AMC|D1|D2|D2
AAO|D3|D4|D5
AMC|D6|D7|D8
AAO|D9|D10|D11
.
.
.
.
.
and millions fo records thereafter like this.
I want to read the above file in a loop and write the lines having AMC into another... (1 Reply)
For shell script. If I had two separate files, file.txt and file1.txt and each has just a list of names from the who command. How would I create an if loop to compare each name? (1 Reply)
Discussion started by: Eric7giants
1 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::mbase_003
CheckDigits::MBase_003(3pm) User Contributed Perl Documentation CheckDigits::MBase_003(3pm)NAME
CheckDigits::MBase_003 - compute check digits for SICI (Serial Item and Contribution Identifier)
SYNOPSIS
use Algorithm::CheckDigits;
$sici = CheckDigits('sici');
if ($sici->is_valid('0784-8679(20040308)6:<138>2.0.TX;2-H')) {
# do something
}
$cn = $sici->complete('0784-8679(20040308)6:<138>2.0.TX;2-');
# $cn = '0784-8679(20040308)6:<138>2.0.TX;2-H'
$cd = $sici->checkdigit('0784-8679(20040308)6:<138>2.0.TX;2-H');
# $cd = 'H'
$bn = $sici->basenumber('0784-8679(20040308)6:<138>2.0.TX;2-H');
# $bn = '0784-8679(20040308)6:<138>2.0.TX;2-';
DESCRIPTION
ALGORITHM
0 In the string describing the number all letters (A-Z) are replaced with numbers 10-35 accordingly. All other non-numbers are replaced
by 36.
1 Beginning right the numbers at all odd positions are added.
2 The sum from step 1 is multiplied by 3.
3 Beginning right the numbers at all even positions are added.
4 The sums from step 2 and 3 are added.
5 The sum from step 4 is taken modulo 37.
6 The checksum is 37 minus the sum from step 5 where numbers from 10 to 35 are represented by 'A' to 'Z' accordingly and 36 is
represented by '#'.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and hyphens and the two digits in the middle are valid check digits according
to the algorithm given above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and inserted into the middle of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits, hyphens and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the check digits of $number if $number has valid check digits.
Return '' otherwise.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de, http://sunsite.berkeley.edu/SICI/sici.pdf
perl v5.10.0 2008-05-17 CheckDigits::MBase_003(3pm)