X-Git-Url: http://git.ieval.ro/?p=convert-color-husl.git;a=blobdiff_plain;f=snapshot-to-csv;h=b434939da0b61ee52662c170d99b7afb8d2b7f12;hp=ff532ffe28c6c4ef4045789ba9ed90bed204ca01;hb=HEAD;hpb=3d128ec5a01fb9c71fc148e246e606e82de92576

diff --git a/snapshot-to-csv b/snapshot-to-csv
index ff532ff..b434939 100755
--- a/snapshot-to-csv
+++ b/snapshot-to-csv
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
-use v5.14;
+use 5.014000;
+use strict;
 use warnings;
 
 use File::Slurp;
@@ -13,6 +14,7 @@ my @colors = qw/xyz luv lch husl huslp/;
 
 say join ',', qw/rgb8 xyz_x xyz_y xyz_z luv_l luv_u luv_v lch_l lch_c lch_h husl_h husl_s husl_l huslp_h husl_s husl_l/;
 for my $rgb8 (sort keys %tests) {
+	next if $rgb8 =~ m/[13579bde]/i;
 	my @cols = map { @{$tests{$rgb8}{$_}} } @colors;
 	say join ',', substr($rgb8, 1), map { sprintf '%.4f', $_ } @cols;
 }