Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

OverlordQ's scratchpad

by OverlordQ (Hermit)
on Jun 02, 2004 at 20:26 UTC ( [id://359715] : scratchpad . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    my $blah = unac_string('utf-8','Spontanansökan Produktion Bjuv');
    
    print "U: $blah\n";
    
  2. or download this
    unac.c:13708: unac_data0[19] & unac_positions[0][20]: 0x0053 => untouc
    +hed
    unac.c:13708: unac_data0[16] & unac_positions[0][17]: 0x0070 => untouc
    +hed
    ...
    unac.c:13708: unac_data0[21] & unac_positions[0][22]: 0x0075 => untouc
    +hed
    unac.c:13708: unac_data0[22] & unac_positions[0][23]: 0x0076 => untouc
    +hed
    U: Spontanansokan Produktion Bjuv
    
  3. or download this
    unac_string: Invalid argument
    U:
    
  4. or download this
    sub decrement {
        my $string = shift;
        return '' unless length($string);
    ...
            return $ret;
        }
    }
    
  5. or download this
    #!/usr/bin/perl
    
    ...
        print "$now_string, " . ($blarg{$window} ? $blarg{$window} : 0) . 
    +"\n";
        $window += $INTERVAL;
    }