[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / 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
86530b38 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	}