Dotaz: [Perl]-reg. výraz, ignorace znaků

[Tomasko]

Ahojte. Snažím se o: mám proměnou $text="Ahoj ja jsem text." potřebuji zpracovat reg. výraz s/($text)/.../g; s tím, že chci ignorovat slovo "ja", které je v proměnné $text

Jak zapíšu tento reg. výraz s ignorací slova "ja" v proměnné $text?

Zkouším, zatím se nedaří. Děkuju

Odpovědi

[l4m4]

Chceš

(a) odstranit z řetězce "Ahoj ja jsem text." část "ja" a zbytek použít coby regulární výraz, nebo

(b) zkonstruovat regulární výraz, kterému vyvohuje text Ahoj ja jsem text. s tím, že namísto ja tam může být cokoli

?

[Tomasko]

snažím se o možnost b) mam otevrenou dobrou stranku na reg. vyrazy https://akela.mendelu.cz/~darena/Perl/regexp.html , ale zatím jsem to nevyřešil

[l4m4]

V tom případě dáš v místě ja regulární výraz odpovídající tomu, co všechno tam může být. Třeba:

V místě ja může být libovolné množství textu:

s/Ahoj .* jsem text\./.../

nebo v místě ja může být jedno slovo

s/Ahoj \S+ jsem text\./.../

a pod.

[Tomasko]

Tohle umím taky, ale já mám regulární výraz v proměnné $text. Pak s/($text)/.../g a potřebuji aby mi to např. to slovo "je" v regulárním výrazu ignorovalo.

[wamba]

stále nejde pochopit co vlastně chcete (alespoň pro mě).

Ukažte příklad vstupu a jak by měl vypadat výstup, popř. váš kód a řekněte přesně kde je problém?

[Goheeca]

On má na mysli něco na způsob:

echo "ahoj lidi" | sed -e "s/`echo "lydi" | sed -e "s/y/i/g"`/opice/g"

@Tomasko Takže si přečti něco o vnořenýh příkazech.

// Jakékoliv připomínky jsou vítany, jelikož bash téměř nepoužívám a tohle jsem momentálně vyzkoušel dokonce v cygwinu.

[kolcon]

co mas teda v te promenne $text ?
"Ahoj ja jsem text" nebo
"ja" ?

[Tomasko]

Vyjadřuji se dost nejasně. Uvedu příklad: Mám dvě proměnné v jedné mám text ve druhé reg. výraz viz:

$text = "Dobry den damy a panove dneska je krasny pekny den.";

$reg_vyraz = "damy panove"; #je to jen pro priklad, muze tam byt napr. [abc] nebo jakykoliv jiny reg. vyraz to je ted fuk

$text =~ s/($reg_vyraz)/panove i damy/g;

Jenomže tenhle reg. vyraz mi fungovat nebude(ani nemůže). Potřebuji do reg. výrazu nadefinovat aby:[ ][a] ignoroval. Tím pádem by reg. výraz zabral na "damy a panove", protože [ ][a] ignoruje. Zbyde "damy panove" a to uz dokaze vzit a nahradit cim potrebuji.

Výsledek: print "$text \n"; vypíše tohle: Dobry den panove i damy dneska je krasny pekny den.

ps. nejedna se o bash, ale o PERL

[kolcon]

co treba takto nejak:

use strict;
use warnings;
use 5.012;

my $text = 'Dobry den damy a panove dneska je krasny pekny den.';
my $regex = 'damy a panove';
my $new_text = 'panove a damy ';

my $built_regex;

for (split / /, $regex) {
$built_regex.= $_.' [\sa]* ' unless ($_ ~~ /\s+/msxi) or ($_ ~~ /^a$/msxi);
}

$text =~ s/$built_regex/$new_text/msxi;
say $text;

[kolcon]

pripadne variace na toto tema s upravou zravosti

use strict;
use warnings;
use 5.012;

my $text = 'Dobry den damy a panove dneska je krasny pekny den.';
my $regex = 'damy a panove';
my $new_text = 'panove a damy';

my $built_regex;

for (split / /, $regex) {
$built_regex.= $_.' [\sa]*? ' unless ($_ ~~ /\s+/gmsxi) or ($_ ~~ /^a$/gmsxi);
}

$text =~ s/$built_regex/$new_text/msxi;
say $text;

[l4m4]

To je řešitelné, ale musí se specifikovat, co může být v místě nic/a. Například, zda se má nahradit dámy ... pánové i v textu

Dobrý den dámy. Jistě se divíte, proč tu nejsou žádní pánové.

nebo jak. To jsi nikdy přesně nenapsal, ale na tom závisí, co do toho regulárního výrazu máš vložit.

Pokud má pouze umožňovat spojku a v místě mezery, tak stačí udělat

$reg_vyraz =~ s/ /( | a )/g;

Má-li možňovat něco jiného, tak se musí upravit podle toho.

[wamba]

takže chcete něco takového?

use 5.010;

my $text = "Dobry den damy a panove dneska je krasny pekny den.";
my $tohle_se_ma_ignorovat=qr{\s+a\s+|\s+};
my $reg_vyraz = qr(\bdamy${tohle_se_ma_ignorovat}panove\b);

$text =~ s/$reg_vyraz/panove i damy/g;

say $text;