CGI.pmã®ã¢ãããã¼ãå¾ã®ãã¡ã¤ã«å¦çãé«éã«è¡ã ã¹ãã³ãµã¼ããªã³ã¯ Tweet ã¨ããããæã£åãæ©ããã¡ã¤ã«ã¢ãããã¼ããä½ããªãã¡ããªããªããªã£ãã¨ãç¨ã®æ±ç¨ã«ã¼ãã³ã¨ãã¦CGI.pmã使ã£ãã¢ãããã¼ãã®ã½ã¼ã¹ãããã¦ãããã¨æãã¾ãããèªåç¨ã®ã¡ã¢ã ãã©åç´ã«ã¢ãããã¼ãå¾ã®å¦çãé«éãªã®ã§åèã«ãããã¨ãããã¨æãã¾ãã fillename:upload.cgi #!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use File::Copy; use File::Basename; my $upload_dir = 'upload'; # ä¿åå ã®ãã£ã¬ã¯ã㪠my $q = CGI->new(); # CGIãªãã¸ã§ã¯ã my $fh = $q->u
{{#tags}}- {{label}}
{{/tags}}