Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Checkbutton in a loop

by Eliya (Vicar)
on Apr 29, 2012 at 08:37 UTC ( #967918=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    for my $i (0...$#a)
        my $j = shift;
        print $a[$j];
  2. or download this
    for my $i (0...$#a)
        $f->Checkbutton(-text => $a[$i], -command => sub { fun($i) } )->pa

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://967918]
[choroba]: fc $s1 eq fc $s2 I guess
[Tanktalus]: hippo: I don't care, I just want to prove it can match correctly compared to, say, ILIKE / UPPER / LOWER in postgres :)
[LanX]: is there a unicode convention that ß is ss ?
[Tanktalus]: LanX: yes :) I haven't tried java, but I have this match working in its bastard cousin, C# :) I just thought perl's unicode support would get me there :)
[LanX]: I have my doubts, IMHO its a workaround if the glyph is missing
[LanX]: (they are pronounced differently)
[choroba]: perl -Mutf8 -Mfeature=fc -wE 'say fc "straße" eq fc "strasse"'
[choroba]: returns 1 for me
[choroba]: are they?
[LanX]: strict rules : the a is long in "straße" and short in "strasse"

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (13)
As of 2018-03-21 15:42 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (268 votes). Check out past polls.