[CGI_20080726_01]の変更点 - aurora72source2 @ ウィキ

CGI_20080726_01

「CGI_20080726_01」の編集履歴（バックアップ）一覧はこちら

「CGI_20080726_01」(2008/07/26 (土) 13:12:29) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

aaa test01.txt test01.html test01.cgi <a href="http://www6.atpages.jp/aurora72source2/cgi/test005/ls01.html">http://www6.atpages.jp/aurora72source2/cgi/test005/ls01.html</a> <a href="http://www6.atpages.jp/aurora72source2/cgi/test005/upload.html">http://www6.atpages.jp/aurora72source2/cgi/test005/upload.html</a> <a href="http://www6.atpages.jp/aurora72source2/cgi/test005/test01.html">http://www6.atpages.jp/aurora72source2/cgi/test005/test01.html</a> aaa <?xml version="1.0" encoding="Shift_JIS"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "<a href="http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd</a>"> <html xmlns="<a href="http://www.w3.org/1999/xhtml">http://www.w3.org/1999/xhtml</a>" xml:lang="ja"> <head> <title>アップロード用フォーム</title> </head> <body> <h1>アップロード用フォーム</h1> <form action="upload.cgi" method="post" enctype="multipart/form-data"> updir（Remote）： <input type="text" name="updir"> localdir（Localdir）： <input type="text" name="localdir"> upfile： <input type="file" name="filename01" /> <input type="text" name="filename02" /> Mode（例：0700）： <input type="text" name="filemode"> <input type="submit" value="送信" /> <input type="reset" value="リセット" /> </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("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -al ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); # $cmd01 = "cp -a ./tmpfile $filename |"; # print("$cmd01 \n"); open(IN, "cp -apbf ./tmpfile $filename | "); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -al ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); # ファイル保存 # 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> ファイルのアップロードが完了しました。 HTML_VIEW print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -al ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print $query->end_html; exit; aaa

aaa test01.txt test01.html test01.cgi <a href="http://www6.atpages.jp/aurora72source2/cgi/test005/ls01.html">http://www6.atpages.jp/aurora72source2/cgi/test005/ls01.html</a> <a href="http://www6.atpages.jp/aurora72source2/cgi/test005/upload.html">http://www6.atpages.jp/aurora72source2/cgi/test005/upload.html</a> <a href="http://www6.atpages.jp/aurora72source2/cgi/test005/test01.html">http://www6.atpages.jp/aurora72source2/cgi/test005/test01.html</a> aaa <?xml version="1.0" encoding="Shift_JIS"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "<a href="http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd</a>"> <html xmlns="<a href="http://www.w3.org/1999/xhtml">http://www.w3.org/1999/xhtml</a>" xml:lang="ja"> <head> <title>アップロード用フォーム</title> </head> <body> <h1>アップロード用フォーム</h1> <form action="upload.cgi" method="post" enctype="multipart/form-data"> updir（Remote）： <input type="text" name="updir"> localdir（Localdir）： <input type="text" name="localdir"> upfile： <input type="file" name="filename01" /> <input type="text" name="filename02" /> Mode（例：0700）： <input type="text" name="filemode"> <input type="submit" value="送信" /> <input type="reset" value="リセット" /> </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("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -alt ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); # $cmd01 = "cp -a ./tmpfile $filename |"; # print("$cmd01 \n"); open(IN, "cp -apbf ./tmpfile $filename | "); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -al ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); # ファイル保存 # 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> ファイルのアップロードが完了しました。 HTML_VIEW print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -alt ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); open(IN, "ls -al ./ |"); while (<IN>) { print $_; print ' '; } close(IN); print("=========================================== \n"); print("=========================================== \n"); print("=========================================== \n"); print $query->end_html; exit; aaa

表示オプション

横に並べて表示：

変化行の前後のみ表示：

aurora72source2 @ ウィキ

メニュー

リンク

他のサービス

更新履歴

CGI_20080726_01

「CGI_20080726_01」(2008/07/26 (土) 13:12:29) の最新版変更点