File: extractall.pl

package info (click to toggle)
fortunes-es 1.32
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 1,288 kB
  • ctags: 104
  • sloc: ansic: 628; makefile: 199; sh: 153; perl: 40
file content (19 lines) | stat: -rwxr-xr-x 210 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/bin/perl
#
$line="";
while (<STDIN>) {
	chomp;
	s/^\s+//;
	s/\s+/ /;
	if (/^%/) {
		print $line."\n";
		$line="";
	} else {
		if ($line ne "") {
			$line="$line $_";
		} else {
			$line=$_;
		}
	}
}
exit 0;