http://qs1969.pair.com?node_id=51172

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).

I usually start it with a negative number as the argument, since the snippets are sorted in the directory with the most recent last.

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.
    Positive comments also welcome!
mkmcconn

#!/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++; }