perl problems: problem one

The final entry that qualified is as follows:

#!/usr/local/bin/perl

$inputfile='perl_problem_file';
$outputfile='perl_solution_one';

open (FILE, "$inputfile") || die "Can't open file!\n";
@records = <FILE>;
close (FILE);

open (APPENDFILE, ">>$outputfile");

foreach $line (@records) {

chop ($line);
print APPENDFILE "$line | ";

$line =~ s/ //g;
$line =~ s/-//g;

if ($line =~ /[a-zA-Z]{1}\d{10}/) {

while ($line !~ /^[a-zA-Z]{1}\d{10}/) {
$line =~ s/.{1}//;
}

@array=split(//,$line);
print APPENDFILE @array[0].@array[1].@array[2].@array[3].@array[4]."-".@array[5].@array[6].@array[7]." ".@array[8].@array[9].@array[10]."\n";

} else {

print APPENDFILE "N/A\n";

}

}

close (APPENDFILE);

print "perl problem one solved\n";

I received my prize this morning. Thanks again.

You are correct. The samples all happened to have the part at the beginning, I spent to much time on the legalese and made that mistake with the filenames and not varying the data enough.
Assuming one valid part in a description is acceptable. Reply here when you get the gift certificate.

Fixed.

Your sample set implied that the string would always be at the beginning. If you don't make that assumption you run into possible conflicts. Take this possible line as an example:

QXJ9476467063Q9476467066

Do you assume the first matching substring is the part number? Or the last?

My code now assumes the first.

Note this code will not work completely with the following sample:
J9476-467 063 SEAL D=18X3
Q9476-467 066 SEAL D=65X2.5
H9476-467 170 SEAL D-35X2.5
O9476-703 891 SEAL D=45
TAPPET,CLEANING ROD, #8867860
SEAL,FOR 8867864 866 868 870
T7048-031-801NOZZLE
NOZZLE,WVO 2.0 MM,FOR #8867860
T7048-031-802 4.0MM WVO NOZ
T9515-006-803NOZZLE,WVO,2.2MM
E9515014013PINTLE,2.2MM
C9515 006 801NOZZLE,WVO,4.0MM
V9515 014 011PINTLE,4.0MM
D9709-008 185 SEAL
6T6277-220 003 SEAL, COP
9S0328-041 021 SPACER
1R6587-020 008 ROD

It fails to pull out:
T6277-220 003
S0328-041 021
R6587-020 008

Returning N/A instead for these lines which according to the definition of the part number:
"part is defined as a string starting with an alpha character and ten subsequent numbers. May contain spaces or dashes [...]"
Should be recognized as valid.

You can correct your entry if you wish.

That should read:

http://www.pjdoland.com/revolution/perl-one.pl.txt

Good eye.

Correction made to my file, and posted in it's completed state at

http://www.pjdoland.com/revolution/perl-one.pl.txt:

Nice work PJ, but the output line should have been

print APPENDFILE @array[0].@array[1].@array[2].@array[3].@array[4]."-".@array[5].@array[6].@array[7]." ".@array[8].@array[9].@array[10]."\n";

for the correct output as per the instructions.

-KHD

Correction, I used both naming conventions while describing this problem. perl_problem_one and perl_problem_file were both valid input filenames. oops. :)

One gotcha. PJ looks for perl_problem_file in his code. I specified perl_problem_one. Based on the results when I changed the dataset it appears robust enough to qualify. Good work. Look for a new problem in January.

I actually can't find your email address on your site, so I just posted the file here:

http://www.pjdoland.com/revolution/perl-one.pl.txt

Thanks for the comment PJ. I will check my email tonight.

The comments system butchered my code, as the less than and greater than signs didn't render right.

I'm emailing you the code.

#!/usr/local/bin/perl

$inputfile='perl_problem_file';
$outputfile='perl_solution_one';

open (FILE, "$inputfile") || die "Can't open file!\n";
@records = ;
close (FILE);

open (APPENDFILE, ">>$outputfile");

foreach $line (@records) {
chop ($line);
print APPENDFILE "$line | ";

$line =~ s/ //g;
$line =~ s/-//g;

if ($line =~ /^[a-zA-Z]{1}\d{10}/) {
@array=split(//,$line);
print APPENDFILE @array[0].@array[1].@array[2].@array[3]."-".@array[4].@array[5].@array[6]." ".@array[7].@array[8].@array[9]."\n";
} else {
print APPENDFILE "N/A\n";
}

}

close (APPENDFILE);

print "perl problem one solved\n";