######################################################################
CBREAK mode in MS-DOS ==== SAMPLE CODE ====
# File Name: dos.getkey.better
# File Size in BYTES: 12833
# Sender/Author/Poster: jbormel@athena.mit.edu (Joe Bormel)
# Subject: CBREAK mode in MS-DOS ==== SAMPLE CODE ====
# Archived: Apr 29 02:16 1994
#
# Thanks to everyone who responded to my plea for help to get CBREAK
# functionality in PERL for MS-DOS. I've packaged up the results into
# an executable DOS batch file to serve as sample code for others.
#
######################################################################
my first perl hack
# File Name: firsthack
# File Size in BYTES: 1179
# Sender/Author/Poster: galt%asylum.cs.utah.edu@cs.utah.edu (Greg Alt)
# Subject: my first perl hack
# Archived: Apr 29 02:16 1994
#
# I kept hearing about perl, and it sounded interesting, so I finally got
# around to trying it out. Here's my first perl program:
#
######################################################################
Re: Self-modifying code?
# File Name: self-reproducing-code.example
# File Size in BYTES: 1313
# Sender/Author/Poster: boyd@cs.buffalo.edu (Daniel F Boyd)
# Subject: Re: Self-modifying code?
# Archived: Apr 29 02:16 1994
#
# Here is my self-reproducing Perl script. Bonus: Since we're both at
# Buffalo the pathname is correct for our machines (and probably nowhere
# else).
#
######################################################################
uutraf.pl
# File Name: uutraf.pl
# File Size in BYTES: 5679
# Subject: How much uucp traffic?
# Archived: Apr 29 02:16 1994
#
# Calculate the amount of uucp traffic on a site
#
######################################################################
Re: Global behavior of @_ (??)
# File Name: ATUS
# File Size in BYTES: 3521
# Sender/Author/Poster: bob@max.cpd.tandem.com (Bob Mackay)
# Subject: Re: Global behavior of @_ (??)
# Archived: Aug 19 1993
#
# ATUS - AT UnderScore checker - Bob Mackay - MACKAY_BOB@TANDEM.COM
# This program finds parameterless calls to subroutines that are expecting
# arguments. Such calls are equivalent to calling the subroutine as
# &proc_name (@_); which is not generally what is intended.
#
######################################################################
Electronic Balloting
# File Name: Electronic.ballot.shar
# File Size in BYTES: 20590
# Sender/Author/Poster: jsh@teal.csn.org (Jeffrey Haemer)
# Subject: Electronic Balloting
# Archived: Jun 11 1993
#
# $Id: ballot,v 3.0 1993/06/04 19:53:34 ballot Exp ballot $
# A few weeks back, we posted a note asking for your advice and aid
# in prototyping software for electronic standards balloting. We
# got it. Thanks. Now we want some more.
#
######################################################################
LCG Random number generator for Perl
# File Name: LCG.random.generator
# File Size in BYTES: 19888
# Sender/Author/Poster: wengland@stephsf.com (Bill England)
# Subject: LCG Random number generator for Perl
# Archived: Aug 8 1993
#
# $Id: lotto6,v 1.3 1991/12/09 22:36:48 wengland Exp $
# This LCG method has the advantage that it can provide 32 bit numbers
# on 16 bit machines (I've had to hack in in assembler on some systems
#
######################################################################
Perl Script for Generating Text Stereograms (was Re: Text SIRDS)
# File Name: SIRDS.text.pl
# File Size in BYTES: 9348
# Sender/Author/Poster: flan@vader.wustl.edu (Ian Flanigan)
# Subject: Perl Script for Generating Text Stereograms (was Re: Text SIRDS)
# Archived: Aug 2 1993
#
# Text Random Letter Stereogram Generator
# As promised, here is the perl script that makes Random Letter
# Stereograms.
#
######################################################################
Re: Name completion question
# File Name: alias.cd.pl
# File Size in BYTES: 3078
# Sender/Author/Poster: exukenc@exu.ericsson.se (Ken Corey,T/TF,75841)
# Subject: Re: Name completion question
# Archived: Aug 24 1993
#
# by Ken Corey, kenc@sol.acs.unt.edu @1992, you may give but not sell.
# provides name completion in a cd command.
#
######################################################################
Baseball Division Picker Program
# File Name: baseball.pl
# File Size in BYTES: 4043
# Sender/Author/Poster: stergios@leland.Stanford.EDU (Stergios)
# Subject: Baseball Division Picker Program
# Archived: Apr 25 1993
#
# Here's a perl program to pick the division standings for Major League
# Baseball.
#
######################################################################
ckbal - check balanced tokens in C source (perl script)
# File Name: ckbal
# File Size in BYTES: 10139
# Sender/Author/Poster: arielf@mirage.nsc.com (Ariel Faigon)
# Subject: ckbal - check balanced tokens in C source (perl script)
# Archived: Jul 15 1993
#
# I wrote this about a year ago in an evening of such frustration, and just thought
# it might be a good idea to post this for the benefit of all.
#
######################################################################
cleave: break files into arbitrary sized chunks
# File Name: cleave.pl
# File Size in BYTES: 3585
# Sender/Author/Poster: tamills@ingr.com
# Subject: MSDOS Perl - Why does read() only give back 51 bytes?
# Archived: Apr 27 1993
#
# Cleave
I wrote this script for breaking up files into arbitrary sized chunks. The
# primary use for me would be transporting large files on floppies.
#
######################################################################
conserve
# File Name: conserve
# File Size in BYTES: 1075
# Sender/Author/Poster: dhesi@rahul.net (Rahul Dhesi)
# Subject: perl script that calculates conservation hint
# Archived: Oct 5 1993
#
# Rahul Dhesi
# This program prints a resource conservation hint based on
# arithmetic conversions. It should be named 'conserve'.
#
######################################################################
Re: determining available disk space
# File Name: dfscan
# File Size in BYTES: 3876
# Sender/Author/Poster: asherman@fmrco.com (Aaron Sherman)
# Subject: Re: determining available disk space
# Archived: Aug 26 1993
#
# Scan output of df and provide it via command-line options
# By Aaron Sherman (I-Kinetics, Inc.), 1993
#
######################################################################
Re: A 6809 disassembler
# File Name: disassemble.6809.pl
# File Size in BYTES: 6300
# Sender/Author/Poster: charste@summit (Charles Stevens)
# Subject: Re: A 6809 disassembler
# Archived: Jul 27 1993
#
# How about half a disassembler written in Perl?? (Only about 2 hours work --
# mostly typing in the instruction set.
#
######################################################################
Re: Setting DOS variables. HELP!
# File Name: dos.env.set
# File Size in BYTES: 2432
# Sender/Author/Poster: dbc@tc.fluke.COM (Dan Carson)
# Subject: Re: Setting DOS variables. HELP!
# Archived: Jul 9 1993
#
# >: I am able to read DOS environment variables, but I am having trouble
# >: setting the variables to new values.
#
######################################################################
Get a key in DOS (how-to)
# File Name: dos.getkey
# File Size in BYTES: 3504
# Sender/Author/Poster: dbc@tc.fluke.COM (Dan Carson)
# Subject: Re: Testing input character if arrow or function key etc (DOS).
# Archived: Apr 6 1993
#
# In article <1493@alsys1.aecom.yu.edu> manaster@yu1.yu.edu (Chaim Manaster) writes:
# >The question is in two parts:
# >1) How do you get a single character returned from the keyboard
# >without requiring a carriage return after the keypress?
#
######################################################################
Re: Questions about using Perl on DOS
# File Name: dos.invocation.and.INC
# File Size in BYTES: 1338
# Sender/Author/Poster: buboo@alf.uib.no (Ove Ruben R Olsen)
# Subject: Re: Questions about using Perl on DOS
# Archived: Aug 14 1993
#
#
######################################################################
Replacement for DSKLAYT2 avail
# File Name: dsklay2.info
# File Size in BYTES: 2032
# Sender/Author/Poster: longe@statsci.com (Michael Longe')
# Subject: Replacement for DSKLAYT2 avail
# Archived: Jun 8 1993
#
# Fed up with the bugs in Microsoft's Setup utilities, I wrote a replacement
# for DSKLAYT2.EXE in Perl. (The DOS version of the Perl interpreter is
# available from various sites.)
#
######################################################################
hm fAl & hm tmAshA!!!
# File Name: fAl.pl.Z - compressed binary file
# File Size in BYTES: 20417
# Sender/Author/Poster: cheragh@alborz.mti.sgi.com (Mash Cheragh-Ali)
# Subject: hm fAl & hm tmAshA!!!
# Archived: Jun 8 1993
#
#
# I've been gathering all the Persian sayings that have come to my mind, or
# I have seen here and there. Following is what I have so far.
######################################################################
Query the geographic server
# File Name: geographic.pl
# File Size in BYTES: 2277
# print("\tgeo place name\n");
# print("Geographic NameServer Query: \"$request\"\n");
#
######################################################################
getargs.pl (for use and comment)
# File Name: getargs
# File Size in BYTES: 8155
# Sender/Author/Poster: lawrence@epps.kodak.com (Scott Lawrence)
# Subject: getargs.pl (for use and comment)
# Archived: Apr 6 1993
#
# Provides the routine getargs
# which takes a picture of the expected arguments of the form:
#
######################################################################
Implement a Hebrew Calendar
# File Name: hebrew.calendar.pl
# File Size in BYTES: 3412
# Sender/Author/Poster: faigin@aero.org (Daniel P. Faigin)
# Subject: Re: Chron & Shabbat (was: FAQ)
# Archived: May 8 1993
# The script below uses the hebcal and rise programs available from nysernet.
# sub checkday {
#
######################################################################
here: broadcast to folks
# File Name: here.pl - broadcast to online users
# File Size in BYTES: 5392
# Archived: Apr 6 1993
#
#
######################################################################
Re: Statistic routines ? (Histogram-generator)
# File Name: histogram.pl
# File Size in BYTES: 7096
# Sender/Author/Poster: Dov Grobgeld
# Subject: Re: Statistic routines ?
# Archived: Apr 6 1993
#
# histbin
# version 0.1
# Bin data for a histogram.
#
######################################################################
Re: Statistic routines ? (Another Histogram generator)
# File Name: histogram.tchrist.pl
# File Size in BYTES: 2464
# Sender/Author/Poster: Tom Christiansen
# Subject: Re: Statistic routines ?
# Archived: Apr 6 1993
# Here's something I hacked out yesterday. The format is
# titlea b c d e
# where the letters are the number of scores of value 1..5;
#
######################################################################
id - replacement id(1)
# File Name: id2
# File Size in BYTES: 2454
# Sender/Author/Poster: chetal@pyrps5.pyramid.com (Pradeep Chetal)
# Subject: Re: I get "Insecure PATH" when I run commands from emacs...
# Archived: Apr 6 1993
#
#
######################################################################
Dbot2 - an irc 'bot'
# File Name: irc.bot.pl
# File Size in BYTES: 5162
# Sender/Author/Poster: noord@ucs.orst.edu (its MR. DAVO to you...)
# Subject: Re: A C bot.
# Archived: Jun 21 1993
#
# Okeydokey, here it is. Any questions, just ask :)
#
######################################################################
v37i068: ixobeeper - Talk to alpha-numeric pager from Unix, Part01/02
# File Name: ixobeeper
# File Size in BYTES: 37873
# Sender/Author/Poster: tal@Warren.MENTORG.COM (Tom Limoncelli)
# Subject: v37i068: ixobeeper - Talk to alpha-numeric pager from Unix, Part01/02
# Archived: May 23 1993
#
# tpage.pl -- front-end to tpage system.
# by Tom Limoncelli, tal@warren.mentorg.com
#
######################################################################
magic - an implementation of file(1)
# File Name: magic.pl.info
# File Size in BYTES: 1458
# Sender/Author/Poster: dws@ssec.wisc.edu (DaviD W. Sanderson)
# Subject: Re: Is file(1) available in perl?
# Archived: Sep 3 1993
#
# would you please tell me where I can find a copy?
#
######################################################################
mg - fancy grep for perl
# File Name: mg.pl
# File Size in BYTES: 2920
# Sender/Author/Poster: utashiro@sran230.sra.co.jp (Kazumasa Utashiro)
# Subject: Re: Directory Grep??
# Archived: Jun 11 1993
#
# In article <1993Jun10.143017.25932@rtsg.mot.com>
# ellis@rtsg.mot.com (John T Ellis) writes:
# >> Has anyone implemented a directory grep in perl? My ideal
# >> view of the tool includes -
#
######################################################################
Morse Code practice program
# File Name: morse.pl
# File Size in BYTES: 7615
# Sender/Author/Poster: jsc@monolith.mit.edu (Jin S Choi)
# Subject: Morse Code practice program
# Archived: Aug 15 1993
#
# morse code practice program
# I wrote this a while ago to practice for a ham license (which I haven't
# gotten yet), and thought it might be of interest to someone out
#
######################################################################
myquota: change user quotas (HP syscall)
# File Name: myquota.HP.pl
# File Size in BYTES: 1974
# Sender/Author/Poster:
# Subject:
# Archived: Jun 13 1993
#
#
######################################################################
Eight Queens Solutions
# File Name: n-queens.pl
# File Size in BYTES: 3512
# Sender/Author/Poster: levan@ms.uky.edu (Jerry LeVan)
# Subject: Eight Queens Solutions
# Archived: Jun 10 1993
#
# A Perl script to solve the n-queens problem.
#
######################################################################
Re: tail -f clone in perl?
# File Name: newtail.pl
# File Size in BYTES: 1784
# Sender/Author/Poster: ian@unipalm.co.uk (Ian Phillipps)
# Subject: Re: tail -f clone in perl?
# Archived: Jun 23 1993
#
# cc_paul@rcvie.co.at (Wolf Paul) writes:
# >I need to write a script which monitors several files and
# >collects lines added to these files into a single output
# >stream...
#
######################################################################
Re: operl - an experimental object-oriented package for perl
# File Name: objperl.shar
# File Size in BYTES: 12337
# Sender/Author/Poster: sakoh@sraco2.us.sra.co.jp (Hiroshi &)
# Subject: Re: operl - an experimental object-oriented package for perl
# Archived: Apr 6 1993
#
#
######################################################################
Perl-Pay v1.1 - payroll implementation (compressed)
# File Name: payroll
# File Size in BYTES: 27742
# Sender/Author/Poster: wengland@stephsf.com (Bill England)
# Subject: Perl - Payroll (Part 1 of 2)
# Archived: May 23 1993
#
# $Id: payroll_calc.pl,v 1.3 1993/01/14 20:42:30 wengland Exp wengland $
# Perl -- Payroll
# Ok. This may not be as polished as I would like but here is
# the perl-payroll as it now stands ...
#
######################################################################
perload - builds up autoloaded and dataloaded perl scripts (Part01/01)
# File Name: perload
# File Size in BYTES: 12664
# Sender/Author/Poster: ram@acri.acri.fr (Raphael Manfredi)
# Subject: perload - builds up autoloaded and dataloaded perl scripts (Part01/01)
# Archived: Jun 25 1993
#
# Archive-Name: perload.Z - compressed binary
# The following script will convert any existing perl script into a dataloaded
# or autoloaded version, which is a big win on startup time and memory usage
# for large scripts, at a small performance cost.
#
######################################################################
multiple host command launcher (gsh) in Perl
# File Name: pgsh
# File Size in BYTES: 6138
# Sender/Author/Poster: merlyn@iwarp.intel.com (Randal Schwartz)
# Subject: multiple host command launcher (gsh) in Perl
# Archived: Apr 6 1993
#
######################################################################
mkpprof - profiles a perl script
# File Name: pprof.pl.Z
# File Size in BYTES: 15k
# Sender/Author/Poster: arf@maths.nott.ac.uk (Anthony Iano-Fletcher)
# Subject: Re: looking for perl profiler
# Archived: Jun 18 1993
#
# DESCRIPTION
# mkpprof calculates the profiling of the specified script and
# places the output into a file in the current directory.
# This data file can be collated by pprof (1).
# This uses a ammended form of Kresten Krab Thorup's profiling
# perldb.pl.
#
######################################################################
About-Quran.grd
# File Name: quran.server
# File Size in BYTES: 3789
# Sender/Author/Poster: an32925@anon.penet.fi (ali)
# Subject: About-Quran.grd
# Archived: Sep 2 1993
#
# Here is README file for QURAN-SERVER. I will try to put it in tehran,
# but I am not sure if they accept this! In the case they do not put
# this in tehran.stanford.edu, I'll send it part by part to SCI. I hope
# this be useful and you get no problem in using it!
#
######################################################################
perl script to unpack ftpmail (and other) binaries
# File Name: randalls.uu.pl
# File Size in BYTES: 2644
# Sender/Author/Poster: merlyn@ora.com (Randal L. Schwartz)
# Subject: Re: perl script to unpack ftpmail (and other) binaries
# Archived: Jun 24 1993
#
## Version 1.09 on 92/02/25
## Written by Randal L. Schwartz, Stonehenge Consulting Services, Portland, OR
## uudecodes the arguments (or stdin), ignoring non-uuencoded lines
#
######################################################################
######################################################################
Re: slip script (long) & question
# File Name: slipup.lwall
# File Size in BYTES: 10711
# Sender/Author/Poster: lwall@netlabs.com (Larry Wall)
# Subject: Re: slip script (long) & question
# Archived: Aug 30 1993
#
# Can't say offhand, but here's my original slipup for comparison purposes.
# It seems to me that the BSD folks had to modify it somehow, but I don't
# recall how.
#
######################################################################
Another stat program (perl script)
# File Name: stat.pl
# File Size in BYTES: 9433
# Sender/Author/Poster: tdw@uk.ac.cam.cl (Tim Wilson)
# Subject: Another stat program (perl script)
# Archived: Apr 6 1993
#
# $Id: stat,v 1.1 1992/10/05 10:53:13 tdw Exp $
# Stat(2) files and print results.
#
######################################################################
symlink.pl
# File Name: symlink.pl
# File Size in BYTES: 3423
# Archived: Apr 6 1993
#
# As merlyn@romulus.reed.edu (Randal L. Schwartz) pointed out, I can't
# do this properly without looking at the symbolic links. So here is my
# second attempt, dealing with symlinks.
#
######################################################################
Re: Perl and MODEMS
# File Name: talk-to-modem.pl
# File Size in BYTES: 2522
# Sender/Author/Poster: eric.arnold@sun.com
# Subject: Re: Perl and MODEMS
# Archived: Apr 6 1993
#
# This worked for me on a Sun(4.1.2) with a Hayes compatible USRobotics modem:
# open(MODEM, "+>/dev/cua0") || die "Can't open /dev/ttyb\n";
# system("stty -echo raw >/dev/cua0");
#
######################################################################
HP-style calculator in perl
# File Name: tcalc.pl
# File Size in BYTES: 4501
# Sender/Author/Poster: bet@sbi.com (Bennett Todd @ Salomon Brothers Inc., NY )
# Subject: HP-style calculator in perl
# Archived: Apr 6 1993
#
# I finally got tired of not having an HP-style termcap-based calculator
# around, so I wrote one in Perl.
#
######################################################################
Re: tee like program to pipe to another program?
# File Name: tee2
# File Size in BYTES: 3291
# Sender/Author/Poster: tchrist@convex.COM (Tom Christiansen)
# Subject: Re: tee like program to pipe to another program?
# Archived: Apr 6 1993
#
# Tom Christiansen
#
######################################################################
Re: How much "free memory" is too little?
# File Name: top.total.pl
# File Size in BYTES: 3067
# Sender/Author/Poster: lott@bogner.informatik.uni-kl.de (Christopher Lott)
# Subject: Re: How much "free memory" is too little?
# Archived: Jun 3 1993
#
# a script to total the SIZE fields from top
#
######################################################################
ttyreset.pl
# File Name: ttyreset.pl
# File Size in BYTES: 583
# Sender/Author/Poster:
# Subject:
# Archived: Apr 6 1993
#
#
######################################################################
How to pack/unpack bits?
# File Name: unpack.bitfields.pl
# File Size in BYTES: 7430
# Sender/Author/Poster: dnoble@devvax.jpl.nasa.gov (David Noble)
# Subject: Re: How to pack/unpack bits?
# Archived: Jun 19 1993
#
# The following routines will give you the pack/unpack behavior you want,
# as long as each collection of bitfields fits evenly into an 8, 16, or
# 32-bit block. I've never really had any use for templates using 'b'
#
######################################################################
watch - track changes in things (files, etc)
# File Name: watch.curseperl
# File Size in BYTES: 3759
# Sender/Author/Poster: ggr@nareen.acci.COM.AU (Greg Rose)
# Subject: Re: Screen 'stuff'...
# Archived: Jun 10 1993
#
# Watch the world go by
#
######################################################################
Re: DOS: Script to edit WIN.INI?
# File Name: win.ini.edit.pl
# File Size in BYTES: 5646
# Sender/Author/Poster: evas@cs.few.eur.nl (Eelco van Asperen)
# Subject: Re: DOS: Script to edit WIN.INI?
# Archived: May 24 1993
#
# >I manage a large lab of PC computers, and occasionally need to make global
# >changes in their local configuration files. The best way for me to do this
# >automatically is through a master centralized script.
#
######################################################################
wtmp.trim.pl
# File Name: wtmp.trim.pl
# File Size in BYTES: 3148
# Sender/Author/Poster:
# Subject:
# Archived: Apr 8 1993
#
# $Header: /local/undoc/RCS/wtrim,v 1.12 1993/04/08 17:35:55 dhesi Exp $
# Trim the wtmp file to hold a specified number of records.
##
Comments, suggestions, or criticisms on this archive to <wjm@metronet.com>
#