Re: Attempting to update files blanks them instead

[Kent Frazier]

That did the trick.  I figured it had to be something simple.  To my credit,
the book had it wrong too.  Anyways, thanks for your help.

On 5/14/07, Chas Owens <[EMAIL PROTECTED]> wrote:

On 5/14/07, Kent Frazier <[EMAIL PROTECTED]> wrote:
snip
> Can someone with a more honed eye for this code tell me what I am doing
wrong?
snip

You are never printing anything.  Try

#!perl -w
use strict;

$^I = ".bak";
while (<>) {
    if ( /^#!/ ) {
        $_ .= "## Copyright (C) 2007 by Kent Frazier.\n";
    }
    print;
}