Browse Source

- minor improvement

master
Andreas Romeyke 3 months ago
parent
commit
afea1e5c02
  1. 2
      bin/cfi_learn_model.pl

2
bin/cfi_learn_model.pl

@ -15,7 +15,7 @@ my $header_line = <$fh>;
#chomp $header_line;
#my @header = split(/,/, $header_line);
my @header = qw(onegram1 onegram2 onegram3 onegram4 onegram5 onegram6 onegram7 onegram8 bigram1 bigram2 bigram3 bigram4 bigram5 bigram6 bigram7 bigram8 mimetype);
foreach my $line (<$fh>) {
while (my $line = <$fh>) {
chomp $line;
if ($line =~ m/^onegram/) { next;}
my @values = split(/, */, $line);

Loading…
Cancel
Save