[Moscow.pm] (без темы)

[Nikolay Mishin]

Спасибо Денис, еще чуть чуть поменяем , 

use 5.8.4;
use strict;
use warnings;
use Test::More;
my ( $start, $end, $sysid, $ver, $tradetype );
( $start, $end ) = ( 1, 10 );
my $test = make_string( $start, $end, $sysid, $ver, $tradetype );
is( $test, "1,10,,,\n", "make index string" );
is( make_string( 0, 0, 0, 0, 0, ), "0,0,0,0,0\n", "test number" );

sub make_string {
    my @input      = @_;
    my @input_init = map { !defined($_) ? '' : $_ } @input;
    my $rezult     = join q{,}, @input_init;
    return $rezult . "\n";
}


16.11.2011, 20:56, "Denis Evdokimov" <evdokimov.denis на gmail.com>:
> make_string(0, 0, 0, 0, 0, )
>
> 16 ноября 2011 г. 20:53 пользователь Nikolay Mishin <mi на ya.ru> написал:
>> все решилось, написанием такого кода
>>
>> use 5.8.4;
>> use strict;
>> use warnings;
>> my ( $start, $end, $sysid, $ver, $tradetype );
>> ( $start, $end ) = ( 1, 10 );
>> my $test = make_string( $start, $end, $sysid, $ver, $tradetype );
>> print $test;
>>
>> sub make_string {
>>    my @input      = @_;
>>    my @input_init = map { $_ || '' } @input;
>>    my $rezult     = join q{,}, @input_init;
>>    return $rezult . "\n";
>> }
>>
>> 16.11.2011, 20:16, "Nikolay Mishin" <mi на ya.ru>:
>>> да, но все равно проблема у меня в том, что в perl v5.8.4
>>> $perl -e 'use warnings;my ($a,$b);$c=$a.$b;print $c'
>>> Use of uninitialized value in concatenation (.) or string at -e line 1.
>>> Use of uninitialized value in concatenation (.) or string at -e line 1.
>>>
>>> 16.11.2011, 20:03, "Alexandr Gomoliako" <zzz на zzz.org.ua>:
>>>
>>>>  On Wed, Nov 16, 2011 at 5:39 PM, Nikolay Mishin <mi на ya.ru> wrote:
>>>>>    $EMPTY = q{};
>>>>>    $message = $EMPTY;      #best
>>>>  И вот это perlcritic приводит к такому корявому коду? :)
>>>>
>>>>  --
>>>>  Moscow.pm mailing list
>>>>  moscow-pm на pm.org | http://moscow.pm.org
>>>
>>> --
>>> Nikolay Mishin
>>
>> --
>> Nikolay Mishin
>> --
>> Moscow.pm mailing list
>> moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Nikolay Mishin