<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Greetings,<div>Writing a module Workrequest::Utilities with subroutine</div><div><div>##### code snippet ######</div><div>sub sample_range_fix {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $params_ref = shift;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $samples;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $filename = $params_ref->{filename};</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $start = $params_ref->{start};</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $count = $params_ref->{count};</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $prefix = $params_ref->{prefix};</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $last = $start + $count -1;</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>for my $c ($start .. $last -1) { </div><div><span class="Apple-tab-span" style="white-space:pre"> </span>if ( $c < 10 ) {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $number = "0$c";</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$samples .= "${prefix}_$number, ";</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} else {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>my $number = "$c";</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$samples .= "${prefix}_$number, ";</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$c++;</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span># add last sample w/o a comma</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>if ( $count < 10 ) {</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$samples .= "${prefix}_0$last";</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>} else {<span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>$samples .= "${prefix}_$last";</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>}</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>return $samples<span class="Apple-tab-span" style="white-space:pre"> </span></div><div>}</div><div>##### end code snippet ######</div><div><br></div><div>I get the strict ref error when I call this method with:</div><div>##### code snippet ######</div><div><div>my %params = (</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>filename<span class="Apple-tab-span" style="white-space:pre"> </span>=> $filename,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>start<span class="Apple-tab-span" style="white-space:pre"> </span>=> $start,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>count<span class="Apple-tab-span" style="white-space:pre"> </span>=> $count,</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>prefix<span class="Apple-tab-span" style="white-space:pre"> </span>=> $prefix</div><div>);</div><div>my $samples = Workrequest::Utilities->sample_range_fix( %params );</div></div><div>##### end code snippet ######</div><div><br></div><div>I can't see what's wrong with it. Can you?</div><div><br></div><div>thanks for your help,</div></div><div apple-content-edited="true">
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Optima; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; ">Tom<br><a href="http://www.ohsu.edu/xd/research/research-cores/dna-analysis/">MMI DNA Services Core Facility</a><br>503-494-2442<br>kellert at <a href="http://ohsu.edu">ohsu.edu</a><br>Office: 6588 RJH (CROET/BasicScience)<br><br><a href="http://www.ohsu.edu/xd/research/research-cores/index.cfm">OHSU Shared Resources</a><br><br><br><br><br><br></span>
</div>
<br></body></html>