vipe

   1 #!/usr/bin/perl
   2
   3 =head1 NAME
   4
   5 vipe - edit pipe
   6
   7 =head1 SYNOPSIS
   8
   9 command | vipe | command
  10
  11 =head1 DESCRIPTION
  12
  13 vipe allows you to run your editor in the middle of a unix pipeline and
  14 edit the data that is being piped between programs.
  15
  16 =head1 ENVIRONMENT VARIABLES
  17
  18 =over 4
  19
  20 =item EDITOR
  21
  22 Editor to use.
  23
  24 =item VISUAL
  25
  26 Also supported to determine what editor to use.
  27
  28 =back
  29
  30 =head1 AUTHOR
  31
  32 Copyright 2006 by Joey Hess <joey@kitenet.net>
  33
  34 Licensed under the GNU GPL.
  35
  36 =cut
  37
  38 use warnings;
  39 use strict;
  40 use File::Temp q{tempfile};
  41
  42 $/=undef;
  43
  44 my ($fh, $tmp)=tempfile();
  45 die "cannot create tempfile" unless $fh;
  46 print $fh <STDIN> || die "write temp: $!";
  47 close $fh;
  48 close STDIN;
  49 open(STDIN, "</dev/tty") || die "reopen stdin: $!";
  50 open(OUT, ">&STDOUT") || die "save stdout: $!";
  51 close STDOUT;
  52 open(STDOUT, ">/dev/tty") || die "reopen stdout: $!";
  53
  54 my @editor="vi";
  55 if (-x "/usr/bin/editor") {
  56         @editor="/usr/bin/editor";
  57 }
  58 if (exists $ENV{EDITOR}) {
  59         @editor=split(' ', $ENV{EDITOR});
  60 }
  61 if (exists $ENV{VISUAL}) {
  62         @editor=split(' ', $ENV{VISUAL});
  63 }
  64 my $ret=system(@editor, $tmp);
  65 if ($ret != 0) {
  66         die "@editor exited nonzero, aborting\n";
  67 }
  68
  69 open (IN, $tmp) || die "$0: cannot read $tmp: $!\n";
  70 print OUT <IN> || die "write failure: $!";
  71 close IN;
  72 unlink($tmp);