pipipi523 の回答履歴

掲示板に投稿編集機能付けたい http://okwave.jp/qa2963467.html 追加質問をどうやってすればいいのか分からないので、また質問させて頂きます。 前回教えて頂いたのを四苦八苦して何度もやり直ししたあげく、 なんとか修正画面を出せるようになりましたが、、 修正画面から戻るボタンを押すと記事が見当たらないと表示されてします。 どうやら、edit機能が効いてなく、飛んだ瞬間に削除が働いている気がします。 #--修正対象データが見つかるまでループ--# $flag1 = 0; $flag2 = 0; foreach $line (@DATA) { ($no,$name,$mail,$age,$state,$comment,$hoop,$risou,$max,$date,$H_A,$m_pass,$looks) = split(/\,/, $line); if ($in{'number'} eq "$no") { $flag1 = 1; chomp $m_pass; if ($crypted eq "$m_pass" || $in{'pass'} eq "$master_key") { $flag2 = 1; $line =~ s/.*\n//; last; } else { &lock2; &error("パスワードが一致しません"); } } } #--修正対象Noが見つからなかった場合のエラー処理ー--# unless ($flag1) { &lock2; &error("記事No$in{'number'}が見つかりません"); } if ($flag2) { if ($in{'sex'} eq "0") { if (!open(OUT,">$mensfile")) { &lock2; &error("$mensfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } elsif ($in{'sex'} eq "1") { if (!open(OUT,">$ladysfile")) { &lock2; &error("$ladysfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } &lock2; しかも、修正画面にそれぞれの箇所が反映されません。 print <<"HERE"; <TR><TD nowrap align="right">会員ID/</TD><TD nowrap> <INPUT type="text" name="id" size="10" value="$id"></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">お名前/</TD> <TD nowrap><INPUT type="text" size="24" name="name" value="$name"> <INPUT type="radio" name="sex" value="0">男性 <INPUT type="radio" name="sex" value="1">女性</TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">E-mail/</TD> <TD nowrap><INPUT type="text" size="48" name="email" value="$email"></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">希望する相手/</TD> <TD nowrap><INPUT type="text" size="29" name="risou" value="$risou"> <SELECT name="hoop"> <OPTION selected>男女ともに</OPTION> <OPTION value="男性のみ">男性のみ</OPTION> <OPTION value="女性のみ">女性のみ</OPTION></SELECT></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">タイトル/</TD> <TD nowrap><input type="text" size="46" name="title" value="$title"></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right" valign="top">メッセージ/</TD> <TD nowrap><TEXTAREA name="comment" rows="10" cols="53" value="$comment"></TEXTAREA></TD></TR><BR> HERE print <<"HERE"; <TR><TD align="right">メール制限/</TD><TD nowrap> <SELECT name="max"> <OPTION value="0" selected>制限なし</OPTION> <OPTION value="5">5通まで</OPTION> <OPTION value="10">10通まで</OPTION> <OPTION value="20">20通まで</OPTION> <OPTION value="30">30通まで</OPTION> <OPTION value="40">40通まで</OPTION> <OPTION value="50">50通まで</OPTION> </SELECT></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right"></TD> <TD nowrap colspan="2"> <INPUT type="submit" value=" 書込する "><INPUT type="reset" value="リセット"> </TD></TR></TABLE><BR> </FORM> HERE &html_footer; exit; } exit; } このような記述で画面は出せました。 もう悩み過ぎて禿げそうです。 どうやったら正常な修正機能を追加できるでしょうか？

