This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Change macro name to better indicate its purpose
[perl5.git] / cpan / CGI / examples / make_links.pl
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 }