fork download 
  1. use strict;
  2. use CGI;
  3. use CGI::Carp qw ( fatalsToBrowser );
  4. use File::Basename;
  5.  
  6. $CGI::POST_MAX = 1024 * 1024 * 50;
  7. my $safe_filename_characters = "a-zA-Z0-9_.-";
  8. my $upload_dir = "/var/www/upload";
  9.  
  10. my $query = new CGI;
  11. if ( $query->request_method() eq 'GET' )
  12. {
  13.   print $query->header ( );
  14.   print <<END_HTML;
  15.   <!doctype html>
  16.   <head>
  17.   <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  18.   <title>Upload</title>
  19.   </head>
  20.   <body>
  21.   <form action="." method="post" enctype="multipart/form-data">
  22.   <input type="file" name="filename">
  23.   <input type="submit">
  24.   </form>
  25.   </body>
  26.   </html>
  27.   END_HTML
  28. exit;
  29. }
  30.  
  31. my $filename = $query->param("filename");
  32.  
  33. if ( !$filename )
  34. {
  35. print $query->header ( );
  36. print "There was a problem uploading your file (try a smaller file).";
  37. exit;
  38. }
  39.  
  40. my ( $name, $path, $extension ) = fileparse ( $filename, '..*' );
  41. $filename = $name . $extension;
  42. $filename =~ tr/ /_/;
  43. $filename =~ s/[^$safe_filename_characters]//g;
  44.  
  45. if ( $filename =~ /^([$safe_filename_characters]+)$/ )
  46. {
  47. $filename = $1;
  48. }
  49. else
  50. {
  51. die "Filename contains invalid characters";
  52. }
  53.  
  54. my $upload_filehandle = $query->upload("filename");
  55.  
  56. open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
  57. binmode UPLOADFILE;
  58.  
  59. while ( <$upload_filehandle> )
  60. {
  61. print UPLOADFILE;
  62. }
  63.  
  64. close UPLOADFILE;
  65.  
  66. print $query->header ( );
  67. print <<END_HTML;
  68. <!doctype html>
  69. <head>
  70. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  71. <title>Upload complete</title>
  72. </head>
  73. <body>
  74. <p>File uploaded, thanks.</p>
  75. </body>
  76. </html>
  77. END_HTML
  78.  
Runtime error #stdin #stdout #stderr 0.03s 5196KB
comments (?)
stdin 
Standard input is empty
stdout 
Status: 500
Content-type: text/html

<h1>Software error:</h1>
<pre>Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$name&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$path&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$extension&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$name&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$extension&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$upload_filehandle&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$filename&quot; requires explicit package name at prog.pl line 14.
Global symbol &quot;$upload_filehandle&quot; requires explicit package name at prog.pl line 14.
Missing right curly or square bracket at prog.pl line 77, at end of line
  (Might be a runaway multi-line &lt;&lt; string starting on line 14)
prog.pl has too many errors.
</pre>
<p>
For help, please send mail to this site's webmaster, giving this error message 
and the time and date of the error.

</p>
stderr 
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$name" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$path" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$extension" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$name" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$extension" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$upload_filehandle" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$filename" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Global symbol "$upload_filehandle" requires explicit package name at prog.pl line 14.
[Thu Sep 18 00:06:18 2014] prog.pl: Missing right curly or square bracket at prog.pl line 77, at end of line
[Thu Sep 18 00:06:18 2014] prog.pl:   (Might be a runaway multi-line << string starting on line 14)
[Thu Sep 18 00:06:18 2014] prog.pl: prog.pl has too many errors.
https://ideone.com/OHHDsF
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!