If the space is in position 800, then there a 799 characters before it not 800 so the quantifier should be 796 ie:
Perhaps my ability to count was compromised by a dangerous caffeine deficiency, currently remedying this cU.
This User Gave Thanks to Skrynesaver For This Post:
Hi I have a spaced filled file having records like below:
What I want is to read line having RT3 at position 17-19 then go to position 2651 check the 18 characters (might be space filled till 18 characters). This position should have a... (6 Replies)
Hi,
I need to add Pipe (|) at 5th and 18th position of all records a file. How can I do this?
I tried to add it at 5th position using the below code. It didnt work. Please help!!!
awk '{substr($0,5,1) ~ /|/}{print}' $input_file > $temp_file (1 Reply)
I am trying to use sed to replace specific characters at a specific position in the file with a different value... can this be done?
Example:
File:
A0199999123
A0199999124
A0199999125
Need to replace 99999 in positions 3-7 with 88888.
Any help is appreciated. (5 Replies)
How to replace the position specific values in the file..
i searched a lot the forums but i couldn't able to do...
i have file like below
576666666666666666666666666 7878 897987 121 0asdas Y12
5900fbb 777 09JJJ 78798347892374 234234234364 234232898
89HJHIHIGIUG989902743748327khjkhkjlh... (6 Replies)
Hi,
i want find the character '-' in a file from position 284-298, if it occurs i need to replace it with 'O ' for the position in the file. How to do that using SED command.
thanks in advance,
Sara (9 Replies)
Hi,
I have a file with multiple lines(fixed width dat file). I want to search for '02' in the positions 45-46 and if available, in that lines, I need to replace value in position 359 with blank. As I am new to unix, I am not able to figure out how to do this. Can you please help me to achieve... (9 Replies)
I will appreciate if you help me here in this script in Solaris Enviroment.
Scenario:
i have 2 files :
1) /tmp/TRANSACTIONS_DAILY_20180730.txt:
201807300000000004
201807300000000005
201807300000000006
201807300000000007
201807300000000008
2)... (10 Replies)
Discussion started by: teokon90
10 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m11_010
CheckDigits::M11_010(3pm) User Contributed Perl Documentation CheckDigits::M11_010(3pm)NAME
CheckDigits::M11_010 - compute check digits AHV number (CH)
SYNOPSIS
use Algorithm::CheckDigits;
$ahv = CheckDigits('ahv_ch');
if ($ahv->is_valid('123.45.678.113')) {
# do something
}
$cn = $ahv->complete('123.45.678.11');
# $cn = '123.45.678.113'
$cd = $ahv->checkdigit('123.45.678.113');
# $cd = '3'
$bn = $ahv->basenumber('123.45.678.113');
# $bn = '123.45.678.11';
DESCRIPTION
ALGORITHM
1. Beginning left every digit is weighted with 5,4,3,2,7,6,5,4,3,2.
2. The weighted digits are added.
3. The sum from step 2 is taken modulo 11.
4. The checkdigit is 11 minus the sum from step 3. Is the difference 10, the number won't be taken. If the difference is 11, the
checkdigit is 0.
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,
perl v5.10.0 2008-05-17 CheckDigits::M11_010(3pm)