[OpenSPARC-T2-SAM] / sam-t2 / devtools / v9 / lib / perl5 / 5.8.8 / CGI / eg / make_links.pl

#!/usr/local/bin/perl

# this is just a utility for creating symlinks from *.txt to *.cgi
# for documentation purposes.
foreach (<*.cgi>) {
    ($target=$_)=~s/cgi$/txt/;
    symlink $_,$target
}
Commit	Line	Data
920dae64 AT	1	#!/usr/local/bin/perl
	2
	3	# this is just a utility for creating symlinks from .txt to .cgi
	4	# for documentation purposes.
	5	foreach (<*.cgi>) {
	6	($target=$_)=~s/cgi$/txt/;
	7	symlink $_,$target
	8	}