11-23-2011
Quote:
Thanks, though i use gawk on windows i can't use sed.
you can use sed on windows..
sed for Windows
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
How to print all lines that has exactly 3 occurences of digit 4 using grep?
I am able to find the pattern if it is for atleast 3 occurences but with exactly 3 occurences? Can anybody help me on this. (3 Replies)
Discussion started by: sivasai83
3 Replies
2. Shell Programming and Scripting
Folks,
Is there a simple way to replace one digit by two digit using sed.
Example,
mydigit1918_2006_8_8_lag1.csv should be
mydigit1918_2006_08_08_lag01.csv.
I tried this way, but doesn't work.
echo mydigit1989_2006_8_8_lag1.csv|sed 's/]/0]/'
Thank you, (5 Replies)
Discussion started by: Jae
5 Replies
3. Shell Programming and Scripting
Hi All,
How can i convert a number 24 to 0024
In the same way how can i convert 123 to 0123?
All this has to be done inside a script
Thanks in advance
JS (6 Replies)
Discussion started by: jisha
6 Replies
4. Shell Programming and Scripting
using awk convert 3 rd fileld of file as 5 digit and then display changed file.
like
1 2
23445 3452 3343
3 5 6 6
================
o/p:-
1 2
23445 3452 03343
3 5 00006 6 (1 Reply)
Discussion started by: RahulJoshi
1 Replies
5. Shell Programming and Scripting
I have a var storing date
var=`date`
Now the date is returned as
Mon Feb 2 00:25:48 PST 2009
Is there any way to check the date field alone ("2" in above case) and if its a single digit then add a prefix 0 to it and store the result in same variable "var"
My intention in above case is... (3 Replies)
Discussion started by: villain41
3 Replies
6. Shell Programming and Scripting
Hello,
I have a text file with lines that look like this:
1974 12 27 -0.72743 -1.0169 2 1.25029
1974 12 28 -0.4958 -0.72926 2 0.881839
1974 12 29 -0.26331 -0.53426 2 0.595623
1974 12 30 7.71432E-02 -0.71887 3 0.723001
1974 12 31 0.187789 -1.07114 3 1.08748
1975 1 1 0.349933 -1.02217... (2 Replies)
Discussion started by: meridionaljet
2 Replies
7. Shell Programming and Scripting
Can somebody help me on this script with a loop?
gawk --re-interval '{if(($1 ~ /]{4}/) && ($2 ~ /]{4}/) && ($3 ~ /]{4}/)) print $0}' I would like to loop until NF and while $i does not match ($i ~ /]{4}/) anymore then print all matching $i and exit. (5 Replies)
Discussion started by: sdf
5 Replies
8. Shell Programming and Scripting
Hi Guys.
My Input:
ABCD 12 00 KL
ABCD 12 08 DL
ABCD 12 10 KK
ABCD 12 04 LL
ABCD 13 00 LP
ABCD 13 1O LS
Output:
ABCD 12 0 KL
ABCD 12 8 DL
ABCD 12 10 KK
ABCD 12 4 LL
ABCD 13 0 LP (2 Replies)
Discussion started by: pareshkp
2 Replies
9. Shell Programming and Scripting
I want to write/print a number through a shell script up to its last significant digit (LSD) after the decimal point.
Say,
x=10.00056000000000000
I want to print x as x=10.00056.
Note that x can be any thing so I cannot know the position of the LSD always.
Thanks. (16 Replies)
Discussion started by: hbar
16 Replies
10. Shell Programming and Scripting
Below is my content in a file. How to print only the number in between CURDEPTH( ) ?? Please help me
5724-H72 (C) Copyright IBM Corp. 1994, 2011. ALL RIGHTS RESERVED.
Starting MQSC for queue manager
1 : dis ql(DUMMY.QUEUE) curdepth
AMQ8409: Display Queue details.
... (1 Reply)
Discussion started by: prince1987
1 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m11_001
CheckDigits::M11_001(3pm) User Contributed Perl Documentation CheckDigits::M11_001(3pm)
NAME
CheckDigits::M11_001 - compute check digits for ISBN, ISSN, VAT RN (PT), HKID (HK), Wagon number (BR), NHS (GB), VAT (SL)
SYNOPSIS
use Algorithm::CheckDigits;
$isbn = CheckDigits('isbn');
if ($isbn->is_valid('3-88229-192-3')) {
# do something
}
$cn = $isbn->complete('3-88229-192-');
# $cn = '3-88229-192-3'
$cd = $isbn->checkdigit('3-88229-192-3');
# $cd = '3'
$bn = $isbn->basenumber('3-88229-192-3');
# $bn = '3-88229-192-'
DESCRIPTION
ALGORITHM
1. The sequence of digits is processed right to left. Every digit is multiplied with their position in the sequence (i.e. the digit left
to the check digit has the weight 2 then 3 etc.).
With a Hongkong ID (hkid) the leftmost char is replaced with its position in the alphabet and then multiplied with 8 (its weight).
2. The sum of all products is computed.
3. The sum of step 2 is taken modulo 11.
4. The checkdigit is the difference of the sum from step 3 to eleven under the following conditions:
isbn,issn
If the difference is 10, the check digit is 'X'.
If the difference is 11, the check digit is 0.
ustid_pt
If the difference is greater then 9, the check digit is '0'.
hkid If the difference is 10, the check digit is 'A'.
If the difference is 11, the check digit is 0.
wagonnr_br
If the difference is 10, the check digit is 0.
If the difference is 11, the check digit is 1.
nhs_gb If the difference is 10, the number would not be taken.
If the difference is 11, the check digit is 0.
vat_sl This is a little bit unclear, don't trust on the method for this type.
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>
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de.
perl v5.10.0 2008-05-17 CheckDigits::M11_001(3pm)