solocazzimiei has asked for the wisdom of the Perl Monks concerning the following question:
Hi to all, ...and sorry for bad post formatting but PerlMonks seems don't recornize \n statement..
Here we are: after had accumulate lots of .vcf files were inside of each are plenty of duplicated records, I'm working on custom script for rationalize,merging & cleansing over 700k records.
I stuck on find universal solution for splits fields from records like this :
$in[$x]="NOTE;ENCODING=QUOTED-PRINTABLE:=0AAddress:=0A=0Aor. Soroca=0A +Republic of Moldova=0A=0A=0A=0A Footwear. =Children's footwear. Lady' +s footwear."
using code like:
This script work fine on almost the VCF's lables like : N, FN, ORG, TEL, etc.. but in record frame like above I obtain splitting on the lastest \: instead of first one, despite use of non greedy techniques:$in[$x] =~ /(\w+\W?\w*\W?\w*\W?\w*\W?\w*\W?\w*\W*?\w*\W*?\w*\W*?\w*)\: +(=?0?.+:*)/; $a =$1;$2; $a =~ s/;X-SYNCMLREF\d+//; $key{$a} = $a;
Any suggestions ? Thks$1 = "NOTE;ENCODING=QUOTED-PRINTABLE:=0AAddress" $2 = "=0A=0Aor. Soroca=0ARepublic of Moldova=0A=0A=0A=0A Footwear. =Ch +ildren's footwear. Lady's footwear."
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: .VCF records cleansing
by hippo (Bishop) on Apr 08, 2020 at 10:21 UTC | |
Re: .VCF records cleansing
by karlgoethebier (Abbot) on Apr 08, 2020 at 16:44 UTC | |
by kevbot (Vicar) on Apr 08, 2020 at 19:49 UTC | |
Re: .VCF records cleansing
by AnomalousMonk (Archbishop) on Apr 08, 2020 at 18:02 UTC | |
by solocazzimiei (Novice) on Apr 08, 2020 at 19:56 UTC | |
by AnomalousMonk (Archbishop) on Apr 08, 2020 at 22:06 UTC | |
by AnomalousMonk (Archbishop) on Apr 08, 2020 at 21:56 UTC |
Back to
Seekers of Perl Wisdom