Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Programatically detecting a change in letters

by Corion (Pope)
on Sep 03, 2007 at 19:22 UTC ( #636775=note: print w/replies, xml ) Need Help??

in reply to Programatically detecting a change in letters

Why not simply look at the first two letters and see if they changed?

my $last = ""; while (<DATA>) { my (undef,$number,$item,$rest) = split /\s+/, $_, 4; my $current_two_letters = substr($item,0,2); if ($current_two_letters ne $last) { print "--- Break here (change from $last to $current_two_lette +rs)\n"; }; print $_; $last = $current_two_letters; }; __DATA__ 1930: Nails <-- #Na here 1931: Naked 1941: Nearsighted <-- #Ne here 1942: Neck 1961: Newspaper_Reporter 1963: Nickname <-- #Ni here 1964: Niece 1971: Nipples 1972: Nobility <-- #No here 1973: Noise 1981: November 1982: Nuclear_Bomb <-- #Nu here 1984: Numbers 1989: Nuts 1990: Nymph

Replies are listed 'Best First'.
Re^2: Programatically detecting a change in letters
by Anonymous Monk on Sep 03, 2007 at 23:24 UTC
    how does this approach handle the following sequence?
    Aardvark Abacus Actuary Additive Aeolian

      Just as I expect it. The convenient thing about __DATA__ sections is that you can put your own data into them and try stuff for yourself.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2021-01-21 08:37 GMT
Find Nodes?
    Voting Booth?