home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / make_links.pl < prev    next >
Encoding:
Perl Script  |  2003-11-06  |  196 b   |  9 lines
  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. }
  9.