Rolf B's Lösung

[beatovich]

hallo

sub perldata_to_htmlscript_ob{
	my $hash_of_objects = shift;
	my $result = '';
	foreach( keys %{ $hash_of_objects } ){
		$result .= sprintf( qq{var %s = %s;\n}, $_, encode_json( $hash_of_objects->{$_} ) );
	}
	$result =~ s{</script}{<\\/script}ig;
	$result =~ s{<script}{<\\script}ig;
	$result =~ s{<!--}{<\\!--}ig;
	# https://www.w3.org/TR/html51/semantics-scripting.html#script-content-restrictions
	# <!--  ===>  <\!-- , <script ===> <\script , </script  ===>  <\/script
	return sprintf("<script>\n//<!--\n%s\n// -->\n</script>\n", $result );
}

Ich kann Perl kaum lesen geschweigedenn schreiben, aber ich glaub du musst den regulären Ausdrücken noch sagen, dass sie case-insenstive matchen sollen.

Ja, das kann sogar ich in der Spec nachvollziehen.

danke

Jetzt brauche ich noch gute Testdata.