The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Quiq::Concat - Konkateniere Zeichenketten

BASE CLASS

Quiq::Object

METHODS

Klassenmethoden

catIf() - Konkateniere bei erfüllter Bedingung

Synopsis

    $str = $class->catIf($bool,sub {$expr,...});

Arguments

$bool

Bedingung

sub {$expr,...}

Ausdrücke, deren Resultat konkateniert wird.

Returns

String

Description

Ist Bedingung $bool falsch, liefere einen Leerstring. Andernfalls konkateniere die Werte der Ausdrücke $expr, ... und liefere das Resultat zurück. Evaluiert ein Ausdruck $expr zu undef, wird der Wert durch einen Leerstring ersetzt.

Die Methode ist logisch äquivalent zu

    $str = !$bool? '': join '',$expr // '', ...;

Sie vermeidet jedoch, dass $expr // '', ... berechnet werden muss, wenn $bool falsch ist.

Example

Konkatenation bei zutreffender Bedingung

    Quiq::Concat->catIf(1,sub {
        'Dies',
        'ist',
        'ein',
        undef,
        'Test',
    });
    # 'DiesisteinTest'

VERSION

1.153

AUTHOR

Frank Seitz, http://fseitz.de/

COPYRIGHT

Copyright (C) 2019 Frank Seitz

LICENSE

This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.