Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

$str =~ s/(^\x00-\x7F)/$table{'$1'} || '?'/ge;

Are you planning to write a line like that for each of your accented letters? But then, what is the point of the %table hash? You might as well hard code everything (this is not what I am recommending).

Depending on how your file is really encoded, the tr/// function might be much easier to use and probably faster. Something like this (to be completed):

$str =~ tr//aaaceeee/;

There are a number of cases where this simple tr/// function works well. If not, well, then the Unicode modules described by others.

There is a last point, though, which I can see as a problem, and which is in fact the main reason why I am posting here. "Unaccenting" letters may be less trivial than you may think. In French, all letters with an accent can be "unaccented" by just taking the same letter without the accent, this is the common way of doing things that when accents are not available. But in German, is usually rendered by ae, by oe and by ue. Similarly, I would tend to believe that the Scandinavian or other languages which have an '' probably don't translate it into an 'a'. This is just a warning that, depending on what exactly you are trying to do, your contemplated solution might be a bit simplistic.

Update: crossed out the first paragraph following choroba's comment. I had misread the regex.

In reply to Re: Unaccenting characters by Laurent_R
in thread Unaccenting characters by mwhiting

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    [1nickt]: It's a framework that allows you to specify the Transport agent to whatever you want. You could even write your own.
    [1nickt]: Perl300 More doc
    [hippo]: In that case, use Net::SMTPS and also encrypt your content before you send it eg. with Crypt::GPG

    How do I use this? | Other CB clients
    Other Users?
    Others meditating upon the Monastery: (8)
    As of 2017-10-17 16:09 GMT
    Find Nodes?
      Voting Booth?
      My fridge is mostly full of:

      Results (234 votes). Check out past polls.