掲示板に投稿編集機能付けたい http://okwave.jp/qa2963467.html 追加質問をどうやってすればいいのか分からないので、また質問させて頂きます。 前回教えて頂いたのを四苦八苦して何度もやり直ししたあげく、 なんとか修正画面を出せるようになりましたが、、 修正画面から戻るボタンを押すと記事が見当たらないと表示されてします。 どうやら、edit機能が効いてなく、飛んだ瞬間に削除が働いている気がします。 #--修正対象データが見つかるまでループ--# $flag1 = 0; $flag2 = 0; foreach $line (@DATA) { ($no,$name,$mail,$age,$state,$comment,$hoop,$risou,$max,$date,$H_A,$m_pass,$looks) = split(/\,/, $line); if ($in{'number'} eq "$no") { $flag1 = 1; chomp $m_pass; if ($crypted eq "$m_pass" || $in{'pass'} eq "$master_key") { $flag2 = 1; $line =~ s/.*\n//; last; } else { &lock2; &error("パスワードが一致しません"); } } } #--修正対象Noが見つからなかった場合のエラー処理ー--# unless ($flag1) { &lock2; &error("記事No$in{'number'}が見つかりません"); } if ($flag2) { if ($in{'sex'} eq "0") { if (!open(OUT,">$mensfile")) { &lock2; &error("$mensfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } elsif ($in{'sex'} eq "1") { if (!open(OUT,">$ladysfile")) { &lock2; &error("$ladysfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } &lock2; しかも、修正画面にそれぞれの箇所が反映されません。 print <<"HERE"; <TR><TD nowrap align="right">会員ID/</TD><TD nowrap> <INPUT type="text" name="id" size="10" value="$id"></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">お名前/</TD> <TD nowrap><INPUT type="text" size="24" name="name" value="$name"> <INPUT type="radio" name="sex" value="0">男性 <INPUT type="radio" name="sex" value="1">女性</TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">E-mail/</TD> <TD nowrap><INPUT type="text" size="48" name="email" value="$email"></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">希望する相手/</TD> <TD nowrap><INPUT type="text" size="29" name="risou" value="$risou"> <SELECT name="hoop"> <OPTION selected>男女ともに</OPTION> <OPTION value="男性のみ">男性のみ</OPTION> <OPTION value="女性のみ">女性のみ</OPTION></SELECT></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right">タイトル/</TD> <TD nowrap><input type="text" size="46" name="title" value="$title"></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right" valign="top">メッセージ/</TD> <TD nowrap><TEXTAREA name="comment" rows="10" cols="53" value="$comment"></TEXTAREA></TD></TR><BR> HERE print <<"HERE"; <TR><TD align="right">メール制限/</TD><TD nowrap> <SELECT name="max"> <OPTION value="0" selected>制限なし</OPTION> <OPTION value="5">5通まで</OPTION> <OPTION value="10">10通まで</OPTION> <OPTION value="20">20通まで</OPTION> <OPTION value="30">30通まで</OPTION> <OPTION value="40">40通まで</OPTION> <OPTION value="50">50通まで</OPTION> </SELECT></TD></TR><BR> HERE print <<"HERE"; <TR><TD nowrap align="right"></TD> <TD nowrap colspan="2"> <INPUT type="submit" value=" 書込する "><INPUT type="reset" value="リセット"> </TD></TR></TABLE><BR> </FORM> HERE &html_footer; exit; } exit; } このような記述で画面は出せました。 もう悩み過ぎて禿げそうです。 どうやったら正常な修正機能を追加できるでしょうか？

フォームメールのチェックボックスで、ユーザーの選択した値が受信メールに反映されず、困っています。 アドバイスを宜しくお願い致します。 ■HTML（抜粋） <input type=checkbox name=color value="赤">赤 <input type=checkbox name=color value="青">青 <input type=checkbox name=color value="白">白 ■CGI（抜粋） # 連想配列に格納 &ReadParse(*data); $color = $data{'color'}; # sendmail open(MAIL, "| $sendmail -t"); $mail .= "好きな色=$color\n"; # まとめて日本語変換 &jcode'convert(*mail,'jis'); # メール送信 print MAIL $mail; 上記のように記述してメールを受信すると、 　好きな色= と、肝心の値の部分が空欄になってしまいます。 チェックボックス以外のテキスト入力やラジオボタンの値はメールにもちゃんと反映されています。 同じ内容のフォームメールをFLASHでも作りましたが、FLASHの方ではチェックボックスの値も全て表示できました。 　好きな色=赤,白 なぜHTMLの方だけ値を拾えないのでしょうか？ HTMLのnameをcolorという同じグループ(?)でくくっているからでしょうか？ 送信後の処理以外はFLASHのCGIスクリプトと同じものなのですが・・・。 希望としては、チェックボックスで複数選択した値をカンマでつなげたまま受信したいと思っています。 CGIの勉強は始めたばかりなので、もしかしたらとても初歩的なところでつまづいているのかもしれませんが、アドバイスをどうぞ宜しくお願いいたします。

