in reply to Re: Substitution on string held in a variable
in thread Substitution on string held in a variable
#!/usr/bin/perl @filelist =("includes.cgi","connect.cgi","commit.cgi"); @file =(); print "Content-type:text/html\n\n"; foreach $filelist (@filelist){ $path = $ENV{'SCRIPT_FILENAME'}; $path =~ s/permissions\.cgi/$filelist/gi; push (@file,$path); } $changed = chmod 0777,@file; print "@file<br /><br />"; print "$changed files changed";
|
|---|