File: check_endings_aginst_forms.pl

package info (click to toggle)
bgoffice 4.1-7.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,192 kB
  • sloc: perl: 2,254; sh: 180; awk: 118; makefile: 83
file content (38 lines) | stat: -rwxr-xr-x 658 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
#!/usr/bin/perl

use strict;
require "../lib/bgoffice_util_module.pm";



if ($ARGV[0] eq "--help") {
	print <<EOHelp;

        
         
    .

EOHelp

	exit;
}


my $verbose = ($ARGV[0] eq "--verbose");


my $file_name = "";

while ($file_name = next_file($file_name)) {

	print "Checking $file_name ...\n" if $verbose;

	my @e = get_endings($file_name);
	my @f = get_forms($file_name);

	if ($#f != $#e) {
		print "  $file_name.\n"
		    . " <>  $#e ,     $#f.\n\n";
	}

}