Hello Jeff,
Well, thanks your help.
More one thing.
When I try to run the cgi in browser come this message
Software error:
No comma allowed after filehandle at
/home/faria/public_html/cgi-bin/perl/entrada-dados.cgi
line 19.
See my below code.
print header;
print start_html("Modify Information");
open FILE,"/opt/croc/postgresql.conf" or die $!;
my @file = <FILE>;
close FILE;
open FILE,">","/opt/croc/postgresql.conf" or die $!;
for (@file)
{
#system("perl -pi -e 's/192.168.1.1/10.0.0.1/g'
/opt/crocodilo/postgresql.conf");
s/192.168.1.85/10.0.0.1/g
print FILE,$_;
}
close FILE;
print end_html;
What's wrong ?
Best regards,
Rodrigo Faria
>
>>I'm beginner in Perl with CGI.
>>I create a two input box;
>>
>>In the first input box, I'll put the ip adress.
>>In the second input box I'll put the port
>>
>>Then when i click em submit, the cgi must make:
>>
>>perl -pi -e 's/192.168.1.1/10.0.0.1/g' /opt/myfile
>>
>>How I can to do it ?
>>
>
> At first you need to ensure that your cgi script has
the privileges to
> write/modify the file "/opt/myfile".
> Then you may call:
> system "perl -pi -e ..."
> to do the things you wanted in the cgi script.
>
> But I think the good way is something like:
>
> # copy the old content in that file to an array
> open FILE,"/opt/myfile" or die $!;
> my @file = <FILE>;
> close FILE;
>
> # re-write the new content to the file
> open FILE,">","/opt/myfile" or die $!;
> for (@file) {
> s/192.168.1.1/10.0.0.1/g;
> print FILE,$_;
> }
> close FILE;
>
>
> Is it?
> Hope this helps.
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
