25 lines
391 B
Raku
Executable file
25 lines
391 B
Raku
Executable file
#!/usr/bin/perl
|
|
|
|
my %skus;
|
|
if (open my $sku,'<','fasttech.skus.txt')
|
|
{
|
|
while (<$sku>)
|
|
{
|
|
chop;
|
|
my ($sku,$description) = split /,/,$_,2;
|
|
$skus{$sku} = $description;
|
|
}
|
|
close $sku;
|
|
}
|
|
|
|
while (<>)
|
|
{
|
|
chop;
|
|
if (/^(\d+)\s+(\d+)$/)
|
|
{
|
|
my ($sku,$qty) = ($1,$2);
|
|
my $d = $skus{$sku}; $d='' if (!defined $d);
|
|
printf("%5d %s %s\n",$qty,$sku,$d);
|
|
}
|
|
}
|