Would this be of interest to anybody? If so, I will make it freely available.

Of course yes, people might learn, the tool might spawn discussions which probably will generate further enlightenment. I guess the appropriate place to publish such a thing would be Cool Uses for Perl.

How do I start a new script? Well, depends. If it is a straight forward task, I start with a blank page and type along. If the thing at hand requires new modules I'm not familiar with, I usually fire up my own enhanced version of perlsh included in Term::ReadLine::Gnu which writes a history file, fool around with that upon the modules in question until the bits are in place, and then I'll copy the good parts from the history into my new script editors buffer. No, not cut&paste. Two terminals aligned side by side, the left one holding the new script in vi, the right one paging the perlsh history with line numbers (less -N on Linux/Cygwin). Copying from right to left is done with 

:r ! l 42-64,96,14 .perlsh_history

[download]

and $HOME/bin/l reads as follows:

#!/usr/bin/perl -n
BEGIN {
    $spec=shift;
    @l=split/,/,$spec;
    for(@l){
        ($s,$e)=split/-/;
        $e||=$s;
        $_=[$s,$e];
    }
}
CHECK {
    unless(@ARGV) {
        push @ARGV, <DATA>;
        chomp @ARGV;
    }
    die "usage: $0 linespec file\n" unless @ARGV;
    $file = $ARGV[0];
}
# === loop ====
for $l(@l){
    print if $.>=$l->[0] and $.<=$l->[1]
}
# === end ===
#
END {
    if ($file) {
        open $fh,'<', $0;
        @lines = <$fh>;
        close $fh;
        open $fh,'>',$0;
        for(@lines){
            print $fh $_;
            last if /^__DATA__$/;
        }
        print $fh $file,"\n";
    }
}
__DATA__

[download]

which code isn't posted to Cool Uses for Perl yet...

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

In reply to Re: Starting a New Script by shmem
in thread Starting a New Script by LloydRice

Title:
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, details, 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, summary, 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.