File: insert.pl

package info (click to toggle)
rudiments 0.31-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 7,516 kB
  • ctags: 3,248
  • sloc: asm: 23,776; cpp: 22,792; sh: 7,769; ansic: 1,769; makefile: 1,054; xml: 169; perl: 19
file content (25 lines) | stat: -rwxr-xr-x 424 bytes parent folder | download | duplicates (2) 
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
 
#!/usr/bin/perl

use FileHandle;


my $guide=new FileHandle;
$guide->open($ARGV[0]);

foreach $guideline(<$guide>) {
	if ($guideline=~m/^@.*@$/) {
		my $partfilename=$guideline;
		$partfilename=~s/@//g;
		my $partfile=new FileHandle;
		$partfile->open("parts/$partfilename");
		foreach $partfileline(<$partfile>) {
			print $partfileline;
		}
		$partfile->close();
	} else {
		print $guideline;
	}
}

$guide->close();
exit;