Perl config file Help - Shell Programming and Scripting

Harikrishna · #1 (**permalink**) 05-16-2008

HI

I have a config file (ip.config)that has the following fields with colon as delimeter.

yahoo.com:1919 ( host and port number)
rediffmail.com:2020
gmail.com:2121

How to read it in a perl script. I need to parse the host and port number in the perl script using split function ...Please Help

era · #2 (**permalink**) 05-16-2008

Code:

my ($host, $port) = split /:/;

If the input line still has a trailing newline at this point, you want to chomp it first.

Harikrishna · #3 (**permalink**) 05-16-2008

Quote:

Originally Posted by era

Code:

my ($host, $port) = split /:/;

If the input line still has a trailing newline at this point, you want to chomp it first.

I am newbee in perl i want to open this configfile in a perl script. so how to read this config file from a perl script and get the host and port number..
plz help

Yogesh Sawant · #4 (**permalink**) 05-17-2008

here you go:

Code:

#!/usr/bin/perl
# read_config.pl
my $filename = shift;
my %host_info = ();
open (CONF_FILE, '<', $filename)  or  die "Failed to read file $filename : $!";
while (<CONF_FILE>) {
    chomp;
    next  if (m/^$/);        # Skip empty lines
    next  if (m/^\s*#/);    # Skip comments
    if (m/^(.*?):(\d+)/) {
        $host_info{$1} = $2;
    }
}
close (CONF_FILE);

Harikrishna · #5 (**permalink**) 05-18-2008

Quote:

Originally Posted by Yogesh Sawant

here you go:

Code:

#!/usr/bin/perl
# read_config.pl
my $filename = shift;
my %host_info = ();
open (CONF_FILE, '<', $filename)  or  die "Failed to read file $filename : $!";
while (<CONF_FILE>) {
    chomp;
    next  if (m/^$/);        # Skip empty lines
    next  if (m/^\s*#/);    # Skip comments
    if (m/^(.*?):(\d+)/) {
        $host_info{$1} = $2;
    }
}
close (CONF_FILE);

HI Yogesh

my $filename = shift;
my %host_info = ();

These two syntax giving error..
How i could give my $filename = shift;????

Yogesh Sawant · #6 (**permalink**) 05-19-2008

what error do you see?

Harikrishna · #7 (**permalink**) 05-20-2008

Quote:

Originally Posted by Yogesh Sawant

what error do you see?

Hi Yogesh it worked.. Thanks a lot....

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
Perl config file Help	Harikrishna	Shell Programming and Scripting	2	05-21-2008 09:07 PM
Perl config file Help	Harikrishna	Shell Programming and Scripting	5	05-19-2008 01:40 AM
Extracting data from text file based on configuration set in config file	suparnbector	Shell Programming and Scripting	3	08-09-2007 11:25 PM
using config file	mape	Shell Programming and Scripting	1	09-06-2006 10:37 PM
Perl CGI to access / edit "root" owned config files	WIntellect	Shell Programming and Scripting	1	04-23-2003 12:48 PM

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode