
Kanji
User
/ Moderator
Jul 26, 2000, 6:32 AM
Post #2 of 12
(9161 views)
|
With very little in the way of error or sanity checking ... <BLOCKQUOTE><font size="1" face="Arial,Helvetica,sans serif">code:</font><HR> #!/usr/bin/perl -w use CGI qw/ :standard /; use CGI::Carp qw/ fatalsToBrowser /; my $file = "/tmp/file.mine"; print header; if ( param('content') ) { open FILE, "> $file" or die "Can't open $file: $!"; print FILE param('content'); close FILE; print "File overwritten ...", hr; } elsif ( param ) { print "Nothing to write ...", hr; } print start_form, textarea( -name => 'content', -force => 1, -default => "", -rows => 10, -cols => 60 ), submit( -value => 'Overwrite' ), end_form;</pre><HR></BLOCKQUOTE>
|