Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Trouble with Transliterate Function

by jwkrahn (Monsignor)
on Aug 29, 2013 at 09:31 UTC ( #1051392=note: print w/ replies, xml ) Need Help??

in reply to Trouble with Transliterate Function

my $mask_input = <INPUT>; ... my $lastEnd = 1; while ( <INTERVAL> ) { my (undef, $start, $end) = split '\s', $_; ## change everything from the end of the last range ## to the start of this range to 'N' substr( $mask_input, $lastEnd, $start ) =~ tr[\x00-\xff][N]; $lastEnd = $end; } ... print OUT "$mask_input";

Another way to do that:

chomp( my $mask_input = <INPUT> ); my $new_mask = 'N' x length $mask_input; ... while ( <INTERVAL> ) { my ( undef, $start, $end ) = split; --$start; substr $new_mask, $start, $end - $start, substr $mask_input, $star +t, $end - $start; } ... print OUT "$new_mask\n";

Comment on Re: Trouble with Transliterate Function
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1051392]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2016-02-11 22:31 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (382 votes), past polls