<a href=\"cart.cgi?del=$id\">取消</a>　というスクリプトがでてきたのですが、これはcart.cgiというファイルのどこへ飛びなさいといういみなのでしょうか。サブルーチンではなさそうなのですが・・・

質問の補足ができないので、新たに掲載します。 掲示板に投稿編集機能が無いので、付けようと奮闘しています。 書き込み時に削除PASSを入力するようになっています。 それを利用して投稿編集機能を付けたいです。 以下がユーザーの記事削除処理の部分ですが、 elsif ($in{'action'} eq 'usr_kill') { &kill_action; }##←始めの部分 記事表示部分↓↓↓ <FORM method="$method" action="$cgifile"> <INPUT type="hidden" name="action" value="usr_kill"> <INPUT type="hidden" name="sex" value="$in{'sex'}"> <BR> <TABLE cellspacing="0" width="200" border="0"> <TR align="left"><TD nowrap colspan="3"><B>【記事削除フォーム】</B></TD></TR> <TR><td nowrap align="right">記事No/</TD> <TD><input size="4" type="text" name="number"></TD></TR> <TR><td nowrap align="right">パスワード/</TD> <TD nowrap><INPUT size="10" type="password" name="pass"> <INPUT type="submit" value="削除"></TD></TR> </TABLE></FORM> 下の方にあるルーチン↓↓↓ ###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ## SUB >>> ユーザー記事削除処理 ###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ sub kill_action { if ($in{'number'} eq "") { &error("記事Noを入力してください"); } elsif ($in{'number'} =~ /\D/) { &error("記事Noは半角数字で入力してください"); } elsif ($in{'pass'} eq "") { &error("パスワードを入力してください"); } &lock1; if ($in{'sex'} eq '0') { &mens_read("lock2"); } elsif ($in{'sex'} eq '1') { &ladys_read("lock2"); } #--パスワードを暗号化--# $crypted = crypt($in{'pass'}, "xx"); #--削除対象データが見つかるまでループ--# $flag1 = 0; $flag2 = 0; foreach $line (@DATA) { ($no,$name,$mail,$age,$state,$comment,$hoop,$risou,$max,$date,$H_A,$m_pass,$looks) = split(/\,/, $line); if ($in{'number'} eq "$no") { $flag1 = 1; chomp $m_pass; if ($crypted eq "$m_pass" || $in{'pass'} eq "$master_key") { $flag2 = 1; $line =~ s/.*\n//; last; } else { &lock2; &error("パスワードが一致しません"); } } } #--削除対象Noが見つからなかった場合のエラー処理ー--# unless ($flag1) { &lock2; &error("記事No$in{'number'}が見つかりません"); } if ($flag2) { if ($in{'sex'} eq "0") { if (!open(OUT,">$mensfile")) { &lock2; &error("$mensfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } elsif ($in{'sex'} eq "1") { if (!open(OUT,">$ladysfile")) { &lock2; &error("$ladysfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } &lock2; #--削除に成功したら完了メッセージを表示--# &html_head; &title; print <<"HERE"; <CENTER><TABLE width="560"> <TR><TD bgcolor="$top_t_bgc"><CENTER> <FONT color="$top_t_color"><B>削除完了！</B></FONT> </CENTER></TD></TR></TABLE><BR><BR> <FORM method="post" action="$cgifile"> <TABLE cellspacing="0" cellpadding="5" border="1"> <TR><TD nowrap bgcolor="#ffffd9" align="center"> <B>記事No$in{'number'}を削除しました。</B><BR><BR> <INPUT type="submit" value=" TOP "></TD></TR> </TABLE></FORM> HERE &html_footer; exit; } exit; } これに対しての回答が下記の一件ですが、 ↓↓↓ 削除と再登録が簡単に出来れば修正と同じことだと思いますので、 elsif ($in{'action'} eq 'edit') { &edit; } を追加したらeditの内容は kill_actionの削除処理を行った後に削除したデータを基にvalueやselectedを使って入力済みの状態にしたin_dataの処理を入れたらOKだと思います ～とのことですが、 プルダウンで選択させているところなどはどうすればいいのでしょう。 あらたにeditのルーチンを作ったとして、 どこからどこを追加して、何を記述してどうやって作れば良いか分かりません。 ズバッと回答して下さる勇者様はおりませんか？

