equal
deleted
inserted
replaced
271 my $path = shift; |
271 my $path = shift; |
272 my %meta; |
272 my %meta; |
273 open(my $fh => $path); |
273 open(my $fh => $path); |
274 while (<$fh>) { |
274 while (<$fh>) { |
275 last if /^$/; |
275 last if /^$/; |
276 /^(?<k>\S+):\s+(?<v>.*?)\s*$/ |
276 /^(?<k>\S+):\s+(?:(?<n>\d+)|(?<v>.*?))\s*$/ |
277 and do { $meta{ $+{k} } = $+{v}; next; }; |
277 and do { |
|
278 # na sowas, die Zeitstempel dürfen nicht als Zeichenkette reinkommen! |
|
279 $meta{ $+{k} } = defined $+{n} ? (0+$+{n}) : $+{v}; |
|
280 next; |
|
281 }; |
278 } |
282 } |
279 return %meta; |
283 return %meta; |
280 } |
284 } |
281 |
285 |
282 } |
286 } |