1

2つのことを行うcgi-scriptが欲しいです。

  1. フォームから入力を取得します。
  2. フレームの入力値に基づいて結果を生成します。

また、結果が生成/印刷された後にのみフレームが存在するようにしたいです。

以下は私がやりたいことの簡略化されたコードです。しかし、どういうわけかそれは機能しません。それを行う正しい方法は何ですか？

    #!/usr/local/bin/perl

    use CGI ':standard';

    print header;
    print start_html('A Simple Example'),
        h1('A Simple Example'),
        start_form,
        "What's your name? ",textfield('name'),
        p,
        "What's the combination?",
        p,
        checkbox_group(-name=>'words',
               -values=>['eenie','meenie','minie','moe'],
               -defaults=>['eenie','minie']),
        p,
        "What's your favorite color? ",
        popup_menu(-name=>'color',
               -values=>['red','green','blue','chartreuse']),
        p,
        submit,
        end_form,
        hr;

    if (param()) {

        # begin create the frame

print <<EOF;
<html><head><title>$TITLE</title></head>
<frameset rows="10,90">
<frame src="$script_name/query" name="query">
<frame src="$script_name/response" name="response">
</frameset>
EOF

# Finish creating frame


        print 
        "Your name is: ",em(param('name')),
        p,
        "The keywords are: ",em(join(", ",param('words'))),
        p,
        "Your favorite color is: ",em(param('color')),
        hr;
    }
    print end_html;
4

4 に答える 4

3

HTML フレームセットは他のドキュメントを参照します。一度にすべてを作成して、1 回の応答ですべてをユーザー エージェントに送信するわけではありません。フレームセットとフレーム参照のみを出力すると、ブラウザは各フレームを個別に取得するために余分な作業を行います。

フレームセットがどのように機能するかを読んでください:

于 2010-04-23T15:33:30.913 に答える
2

アスカーは次のように述べています。

また、結果が生成/印刷された後にのみフレームが存在するようにします。

CGI.pm がフレームをサポートしているにもかかわらず、これは扱いにくいものです。フレームセットを使用する理由について言及していないため、フレームセット アプローチを使用する価値があるかどうかを判断する必要があります。

1 つのオプションは、非表示のフレームでそれを偽造することです。

