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

[Nikolay Mishin]

а, еще лучше все это превратить в тест
cat 18_test_undef.t
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" );

sub make_string {
    my @input      = @_;
    my @input_init = map { $_ || '' } @input;
    my $rezult     = join q{,}, @input_init;
    return $rezult . "\n";
}


16.11.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

--
Nikolay Mishin