Google-Anzeigen

hi, ich will aus einer textdatei, die so aussieht: ... ... $os=windows; .... ... .. die variable $os auslesen und in mein aktuelles perl program übernehmen. der fehler mus im regülaren ausdruck bei $a sein. habe jetzt alles ausprobiert. hier der code: $os= getvarfromfile("\$os"); print($os); sub getvarfromfile() { open(configfile, "foreach() { my $a ="^$_[0]\\s*=\\s*"; if($_ =~/$a/) { my $tmp; my @tmp = split(/"/,$'); foreach (@tmp){$tmp=$tmp.$_}; my @tmp=split(/;/,$tmp); return $tmp[0]; } } }

Google-Anzeigen