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

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

Nothing especially earth-shattering...

  • Added a few of the new post-5.12 keywords to the syntax highlighter (fc, UNITCHECK, etc), and also some Moose-related keywords.
  • Added .psgi and .t extensions to the list of file names which the Perl syntax highlighter is automatically applied to.
  • Changed the "Go" command to execute perl via my shell rather than directly. This means that it will respect $PATH, and thus use whatever perl is currently selected by perlbrew, rather than system perl.
  • Added a command which runs p5u ap -v (see P5U). This allows me to run my test suite by just hitting Ctrl+1 because P5U takes care of chdiring into the correct directory.

Here are the general and Perl-specific parts from my file:

# # GENERAL # position.width=700 magnification=0 buffers=10 split.vertical=0 tabbar.visible=1 tabbar.multiline=1 toolbar.visible=0 statusbar.visible=1 line.margin.visible=1 use.monospaced=1 edge.mode=0 save.recent=1 selection.back=#3355ff selection.alpha=96 menukey.file.exit=<control>Q # # TABS # tabsize=3 indent.size=3 use.tabs=1 indent.automatic=1 indent.opening=0 indent.closing=0 # # ASPELL #*=Inline Spellcheck command.9.*=inline_aspell $(FilePath) command.subsystem.9.*=3 command.mode.9.*=savebefore:yes ext.lua.startup.script=$(SciteUserHome)/.SciTE/aspell.lua*=aspell #command.9.*=/usr/bin/gnome-terminal -t 'aspell' -e "/usr/bin/aspell c +heck $(FileDir)/$(FileNameExt)" #command.subsystem.9.*=0*=1 # # PERL # file.patterns.perl=*.pl;*.pm;*.pod;*.PL;*.t;*.psgi api.$(file.patterns.perl)=/home/tai/.SciTE/perl.api command.compile.$(file.patterns.perl)=tcsh -c "perl -c -w $(FileNameEx +t)" command.go.$(file.patterns.perl)=tcsh -c "perl $(FileNameExt)"$(file.patterns.perl)=Lint command.0.$(file.patterns.perl)=tcsh -c "perl -MO=Lint,all $(FileNameE +xt)"$(file.patterns.perl)=Test Suite command.1.$(file.patterns.perl)=p5u ap -v$(file.patterns.perl)=Code Profiler command.2.$(file.patterns.perl)=tcsh -c "perl -d:DProf $(FileNameExt)"$(file.patterns.perl)=Profiler Parser command.3.$(file.patterns.perl)=tcsh -c "dprofpp $(FileDir)/tmon.out" keywords.$(file.patterns.perl)=\ NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD \ BEGIN CORE DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept \ alarm and atan2 bind binmode bless caller chdir chmod chomp chop \ chown chr chroot close closedir cmp connect continue cos crypt \ dbmclose dbmopen defined delete die do dump each else elsif endgrent \ endhostent endnetent endprotoent endpwent endservent eof eq eval \ exec exists exit exp fcntl fileno flock for foreach fork format \ formline ge getc getgrent getgrgid getgrnam gethostbyaddr gethostbynam +e \ gethostent getlogin getnetbyaddr getnetbyname getnetent getpeername \ getpgrp getppid getpriority getprotobyname getprotobynumber getprotoen +t \ getpwent getpwnam getpwuid getservbyname getservbyport getservent \ getsockname getsockopt glob gmtime goto grep gt hex if index \ int ioctl join keys kill last lc lcfirst le length link listen \ local localtime lock log lstat lt map mkdir msgctl msgget msgrcv \ msgsnd my ne next no not oct open opendir or ord our pack package \ pipe pop pos print printf prototype push quotemeta qu \ rand read readdir readline readlink readpipe recv redo \ ref rename require reset return reverse rewinddir rindex rmdir \ scalar seek seekdir select semctl semget semop send setgrent \ sethostent setnetent setpgrp setpriority setprotoent setpwent \ setservent setsockopt shift shmctl shmget shmread shmwrite shutdown \ sin sleep socket socketpair sort splice split sprintf sqrt srand \ stat study sub substr symlink syscall sysopen sysread sysseek \ system syswrite tell telldir tie tied time times truncate \ uc ucfirst umask undef unless unlink unpack unshift untie until \ use utime values vec wait waitpid wantarray warn while write \ xor \ given when default say state UNITCHECK fc \ class role with method extends before after around override augment \ has requires excludes blessed is returns action handle func \ guard build preprocess postprocess interface exception try catch
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In reply to Re^3: The Most Essential Perl Development Tools Today by tobyink
in thread The Most Essential Perl Development Tools Today by Tommy

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and God said, "Let Newton be!"...

    How do I use this? | Other CB clients
    Other Users?
    Others taking refuge in the Monastery: (3)
    As of 2017-01-18 04:46 GMT
    Find Nodes?
      Voting Booth?
      Do you watch meteor showers?

      Results (160 votes). Check out past polls.