Perlについての質問箱 35箱目
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
450:デフォルトの名無しさん 08/06/11 18:56:50 printf だ！ printf を挟め！ 451:デフォルトの名無しさん 08/06/11 18:59:07 if(!$hoge->{'hoged'}){ $hoge->{'hoged'} = []; } push(@{$hoge->{'hoged'}}, $hoging); これをスマートに書く方法ありませんか？ ちなみに$hogingは2箇所以上に書くなら一時変数必要です。 452:デフォルトの名無しさん 08/06/11 19:04:06 少し説明がヘタだとは思いますが以下の処理をしたいです。お願いします。 ★処理の方法 行の先頭が [ の場合には、行の先頭が 20 の行の先頭にそれを加える 行の先頭が 空白の場合には一旦処理を終えて再度行の先頭の [ を読む 行の先頭に < がきた場合にはその処理を終えて再度行の先頭の [ を読む 結合した場合、その文字列の最後に必ず区切り文字としてタブを挟む ●処理前のabc.txt <100100> [1044]あいうえお 20321 1137 4850328 60 20321 1137 4850328 60 20321 1137 4850328 60 【合計1044】 [1047]かきくけこ 20319 1090 3870357 20319 1101 3870369 【合計1047】 [1051]さしすせそ 20328 1206 4131038 52 20328 1206 4131045 52 20328 1206 4131045 52 【合計1047】 【累計】 <100200> [1057]たちつてと 20328 1206 4131045 52 20328 1206 4131045 52
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5390日前に更新/139 KB
担当:undef