Help for this page

Select Code to Download


  1. or download this
    ed file <<<$'/\<word\>/+,$d\nw'
    
  2. or download this
    perl -we 'open $F, "+<", $ARGV[0] or die; while (<$F>) { /\bword\b/ an
    +d truncate $F, tell $F; }' file