read the config file and put the values into variables

[Amma]

Hi Everyone,

As I am having liitle bit perl knowledge,I was trying to read the config file contents and put the values into some variables.

Config File Contents:

#Header:Putting Header on Excel Sheet
Header_Text=Sample Report Sheet
Header_Color=red
Header_Merge_Info=A:D
#Subheader1:Putting Subheader1
SubHeader1_Text=Sample Subtitle1 Sheet
SubHeader1_Color=red
SubHeader1_Merge_Info=A:B
#Subheader2:Putting Subheader2
SubHeader1_Text=Sample Subtitle2 Sheet
SubHeader1_Color=red
SubHeader1_Merge_Info=C:D

Needed Output:
[CODE=perl]
$p1=Sample Report Sheet
$p2=red
$p3=A
$p4=D
$p5=Sample Subtitle1 Sheet
$p6=red
$p7=A
$p8=B
$p9=Sample Subtitle2 Sheet
$p10=red
$p11=C
$p12=D
[/CODE]

Pls do help me on this at the earliest.

[miller]

Greetings Amma,

What have you tried so far?

- Miller

[KevinADC]

Greetings Amma,

What have you tried so far?

- Miller

Same reply by me on the perlguru forum.

[miller]

Same reply by me on the perlguru forum.

Ahh ... yes. I learn quickly master. ;)

- M

[KevinADC]

Ahh ... yes. I learn quickly master. ;)

- M

It's time for you to leave grasshopper. ;)

[Amma]

Dear Kevin,

Thanks on this Reply !

I have been developed the following code.

[CODE=perl]
#!usr/bin/env perl -w

use strict;
use warnings;

open(FILE, "<Config.txt")o r die "Couln't open file1.txt: $!";

while (<FILE>) {
chomp;

my @Fld = split /=/, $_;
foreach my $token (@Fld) {
print "\n$token";
}
}

close(FILE);

##### End code #####
exit;
[/CODE]

But the thing is ,it's not giving corrected form.

I am looking to leave the lines start with # and once i found '=' i need to take the value of the same.
pls help me on this !

[KevinADC]

As posted on the other forum (based on the code you PM'd me):

One possibility:


[CODE=perl]#!usr/bin/env perl -w

use strict;
use warnings;
my @p = ();
open(FILE, "<Config.txt")o r die "Couln't open Config.txt: $!";
while(<FILE>){
next if (/^#/);
chomp;
my $var = (split(/=/))[1];
if ($var =~ /^(.*?):(.*)/) {
push @p,$1,$2;
}
else {
push @p ,$var;
}
}
close(FILE);
print "$_\n" for @p;
##### End code #####
exit;

[/CODE]

[Amma]

Dear Kevin,

First of all,I would be thankful to you!.
Could you pls send me standard tutorial url's so that i can start working on the same.

Best Regards !
Amma.

As posted on the other forum (based on the code you PM'd me):

One possibility:


[CODE=perl]#!usr/bin/env perl -w

use strict;
use warnings;
my @p = ();
open(FILE, "<Config.txt")o r die "Couln't open Config.txt: $!";
while(<FILE>){
next if (/^#/);
chomp;
my $var = (split(/=/))[1];
if ($var =~ /^(.*?):(.*)/) {
push @p,$1,$2;
}
else {
push @p ,$var;
}
}
close(FILE);
print "$_\n" for @p;
##### End code #####
exit;

[/CODE]