if($zeile!~m#^.*:.*$#){# : must be minimum once present
if($zeile!~m#^.*:.*$#){# : must be minimum once present
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("",'ERROR: wrong construct in --add_key_value="'.$zeile.'", expected --add_key_value="key:value", regexp to match is (^[^:]+:[^:]+$)',"","red");
SLUB::LZA::SIPBuilderBagIt::print_scalar_data("",'ERROR: wrong construct in --add_key_value="'.$zeile.'", expected --add_key_value="key:value", regexp to match is (^[^:]+:[^:]+$)',"","red");
die();
die();
}else{
}
utf8::decode($zeile);
utf8::decode($zeile);
my@keyvalue=split(/:/,$zeile,2);# split on first :
my@keyvalue=split(/:/,$zeile,2);# split on first :