Revision 1b415045
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
| scripts/locales.pl | ||
|---|---|---|
| 22 | 22 |
use FileHandle; |
| 23 | 23 |
use Getopt::Long; |
| 24 | 24 |
use IO::Dir; |
| 25 |
use List::MoreUtils qw(apply); |
|
| 25 | 26 |
use List::Util qw(first); |
| 26 | 27 |
use Pod::Usage; |
| 27 | 28 |
|
| ... | ... | |
| 180 | 181 |
if ($opt_f) {
|
| 181 | 182 |
for my $string (@new_missing) {
|
| 182 | 183 |
print "new string '$string' in files:\n"; |
| 183 |
for my $file (keys %cached) {
|
|
| 184 |
print " $file", $/ if $cached{$file}{all}{$string};
|
|
| 185 |
} |
|
| 184 |
print join "", |
|
| 185 |
map { " $_\n" }
|
|
| 186 |
apply { s{^(?:\.\./)+}{} }
|
|
| 187 |
grep { $cached{$_}{all}{$string} }
|
|
| 188 |
keys %cached; |
|
| 186 | 189 |
} |
| 187 | 190 |
} |
| 188 | 191 |
|
Auch abrufbar als: Unified diff
locales.pl: Dateinamenstreffer relativ zum ERP-Verzeichnis anzeigen