Hello Jeff,
Other error has come:
syntax error at
home/faria/public_html/cgi-bin/perl/entrada-dados.cgi
line 19, near "print"
Execution of
/home/faria/public_html/cgi-bin/perl/entrada-dados.cgi
aborted due to compilation errors.
My all code is a below.
#!/usr/bin/perl -wt
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
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/croc/postgresql.conf"); s/192.168.1.85/10.0.0.1/g
print FILE $_;
}
close FILE;
print end_html;
Thanks,
Rodrigo Faria
--- Jeff Pang <[EMAIL PROTECTED]> escreveu:
> print FILE,$_;
>
> Here comma is not needed.
> change to:
>
> print FILE $_;
>
> Also I'd suggest you always add the "use strict" at
> the begin of your cgi scripts.
>
> -----Original Message-----
> >From: Rodrigo Tavares <[EMAIL PROTECTED]>
> >Sent: Mar 8, 2007 8:04 PM
> >To: [email protected]
> >Subject: Re: Example Input Datas
> >
> >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/
> >
> >
>
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
__________________________________________________
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/
