home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / X11R6 / bin / remove_brackets < prev    next >
Text File  |  1998-11-18  |  402b  |  19 lines
  1. #!/usr/bin/perl --
  2. # Free replacement for Sun's remove_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. undef $/;
  13. $_ = <STDIN>;
  14.  
  15. if (substr($_, 0, 1) eq $ARGV[0] && substr($_, -1) eq $ARGV[1]) {
  16.   $_ = substr($_, 1, -1);
  17. }
  18. print $_;
  19.