Mercurial > hg > chronicle
annotate bin/check-titles @ 306:5293e131c0d0
Fixing comments link location
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Mon, 22 Dec 2008 12:07:59 +0000 |
parents | a9e686d7f419 |
children |
rev | line source |
---|---|
227 | 1 #!/usr/bin/perl -w |
2 # | |
3 # A simple utility which will process each "*.txt" file inside a named | |
4 # directory. | |
5 # | |
6 # Any entries with a duplicate title will be alerted. | |
7 # | |
8 # Steve | |
9 # | |
10 | |
11 use strict; | |
12 use warnings; | |
13 | |
14 | |
15 # | |
16 # Get the directory and ensure it exists. | |
17 # | |
18 my $dir = shift; | |
19 die "Usage: $0 directory" unless ( defined($dir) ); | |
20 die "Not a directory : $dir" unless ( -d $dir ); | |
21 | |
22 | |
23 # | |
24 # The hash of arrays | |
25 # | |
26 my $titles; | |
27 | |
28 | |
29 # | |
30 # Find the files. | |
31 # | |
32 foreach my $file ( sort( glob( $dir . "/*" ) ) ) | |
33 { | |
34 | |
35 # | |
36 # Skip non-files | |
37 # | |
38 next if ( -d $file ); | |
39 next if ( $file =~ /~$/ ); | |
40 | |
41 # | |
42 # Title for this entry. | |
43 # | |
44 my $title = undef; | |
45 | |
46 # | |
47 # Read each file, and look for the title. | |
48 # | |
49 open( IN, "<", $file ) | |
50 or die "Failed to read $file - $!"; | |
51 foreach my $line (<IN>) | |
52 { | |
53 $title = $2 | |
54 if ( !defined($title) | |
55 && ( $line =~ /^(Subject|Title):(.*)/i ) ); | |
56 | |
57 } | |
58 close(IN); | |
59 | |
60 # | |
228
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
61 # Ignore entries with no title. |
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
62 # |
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
63 next if ( !$title ); |
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
64 |
a9e686d7f419
Make sure we only include entries with title.
Steve Kemp <steve@steve.org.uk>
parents:
227
diff
changeset
|
65 # |
227 | 66 # Get current entries we might have found with |
67 # this title; and add on the new one. | |
68 # | |
69 my $a = $titles->{ $title }; | |
70 push( @$a, $file ); | |
71 $titles->{ $title } = $a; | |
72 } | |
73 | |
74 | |
75 # | |
76 # Now look for dupes | |
77 # | |
78 my $fail = 0; | |
79 foreach my $title ( keys %$titles ) | |
80 { | |
81 my $a = $titles->{ $title }; | |
82 | |
83 if ( ( scalar @$a ) > 1 ) | |
84 { | |
85 print "Title: $title\n"; | |
86 foreach my $file (@$a) | |
87 { | |
88 print "\t" . $file . "\n"; | |
89 } | |
90 | |
91 $fail = 1; | |
92 } | |
93 } | |
94 | |
95 | |
96 exit($fail); |