Help for this page

Select Code to Download


  1. or download this
      my $request=$ENV{'QUERY_STRING'};
  $request=~/([-\w_]+\.($ext))/g;
  my $file=$1;
  2. or download this
      my ($file) = $ENV{'QUERY_STRING'} =~ /([-\w_]+\.($ext))/g;
  3. or download this
      foreach(@code){
    $_=~s/</&lt;/g;
    $_=~s/>/&gt;/g;
  }
  4. or download this
      foreach(@code){
    s/</&lt;/g;
    s/>/&gt;/g;
  }