note
jeffa
One problem you have is you are opening the file that you
are supposed to be reading in write mode in the second
example. That's not good. :)
<p>
Second, use [cpan://File::Basename] to get the basename
(and don't forget your header!):
<code>
use strict;
use CGI qw(:standard);
use File::Basename;
my $file = param('file');
my $name = fileparse($file);
print header;
if (open (FILE, $name)) {
my $data = do {local $/; <FILE>; };
print $data;
}
else {
print "can't open '$name'";
}
</code>
<p>jeffa</p>
<font size=1>
<pre>
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(<a href="http://jeffa.perlmonk.org/tripdid.mp3">the triplet paradiddle with high-hat</a>)
</pre></font>
219606
219606