Jeff Pang wrote:
-----Original Message-----
From: [EMAIL PROTECTED]
Sent: Aug 7, 2007 10:06 PM
To: beginners@perl.org
Subject: Adding text in file written in Perl
Hello, I have written a Perl script that creates the dhcpd.conf and /
etc/hosts file for Red Hat Linux. The data is derived from a single
text file. What is stumping me is how to insert an automatic text
line for just the /etc/hosts part of my script that would
automatically insert a text line at the top of the /etc/hosts file
each time the script is run.
For instance, I want to make sure that at the top of my /etc/hosts
file it reads:
127.0.0.0 localhost.localhostdomain localhost
I have tried using "push" and "print", but have not made it work. How
can I get my 127.0.0.0 to appear at the top of my /etc/hosts/ file
every time I run the script to create it?
Maybe I understand you not correctly.but I think it's not hard to do it.
1. write that line to hosts file at first,
open HD,">","/etc/hosts" or die $!;
print HD "127.0.0.0 localhost.localhostdomain localhost\n";
Make it 127.0.0.1
close HD;
2. wirte the other lines to hosts file then,
open HD,">>","/etc/hosts" or die $!;
print HD @other_lines;
close HD;
Good luck.
--
Jeff Pang <[EMAIL PROTECTED]>
http://home.arcor.de/jeffpang/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
