Perl コーディング初心者質問コーナー Part30

>>951
もしかして \n ？(^-^)

$u

URLじゃなかったっけ(;´д｀)？

『うろ覚えだけど変数の話をしてみよう』スレになってきたな

テキストファイルに保存されている151,241といったような数字を
151だけ$number1などに代入するのはどのようにすればよいですか？

何から手をつけてよいのかちんぷんかんぷん。

>>955
漏れらも君がどこでつまづいているのかちんぷんかんぷんだ。

例えばcnt.txtというファイルの中に「151,241」とデータがあって
それを
open(IN,"cnt.txt");
@log = <IN>;
close(IN);

という形で読んだとして
@logの151,241という数字をどのように
$number_1→151　$number_2→241
とそれぞれに割り当てるのかがちんぷんかんぷんなんです。

>1は読んだ？

>>957
こういう例でいいっすか

$str = "151,241";
($number_1,$number_2) = split(',',$str);
print "number1 = $number_1 : number2 = $number_2 \n";

外部fileを読み取りたい場合はそのフォーマットを述べなさい。
それだけで充分。

while(<IN>){
no strict 'refs';
$num++;
${'number_' . $num} = split (/,/$_);
}

一番手っ取り早いのはこれだけどあまり勧められた方法じゃない。

↑やっぱすごく間違えた。流して。

>>960

while(<IN>){
　my @log = split (/,/$_);
　my $num = 0;
　foreach my $logs (@log){
　　no strict 'refs';
　　$num++;
　　${'main::number_' . $num} = $logs;
　}
}

これを書きたかったのかな？
てかスカラーに入れる意味がなさげな典型な悪寒。

つか俺も間違えてる……………鬱
my $num = 0;
これループの外で…。あー、こんな時にPCに向かってるから頭バグったっぽい。

ファイルオープンせずにファイルを空にする方法ってあります？

>>964
理解　分解　再構築

錬金術でつか？

>>964
truncate

>>967
> ファイルオープンせずに

>>964
touch and rename

>>968
http://www.harukaze.net/~mishima/perl/man/perlfunc.1.html
>truncate FILEHANDLE,LENGTH
>truncate EXPR,LENGTH
> FILEHANDLE 上にオープンされたファイルか、EXPR で名前
> を表わしたファイルを、指定した長さに切り詰めます。
> システム上に truncate がインプリメントされていなけれ
> ば、致命的エラーとなります。

truncate('test.txt', 0); # test.txtファイルを0バイトに切り詰める

そろそろ次スレ立てない？

そだね。
part28 http://pc2.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc2.2ch.net/php/kako/1066/10662/1066286828.html
過去ログ化早い。
変更はこれぐらい？

立てました。
Perl コーディング初心者質問コーナー Part31
http://pc2.2ch.net/test/read.cgi/php/1072896288/

乙

ところでエディタのタブはみんな何文字にしてる？

ちなみに俺は8文字で、タブ文字も表示させてる。
最近4文字でタブ非表示に切り替えようと思ってるだけど見にくい。。。全然慣れない。

タブを入力すると自動的に必要なインデント分のスペースに変換される。
ちなみに4桁インデントだから1タブ=4空白だな。

>>970
できました。多謝。

1tab = 4space タブ、改行、EOF表示。
場合によっては全角スペースも表示。

>975
4
8だと横に長くなりすぎて読み難い。

#!/usr/bin/perl -w
の最後に -w 付けるのと付けないのではどう異なるんでつか？

>>980
Perlの機嫌がよくなる

会話で「〜ｗ」って使うでしょ？
ｱﾚのこと

>>980
http://perldoc.com/perl5.8.0/pod/perlrun.html

みんな4なんだなー。
やっぱ俺も早く4になじもう。周囲との互換性のために。

>>978
改行まで表示させたらウザくない？
俺は左側に行番号表示させてるから普通にしてても改行分かる。
俺はタブ、EOF、全角スペースは常に表示させてる。
4で表示させる時はタブ消す。


ちなみに秀丸でした。

4のほうがｲｲﾖｰ
8は横行き過ぎだ
2重ネストで見にくくない？3重になると・・・

中級になるとネストしないように書けるようになるよ。

それがPerlの醍醐味

上級になるとループすら使わずに書けるようになるもんなぁ。

>>985>>986
そうか・・・
俺はまだ未熟者なんだな。
精進します

慣れると２重くらいぜんぜんきにしない。
コードの部分が必要な機能満たしているかどうかきにするだけで。。。

>>987
grep map $_ @_ とりあえず、これらの使い方を覚えてみるといい。
驚くほどコードが短くなる。
引数を省略した時の動作とかを覚えるのも手だろう。

>>823 とか流石なくらいに短いよな。

しかしコードの長さと可読性は量子力学的に反比例の関係になるので、
自分の身の程をわきまえつつ、ほどほどにな。

>>990
> しかしコードの長さと可読性は量子力学的に反比例の関係になるので、
それは一概に言えないと思うけど...
perlじゃないけど関数型言語なんかコードが短くて可読性の高い例。
で、量子力学的に反比例ってどういう意味？量子力学的にって

不確定性原理に基づいた結論なのだろう。

量子力学的にっていう言葉がなぜ出てくるか分からないが
・読みやすければ長い
・短くすれば読みにくい
つまり、
可読性∝コードの長さ/1
ということではないだろうか！！！！












・・・

grepを見るとELTのGrip!を連想してしまう俺って・・・

そんなあなたに連想配列（ﾌﾟﾌﾟﾗｯﾁｮ

禿しくﾜﾗﾀ（ｹﾞﾗﾌﾟｯﾌﾟｰ

>>995>>996
ﾜﾗﾀ

>>997
だろ？

>>998
ですな

1000!

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。