home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / X11R6 / bin / insert_brackets < prev    next >
Text File  |  1998-11-18  |  341b  |  17 lines
  1. #!/usr/bin/perl --
  2. # Free replacement for Sun's insert_brackets as required by Openwin's
  3. # text_extras_menu.
  4. #
  5. # Copyright (C) 1998 by Martin Buck <mbuck@debian.org>
  6. # Licensed under the GNU General Public License
  7.  
  8. if ($#ARGV != 1) {
  9.   die "Usage: $0 <left> <right>\n";
  10. }
  11.  
  12. print "$ARGV[0]";
  13. while (<STDIN>) {
  14.   print $_;
  15. }
  16. print "$ARGV[1]";
  17.