my $str =
'CD_ROM=/path/of_cdrom';my ($req_path) = ($str =~ /.*\=(.*)/);print
$req_path."\n";
-Original Message-From:
[EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Pablo MoralesSent: Friday, October 18, 2002 6:48
PMTo: [EMAIL PROTECTED]Subject:
[Perl-unix-u
have you tried using CPAN module Config::IniFiles ?
http://search.cpan.org/author/WADG/Config-IniFiles-2.30/IniFiles.pm
otherwise try
open (FH, $ARGV[0]);
my %config;
foreach () {
my ($key, $value) = split "=", $_, 2;
$config{$key} = $value;
}
print $config{'CD_ROM'},"\n";
--- Pablo Mora
