On Wed, 27 Dec 2006 15:17:15 +0100
Goksie <[EMAIL PROTECTED]> wrote:
> Mumia W. wrote:
> > On 12/25/2006 11:51 AM, Goksie wrote:
> >> [...]
> >> If i run the script, the changes could not be effected bcos the files is
> >> a readonly file.
> >>
> >> I will be glad if someone can put me true
> >>
> >> goksie
> >>
> >
> > You probably want a mode of "+<" to open the file read-write.
> >
> > perldoc -f open
> >
> >
> >
> >
>
> when i used the below code and allow the printing to the files
>
> #!/usr/bin/perl
> use warnings;
> use strict;
> print "what is the ip to suspend\n";
> our $ip = <STDIN>;
> chomp($ip);
> my $files = "/etc/pbx/mine.conf";
> open my $fh, '+<', $files or die "can't open the files $files: $!";
> while (<$fh>) {
> s/host=$ip/host=$ip\.old/mg;
> print $_;
> }
>
> mine.conf
> [2.2.2.2]
> type=friend
> host=2.2.2.2
> context=default
> port=5060
> dtmfmode=rfc2833
> canreinvite=no
> qualify=yes
> allow=g723
>
> the output of running the script is
> [2.2.2.2]
> type=friend
> host=2.2.2.2.old
> context=default
> port=5060
> dtmfmode=rfc2833
> canreinvite=no
> qualify=yes
> allow=g723
>
> but it does not change the file, but the control print i made to the
> screen shows the change.
Do you have permission to write to mime.conf?
What is your print statement when trying to write to the file?
Owen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
