Hi,
Thanks for the quick replies. There's a mistake in the constructor in line 10. Must be $proto and not $package.
The code I posted is not the code of my complex program. It is an equivalent piece that is in a symanticly point of view the same. I now tested it and it did not work. I changed flattening into references and it presented the same results to me: I changed the first line of config.cfg to option1=HASBEENCHANGED while sleep(15).
FILE 'test.pl':
use strict;
use Foo;
my $object = Foo->new('admin');
$object->show_config();
sleep(15);
$object->change_config();
$object->show_config();
FILE 'Foo.pm':
package Foo;
use strict;
my $config = _parse_file();
sub new
{
my $proto = shift();
my $status = shift() || 'normal';
my $package = ref($proto) || $proto;
my $self = { status => $status };
bless($self, $package);
return $self;
}
sub change_config
{
my $self = shift();
return unless $self->{status} ne 'admin';
$config = _parse_file();
}
sub show_config
{
foreach (keys(%{$config}))
{
print "KEY: $_\tVALUE: $$config{$_}\n";
}
}
sub _parse_file
{
my $filename = 'test.cfg';
my %temp;
open(CONFIG, "<$filename") or die "can not open!\n";
while (<CONFIG>)
{
chomp($_);
my ($key, $value) = $_ =~ m/^(\w+)=(.*)$/;
$value ||= '';
$temp{$key} = $value if ($key);
}
close(CONFIG);
return \%temp;
}
1;
FILE 'config.cfg':
option1=value1
option2=value2
option3=value3
Output:
KEY: option1 VALUE: value1
KEY: option2 VALUE: value2
KEY: option3 VALUE: value3
KEY: option1 VALUE: value1
KEY: option2 VALUE: value2
KEY: option3 VALUE: value3
BioHazard
reading between the lines is my real pleasure
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|