Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Bench this BBcode Part 2

by jwkrahn (Abbot)
on Oct 03, 2010 at 17:44 UTC ( [id://863192]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $ grep -e /o -e /go -e /io -o AUBBC.pm | wc -l
    89
    
  2. or download this
         12 my %AUBBC = (aubbc => 1,utf => 1,smileys => 1,highlight => 1,h
    +ighlight_function => \&{code_highlight},no_bypass => 0,for_links => 0
    +,aubbc_escape => 1,no
    
  3. or download this
    my %AUBBC = (
        aubbc               => 1,
    ...
        highlight_class6    => '',
        highlight_class7    => '',
        );
    
  4. or download this
         14 my $long_regex = '[\w\.\/\-\~\@\:\;\=]+(?:\?[\w\~\.\;\:\,\$\-\
    ++\!\*\?\/\=\&\@\#\%]+?)?';
    
  5. or download this
         15 my @key64 = ('A','B','C','D','E','F','G','H','I','J','K','L','
    +M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d
    +','e','f','g','h','i'
    
  6. or download this
    my @key64 = ( 'A' .. 'Z', 'a' .. 'z', 0 .. 9, '+', '/' );
    
  7. or download this
         42 sub settings {
         43  my ($self,%s_hash) = @_;
    ...
         52    }
         53   }
         54   &settings_prep;
    
  8. or download this
    sub settings {
        ( my $self, %AUBBC ) = ( @_, %AUBBC );
    ...
            $AUBBC{ highlight } = 0;
            }
        settings_prep();
    
  9. or download this
    sub settings {
        my $self = shift;
    ...
            $AUBBC{ highlight } = 0;
            }
        settings_prep();
    
  10. or download this
        169  $protect_email = '[' if $AUBBC{protect_email} eq 3 || $AUBBC{
    +protect_email} eq 4;
        171   if ($AUBBC{protect_email} eq 1 || $AUBBC{protect_email} eq 2
    +) {
    ...
        260  $NewTag{pattern} = 'l' if ($NewTag{type} eq 3 || $NewTag{type
    +} eq 4);
        374   (!$option && $AUBBC{line_break} eq 2)
        376    : $text =~ s/\n/<br$AUBBC{html_type}>\n/go if !$option && $
    +AUBBC{line_break} eq 1;
    
  11. or download this
        222    my $ret = do_sub( $_, $2 , $Build_AUBBC{$_}[2] ) || '';
        223    $ret ? $ret : $1;
    ...
    
        232    my $ret = do_sub( $_, '' , $Build_AUBBC{$_}[2] ) || '';
        233    $ret ? $ret : $1;
    
  12. or download this
        do_sub( ... ) || $1;
    
  13. or download this
        243  $fun = \&{$fun};
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (5)
As of 2024-03-28 12:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found