@@ -, +, @@ barcode file --- tools/inventory.pl | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) --- a/tools/inventory.pl +++ a/tools/inventory.pl @@ -154,10 +154,7 @@ if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { my $lines_read=0; binmode($uploadbarcodes, ":encoding(UTF-8)"); while (my $barcode=<$uploadbarcodes>) { - $barcode =~ s/\r/\n/g; - $barcode =~ s/\n\n/\n/g; - my @data = split(/\n/,$barcode); - push @uploadedbarcodes, @data; + push @uploadedbarcodes, grep { /\S/ } split( /\n|\r|[,;|]/, $barcode ); } for my $barcode (@uploadedbarcodes) { next unless $barcode; --