File: info2txt.pl

package info (click to toggle)
fidogate 4.4.7-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 5,784 kB
  • ctags: 2,957
  • sloc: ansic: 24,413; perl: 4,932; makefile: 885; sh: 824; yacc: 662; tcl: 415
file content (31 lines) | stat: -rwxr-xr-x 413 bytes parent folder | download | duplicates (4) 
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
 
#!/usr/bin/perl
#
# $Id: info2txt.pl,v 4.1 1997/07/25 21:01:30 mj Exp $
#
# Stripping control stuff from .info file, yielding plain text
#

while(<>) {
    if( /^\c_/ ) {		# Start of node
	$x = <>;
	next;
    }

    if( /^\* Menu:/ ) {		# Menu
	next;
    }

    if( /^Node: .*\c?.*$/ ) {	# Nodes
	next;
    }

    if( /^\(Indirect\)/ ) {
	next;
    }

    if( /\.info-\d+: \d+$/ ) {
	next;
    }

    print $_;
}