home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / clones / tee < prev    next >
Encoding:
Text File  |  1991-06-04  |  1.1 KB  |  49 lines
  1. #!/usr/bin/perl
  2. #
  3. # tee clone that groks process tees (should work even with old perls)
  4. # Tom Christiansen <tchrist@convex.com>
  5. # 6 June 91
  6.  
  7. while ($ARGV[0] =~ /^-(.+)/ && (shift, ($_ = $1), 1)) {
  8.     next if /^$/;
  9.     s/i// && (++$ignore_ints, redo); 
  10.     s/a// && (++$append,      redo);
  11.     s/u// && (++$unbuffer,    redo);
  12.     die "usage tee [-aiu] [filenames] ...\n";
  13. } 
  14. if ($ignore_ints) {
  15.     for $sig ('INT', 'TERM', 'HUP', 'QUIT') { $SIG{$sig} = 'IGNORE'; } 
  16. }
  17. $SIG{'PIPE'} = 'PLUMBER';
  18. $mode = $append ? '>>' : '>';
  19. $fh = 'FH000';
  20. %fh = ('STDOUT', 'standard output'); # always go to stdout
  21. $| = 1 if $unbuffer;
  22.  
  23. for (@ARGV) {
  24.     if (!open($fh, (/^[^>|]/ && $mode) . $_)) {
  25.     warn "$0: cannot open $_: $!\n"; # like sun's; i prefer die
  26.     $status++;
  27.     next;
  28.     }
  29.     select((select($fh), $| = 1)[0]) if $unbuffer;
  30.     $fh{$fh++} = $_;
  31. } 
  32. while (<STDIN>) {
  33.     for $fh (keys %fh) {
  34.     print $fh $_;
  35.     } 
  36. } 
  37. for $fh (keys %fh) { 
  38.     next if close($fh) || !defined $fh{$fh};
  39.     warn "$0: couldn't close $fh{$fh}: $!\n";
  40.     $status++;
  41. }
  42. exit $status;
  43.  
  44. sub PLUMBER {
  45.     warn "$0: pipe to \"$fh{$fh}\" broke!\n";
  46.     $status++;
  47.     delete $fh{$fh};
  48. } 
  49.