Skip to content
Snippets Groups Projects
Commit e9d4062b authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

skript pro update validacni hashe VALID_STRINGS

parent 6dc7cb60
No related branches found
No related tags found
No related merge requests found
my $hash;
our %VALID_STRINGS;
require $ARGV[0];
while (my ($key, $value_ref) = each %VALID_STRINGS) {
$hash .= " \"$key\" => [\"$value_ref->[0]\"";
shift($value_ref);
foreach my $element (@$value_ref) {
$hash .= ", \"$element\"";
}
$hash .= "],\n";
}
print $hash;
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment