aaatest01.txttest01.htmltest01.cgihttp://www6.atpages.jp/aurora72source2/cgi/test005/ls01.htmlhttp://www6.atpages.jp/aurora72source2/cgi/test005/upload.htmlhttp://www6.atpages.jp/aurora72source2/cgi/test005/test01.htmlaaa<?xml version="1.0" encoding="Shift_JIS"?><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja"> <head> <title>アップロード用フォーム</title> </head> <body> <h1>アップロード用フォーム</h1>
<form action="upload.cgi" method="post" enctype="multipart/form-data"> <p> updir(Remote): <input type="text" name="updir"><BR></p> <p> localdir(Localdir): <input type="text" name="localdir"><BR></p> <p>upfile:</p> <p><input type="file" name="filename01" /></p> <p><input type="text" name="filename02" /></p> <p>Mode(例:0700): <input type="text" name="filemode"><BR></p> <p> <input type="submit" value="送信" /> <input type="reset" value="リセット" /> </p> </form>
</body></html>#!/usr/local/bin/perl -w
# モジュール読み込みuse strict;use CGI;
my ($buffer);
# オブジェクト作成my $query = new CGI;
# $f = $_POST['filename'];my $filename = $query->param('filename02');my $filemode = $query->param('filemode');
# ファイル取得my $fH = $query->upload('filename01');
# MIMEタイプ取得my $mimetype = $query->uploadInfo($fH)->{'Content-Type'};
# HTML出力print $query->header(-charset=>'Shift_JIS'), $query->start_html(-lang=>'ja', -encoding=>'Shift_JIS', -title=>'upload.cgi');
print("===========================================<br>\n");print("===========================================<br>\n");print("===========================================<br>\n");
open(IN, "ls -alt ./ |");while (<IN>) { print $_; print '<BR>';}close(IN);
# $cmd01 = "cp -a ./tmpfile $filename |";
# print("$cmd01<br>\n");
open(IN, "cp -apbf ./tmpfile $filename | ");while (<IN>) { print $_; print '<BR>';}close(IN);
open(IN, "ls -al ./ |");while (<IN>) { print $_; print '<BR>';}close(IN);
# ファイル保存# open (OUT, ">Savefile") || die "Can't open Savefile!";open (OUT, ">$filename") || die "Can't open Savefile!";binmode (OUT);while(read($fH, $buffer, 1024)){ print OUT $buffer;}close (OUT);close ($fH) if ($CGI::OS ne 'UNIX'); # Windowsプラットフォーム用chmod ("$filemode", "$filename");
print <<"HTML_VIEW";<h1>ファイルアップロード</h1><ul> <li>ファイル名:$fH</li> <li>MIMEタイプ:$mimetype</li></ul><p>ファイルのアップロードが完了しました。</p>HTML_VIEW
print $query->end_html;exit;
aaa
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。