in reply to extended ascii regex
Seems to work ok for me?
$s = do{ $£ .= chr for 0..255; $£ }; print $s; ☺☻♥♦ ♫☼►◄↕‼¶§▬↨↠+‘↓→â†âˆŸâ†”▲▼ !"#$%&'()*+,-. +/0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~⌂ Çüéâäà åçêëèïîìÄÅà +æ ÆôöòûùÿÖÜ¢£¥₧ƒáà +óúñѪº¿âŒÂ¬Â½Â¼Â¡Â«Â»â–‘ ▒▓│┤╡╢╖╕╣â +•‘â•—â•â•œï¿½â€ºâ”└┴┠+├─┼╞╟╚╔╩╦â + â•â•¬â•§â•¨â•¤â•¥â•™â•˜â•’ +╓╫╪┘┌█▄▌â–â +€ αßΓπΣσµτΦΘΩδ∞φε∠+©â‰¡Â±â‰¥â‰¤âŒ ⌡÷≈°∙·∠+šâ¿Â²â–  $s =~ s/[^0-9a-z\x80-\xA5_:,!\?\.\* -]//ig; print $s; !*,-.0123456789:?ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxy +z Çüéâäà åçêëèïîìÄÅà +æÆôöòûùÿÖÜ¢£¥₧ƒ +¡ÃóúñÑ
That said, tr///cd is probably a better way to do this.
$s =~ tr/[0-9a-z\x80-\xA5_:,!\?\.\* -]//cd;
Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.
|
|---|