以下を確認する必要がある場合があります。

  1. まず、ここでフレームの CGI.pm サポートについて参照してください。Doc
    - http://stein.cshl.org/WWW/CGI/#frames
    Example - http://stein.cshl.org/WWW/CGI/examples/frameset.txt
    試してみてください - http://stein.cshl.org/WWW/CGI/examples/frameset.pm

    フレームを効果的に使用するのは難しい場合があります。クエリと応答が並べて表示される適切なフレームセットを作成するには、スクリプトを 3 つの機能セクションに分割する必要があります。最初のセクションは、宣言を作成して終了する必要があります。2 番目のセクションは、クエリ フォームを作成し、それを 1 つのフレームに入れる役割を果たします。3 番目のセクションは、応答を作成し、それを別のフレームに転送します。

  2. フレームセットを動的に変更する方法については、次のリファレンスを参照してください。

    1 つの参照 - http://www.codeguru.com/forum/archive/index.php/t-373259.html
    その他の参照 - http://www.google.com/search?q=javascript+dynamically+resize+frameset +列

    a. したがって、最初にフレームセットを最初に作成しますが、応答フレームを非表示にします。

    <frameset rows="100%,*">`

    b. その後、JavaScript を使用してフレームのサイズを動的に変更します。http://stein.cshl.org/WWW/CGI/examples/frameset.txtのコードを例として使用するprint_responseと、javascript を出力してフレームセットを変更し、フレームのサイズを変更するルーチンを変更する必要があります (つまり、非表示の応答フレーム):

    parent.document.getElementsByTagName("FRAMESET").item(1).cols = '10,90';
于 2010-05-02T16:49:03.953 に答える
1

ユーザーのブラウザーに表示されるページの構造を変更したい場合 (つまり、以前は存在しなかったフォームが送信されたときにフレームを作成する場合)、クライアント側の JavaScript を使用してそれを行う必要があります。これは、フレームが存在するが表示され、フォームが送信されたときにそれを表示するのと同じくらい簡単な場合もあれば、実際にフレームを作成するために DOM 操作を伴う場合もあります。

ただし、特定の要件によっては、フレームの代わりに空の <div> を使用し、AJAX 経由で入力する方がよいでしょう。CGI::Ajaxは、これを行うための最も簡単な方法です。とにかく (フレームを表示または作成するために) javascript を使用する必要があるため、AJAX ベースのアプローチでは、サイトのユーザーに新しい要件が追加されることはありません。

編集：うわー...ドライブバイ反対票の説明はありますか? 私が質問に答えられなかったと思いますか？私は単に間違っていますか？私を啓発します！

于 2010-04-23T09:16:09.527 に答える
1

アスカーは次のように述べています。

また、結果が生成/印刷された後にのみフレームが存在するようにします。

CGI.pm がフレームをサポートしているにもかかわらず、これは扱いにくいものです。フレームセットを使用する理由について言及していないため、フレームセット アプローチを使用する価値があるかどうかを判断する必要があります。

いつ出力されるかを制御するには、条件と補足情報を使用する必要があります:クエリ フォームが印刷されるとき、フレームセットが印刷されるとき、および個々のフレームが印刷されるとき。トリックは、どの HTML/フレームを出力するかを示す pathinfo を使用して、フレームをスクリプトの後ろに向けて、目的の時間にフレームセットを出力することです。

まず、フレームの CGI.pm サポートについては、こちらを参照してください。

フレームを効果的に使用するのは難しい場合があります。クエリと応答が並べて表示される適切なフレームセットを作成するには、スクリプトを 3 つの機能セクションに分割する必要があります。最初のセクションは、宣言を作成して終了する必要があります。2 番目のセクションは、クエリ フォームを作成し、それを 1 つのフレームに入れる役割を果たします。3 番目のセクションは、応答を作成し、それを別のフレームに転送します。

http://stein.cshl.org/WWW/CGI/examples/frameset.txtを変更して、やりたいことをやろうとしましたが、テストしていません/できません（CGI.pmサーバーはありませんすぐに利用できる）。デバッグなしで機能するかどうかは真剣に疑問です。しかし、うまくいけば、これで実行するための基本的なアイデアが得られます。最初にhttp://stein.cshl.org/WWW/CGI/examples/frameset.txtを調べてから、以下の変更を参照してください。

#!/usr/local/bin/perl

### UNTESTED CODE ###

use CGI;
$query = new CGI;
print $query->header;
$TITLE="Frameset Example";

# We use the path information to distinguish between calls
# to the script to:
# (1) create the frameset
# (2) create the query form
# (3) create the query response

$path_info = $query->path_info;

# If no path information is provided, then we create 
# print query form            ###new####
# a side-by-side frame set    ###old###
if (!$path_info) {
    #&print_frameset;   ###old### 
    &print_html_header; ###new###
    &print_query        ###new###
    &print_end;         ###new###
    exit 0;
}

# If response path             ###new###
if ($path_info=~/response/) {  ###new###
    &print_frameset;           ###new###
    exit 0;                    ###new###
}                              ###new###

# If we get here, then we either create the query form
# or we create the response.
&print_html_header;
#&print_query if $path_info=~/query/;             ###old###
#&print_response if $path_info=~/response/;       ###old###
&print_query if $path_info=~/frame-query/;        ###new###
&print_response if $path_info=~/frame-response/;  ###new###
&print_end;


# Create the frameset
sub print_frameset {
    $script_name = $query->script_name;
    print <<EOF;
<html><head><title>$TITLE</title></head>
<frameset cols="50,50">
<!--frame src="$script_name/query" name="query"-->           <!--###old###-->
<!--frame src="$script_name/response" name="response"-->     <!--###old###-->
<frame src="$script_name/query" name="frame-query">          <!--###new###-->
<frame src="$script_name/response" name="frame-response">    <!--###new###-->
</frameset>
EOF
    ;
    exit 0;
}

sub print_html_header {
    print $query->start_html($TITLE);
}

sub print_end {
    print qq{<P><hr><A HREF="../index.html" TARGET="_top">More Examples</A>};
    print $query->end_html;
}

sub print_query {
    $script_name = $query->script_name;
    print "<H1>Frameset Query</H1>\n";
    #print $query->startform(-action=>"$script_name/response",-TARGET=>"response");   ###old###
    print $query->startform(-action=>"$script_name/response");  ###new###
    print "What's your name? ",$query->textfield('name');
    print "<P>What's the combination?<P>",
    $query->checkbox_group(-name=>'words',
          -values=>['eenie','meenie','minie','moe']);

    print "<P>What's your favorite color? ",
    $query->popup_menu(-name=>'color',
         -values=>['red','green','blue','chartreuse']),
    "<P>";
    print $query->submit;
    print $query->endform;
}

sub print_response {
    print "<H1>Frameset Result</H1>\n";
    unless ($query->param) {
 print "<b>No query submitted yet.</b>";
 return;
    }
    print "Your name is <EM>",$query->param(name),"</EM>\n";
    print "<P>The keywords are: <EM>",join(", ",$query->param(words)),"</EM>\n";
    print "<P>Your favorite color is <EM>",$query->param(color),"</EM>\n";
}
于 2010-05-02T16:48:12.973 に答える