ActiveState Community

It's hard to answer your question without more info.

- Eric

I'm guessing that you're following along with tutorial:

http://www.perl.com/lpt/a/497

The section you're quoting here is not perl, it's just text. It's a sample config file for the stuff that comes later in the tutorial (which you should be able to debug in Komodo).

Yes I am following the page to a t. he calls it a class a container.
Yet it still tells me that I need semicolons and then when I put them in
it gets even worst. I am using 5.10 activestate. I dont know anything about komodo. Really. so what would komodo have to say do you think???
Thank you

So far, we've put the code for setting various options in our programs directly in the program's source code. This isn't a good approach. You may want to install a program and allow multiple users to run it, each with their own preferences, or you may want to store common sets of options for later. What you need is a configuration file to store these options.

We'll use a simple plain-text format...

That section is supposed to be saved in a separate, text file:

http://www.perl.com/2000/12/tutc.txt

... which is read by the example program:

http://www.perl.com/2000/12/sample.pl

... which uses this module:

http://www.perl.com/2000/12/TutorialConfig.pm

#Here is the pm
package TutorialConfig;

sub new {
my ($class_name) = @_;

my ($self) = {};
warn "We just created the variable...\n";

bless ($self, $class_name);
warn "and now it's a $class_name object!\n";

$self->{'_created'} = 1;
return $self;
}

sub read {
my ($self, $file) = @_;
my ($line, $section);

open (CONFIGFILE, $file) or return 0;

# We'll set a special property that tells what filename we just read.
$self->{'_filename'} = $file;

while ($line = ) {

# Are we entering a new section?
if ($line =~ /^\[(.*)\]/) {
$section = $1;
} elsif ($line =~ /^([^=]+)=(.*)/) {
my ($config_name, $config_val) = ($1, $2);
if ($section) {
$self->{"$section.$config_name"} = $config_val;
} else {
$self->{$config_name} = $config_val;
}
}
}

close CONFIGFILE;
return 1;
}

sub get {
my ($self, $key) = @_;

return $self->{$key};
}

sub set {
my ($self, $key, $value) = @_;

$self->{$key} = $value;
}

warn "TutorialConfig is successfully loaded!\n";
1;

#now here is the confile

[author];
firstname=Doug
lastname='Sheppard'

[site];
name=Perl.com
url=http://www.perl.com/
#now I have tried it both ways just in case I misunderstood something.
meaning I put the text in the pm to see if that would work and did not.
so I made the config file and it still does the same thing.
Thank you

you know when I click on the sample config file it show the text we have been talking about.

I did just that no kidding.

I am on a windows box. if I make a file called tutc.txt I would have to copy both files and I get the same results. you cant save to seperate files to one file. the problem does not go away.

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

TutorialConfig is successfully loaded!
We just created the variable...
and now it's a TutorialConfig object!
Couldn't read config file: No such file or directory at c:\inetpub\wwwroot\sample.pl line 7.

Now I have the files in a folder in perl perl/site/lib/tutc.txt
Now yesterday I did not get the cgi errors now I have them. It was a pathing problem yesterday with the cgi.

Now I get it. Thank you for the expliantion. I still have the cgi errors. I dont understand why. It work yesterday.
thank you so much.

Hi I have two strings one is for first name and the next is for last
I want to print them out but I want a space between them. what is the operator for this?
JoeBlow
Joe Blow
I want the later of the 2