[p5sagit/p5-mst-13.2.git] / lib / 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
7b43481a	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	}