home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1580 / nextalias < prev    next >
Encoding:
Text File  |  1990-12-28  |  199 b   |  12 lines
  1. #! /usr/local/bin/perl
  2.     if (open(INDEX,'</usr/personals/alias-index')) {
  3.         $alias_index = <INDEX>;
  4.         close(INDEX);
  5.         $alias_index++;
  6.     }
  7.     else {
  8.         $alias_index = 'a';
  9.     }
  10. print "$alias_index\n";
  11. exit;
  12.