Jack Daniels (Butch) <[EMAIL PROTECTED]> wrote:
> Have spent the last couple hours searching Internet, reading
> my perl books, but I just can't figure it out.
>
> Problem:
> Our barcodes are 14 digits, however not all employees have a
> scanner when associating the barcode with an item.
> Barco
So what your are looking for is something to read the file:
open (IN, " ) {
# Clean it up a little bit
chomp;
# lets just keep the digits
$_ =~ s/\D*//g; # Replace anything that is not a digit with nothing
# Print anything that is not 14 characters in length
if ( length($_) <> 14 ) { print $_ . "
Have spent the last couple hours searching Internet, reading my perl books,
but I just can't figure it out.
Problem:
Our barcodes are 14 digits, however not all employees have a scanner when
associating the barcode with an item.
Barcodes are then manually entered and are not always entered correct