モバイル端末のフォームについて質問があります。 DoCoMoの場合、methodはPOST、softbankは新しい機種であればPOSTで古い機種であればGETということまで分かりました。 AUの場合、POSTが使えるのでしょうか？それともGETを使う方がいいのでしょうか？ 簡単に以下にフォームソースを作ってみたので、分かる方がおられましたらご教授お願いします。 <form action=test.cgi method=post> 名前<input type=text name=name> 住所<input type=text name=adress> <input type=submit value=登録> </form>

独自ドメイン＋ホスティングサーバーにて携帯サイトを作り、 小説を書こうと思っています。 かなり長い文章になるので、ページを細かく分けるのですが、 ttp://ip.tosp.co.jp/BK/TosBK100.asp?I=koKo2rei0&BookId=6&SPA=200 ここのページのようにフォームのテキストボックスにページ数を入力して目的のページに飛ばすことをしたいと考えています。 上記のページはaspですが、プログラミングは全く出来ないので、 cgiなどを使って応用出来ませんでしょうか? cgiの紹介やアドバイスなどがあればよろしくお願いします。

独自ドメイン＋ホスティングサーバーにて携帯サイトを作り、 小説を書こうと思っています。 かなり長い文章になるので、ページを細かく分けるのですが、 ttp://ip.tosp.co.jp/BK/TosBK100.asp?I=koKo2rei0&BookId=6&SPA=200 ここのページのようにフォームのテキストボックスにページ数を入力して目的のページに飛ばすことをしたいと考えています。 上記のページはaspですが、プログラミングは全く出来ないので、 cgiなどを使って応用出来ませんでしょうか? cgiの紹介やアドバイスなどがあればよろしくお願いします。

jewel http://www.groo-web.com/jewel.html こちらの掲示板を独学でカスタマイズして使ってますが、 投稿編集機能が無いので、付けようと奮闘しています。 書き込み時にデフォルトで削除PASSを入力するようになっています。 それを利用して投稿編集機能を付けたいのですが、 ご教授願います。 以下がユーザーの記事削除処理の部分ですが、 elsif ($in{'action'} eq 'usr_kill') { &kill_action; }##←始めの部分 記事表示部分↓↓↓ <FORM method="$method" action="$cgifile"> <INPUT type="hidden" name="action" value="usr_kill"> <INPUT type="hidden" name="sex" value="$in{'sex'}"> <BR> <TABLE cellspacing="0" width="200" border="0"> <TR align="left"><TD nowrap colspan="3"><B>【記事削除フォーム】</B></TD></TR> <TR><td nowrap align="right">記事No/</TD> <TD><input size="4" type="text" name="number"></TD></TR> <TR><td nowrap align="right">パスワード/</TD> <TD nowrap><INPUT size="10" type="password" name="pass"> <INPUT type="submit" value="削除"></TD></TR> </TABLE></FORM> 下の方にあるルーチン↓↓↓ ###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ## SUB >>> ユーザー記事削除処理 ###+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ sub kill_action { if ($in{'number'} eq "") { &error("記事Noを入力してください"); } elsif ($in{'number'} =~ /\D/) { &error("記事Noは半角数字で入力してください"); } elsif ($in{'pass'} eq "") { &error("パスワードを入力してください"); } &lock1; if ($in{'sex'} eq '0') { &mens_read("lock2"); } elsif ($in{'sex'} eq '1') { &ladys_read("lock2"); } #--パスワードを暗号化--# $crypted = crypt($in{'pass'}, "xx"); #--削除対象データが見つかるまでループ--# $flag1 = 0; $flag2 = 0; foreach $line (@DATA) { ($no,$name,$mail,$age,$state,$comment,$hoop,$risou,$max,$date,$H_A,$m_pass,$looks) = split(/\,/, $line); if ($in{'number'} eq "$no") { $flag1 = 1; chomp $m_pass; if ($crypted eq "$m_pass" || $in{'pass'} eq "$master_key") { $flag2 = 1; $line =~ s/.*\n//; last; } else { &lock2; &error("パスワードが一致しません"); } } } #--削除対象Noが見つからなかった場合のエラー処理ー--# unless ($flag1) { &lock2; &error("記事No$in{'number'}が見つかりません"); } if ($flag2) { if ($in{'sex'} eq "0") { if (!open(OUT,">$mensfile")) { &lock2; &error("$mensfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } elsif ($in{'sex'} eq "1") { if (!open(OUT,">$ladysfile")) { &lock2; &error("$ladysfile ファイルオープンエラー"); } print OUT @DATA; close(OUT); } &lock2; #--削除に成功したら完了メッセージを表示--# &html_head; &title; print <<"HERE"; <CENTER><TABLE width="560"> <TR><TD bgcolor="$top_t_bgc"><CENTER> <FONT color="$top_t_color"><B>削除完了！</B></FONT> </CENTER></TD></TR></TABLE><BR><BR> <FORM method="post" action="$cgifile"> <TABLE cellspacing="0" cellpadding="5" border="1"> <TR><TD nowrap bgcolor="#ffffd9" align="center"> <B>記事No$in{'number'}を削除しました。</B><BR><BR> <INPUT type="submit" value=" TOP "></TD></TR> </TABLE></FORM> HERE &html_footer; exit; } exit; } これに以下を追加して作ることは可能なんでしょうか？ elsif ($in{'action'} eq 'edit') { &edit; } または elsif ($in{'action'} eq 'edit2') { &edit2; } なんとかできるように教えて下さい。お願いします。

