aaa<?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>ls用フォーム</title> </head> <body> <h1>ls用フォーム</h1>
<form action="ls01.cgi" method="post" enctype="multipart/form-data"> <p> dir(Remote): <input type="text" name="updir"><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('updir');
# HTML出力print $query->header(-charset=>'Shift_JIS'), $query->start_html(-lang=>'ja', -encoding=>'Shift_JIS', -title=>'ls01.cgi');
print("===========================================<br>\n");print("===========================================<br>\n");print("===========================================<br>\n");
open(IN, "pwd |");while (<IN>) { print $_; print '<BR>';}close(IN);
open(IN, "ls -alRtF $filename |");while (<IN>) { print $_; print '<BR>';}close(IN);
open(IN, "ls -alR $filename |");while (<IN>) { print $_; print '<BR>';}close(IN);
print $query->end_html;exit;aaa
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。