user-tools/header

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 header - Echo the input stream up to the first empty line (usual end-of-header marker)
   8
   9 body - Skip everything in the input stream up the the first empty line (usual end-of-header marker) and echo the rest
  10
  11 =head1 SYNOPSIS
  12
  13 header I<FILE> [I<FILE> [I<FILE> [...]]]
  14
  15 header < I<FILE>
  16
  17 body I<FILE> [I<FILE> [I<FILE> [...]]]
  18
  19 body < I<FILE>
  20
  21 =cut
  22
  23 $mode = 'header';
  24 if($0 =~ /body/)
  25 {
  26         $mode = 'body';
  27 }
  28
  29 if(not @ARGV)
  30 {
  31         push @ARGV, '/dev/stdin';
  32 }
  33
  34 for my $idx (0..$#ARGV)
  35 {
  36         my $path = $ARGV[$idx];
  37         open my $fh, '<', $path;
  38         my $state = 'header';
  39         while(<$fh>)
  40         {
  41                 print if $mode eq 'body' and $state eq 'body';
  42                 $state = 'body' if /^\r?\n?$/;
  43                 last if $state eq 'body' and $mode eq 'header';
  44                 print if $mode eq 'header' and $state eq 'header';
  45         }
  46         if($idx < $#ARGV)
  47         {
  48                 print "\n";
  49         }
  50 }