「ニッチな仕事」のニッチって何ですか？

「ニッチな仕事」のニッチって何ですか？

いつもお世話になっております。 春よりシステム監視者を任されまして、 「各個人がどのようなサイトにいつアクセスしたか」という監視(制限)をしなくてはなりました。 そこで、皆さんにお聞かせ願いたいのですがどのような ソフトを使用し、インターネット閲覧を管理をされているのでしょうか。ご意見お聞かせください。 OS：Windows Server 2003　or　Windows Server XP(Pro) 以上、よろしくお願いいたします。

チャバネゴキブリが大量に発生して困っています。 で、今度、FTTHを引くための工事の事前調査にNTTの人がくるので、 即効性のある退治方法を教えてもらいたくて、ここに書き込みました。 地雷型の兵器、ゴキブリホイホイなどを置いておくと、２～３日で満タンになるほどです。 また、大量殺戮兵器のバルサン等は、煙感知器に反応してしまうために 使用できません。 飼い猫もまったく役に立たず、困っております。 時間は31日まで。これまでに、なんとか調査員が嫌がらない程度まで 減らしたいのです。 ちなみに黒い大型のゴキブリはでません。 チャバネのみです。皆様の知恵を貸してください。 よろしくお願いいたします。

会社で昔の名簿を新しく書き替えている作業をしているのですが、生年月日が昭和、平成でかかれているので、わざわざ西暦に直して現在の年齢を出さなくてはいけないのでとてもめんどうで作業が進まず困っています。 昭和、平成を西暦に直すのは手間がかかりますがなんとか計算して書き直しましたが、年齢は毎年変わっていくものなのでデータを開くたびに自動的に書き換えできるような計算式がないかなぁ～と思うのですが・・・。 良い方法があったら教えてください。

自社サイトのHTMLから外部のCGIにPOSTでユーザ名などの情報を送信をしなくてはなりません。 HTML内にhiddenで書き込みする事はセキュリティの面からNGとなっており、HTMLからformタグで自社サイト内のCGIを起動し、そのCGIから直接POST送信するように指定されてます。 直接POST送信させる方法が分かれば教えてもらえますでしょうか。 よろしくおねがいします。

今、イチゴを育てているのですがどこからともなく アブラムシがいちごの新芽？のところにビッチリ・・・ |||i＿|￣|●i|||去年、一昨年は今年ほどアブラムシが付いていなかったので、一匹づつつまようじで退治していたのですが、今年のアブラムシの数はちょっと・・・異常なので、どうしたいいのかよく分かりません 薬を撒こうか迷ったのですが、今まで薬を使わなかったので、今までどぉりできるだけ薬は使いたくないのですが、どうすればいいでしょうか？何か方法はありますか？教えてください。

