くだすれPerl（超初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
98:nobodyさん 07/02/26 13:07:30 bWsttIN4 改造です。 先頭行でなく最終行を取得しないとマズいことに気づいたんですが どうすればいいでしょうか。 --------- if ($in{'ori_ie_id'} eq "admin"){ $bbs1_log_file = "./member/admin/bbs".$in{'bbs_num'}."_log.cgi"; }else{ $bbs1_log_file = "./member/$in{'ori_ie_id'}/bbs1_log.cgi"; } open(IN,"$bbs1_log_file") || &error("Open Error : $bbs1_log_file"); # 先頭行を取得 $total_counter = <IN>; ($total_counter,$all_total_counter)= split(/<>/, $total_counter); $top = <IN>; local($b_num,$b_name,$b_date,$b_res,$b_count,$b_com)= split(/<>/, $top); -------------------------- 99:nobodyさん 07/02/26 16:00:02 よし、エスパー３級の俺が答えてやろう。 複数行の入力を取った場合配列になる。 @lines = <INPUT>; この場合に最後の要素はこう所得できる。 $lastline = $lines[-1]; もしくはこう書いても良いだろう。 $lastline = pop(@lines); これらの違いについてはマニュアルを嫁。 分かったら次からはエスパーじゃなくても分かる言葉で書くように。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4292日前に更新/307 KB
担当:undef