We get the quantity of a product shipped from the database, and a list of individual carton labels from an external file. The actual contents of each carton are unknown. Working assumption would be qty per carton = shipped qty / carton count. Easy enough. But what if the division doesn't come out clean?
use POSIX qw/ceil/;
...
$sq = $shipped_quantity;
$cc = $carton_count;
foreach $label(@label_list) {
if ($cc == 0) {
print "Qty per carton math error";
next OUTER;
}
$per_container = ceil($sq/$cc);
$sq -= $per_container;
$cc -= 1;
...
}
If shipped quantity is 8 and carton count is 5, first 3 cartons will have 2 each, last 2 have 1.
Yeah, almost too simple to mention. But this came up today, and I remember little code bits like this better when I write them down somewhere.
Update: s/box/carton/
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|