Hi,
I am trying to remove duplicate lines from a file. For example the contents of example.txt is:
this is a test
2342
this is a test
34343
this is a test
43434
and i want to remove the "this is a test" lines only and end up with the numbers in the file, that is, end up with:
2342... (4 Replies)
Hi,
I need to concatenate three files in to one destination file.In this if some duplicate data occurs it should be deleted.
eg:
file1:
-----
data1 value1
data2 value2
data3 value3
file2:
-----
data1 value1
data4 value4
data5 value5
file3:
-----
data1 value1
data4 value4 (3 Replies)
Hello,
I need help in putting duplicate lines within a section into another file. Here is what I'm struggling with:
Using this file data.txt:
ABC1 012345 header
ABC2 7890-000
ABC3 012345 Header Table
ABC4
ABC5 593.0000 587.4800
ABC5 593.5000 587.6580 <= dup need to remove
ABC5... (4 Replies)
So I have two files. The first file, file1.txt, has lines of numbers separated by commas.
file1.txt
10,2,30,50
22,6,3,15,16,100
73,55
78,40,33,30,11
73,55
99,82,85
22,6,3,15,16,100
The second file, file2.txt, has sentences.
file2.txt
"the cat is fat"
"I like eggs"
"fish live in... (6 Replies)
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
You will write a script that will remove all HTML tags from an HTML document and remove any consecutive... (3 Replies)
Discussion started by: tburns517
3 Replies
LEARN ABOUT DEBIAN
algorithm::checkdigits::m97_002
CheckDigits::M97_002(3pm) User Contributed Perl Documentation CheckDigits::M97_002(3pm)NAME
CheckDigits::M97_002 - compute check digits for International Bank Account Number (IBAN)
SYNOPSIS
use Algorithm::CheckDigits;
$iban = CheckDigits('iban');
if ($iban->is_valid('DE88 2008 0000 09703 7570 0')) {
# do something
}
$cn = $iban->complete('DE00 2008 0000 09703 7570 0');
# $cn = 'DE88 2008 0000 09703 7570 0'
$cd = $iban->checkdigit('DE88 2008 0000 09703 7570 0');
# $cd = '88'
$bn = $iban->basenumber('DE88 2008 0000 09703 7570 0');
# $bn = 'DE00 2008 0000 09703 7570 0'
DESCRIPTION
ALGORITHM
0 The IBAN number must be prepared. The first two letters and the checksum will be moved to the right end. The letters are substituted
according to the substitute table and the checksum is set to '00'.
1 The whole number is taken modulo 97.
2 The checksum is difference between 98 and the sum of step 2.
3 If the checksum is smaller then 10, a leading zero will be prepended.
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 checkdigits 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
Detlef Pilzecker pointed out to me that there may be more letters as the first two in an IBAN number. He also made me aware of a faster
method to compute the check number than using Math::BigInt.
SEE ALSO
perl, CheckDigits, www.pruefziffernberechnung.de, www.sic.ch/en/tkicch_home/tkicch_standardization/
tkicch_financialinstitutions_ibanipi.htm.
perl v5.10.0 2008-11-30 CheckDigits::M97_002(3pm)