make_string(0, 0, 0, 0, 0, )<br><br><div class="gmail_quote">16 ноября 2011 г. 20:53 пользователь Nikolay Mishin <span dir="ltr"><<a href="mailto:mi@ya.ru">mi@ya.ru</a>></span> написал:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
все решилось, написанием такого кода<br>
<br>
use 5.8.4;<br>
use strict;<br>
use warnings;<br>
my ( $start, $end, $sysid, $ver, $tradetype );<br>
( $start, $end ) = ( 1, 10 );<br>
my $test = make_string( $start, $end, $sysid, $ver, $tradetype );<br>
print $test;<br>
<br>
sub make_string {<br>
    my @input      = @_;<br>
    my @input_init = map { $_ || '' } @input;<br>
    my $rezult     = join q{,}, @input_init;<br>
    return $rezult . "\n";<br>
}<br>
<br>
<br>
16.11.2011, 20:16, "Nikolay Mishin" <<a href="mailto:mi@ya.ru">mi@ya.ru</a>>:<br>
<div class="HOEnZb"><div class="h5">> да, но все равно проблема у меня в том, что в perl v5.8.4<br>
> $perl -e 'use warnings;my ($a,$b);$c=$a.$b;print $c'<br>
> Use of uninitialized value in concatenation (.) or string at -e line 1.<br>
> Use of uninitialized value in concatenation (.) or string at -e line 1.<br>
><br>
> 16.11.2011, 20:03, "Alexandr Gomoliako" <<a href="mailto:zzz@zzz.org.ua">zzz@zzz.org.ua</a>>:<br>
><br>
>>  On Wed, Nov 16, 2011 at 5:39 PM, Nikolay Mishin <<a href="mailto:mi@ya.ru">mi@ya.ru</a>> wrote:<br>
>>>    $EMPTY = q{};<br>
>>>    $message = $EMPTY;      #best<br>
>>  И вот это perlcritic приводит к такому корявому коду? :)<br>
>><br>
>>  --<br>
>>  Moscow.pm mailing list<br>
>>  <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
><br>
> --<br>
> Nikolay Mishin<br>
<br>
--<br>
Nikolay Mishin<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br>