CUFP
mkmcconn
snippet
<div class="Description"><P>I've collected hundreds of tiny snippets from books and tutorials,
and an especially large number from Perl Monks. These all go
into an "examples" directory. Listed, is the script I use
to browse those snippets (pardon the several clues that this is
only used on a Linux box).
<p> I usually start it with a negative number as the argument,
since the snippets are sorted in the directory with the most recent
last.
<P> Don't be insulted by the babytalk Perl. "Everybody's got to
start somewhere" and this is unapologetically a beginner's work.
Consequently, if you're going to vote it down for being
stupid or boring, I'd appreciate a lecture on what's wrong.
<br> <i>Positive comments also welcome!</i>
<br>[mkmcconn]</div>
<CODE>
#!/usr/bin/perl -w
use strict;
my $index = @ARGV ? $ARGV[0]:1;
STUDY:
for (my @files=(glob "$ENV{HOME}/$ENV{SANDBOX}/examples/*")){
print "$files[$index] \n";
open (SCRIPT,"< $files[$index]")
or warn "can't open file: $!";
print while <SCRIPT>;
do $files[$index];
print "type [N]EXT to continue browsing examples,
or another key to repeat the snippet__ ";
redo STUDY unless <> =~ /^[Nn]/;
$index++;
}
</CODE>