Solved

Windows type ini file modification

Posted on 2004-08-25
3
218 Views
Last Modified: 2010-03-05
Hi,

I have some code, which is used to get the values  for a windows type ini file.
My code works fine. I would like to Modify the program according to the option or brand choice.
This is my code ..........
--------------
#!/usr/bin/perl

use strict;
use warnings;

my $brand = shift || die "Must give a brand\n";

my %data;
while (<DATA>) {
  chomp;
  next unless /^\[$brand\]$/ .. !/\S/;

  next if /^\[/;
  next unless /\S/;

  my ($k, $v) = split /\s*=\s*/, $_, 2;

  $data{$k} = $v;
}

foreach (keys %data) {
  print "$_ => $data{$_}\n";
}

This is my config file.... (logins_test_1.cfg)
------------------------------------
[NEWBRAND]

#LOGIN FOR THAT PARTICULAR BRAND
#Get the LOgin and Password according to Brand
[AN]
LOGIN = H006698
PASSWORD = $"?Y??

[AZ]
LOGIN = H006699
PASSWORD = ???S?

[CL]
LOGIN = H007985
PASSWORD = 8?|?E?0

[CM]
LOGIN = H006897
PASSWORD = $"?Y??

[CU]
LOGIN = H006701
PASSWORD = $"?Y??

[GM]
LOGIN = H006703
PASSWORD = 8?|?E?0

 ------------------------------

Suppose if i want to Edit the values for brand or option say [CM] with another set of LOGIN and PASSWORD.... How can i do that?

My next Question is , How to add New Brand say[ZZ] in this file, by making use of two functiions .
1. function to Add LOGIN (will pass 2 arguments say brand and login)
2, function to Add PASSWORD ((will pass 2 arguments say brand and password)


I tried as follows and its working:

$brand = "MO";
$userid="john";
$password="test";
&add_user_id($brand,$userid);
&add_password($brand,$password);
sub add_user_id
{

#------------------------------------------------------------------------------



      

      my ($brand,$uid) = @_;
      
      my ($ok,$ans,$flag);
      $ans = read_config_file($brand);
      
      print "Here ... $ans\n";

      
      if($ans > 0)
      {
       #$ok = "Can not Add userid... Already Exists!!";
      $flag = 0;
      }
      else
      {
      $ok = $uid;
      $flag = 1;

      open(FH,">>logins_test_1.cfg");      
      flock(FH,2);
      print FH "[".$brand."]";
      print FH "\n";
      print FH "LOGIN = ".$ok;
      print FH "\n";
      flock(FH,8);
      close(FH);
      
      }
      #return ($ok,$flag,$brand);

      return $ok;


}

#------------------------------------------------------------------------------



#------------------------------------------------------------------------------

sub add_password {

#------------------------------------------------------------------------------



      my ($brand,$pwd) = @_;

      my $ok1;
      
      if($ok1)
      {
      $flag = 1;
      open(FH,">>logins_test_1.cfg");      
      flock(FH,2);
      print FH "PASSWORD = ".$ok1;
      print FH "\n";
      flock(FH,8);
        close(FH);
      }
      else
      {
      print "Error ...Can not encrypt the Password\n";
      $flag = 0;
      }      
            
      return $ok1;



}


I would like to Store the Password under the brand. Please help me to do that

Regards,
r_k
0
Comment
Question by:r_kar
3 Comments
 
LVL 48

Accepted Solution

by:
Tintin earned 250 total points
ID: 11897700
The Config::Inifiles module does everything you need.

http://search.cpan.org/~wadg/Config-IniFiles-2.38/IniFiles.pm
0

Featured Post

Active Directory Webinar

We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I have been pestered over the years to produce and distribute regular data extracts, and often the request have explicitly requested the data be emailed as an Excel attachement; specifically Excel, as it appears: CSV files confuse (no Red or Green h…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question