Perlについての質問箱 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
801:デフォルトの名無しさん 07/05/26 08:26:14 一応質問者の為に一行サービスしといたけど。本嫁本。 こんなの例題に出てくるだろが。 open IN, "data.csv" ; open OUT, ">", "out.csv" ; print OUT "X,Y,Z＼n" ; (undef,my @index ) = split /,/, do{ $_ = <IN> ; s/＼s+//g ; $_ } ; for ( reverse (<IN>) ){ s/＼s+//g ; next if /^#/ ; my ( $index, @dat ) = split /,/ ; for my $i ( 0 .. $#dat ){ print OUT join "," ,$index,$index[$i],$dat[$i] . "＼n" ; } } close IN ; close OUT ; 802:デフォルトの名無しさん 07/05/26 10:48:45 >>799-801 おまいらやさしいな 803:797 07/05/26 13:30:30 >>799-801 皆さん、どうもありがとうございます。 教えていただいたコードを読んで勉強します。 ところで、私のような初心者向けの本にはどんなものがありますか？ 現在手元には、「Perlの絵本」といわゆる「らくだ本」の2冊がありますが、前者はまったくの初心者向けで今回の質問の答えは見いだせません。 一方、後者は私には取っつきにくくて、ヒントが書いてあるのかも知れませんが、見つけられませんでした。 なお、Visual BASICとTurbo PASCALはある程度勉強しました。 近くに大きな本屋がないので、現物を手にとって見比べることができません。アドバイスをいただければ幸いです。よろしくお願いします。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5383日前に更新/220 KB
担当:undef