Re: Attempting to update files blanks them instead

[Chas Owens]

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;
}

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/