Dotaz: [PERL] práce s řetězcem, doplněk řetězce

[Tomasko]

[PERL] Ahoj. Potřebuju poradit zda nevíte o nějaké funkci, či nápadu jak by se dal řešit tenhle problém: mam retezec: $retezec1 = "jake bylo"; udělám s ním nějakou operaci a uložím(to problém není): $retezec2 = "Ahoj jake to bylo";

vezmu retezec1 upravím, uložím k vyslednemu: $vysledny = "Ahoj jake to bylo krasne";

Proste mi jde o to udělat jakoby doplněk do řetězce s tím, že budu upravovat vždy první řetězec(retezec1) a chci aby se mi změny sčítaly do výsledného řetězce.

Odpovědi

[wamba]

$vysledny =~ s/$retezec1/$retezec2/ nestačí

[Tomasko]

a ted vezmu: $retezec1 = "jake bylo"; udělám s ním operaci ze které výjde: $retezec2 = "Blabla, jake bylo" a potřebuju to sjednotit s $vyslednym: ve kterem bylo:$vysledny = "Ahoj jake to bylo krasne"; z minulé operace a teď tam bude $vysledny = "Ahoj Blabla jake to bylo krasne";

[wamba]

však povídám

use 5.010;
use strict;

my $retezec1 = 'jake to';
my $vysledny = $retezec1;
my @retezce2 = ( 
    'Ahoj jake to bylo krasne', 
    'blabla, jake to', 
    'jake to by byvalo',
);

say $vysledny;

for my $retezec2 (@retezce2) {
    $vysledny =~ s/$retezec1/$retezec2/;
    say $vysledny;
};

[Tomasko]

OK, a co když:

my @retezce2 = (
    'Ahoj jake to bylo krasne',
    'blabla, jake T to',
    'jake to by byvalo',
);

něco se vyskytne mezi "jake to" např. 'T' jako jsem to uvedl. Tak to fungovat nebude. Není to sloučení řetězců. Bych potřeboval, aby byl nějaký výchozí řetězec a z něho udělám třeba 10různých řetězců, kde bude něco navíc. Pak z těch 10ti řetězců udělám jeden, který bude obsahovat všechno co přibylo v těch 10ti.

[luky]

man perltie

[Tomasko]

nedělám s objektama a ještě přes google translate tomu moc nerozumím

[luky]

Tak si najdete priklady na pouziti funkce tie, tou muzete dosahnou toho, ze pri nastaveni jedne promenne modifikujete jinou.