Espressione regolare per questo file

[Claudio Vituzzi]

Dai un'occhiata a questo codice:

#!/perl

use strict;
use warnings;
use Data::Dumper;
use vars qw(%mvconfig);

&LOAD_CONFIG;

print Dumper(%mvconfig);

sub LOAD_CONFIG {

	if (!-e "config.txt") { die "Non trovo il file config.txt\n$!\n" }

	open CONF, "config.txt";
	while (<CONF>) {
		$mvconfig{$1} = $2 if ( $_ =~ /^(\w+?):(.+?)\n/ );
	}
	
}

bisogna solo togliere gli spazi di troppo all'inizio delle stringhe...

naturalmente nel file config.txt abbiamo:

DeviceMode:             0600
RingsBeforeAnswer:      1
SpeakerVolume:          off
GettyArgs:              "-h %l dx_%s"
LocalIdentifier:        "MS Informatica Srl"
TagLineFont:            etc/lutRS18.pcf
TagLineFormat:          "From %%l|%c|Page %%P of %%T"