10-01-2007
Digits display
Hi there,
I am new to scripting. Can anyone help me in writing a script which will display all the digits between 1 and 5 inclusive, one digit per line. Should use a loop to do this.
Thanks in advance!!
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi I'm new to this. I need to cut off the last 10 digits from a line.
I've used awk {'print $4'} filename.txt | cut -c 32-42 but this does not guarantee only the last 10 characters.
Please help. Thanks.
Sara (4 Replies)
Discussion started by: psarava
4 Replies
2. UNIX for Dummies Questions & Answers
Hi All,
I am new to shell script.
I wrote a very small script that takes only digits as input-
but there is some problem in that.can you help me in debugging that.
#!/bin/ksh
echo "Digits as input"
read number
digit='eval '
if ]
then
echo "Entered number is a digit"
else
echo... (2 Replies)
Discussion started by: namishtiwari
2 Replies
3. Shell Programming and Scripting
I want to check the argument in KSH. If the user type in the prompt 'find 3' it will format 3 to 003 to match the data in the text file. Same as with 10 to 010. Always begins with 0.
eg.
>find 3
Output:
003
>find 30
Output:
030 (7 Replies)
Discussion started by: harry0013
7 Replies
4. Shell Programming and Scripting
Hi Folks
Probably an easy one here but how do I get a sequence to get used as mentioned. For example in the following I want to automatically create files that have a 2 digit number at the end of their names:
m@pyhead:~$ for x in $(seq 00 10); do touch file_$x; done
m@pyhead:~$ ls file*... (2 Replies)
Discussion started by: amadain
2 Replies
5. Shell Programming and Scripting
Hello all! I've looked all over the internet and this site and have come up a loss with an easy way to make a bash script to do what I want to do. I have a file with a naming convention as follows:
2012-01-18 string of words here 123.jpg
2012-01-18 string of words here 1234.jpg
2012-01-18... (2 Replies)
Discussion started by: Buzzman25
2 Replies
6. UNIX for Advanced & Expert Users
Hi,
How I can replace last 8 ZEROS with 22991231?
19523479811841494432A2013052700000000
19523479811730333980A2013052700000000
19523479811417044397A2013052700000000
19523479811205895810C2013010120130131
A9523479811205895810A2013020120130228
19523479811205895810I2013030120130331... (9 Replies)
Discussion started by: jnrohit2k
9 Replies
7. Programming
Is there any program that can create 6 digit numbers with:
(DIGIT_1)+(DIGIT_2)+(DIGIT_3)+(DIGIT_4)+(DIGIT_5)+(DIGIT_6)=10
Any perl or C also can. Anyone can help me? Thank you (6 Replies)
Discussion started by: Tzeronone
6 Replies
8. Shell Programming and Scripting
Hello everybody
I'm a little beginer for shell script as I started last night...
I have this script
cat fichier.txt | while read l ; do
#echo $l
echo $x
x=$(( $x + 1 ))
done
it's return
1
2
3
4 (4 Replies)
Discussion started by: remibemol
4 Replies
9. UNIX for Beginners Questions & Answers
Hi All ,
I am having an input file as stated below
5728 U_TOP_LOGIC/U_CM0P/core/u_cortexm0plus/u_top/u_sys/u_core/r03_q_reg_20_/Q 011
611 U_TOP_LOGIC/U_CM0P/core/u_cortexm0plus/u_top/u_sys/u_core/r04_q_reg_20_/Q 011
3486... (4 Replies)
Discussion started by: kshitij
4 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::mbase_001
CheckDigits::MBase_001(3pm) User Contributed Perl Documentation CheckDigits::MBase_001(3pm)
NAME
CheckDigits::MBase_001 - compute check digits for UPC (US)
SYNOPSIS
use Algorithm::CheckDigits;
$rv = CheckDigits('upc');
if ($rv->is_valid('012345678905')) {
# do something
}
$cn = $rv->complete('01234567890');
# $cn = '012345678905'
$cd = $rv->checkdigit('012345678905');
# $cd = '5'
$bn = $rv->basenumber('012345678905');
# $bn = '01234567890'
DESCRIPTION
ALGORITHM
1. Add all digits in odd-numbered positions.
2. Multiply the sum from step 1 with 3.
3. Add all digits in even-numbered positions.
4. Add the product from step 2 and the sum from step 3.
5. If the sum from step 4 is 0 modulo 10, the check digit is 0. Else the check digit is 10 minus the sum from step 4 taken modulo 10.
METHODS
is_valid($number)
Returns true only if $number consists solely of numbers and the last digit is a valid check digit according to the algorithm given
above.
Returns false otherwise,
complete($number)
The check digit for $number is computed and concatenated to the end of $number.
Returns the complete number with check digit or '' if $number does not consist solely of digits and spaces.
basenumber($number)
Returns the basenumber of $number if $number has a valid check digit.
Return '' otherwise.
checkdigit($number)
Returns the checkdigit of $number if $number has a valid check digit.
Return '' otherwise.
EXPORT
None by default.
AUTHOR
Mathias Weidner, <mathias@weidner.in-bad-schmiedeberg.de>
THANKS
Aaron W. West pointed me to a fault in the computing of the check digit.
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de, www.export911.com/e911/coding/upcChar.htm, www.adams1.com/pub/russadam/upccode.html,
http://www.upcdatabase.com.
perl v5.10.0 2008-05-17 CheckDigits::MBase_001(3pm)