Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Editing features for advanced users

by gmax (Abbot)
on Jan 26, 2002 at 15:40 UTC ( #141765=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
  2. or download this
    let b:current_syntax = "perl"
  3. or download this
    syn include @Sql <sfile>:p:h/sql.vim
    syn region perlSQL start="qq{" end="}" contains=@Sql keepend
    syn region perlSQL start="qq\[" end="\]" contains=@Sql keepend
    syn region perlSQL start="<<SQL" end="^SQL" contains=@Sql keepend
  4. or download this
    my $sql1 = qq{ SELECT fieldname 
        FROM $tab_array[0]
        FROM $tab_hash{$current}
        WHERE otherfield = ( ? )
  5. or download this
    my $sign = qq {DO NOT SELECT FROM MY TABLE !} 
  6. or download this
    :runtime! syntax/2html.vim
  7. or download this
    # ./configure --enable-perlinterp 
    # make
    # make install
  8. or download this
    :perl $count = 0
    :perldo $count += split /[;_<> ]/, $_ 
    :perl VIM::Msg($count)
  9. or download this
    :perl @lines = sort {$a <=> $b} $curbuf->Get(1 .. 15)
    :perl $curbuf->Set(1, @lines)
  10. or download this
    :perl $curbuf->Set(1, sort {$a <=> $b} $curbuf->Get(1 .. 15))
  11. or download this
    :10,30perldo s/\b(:?Monks|advocates)\b/PerlMonks/
    :40,45perldo tr/A-F0-9//cd

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://141765]
Approved by root
Front-paged by bunnyman
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2019-09-23 03:26 GMT
Find Nodes?
    Voting Booth?
    The room is dark, and your next move is ...

    Results (276 votes). Check out past polls.