※ ChatGPTを利用し、要約された質問です(原文:サブルーチンの受け渡しについて)
サブルーチンの受け渡しについて
このQ&Aのポイント
サブルーチンの受け渡しについての質問
サブルーチンの受け渡しについての勉強不足
サブルーチンの受け渡しについての参考サイト
以前からいろいろな質問をさせて貰い、
沢山の方に助けてもらったことをまず感謝いたします。
sub html1:{
&serch();#ファイル検索
print qq|Content-type: text/html\n\n|;
print qq|<HTML><HEAD><TITLE>ファイル選択</TITLE></HEAD><BODY>\n|;
print qq|<BODY text="#660000" bgcolor="#f0f0f0" link="#be7e7e" vlink="#c8c891" alink="#b3b3d9">\n|;
print qq|<CENTER>\n|;
print qq|<FORM action="edit.cgi" method="GET">|;
print qq|<TABLE border="1" width="350" height="100">\n|;
print qq|<TBODY>\n|;
print qq|<TR>\n|;
print qq|<TD colspan="4" height="85" align="center" valign="middle" width="300">|;
print qq|<center>テキスト編集プログラム</center></TD>|;
print qq|</TR>|;
print qq|<TR>|;
print qq|<TD colspan="4" align="center">ファイルを選択してください。<BR>|;
print qq|<BR>|;
print qq|<SELECT name="filename" size="1">|;
foreach $file(@filelist){
print qq|<OPTION value="$file">$file</OPTION>\n|;
}
print qq|</SELECT><BR><BR>|;
print qq|</TD></TR>|;
print qq|<TR>|;
print qq|<TD colspan="4" align="center"><INPUT type="submit" value="決定"></TD>|;
print qq|</TR>|;
print qq|</TBODY>|;
print qq|</TABLE>|;
print qq|</FORM>|;
print qq|</CENTER>|;
print qq|</BODY></HTML>\n|;
サブルーチンの受け渡しが勉強が良くわからず、まだ勉強不足なので
申し訳ありませんがどうしたら良いのでしょうか?
(ここから編集ルーチンにファイル名を送る手段)
あとわかりやすい参考になるサイトなど御座いましたらよろしくお願いします。
お礼
いつもお答えありがとう御座います。 まだいろいろと勉強不足で簡単にはプログラミングというのは覚えれませんね。