perlの更新記録CGIを改造中です。 テキストエリアを数個設置しているのですが、うまく保存が出来ません。 新規情報を入力するときはちゃんと改行したいデータも保存されます。しかし、修正画面で、何もしないでそのまま保存し直したところ、変に改行が入ってしまいます。(情報の途中で改行が入るので、ゴミレコードが増えてしまう。) 修正画面からログに書き込む手前で<BR>の変換をしていますが、何が間違っているのでしょうか? $in{'kouc1'} =~ s/\r\n/<br>/g; $in{'kouc1'} =~ s/\r/<br>/g; $in{'kouc1'} =~ s/\n/<br>/g; $in{'kouc2'} =~ s/\r\n/<br>/g; $in{'kouc2'} =~ s/\r/<br>/g; $in{'kouc2'} =~ s/\n/<br>/g; $in{'kouc3'} =~ s/\r\n/<br>/g; $in{'kouc3'} =~ s/\r/<br>/g; $in{'kouc3'} =~ s/\n/<br>/g; 新規入力のほうもまったく同じ状態ですが、こちらは正常に保存されます。 足りない情報があればすぐに指摘をお願いします。

ずっと使っていたノートパソコンが壊れてしまい、思い切ってデスクトップを購入しました。 インターネットへの接続はずっと無線LANカードを使っていたのですが、今回購入したデスクトップにはカードを差し込む場所が付いていないため、有線接続にしようかと思ったのですが、パソコンが置いてあるのは二階で、ルータがあるのは１階のため相当ケーブルを伸ばさなければいけません。 そこで引き続き無線LANを使用したいと考えているのですが、カードは使えないのでUSBタイプのものを購入しようと思います。 ルータは既存のものがあるのですが、他メーカー同士のルータ⇔USB無線LANでの接続は可能なのでしょうか？ http://www.ntt-east.co.jp/ced/goods/7000/ を使っているんですが http://www.amazon.co.jp/exec/obidos/ASIN/B0002T79O4/pasoconeco-ce-22 を買っても問題なく使えるでしょうか？

key.csvというファイルに以下のようなデータが入っています。 U1362-2005-05-16 12:00 U1363-2005-05-16 12:00 U13255-2005-05-16 12:10 key.csvのデータ数は毎回異なります。 この各行の文字列を検索キーとして data.csvに含まれるデータとのパターンマッチングを行いたいのです。 data.csvには U1306-2005-05-16 12:00-xxx,1 U1362-2005-05-16 12:00-xxx,1 U1363-2005-05-16 12:00-xys,2 U1365-2005-05-16 12:00-xys,3 U13255-2005-05-16 12:10-yyy,1 のようにデータが入っています。 この例ではパターンマッチによって U1362-2005-05-16 12:00-xxx,1 U1363-2005-05-16 12:00-xys,2 U13255-2005-05-16 12:10-yyy,1 という結果を得たいです。 key.csvが一定のデータではないので =~//; の中に特定の数値を入れることも出来ないので、$key[0]などの変数を入れたいのですがうまくいきません。 どうしたらよいでしょうか？

key.csvというファイルに以下のようなデータが入っています。 U1362-2005-05-16 12:00 U1363-2005-05-16 12:00 U13255-2005-05-16 12:10 key.csvのデータ数は毎回異なります。 この各行の文字列を検索キーとして data.csvに含まれるデータとのパターンマッチングを行いたいのです。 data.csvには U1306-2005-05-16 12:00-xxx,1 U1362-2005-05-16 12:00-xxx,1 U1363-2005-05-16 12:00-xys,2 U1365-2005-05-16 12:00-xys,3 U13255-2005-05-16 12:10-yyy,1 のようにデータが入っています。 この例ではパターンマッチによって U1362-2005-05-16 12:00-xxx,1 U1363-2005-05-16 12:00-xys,2 U13255-2005-05-16 12:10-yyy,1 という結果を得たいです。 key.csvが一定のデータではないので =~//; の中に特定の数値を入れることも出来ないので、$key[0]などの変数を入れたいのですがうまくいきません。 どうしたらよいでしょうか？