File: create-links.pl

package info (click to toggle)
doc-rfc 20120225-2
  • links: PTS, VCS
  • area: non-free
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 461,380 kB
  • ctags: 166
  • sloc: xml: 204,780; perl: 240; sh: 59; makefile: 10
file content (18 lines) | stat: -rwxr-xr-x 393 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#! /usr/bin/perl -w

use strict;

my $dirs = `ls -d */usr/share/doc/RFC`;

for my $dir (split /\s+/, $dirs) {
	print "$dir ...\n";
	mkdir "$dir/links";
	my $files = `ls $dir/*/rfc[0-9]* $dir/*/*/rfc[0-9]* 2>/dev/null`;
	for my $file (split /\s+/, $files) {
		$file =~ s[^.*/RFC/][../];
		my $file2 = $file;
		$file2 =~ s[^.*/][];
		symlink $file, "$dir/links/$file2" or die "$file: $!";
	}
}