From 09c9fea411901c97a07df9cf345a68355e14f7d4 Mon Sep 17 00:00:00 2001 From: Zuinige Rijder Date: Thu, 5 Jan 2023 11:52:16 +0100 Subject: [PATCH] prijslijsten van januari 2023 --- missing.bat | 63 +++++++++-- missing.outfile.txt | 264 +++++++++++++++++++++++++++++--------------- missing.txt | 261 ++++++++++++++++++++++++++++--------------- rdw.bat | 59 ++++++++-- rdwfinder.bat | 8 ++ 5 files changed, 458 insertions(+), 197 deletions(-) diff --git a/missing.bat b/missing.bat index 7b844d7..26396de 100644 --- a/missing.bat +++ b/missing.bat @@ -293,10 +293,10 @@ sub findVariantExact($$$$$) { my $result = ''; foreach my $pricelist_date (@PRICELISTS_DATES) { - #if ($date < $pricelist_date) { - # print("Skipping pricelist $pricelist_date for $date\n") if $DEBUG; - # next; # skip registration dates before prijslist date - #} + if ($date < $pricelist_date) { + print("Skipping pricelist $pricelist_date for $date\n") if $DEBUG; + next; # skip registration dates before prijslist date + } print("Checking $kenteken pricelist $pricelist_date for $date\n") if $DEBUG; #if ("$kenteken" eq "P185VD") { @@ -485,7 +485,7 @@ sub getVariant($$$$) { print "#opNaam : $opNaam\n"; print "#date : $date\n"; } - if ($date < 20210401 or $date > 20230101) { + if ($date < 20210401 or $date > 20240101) { myDie("Unexpected date: $date for $kenteken $fulltype\n"); } @@ -503,6 +503,7 @@ sub getVariant($$$$) { if (not $prijskleur =~ /^prijs: /) { myDie("Geen prijs in fulltype: $fulltype"); } + if ($variant eq 'F5E14') { $value = '73 kWh AWD'; } elsif ($variant eq 'F5E32') { @@ -537,7 +538,7 @@ sub getVariant($$$$) { myDie("ERROR: kleur $kleur fout voor $kenteken: $fulltype"); } - if (($prijs < 42500 or $prijs > 69000) and $prijs != 72300 and $prijs != 37831) { + if (($prijs < 42500 or $prijs > 69000) and $prijs != 72300 and $prijs != 37831 and $prijs != 5242655 and $prijs != 78650) { myDie("ERROR: prijs $prijs fout voor $kenteken: $fulltype"); } print "#prijs : $prijs\n" if $DEBUG; @@ -787,8 +788,8 @@ sub getVariant($$$$) { } -# pricelists of sept 2022, mei 2022, maart 2022, mei 2021 -@PRICELISTS_DATES = ("20220901", "20220501", "20220301", "20210501"); +# pricelists of jan 2023, sept 2022, mei 2022, maart 2022, mei 2021 +@PRICELISTS_DATES = ("20230101", "20220901", "20220501", "20220301", "20210501"); #========== model2022 ============================================================ # model 2022 prijslijst mei 2021 (prijslijst mei 2022 1500 euro duurder) @@ -999,6 +1000,52 @@ $PRICELISTS{"20220901_58_2023"} = \%pricessept2022_small_battery_2023; $PRICELISTS{"20220901_77"} = \%pricessept2022_big_battery_2023; $PRICELISTS{"20220901_77AWD"} = \%pricessept2022_big_battery_AWD_2023; +# model 2023 prijslijst januari 2023: 1400 euro duurder dan september 2022 +my %pricesjan2023_small_battery_2023; +my %pricesjan2023_big_battery_2023; +my %pricesjan2023_big_battery_AWD_2023; + +fillPrice(\%pricesjan2023_small_battery_2023, 'Style', 47200, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Connect', 51300, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Connect+', 54300, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Lounge', 56700, 58, $false, $true, "jan 2023"); + +fillPrice(\%pricesjan2023_big_battery_2023, 'Style', 50800, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Connect', 54900, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Connect+', 57900, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Lounge', 60300, 77, $false, $true, "jan 2023"); + +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Connect', 58900, 77, $true, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Connect+', 61900, 77, $true, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Lounge', 64300, 77, $true, $true, "jan 2023"); + +$PRICELISTS{"20230101_58_2023"} = \%pricesjan2023_small_battery_2023; +$PRICELISTS{"20230101_77"} = \%pricesjan2023_big_battery_2023; +$PRICELISTS{"20230101_77AWD"} = \%pricesjan2023_big_battery_AWD_2023; + +# model 2023 prijslijst januari 2023: 1400 euro duurder dan september 2022 +my %pricesjan2023_small_battery_2023; +my %pricesjan2023_big_battery_2023; +my %pricesjan2023_big_battery_AWD_2023; + +fillPrice(\%pricesjan2023_small_battery_2023, 'Style', 47200, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Connect', 51300, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Connect+', 54300, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Lounge', 56700, 58, $false, $true, "jan 2023"); + +fillPrice(\%pricesjan2023_big_battery_2023, 'Style', 50800, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Connect', 54900, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Connect+', 57900, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Lounge', 60300, 77, $false, $true, "jan 2023"); + +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Connect', 58900, 77, $true, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Connect+', 61900, 77, $true, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Lounge', 64300, 77, $true, $true, "jan 2023"); + +$PRICELISTS{"20230101_58_2023"} = \%pricesjan2023_small_battery_2023; +$PRICELISTS{"20230101_77"} = \%pricesjan2023_big_battery_2023; +$PRICELISTS{"20230101_77AWD"} = \%pricesjan2023_big_battery_AWD_2023; + my $filename="missing.txt"; print "Processing $filename\n"; my @KENTEKENS; diff --git a/missing.outfile.txt b/missing.outfile.txt index 02e2446..00d70d5 100644 --- a/missing.outfile.txt +++ b/missing.outfile.txt @@ -1,93 +1,175 @@ -R497RN ??221101 GROEN 46695 F5E42;E11A11;e9*2018/858*11054*04; prijs: 46695 # -R498RN ??221101 GRIJS 46695 F5E42;E11A11;e9*2018/858*11054*04; prijs: 46695 # -R500RN ??221101 GRIJS 46895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 46895 # -R501RN ??221101 BLAUW 45800 F5E42;E11A11;e9*2018/858*11054*04; prijs: 45800 # -R503RN ??221101 GROEN 62150 F5E54;E11A11;e9*2018/858*11054*04; prijs: 62150 # -R504RN ??221101 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # -R506RN ??221101 GROEN 49400 F5E62;E11A11;e9*2018/858*11054*04; prijs: 49400 # -R507RN ??221101 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R508RN ??221101 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R509RN ??221101 WIT 51295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51295 # -R510RN ??221101 WIT 51295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51295 # -R511RN ??221101 ZWART 54395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54395 # -R512RN ??221101 GROEN 53500 F5E62;E11A11;e9*2018/858*11054*04; prijs: 53500 # -R513RN ??221101 BLAUW 58700 F5E54;E11A11;e9*2018/858*11054*04; prijs: 58700 # -R514RN ??221101 GROEN 63795 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63795 # -P234XP ??220627 ZWART 57100 F5E32;E11A11;e9*2018/858*11054*01; prijs: 57100 # -R059RG ??221028 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # -R060RG ??221028 GRIJS 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # +R016ZJ ??221219 GROEN 50400 F5E42;E11A11;e9*2018/858*11054*01; prijs: 50400 # (20210708 geimporteerd 20221219) +R026VH ??221128 GROEN 53045 F5E42;E11A11;e9*2018/858*11054*04; prijs: 53045 # +R039VH ??221128 GRIJS 63245 F5E54;E11A11;e9*2018/858*11054*04; prijs: 63245 # +R040VH ??221128 BLAUW 63045 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63045 # +R043VH ??221128 GRIJS 56395 F5E42;E11A11;e9*2018/858*11054*04; prijs: 56395 # +R049VH ??221128 ZWART 59795 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59795 # +R053VH ??221128 GEEL 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R059VH ??221128 WIT 61195 F5E54;E11A11;e9*2018/858*11054*04; prijs: 61195 # R061RG ??221028 GRIJS 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # -R062RG ??221028 ZWART 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # -R063RG ??221028 GRIJS 63995 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63995 # -R064RG ??221028 BLAUW 62900 F5E54;E11A11;e9*2018/858*11054*04; prijs: 62900 # -R065RF ??221028 GEEL 58795 F5E32;E11B11;e9*2018/858*11054*03; prijs: 58795 # -R066RG ??221028 GRIJS 57595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57595 # -R069RF ??221028 GROEN 53700 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53700 # -R069RG ??221028 GROEN 47795 F5E42;E11A11;e9*2018/858*11054*03; prijs: 47795 # -R071RF ??221028 GROEN 57700 F5E32;E11A11;e9*2018/858*11054*03; prijs: 57700 # -R340KZ ??220928 GROEN 53500 F5E62;E11A11;e9*2018/858*11054*04; prijs: 53500 # -R377HF ??220830 GROEN 53255 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53255 # -R379LF ??220929 GEEL 51795 F5E42;E11A11;e9*2018/858*11054*03; prijs: 51795 # -R467PV ??221026 ZWART 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R486RB ??221027 ZWART 46695 F5E42;E11A11;e9*2018/858*11054*04; prijs: 46695 # -R488RB ??221027 GRIJS 46695 F5E42;E11A11;e9*2018/858*11054*04; prijs: 46695 # -R489RB ??221027 GROEN 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # -R490RB ??221027 GROEN 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # -R491RB ??221027 ZWART 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # -R492RB ??221027 ZWART 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # -R493RB ??221027 WIT 47695 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47695 # -R495RB ??221027 WIT 47695 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47695 # -R496RB ??221027 GEEL 53995 F5E42;E11A11;e9*2018/858*11054*04; prijs: 53995 # -R497RB ??221027 BLAUW 58150 F5E62;E11A11;e9*2018/858*11054*04; prijs: 58150 # -R498RB ??221027 GEEL 60140 F5E62;E11B11;e9*2018/858*11054*04; prijs: 60140 # -R499RB ??221027 WIT 62845 F5E54;E11B11;e9*2018/858*11054*04; prijs: 62845 # -R500RB ??221027 GRIJS 56845 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56845 # -R501RB ??221027 GROEN 60645 F5E54;E11A11;e9*2018/858*11054*04; prijs: 60645 # -R502RB ??221027 GROEN 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R503RB ??221027 ZWART 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R504RB ??221027 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R505RB ??221027 GRIJS 54395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54395 # -R508RB ??221027 BLAUW 53500 F5E62;E11A11;e9*2018/858*11054*04; prijs: 53500 # -R510RB ??221027 GROEN 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # -R511RB ??221027 GROEN 58900 F5E62;E11A11;e9*2018/858*11054*04; prijs: 58900 # -R512RB ??221027 GROEN 60690 F5E62;E11A11;e9*2018/858*11054*04; prijs: 60690 # -R513RB ??221027 BLAUW 59795 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59795 # -R514RB ??221027 GRIJS 58395 F5E54;E11A11;e9*2018/858*11054*04; prijs: 58395 # -R515RB ??221027 GRIJS 63795 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63795 # -R516RB ??221027 GRIJS 63795 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63795 # -R517RB ??221027 GRIJS 63795 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63795 # -R518RB ??221027 GRIJS 63995 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63995 # -R520RB ??221027 BLAUW 62900 F5E54;E11B11;e9*2018/858*11054*04; prijs: 62900 # -R521RB ??221027 GEEL 63995 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63995 # -R522RB ??221027 GEEL 63995 F5E54;E11A11;e9*2018/858*11054*04; prijs: 63995 # -R524RB ??221027 GROEN 64690 F5E54;E11B11;e9*2018/858*11054*04; prijs: 64690 # -R525RB ??221027 ZWART 64690 F5E54;E11B11;e9*2018/858*11054*04; prijs: 64690 # -R526RB ??221027 GRIJS 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R527RB ??221027 GRIJS 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R528RB ??221027 ZWART 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R529RB ??221027 GRIJS 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R531RB ??221027 GRIJS 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R532RB ??221027 WIT 57195 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57195 # -R533RB ??221027 GRIJS 57595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57595 # -R534RB ??221027 GRIJS 57595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57595 # -R536RB ??221027 GEEL 57595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57595 # -R537RB ??221027 GEEL 57595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57595 # -R538RB ??221027 ZWART 61395 F5E54;E11A11;e9*2018/858*11054*04; prijs: 61395 # -R539RB ??221027 GRIJS 61595 F5E54;E11A11;e9*2018/858*11054*04; prijs: 61595 # -R540RB ??221027 GRIJS 61595 F5E54;E11A11;e9*2018/858*11054*04; prijs: 61595 # -R541RB ??221027 GEEL 61595 F5E54;E11A11;e9*2018/858*11054*04; prijs: 61595 # -R553RB ??221027 GROEN 47795 F5E42;E11A11;e9*2018/858*11054*03; prijs: 47795 # -R554RB ??221027 GROEN 47795 F5E42;E11A11;e9*2018/858*11054*03; prijs: 47795 # -R602PR ??221025 ZWART 63045 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63045 # -R603PR ??221025 GRIJS 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # -R605PR ??221025 GEEL 50495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50495 # -R607PR ??221025 ZWART 63795 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63795 # -R612PR ??221025 GRIJS 57595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57595 # -R617PJ ??221021 ZWART 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R618PJ ??221021 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R623PJ ??221021 WIT 51295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51295 # +R073ZP ??221220 WIT 59400 F5E14;E11A11;e9*2018/858*11054*01; prijs: 59400 # (20210528 geimporteerd 20221220) +R081TR ??221121 GRIJS 58000 F5E14;E11B11;e9*2018/858*11054*01; prijs: 58000 # (20210719 geimporteerd 20221123) +R081VD ??221125 WIT 46495 F5E42;E11A11;e9*2018/858*11054*04; prijs: 46495 # +R082VD ??221125 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +R084VD ??221125 GRIJS 59940 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59940 # +R087XP ??221212 GROEN 59500 F5E14;E11A11;e9*2018/858*11054*01; prijs: 59500 # +R089VD ??221125 WIT 63740 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63740 # +R089ZJ ??221219 BLAUW 49700 F5E32;E11A11;e9*2018/858*11054*03; prijs: 49700 # +R090ZJ ??221219 GRIJS 50595 F5E32;E11A11;e9*2018/858*11054*03; prijs: 50595 # +R091XP ??221212 GEEL 50795 F5E32;E11A11;e9*2018/858*11054*01; prijs: 50795 # +R091ZJ ??221219 GRIJS 50595 F5E32;E11A11;e9*2018/858*11054*03; prijs: 50595 # +R092VD ??221125 ZWART 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R092ZJ ??221219 GRIJS 47795 F5E42;E11A11;e9*2018/858*11054*01; prijs: 47795 # +R093ZJ ??221219 GEEL 48095 F5E42;E11A11;e9*2018/858*11054*04; prijs: 48095 # +R094ZJ ??221219 WIT 55445 F5E32;E11A11;e9*2018/858*11054*03; prijs: 55445 # +R095ZJ ??221219 GRIJS 55845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 55845 # +R096VD ??221125 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # +R096ZJ ??221219 BLAUW 54750 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54750 # +R097ZJ ??221219 GRIJS 53845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53845 # +R098ZJ ??221219 GRIJS 53845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53845 # +R099VD ??221125 GRIJS 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R099ZJ ??221219 GRIJS 53845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53845 # +R100VD ??221125 GEEL 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R100ZJ ??221219 GEEL 54045 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54045 # +R101VD ??221125 GEEL 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R101ZJ ??221219 GRIJS 53845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53845 # +R102VD ??221125 GRIJS 59795 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59795 # +R102ZJ ??221219 WIT 53645 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53645 # +R103ZJ ??221219 WIT 53645 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53645 # +R104ZJ ??221219 GROEN 53845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 53845 # +R105ZJ ??221219 GEEL 54795 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54795 # +R106ZJ ??221219 GEEL 54795 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54795 # +R107ZJ ??221219 GRIJS 56395 F5E32;E11A11;e9*2018/858*11054*03; prijs: 56395 # +R109VD ??221125 GRIJS 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # +R109ZJ ??221219 GEEL 59690 F5E32;E11B11;e9*2018/858*11054*03; prijs: 59690 # +R110ZJ ??221219 ZWART 58595 F5E32;E11B11;e9*2018/858*11054*03; prijs: 58595 # +R111ZJ ??221219 GEEL 58795 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58795 # +R112ZJ ??221219 ZWART 58595 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58595 # +R113ZJ ??221219 GRIJS 58595 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58595 # +R114ZJ ??221219 GRIJS 58595 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58595 # +R115ZJ ??221219 GEEL 58795 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58795 # +R116ZJ ??221219 GRIJS 58795 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58795 # +R117ZJ ??221219 GROEN 58595 F5E32;E11A11;e9*2018/858*11054*03; prijs: 58595 # +R118ZJ ??221219 GRIJS 58595 F5E32;E11B11;e9*2018/858*11054*03; prijs: 58595 # +R119ZJ ??221219 GEEL 58795 F5E32;E11B11;e9*2018/858*11054*03; prijs: 58795 # +R120ZJ ??221219 GRIJS 55595 F5E42;E11A11;e9*2018/858*11054*03; prijs: 55595 # +R121ZJ ??221219 GRIJS 62795 F5E14;E11A11;e9*2018/858*11054*03; prijs: 62795 # +R122ZJ ??221219 ZWART 62595 F5E14;E11B11;e9*2018/858*11054*03; prijs: 62595 # +R123ZJ ??221219 GRIJS 62595 F5E14;E11A11;e9*2018/858*11054*03; prijs: 62595 # +R124ZJ ??221219 GRIJS 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R148ZD ??221213 GRIJS 60496 F5E14;E11B11;e9*2018/858*11054*01; prijs: 60496 # (20220602 geimporteerd 20221216) +R170VS ??221129 GRIJS 49504 F5E32;E11A11;e9*2018/858*11054*03; prijs: 49504 # (20220627 geimporteerd 20221202) +R171SN ??221109 WIT 58000 F5E14;E11B11;e9*2018/858*11054*01; prijs: 58000 # (20210701 geimporteerd 20221111) +R183ZG ??221209 WIT 46199 F5E32;E11B11;e9*2018/858*11054*01; prijs: 46199 # (20211014 geimporteerd 20221216) +R194ZJ ??221219 BLAUW 54750 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54750 # +R195ZJ ??221219 GRIJS 55845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 55845 # +R196ZJ ??221219 ZWART 62595 F5E14;E11B11;e9*2018/858*11054*03; prijs: 62595 # +R198ZJ ??221219 GEEL 54045 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54045 # +R200ZJ ??221219 ZWART 52645 F5E42;E11A11;e9*2018/858*11054*03; prijs: 52645 # +R201ZJ ??221219 GEEL 55795 F5E42;E11A11;e9*2018/858*11054*03; prijs: 55795 # +R202ZJ ??221219 GEEL 62795 F5E14;E11A11;e9*2018/858*11054*03; prijs: 62795 # +R240RB ??221027 GROEN 55500 F5E32;E11A11;e9*2018/858*11054*03; prijs: 55500 # +R327VG ??221128 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +R333VG ??221128 GRIJS 63795 F5E54;E11B11;e9*2018/858*11054*04; prijs: 63795 # +R407XN ??221210 GRIJS 54705 F5E32;E11B11;e9*2018/858*11054*01; prijs: 54705 # (20211123 geimporteerd 20221212) +R447ZP ??221220 GRIJS 55845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 55845 # +R448ZP ??221220 GEEL 55845 F5E32;E11A11;e9*2018/858*11054*03; prijs: 55845 # +R487ZP ??221220 GRIJS 50995 F5E42;E11A11;e9*2018/858*11054*04; prijs: 50995 # +R488ZP ??221220 ZWART 59045 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59045 # +R489ZP ??221220 GROEN 59045 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59045 # +R490ZP ??221220 WIT 63740 F5E54;E11A11;e9*2018/858*11054*04; prijs: 63740 # +R491ZP ??221220 GRIJS 56195 F5E42;E11A11;e9*2018/858*11054*04; prijs: 56195 # +R492ZP ??221220 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # +R493ZP ??221220 BLAUW 50600 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50600 # +R494ZP ??221220 WIT 52090 F5E62;E11A11;e9*2018/858*11054*04; prijs: 52090 # +R498ZP ??221220 GROEN 63795 F5E54;E11A11;e9*2018/858*11054*04; prijs: 63795 # +R499ZP ??221220 WIT 63595 F5E54;E11A11;e9*2018/858*11054*04; prijs: 63595 # +R501ZP ??221220 GRIJS 61595 F5E54;E11A11;e9*2018/858*11054*04; prijs: 61595 # +R503ZP ??221220 GRIJS 50245 F5E42;E11A11;e9*2018/858*11054*04; prijs: 50245 # +R504ZP ??221220 GRIJS 53845 F5E62;E11A11;e9*2018/858*11054*04; prijs: 53845 # +R505ZP ??221220 GROEN 59045 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59045 # +R506ZP ??221220 ZWART 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +R507ZP ??221220 ZWART 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +R508ZP ??221220 ZWART 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +R509ZP ??221220 ZWART 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +R510ZP ??221220 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +R511ZP ??221220 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R512RN ??221101 GROEN 53500 F5E62;E11A11;e9*2018/858*11054*04; prijs: 53500 # +R512ZP ??221220 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R513ZP ??221220 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R514ZP ??221220 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R515ZP ??221220 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R516ZP ??221220 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +R517ZP ??221220 ZWART 52290 F5E62;E11A11;e9*2018/858*11054*04; prijs: 52290 # +R518ZP ??221220 GRIJS 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # +R519ZP ??221220 GRIJS 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # +R520ZP ??221220 GRIJS 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # +R521ZP ??221220 GEEL 55795 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55795 # +R522ZP ??221220 GRIJS 59795 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59795 # +R523ZP ??221220 WIT 59595 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59595 # +R524ZP ??221220 GRIJS 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R525ZP ??221220 GRIJS 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R526ZP ??221220 GRIJS 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R527ZP ??221220 GEEL 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R528ZP ??221220 GRIJS 59995 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59995 # +R529ZP ??221220 BLAUW 58900 F5E62;E11A11;e9*2018/858*11054*04; prijs: 58900 # +R530ZP ??221220 ZWART 60690 F5E62;E11B11;e9*2018/858*11054*04; prijs: 60690 # +R531ZP ??221220 GRIJS 53795 F5E42;E11A11;e9*2018/858*11054*04; prijs: 53795 # +R532ZP ??221220 GRIJS 53795 F5E42;E11A11;e9*2018/858*11054*04; prijs: 53795 # +R533ZP ??221220 GRIJS 53795 F5E42;E11A11;e9*2018/858*11054*04; prijs: 53795 # +R537ZV ??221221 ZWART 58595 F5E32;E11B11;e9*2018/858*11054*03; prijs: 58595 # +R540VR ??221125 ZWART 59600 F5E14;E11B11;e9*2018/858*11054*01; prijs: 59600 # (20211103 geimporteerd 20221201) +R568ZL ??221215 WIT 55399 F5E32;E11B11;e9*2018/858*11054*01; prijs: 55399 # (20210817 geimporteerd 20221220) +R597XZ ??221215 GEEL 54795 F5E32;E11A11;e9*2018/858*11054*03; prijs: 54795 # +R614ZV ??221221 ZWART 56195 F5E42;E11A11;e9*2018/858*11054*04; prijs: 56195 # +R615ZV ??221221 GRIJS 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # +R616XZ ??221215 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +R616ZV ??221221 WIT 55395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55395 # +R617ZV ??221221 GEEL 59995 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59995 # +R618ZV ??221221 GRIJS 59995 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59995 # R624PJ ??221021 GROEN 54700 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54700 # -R626PJ ??221021 GRIJS 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R627PJ ??221021 ZWART 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # -R877PB ??221019 GROEN 51495 F5E62;E11A11;e9*2018/858*11054*04; prijs: 51495 # -R881PB ??221019 ZWART 57395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 57395 # +R666VZ ??221201 GROEN 43400 F5E42;E11A11;e9*2018/858*11054*03; prijs: 43400 # (20221109 geimporteerd 20221206) +R723ZV ??221221 ZWART 53645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 53645 # +R724ZV ??221221 GRIJS 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +R725ZV ??221221 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +R726ZV ??221221 GRIJS 54395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54395 # +R727ZV ??221221 GRIJS 54395 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54395 # +R728ZV ??221221 GEEL 54595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54595 # +R729ZV ??221221 WIT 59595 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59595 # +R731XF ??221204 GRIJS 55600 F5E32;E11B11;e9*2018/858*11054*01; prijs: 55600 # (20211217 geimporteerd 20221208) +R752ZH ??221215 GRIJS 55800 F5E32;E11B11;e9*2018/858*11054*01; prijs: 55800 # (20211108 geimporteerd 20221219) +R781XK ??221209 BLAUW 54700 F5E62;E11A11;e9*2018/858*11054*04; prijs: 54700 # +R788XT ??221214 WIT 59740 F5E62;E11A11;e9*2018/858*11054*04; prijs: 59740 # +R917ZZ ??221207 GRIJS 55600 F5E32;E11A11;e9*2018/858*11054*01; prijs: 55600 # (20211029 geimporteerd 20221222) +R952XT ??221209 GROEN 55600 F5E32;E11B11;e9*2018/858*11054*01; prijs: 55600 # (20211014 geimporteerd 20221214) +R988VJ ??221129 GRIJS 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # +R999ZB ??221213 ZWART 54705 F5E32;E11B11;e9*2018/858*11054*01; prijs: 54705 # (20210921 geimporteerd 20221216) +S252FP ??221229 GRIJS 58080 F5E32;E11A11;e9*2018/858*11054*01; prijs: 58080 # (20210728 geimporteerd 20221229) +S264BJ ??221223 WIT 58395 F5E32;E11A11;e9*2018/858*11054*01; prijs: 58395 # +S267BJ ??221223 GRIJS 53395 F5E42;E11A11;e9*2018/858*11054*01; prijs: 53395 # +S268BJ ??221223 GRIJS 53395 F5E42;E11A11;e9*2018/858*11054*01; prijs: 53395 # +S296BJ ??221223 BLAUW 58900 F5E62;E11A11;e9*2018/858*11054*04; prijs: 58900 # +S303FP ??221229 ZWART 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # (20221125 geimporteerd 20221229) +S304FP ??221229 ZWART 55595 F5E62;E11A11;e9*2018/858*11054*04; prijs: 55595 # (20221125 geimporteerd 20221229) +S333BJ ??221223 GRIJS 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +S334BJ ??221223 ZWART 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +S335BJ ??221223 ZWART 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +S336BJ ??221223 GRIJS 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +S337BJ ??221223 GROEN 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +S338BJ ??221223 ZWART 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +S339BJ ??221223 GROEN 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +S375FX ??221223 GRIJS 42504 F5E42;E11A11;e9*2018/858*11054*01; prijs: 42504 # (20220127 geimporteerd 20221230) +S485FF ??221222 WIT 58000 F5E14;E11B11;e9*2018/858*11054*01; prijs: 58000 # (20210629 geimporteerd 20221228) +S509FG ??221228 WIT 46404 F5E32;E11A11;e9*2018/858*11054*01; prijs: 46404 # (20220307 geimporteerd 20221228) +S674FS ??221230 GRIJS 60500 F5E32;E11A11;e9*2018/858*11054*01; prijs: 60500 # (20220209 geimporteerd 20221230) +S675FS ??221230 GEEL 42804 F5E42;E11A11;e9*2018/858*11054*01; prijs: 42804 # (20220322 geimporteerd 20221230) +S710BD ??221222 BLAUW 49150 F5E42;E11A11;e9*2018/858*11054*04; prijs: 49150 # +S711BD ??221222 ZWART 59795 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59795 # +S726BD ??221222 GRIJS 56645 F5E62;E11A11;e9*2018/858*11054*04; prijs: 56645 # +S728BD ??221222 GROEN 47895 F5E42;E11A11;e9*2018/858*11054*04; prijs: 47895 # +S729BD ??221222 GRIJS 50295 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50295 # +S730BD ??221222 WIT 50095 F5E62;E11A11;e9*2018/858*11054*04; prijs: 50095 # +S731BD ??221222 GRIJS 59795 F5E62;E11B11;e9*2018/858*11054*04; prijs: 59795 # +S809FG ??221223 ZWART 59600 F5E14;E11B11;e9*2018/858*11054*01; prijs: 59600 # (20211207 geimporteerd 20221228) +S827FG ??221228 BRUIN 78650 F5E14;E11B11;e9*2018/858*11054*01; prijs: 78650 # (20210730 geimporteerd 20221228) +S857BB ??221222 WIT 50199 F5E32;E11A11;e9*2018/858*11054*01; prijs: 50199 # (20211028 geimporteerd 20221222) diff --git a/missing.txt b/missing.txt index 2c4d957..0bdc57f 100644 --- a/missing.txt +++ b/missing.txt @@ -1,93 +1,174 @@ -P234XP -R059RG -R060RG +R016ZJ +R026VH +R039VH +R040VH +R043VH +R049VH +R053VH +R059VH R061RG -R062RG -R063RG -R064RG -R065RF -R066RG -R069RF -R069RG -R071RF -R340KZ -R377HF -R379LF -R467PV -R486RB -R488RB -R489RB -R490RB -R491RB -R492RB -R493RB -R495RB -R496RB -R497RB -R497RN -R498RB -R498RN -R499RB -R500RB -R500RN -R501RB -R501RN -R502RB -R503RB -R503RN -R504RB -R504RN -R505RB -R506RN -R507RN -R508RB -R508RN -R509RN -R510RB -R510RN -R511RB -R511RN -R512RB +R073ZP +R081TR +R081VD +R082VD +R084VD +R087XP +R089VD +R089ZJ +R090ZJ +R091XP +R091ZJ +R092VD +R092ZJ +R093ZJ +R094ZJ +R095ZJ +R096VD +R096ZJ +R097ZJ +R098ZJ +R099VD +R099ZJ +R100VD +R100ZJ +R101VD +R101ZJ +R102VD +R102ZJ +R103ZJ +R104ZJ +R105ZJ +R106ZJ +R107ZJ +R109VD +R109ZJ +R110ZJ +R111ZJ +R112ZJ +R113ZJ +R114ZJ +R115ZJ +R116ZJ +R117ZJ +R118ZJ +R119ZJ +R120ZJ +R121ZJ +R122ZJ +R123ZJ +R124ZJ +R148ZD +R170VS +R171SN +R183ZG +R194ZJ +R195ZJ +R196ZJ +R198ZJ +R200ZJ +R201ZJ +R202ZJ +R240RB +R327VG +R333VG +R407XN +R447ZP +R448ZP +R487ZP +R488ZP +R489ZP +R490ZP +R491ZP +R492ZP +R493ZP +R494ZP +R498ZP +R499ZP +R501ZP +R503ZP +R504ZP +R505ZP +R506ZP +R507ZP +R508ZP +R509ZP +R510ZP +R511ZP R512RN -R513RB -R513RN -R514RB -R514RN -R515RB -R516RB -R517RB -R518RB -R520RB -R521RB -R522RB -R524RB -R525RB -R526RB -R527RB -R528RB -R529RB -R531RB -R532RB -R533RB -R534RB -R536RB -R537RB -R538RB -R539RB -R540RB -R541RB -R553RB -R554RB -R602PR -R603PR -R605PR -R607PR -R612PR -R617PJ -R618PJ -R623PJ +R512ZP +R513ZP +R514ZP +R515ZP +R516ZP +R517ZP +R518ZP +R519ZP +R520ZP +R521ZP +R522ZP +R523ZP +R524ZP +R525ZP +R526ZP +R527ZP +R528ZP +R529ZP +R530ZP +R531ZP +R532ZP +R533ZP +R537ZV +R540VR +R568ZL +R597XZ +R614ZV +R615ZV +R616XZ +R616ZV +R617ZV +R618ZV R624PJ -R626PJ -R627PJ -R877PB -R881PB +R666VZ +R723ZV +R724ZV +R725ZV +R726ZV +R727ZV +R728ZV +R729ZV +R731XF +R752ZH +R781XK +R917ZZ +R952XT +R988VJ +R999ZB +S252FP +S264BJ +S267BJ +S268BJ +S296BJ +S303FP +S304FP +S333BJ +S334BJ +S335BJ +S336BJ +S337BJ +S338BJ +S339BJ +S375FX +S485FF +S509FG +S674FS +S675FS +S710BD +S711BD +S726BD +S728BD +S729BD +S730BD +S731BD +S809FG +S827FG +S857BB diff --git a/rdw.bat b/rdw.bat index b6ab022..06cbef6 100644 --- a/rdw.bat +++ b/rdw.bat @@ -30,6 +30,7 @@ goto endofperl use strict; use JSON qw( decode_json ); # From CPAN use Data::Dumper; +use File::Copy; $| = 1; # no output buffering @@ -469,7 +470,7 @@ sub getVariant($$$$) { print "#opNaam : $opNaam\n"; print "#date : $date\n"; } - if ($date < 20210401 or $date > 20230101) { + if ($date < 20210401 or $date > 20240101) { myDie("Unexpected date: $date for $kenteken $fulltype\n"); } @@ -521,7 +522,7 @@ sub getVariant($$$$) { myDie("ERROR: kleur $kleur fout voor $kenteken: $fulltype"); } - if (($prijs < 42500 or $prijs > 69000) and $prijs != 72300 and $prijs != 37831) { + if (($prijs < 42500 or $prijs > 71000) and $prijs != 72300 and $prijs != 37831 and $prijs != 5242655 and $prijs != 78650) { myDie("ERROR: prijs $prijs fout voor $kenteken: $fulltype"); } print "#prijs : $prijs\n" if $DEBUG; @@ -840,8 +841,8 @@ if (@ARGV == 1) { die("Invalid number of arguments: Usage: rdw [SUMMARY|OVERVIEW]\n"); } -# pricelists of sept 2022, mei 2022, maart 2022, mei 2021 -@PRICELISTS_DATES = ("20220901", "20220501", "20220301", "20210501"); +# pricelists of jan 2023, sept 2022, mei 2022, maart 2022, mei 2021 +@PRICELISTS_DATES = ("20230101", "20220901", "20220501", "20220301", "20210501"); #========== model2022 ============================================================ # model 2022 prijslijst mei 2021 (prijslijst mei 2022 1500 euro duurder) @@ -1052,6 +1053,29 @@ $PRICELISTS{"20220901_58_2023"} = \%pricessept2022_small_battery_2023; $PRICELISTS{"20220901_77"} = \%pricessept2022_big_battery_2023; $PRICELISTS{"20220901_77AWD"} = \%pricessept2022_big_battery_AWD_2023; +# model 2023 prijslijst januari 2023: 1400 euro duurder dan september 2022 +my %pricesjan2023_small_battery_2023; +my %pricesjan2023_big_battery_2023; +my %pricesjan2023_big_battery_AWD_2023; + +fillPrice(\%pricesjan2023_small_battery_2023, 'Style', 47200, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Connect', 51300, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Connect+', 54300, 58, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_small_battery_2023, 'Lounge', 56700, 58, $false, $true, "jan 2023"); + +fillPrice(\%pricesjan2023_big_battery_2023, 'Style', 50800, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Connect', 54900, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Connect+', 57900, 77, $false, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_2023, 'Lounge', 60300, 77, $false, $true, "jan 2023"); + +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Connect', 58900, 77, $true, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Connect+', 61900, 77, $true, $true, "jan 2023"); +fillPrice(\%pricesjan2023_big_battery_AWD_2023, 'Lounge', 64300, 77, $true, $true, "jan 2023"); + +$PRICELISTS{"20230101_58_2023"} = \%pricesjan2023_small_battery_2023; +$PRICELISTS{"20230101_77"} = \%pricesjan2023_big_battery_2023; +$PRICELISTS{"20230101_77AWD"} = \%pricesjan2023_big_battery_AWD_2023; + my $filename="x.kentekens"; my $cmd; if (not $SUMMARY and not $OVERVIEW) { @@ -1200,6 +1224,7 @@ foreach my $k (@sortedKentekens) { my $kenteken = ${$hash}{'kenteken'}; if (length($kenteken) != 6) { + move($filename, "$filename.fout"); die("Kenteken lengte fout: [$filename],[$kenteken]\n"); } my $date = ${$hash}{'datum_eerste_afgifte_nederland'}; @@ -1245,7 +1270,7 @@ foreach my $k (@sortedKentekens) { if ($prijs eq '' and $kenteken ne 'R296FL') { die("Prijs leeg: [$filename],[$prijs]\n"); } - if (length($prijs) != 5 and $kenteken ne 'N770TS' and $kenteken ne 'R296FL') { + if (length($prijs) != 5 and $kenteken ne 'N770TS' and $kenteken ne 'R296FL' and $kenteken ne 'R303XF') { die("Prijs verkeerd: [$filename],[$prijs]\n"); } @@ -1273,6 +1298,11 @@ foreach my $k (@sortedKentekens) { $uitvoering = 'E11B11'; $typegoedkeuring = 'e9*2018/858*11054*01'; $prijs = 55600; + } elsif ($kenteken eq 'R303XF') { # geen Lounge maar Techniq uitvoering + $variant = 'F5E42'; + $uitvoering = 'E11A11'; + $typegoedkeuring = 'e9*2018/858*11054*01'; + $prijs = 52426; } if ($variant eq '') { @@ -1642,8 +1672,8 @@ my $pMODEL2022 = $MODEL2022 / $count * 100; my $pMODEL2022_5 = $MODEL2022_5 / $count * 100; my $pMODEL2023 = $MODEL2023 / $count * 100; printf("%4.1f %% model 2022 ($MODEL2022 maal)\n", $pMODEL2022); -printf("%4.1f %% model 2022.5 ($MODEL2022_5 maal)\n", $pMODEL2022_5); printf("%4.1f %% model 2023 ($MODEL2023 maal)\n", $pMODEL2023); +printf("%4.1f %% model 2022.5 ($MODEL2022_5 maal)\n", $pMODEL2022_5); print "\n"; if ($OVERVIEW or $SUMMARY) { @@ -1667,11 +1697,19 @@ if ($OVERVIEW or $SUMMARY) { $HREF{"augustus 2022"} = 'https://gathering.tweakers.net/forum/list_message/72624024#72624024'; $HREF{"september 2022"} = 'https://gathering.tweakers.net/forum/list_message/72989402#72989402'; $HREF{"oktober 2022"} = 'https://gathering.tweakers.net/forum/list_message/73324494#73324494'; + $HREF{"november 2022"} = 'https://gathering.tweakers.net/forum/list_message/73660348#73660348'; + $HREF{"december 2022"} = 'https://gathering.tweakers.net/forum/list_message/73984554#73984554'; + my %YEARS; foreach my $key (sort keys %DATES) { my $count = $DATES{$key}; my $countstring = sprintf("%3d", $count); my $jaar = substr($key, 0, 4); + if (exists $YEARS{$jaar}) { + $YEARS{$jaar} = $count + $YEARS{$jaar}; + } else { + $YEARS{$jaar} = $count + } my $maand = substr($key, 4, 2); my $maandjaarstring = $MONTHS{$maand} . " $jaar"; if (exists $HREF{$maandjaarstring}) { @@ -1681,6 +1719,11 @@ if ($OVERVIEW or $SUMMARY) { } } print "\n"; + foreach my $key (sort keys %YEARS) { + my $count = $YEARS{$key}; + print "$count op naam gezet in $key\n"; + } + print "\n"; print "Statistieken van totaal $count maal IONIQ 5:\n"; @@ -1698,8 +1741,8 @@ if ($OVERVIEW or $SUMMARY) { my $pSTYLE = $STYLE / $count * 100; printf("%4.1f %% warmtepomp (standaard vanaf Connect+, $WP maal)\n", $pWP); - printf("%4.1f %% vehicle to load (standaard vanaf Connect, $V2L maal)\n", $pV2L); printf("%4.1f %% grote batterij ($LONGRANGEBATTERY maal)\n", $pLONGRANGEBATTERY); + printf("%4.1f %% vehicle to load (standaard vanaf Connect, $V2L maal)\n", $pV2L); printf("%4.1f %% achterwielaandrijving ($RWD maal)\n", $pRWD); printf("%4.1f %% panoramadak ($PANORAMADAK maal)\n", $pPANORAMADAK); printf("%4.1f %% zonnepanelendak (alleen op PROJECT45, $SOLARDAK maal)\n", $pSOLARDAK); @@ -1763,8 +1806,8 @@ if ($OVERVIEW or $SUMMARY) { printf("%4.1f %% Mica Parelmoer kleur ($COLORMICAPEARL maal)\n", $pCOLORMICAPEARL); printf("%4.1f %% Mat kleur ($COLORMATTE maal)\n", $pCOLORMATTE); printf("%4.1f %% Metallic kleur ($COLORMETALLIC maal)\n", $pCOLORMETALLIC); - printf("%4.1f %% Solid kleur ($COLORSOLID maal)\n", $pCOLORSOLID); printf("%4.1f %% Mica Kleur ($COLORMICA maal)\n", $pCOLORMICA); + printf("%4.1f %% Solid kleur ($COLORSOLID maal)\n", $pCOLORSOLID); print "[/code]\n\n"; diff --git a/rdwfinder.bat b/rdwfinder.bat index b0593e1..ab93e60 100644 --- a/rdwfinder.bat +++ b/rdwfinder.bat @@ -28,6 +28,7 @@ goto endofperl #=============================================================================== #use diagnostics; use strict; +use POSIX qw/strftime/; use JSON qw( decode_json ); # From CPAN use Data::Dumper; @@ -122,6 +123,9 @@ my @results; my $current = $from; my $count = 0; my $start_time = time(); +my $BEGIN_TIME = time(); +print strftime('%Y-%m-%d %H:%M:%S',localtime); +print "\n"; while ($current <= $to and $current <= 1000 and $current >= 0) { my $currentNumber = sprintf("%03s", $current); my $kenteken = "$BEGINLETTER$currentNumber" . "$LETTERS"; @@ -185,5 +189,9 @@ foreach (sort @results) { print "$_\n"; } print "Totaal aantal IONIQ5: $count\n"; +print strftime('%Y-%m-%d %H:%M:%S',localtime); +my $END_TIME = time(); +my $ELAPSED_TIME = $END_TIME - $BEGIN_TIME; +print " Elapsed: [$ELAPSED_TIME]\n"; __END__ :endofperl