Re: Find pieces of text in a file enclosed by `@` and replace the inside

in reply to Find pieces of text in a file enclosed by `@` and replace the inside

Rather than using all those substitutions, you can do a single transliteration. Here's a commandline example:

$ perl -Mstrict -Mwarnings -Mutf8 -e '
    binmode STDOUT => ":utf8";
    while (<>) {
        s/@([^@]+)@/$_ = $1; y{abcABC}{абцАБЦ}; $_/eg;
        print;
    }
'
@abc@ abc @ABC@
абц abc АБЦ
cba @cba CBA@
cba цба ЦБА

-- Ken

Comment on Re: Find pieces of text in a file enclosed by `@` and replace the inside

Replies are listed 'Best First'.
Re^2: Find pieces of text in a file enclosed by `@` and replace the inside by kluther (Novice) on Mar 08, 2013 at 14:43 UTC
Hi Ken, I on a sco-6 machine and that machine doens't have coding for cyrillic.	[reply]
Re^3: Find pieces of text in a file enclosed by `@` and replace the inside by kcott (Archbishop) on Mar 08, 2013 at 19:50 UTC
That would have been useful information to have provided upfront. Perhaps you'd care to update your initial post with this limitation. You can still do the transliteration - this code produces the same output as my previous solution: `$ perl -Mstrict -Mwarnings -e ' binmode STDOUT => ":utf8"; my $subs = join q{} => map chr, 0x430, 0x431, 0x446, 0x410, 0x411, + 0x426; while (<>) { s/@([^@]+)@/"\$_ = \$1; y{abcABC}{$subs}; \$_"/eeg; print; } '` [download] -- Ken	[reply] [d/l]
Re^4: Find pieces of text in a file enclosed by `@` and replace the inside by Anonymous Monk on Mar 11, 2013 at 10:01 UTC
Hi Ken, tested your code, but got an error on the second word surrounded by '@'. Error: panic: sv_pos_b2u: bad byte offset at .....etc.	[reply]
Re^5: Find pieces of text in a file enclosed by `@` and replace the inside by kcott (Archbishop) on Mar 11, 2013 at 15:57 UTC
Re^6: Find pieces of text in a file enclosed by `@` and replace the inside by kluther (Novice) on Mar 29, 2013 at 05:20 UTC

In Section Seekers of Perl Wisdom