Perlについての質問箱 35箱目

Perlについての質問箱 ..

511:デフォルトの名無しさん
08/06/16 08:14:00
Perlでファイルの中の指定した文字列(正規表現".*hoge$"等)にマッチする行を
削除したいのですが、どうすれば良いでしょうか?

512:デフォルトの名無しさん
08/06/16 09:38:40
>>511
URLﾘﾝｸ(perldoc.jp)
を、「ファイルのある行を削除する」で検索。

513:デフォルトの名無しさん
08/06/16 09:39:22
>>511

#!C:/perl/bin/perl

open(IN,"example.log");
while(<IN>){
if($_ =~ /hoge/){ $line .= "\n"; }
else{ $line .= "$_\n"; }
}
close(IN);

open(OUT,">exmple.cgi");
print OUT $line;
close(OUT);

print"Content-type:text/html\n\n";

print "消去完了";

みたいな感じですか？

Perlコーディング初心者質問スレ Part 57
ｽﾚﾘﾝｸ(php板)l50

514:デフォルトの名無しさん
08/06/16 10:18:02
111
222
333
444
555
666
というようなファイルがあったとして(数字は仮定です)3行目の行の
先頭にtabを2つ入れたい場合、どのようにすればいいのでしょうか。

515:デフォルトの名無しさん
08/06/16 10:24:45
くだすれ池

516:デフォルトの名無しさん
08/06/16 10:28:50
>>514
……
行数を数えながら一行ずつ読み込むループにして

if 3行目 then
先頭にtabを2つ入れる
読み込んだ行を出力する

という中身を回せばいいよ。

517:デフォルトの名無しさん
08/06/16 10:33:18
>>514

質問先は「くだすれPerl（超初心者用）2」
ｽﾚﾘﾝｸ(php板)l50
が良いらしいです。

518:デフォルトの名無しさん
08/06/16 10:50:21
>>511
>>513

すいません、間違ってました。
ｽﾚﾘﾝｸ(tech板:511番)

519:デフォルトの名無しさん
08/06/16 15:50:09
変数の中の文字列の頭のスペースを取り除きたいのですが、
どのようなほうほうがありますか？

520:デフォルトの名無しさん
08/06/16 15:55:16
>519
正規表現使う典型ケースです

521:デフォルトの名無しさん
08/06/16 16:00:36
>>519
URLﾘﾝｸ(perldoc.jp)
を、「文字列の先頭や末尾にある空白を剥ぎ取るには?」で検索。

522:デフォルトの名無しさん
08/06/16 16:01:41
>>519
ｽﾚﾘﾝｸ(php板:292番)

523:デフォルトの名無しさん
08/06/16 16:08:16
>>519
>>522

連投すいません。修正です。
ｽﾚﾘﾝｸ(php板:293番)

初歩質問はこちらが良いらしいです。
ｽﾚﾘﾝｸ(php板)l50

524:デフォルトの名無しさん
08/06/18 01:11:06
質問です。
HTML数値エンティティを文字に変換する際にはどうすればよいでしょうか。
下記の通りに実行したのですがうまくいきません
(�-ÿしか対応していない？)

#!/usr/bin/perl
use HTML::Entities::Numbered;
$str='あいうえお';
print hex2name($str); #「あいうえお」を期待するが変換前と同じ$strが出力される

525:524
08/06/18 01:12:01
$str='＆＃x3042;＆＃x3044;＆＃x3046;＆＃x3048;＆＃x304A;';

ですorz

526:デフォルトの名無しさん
08/06/18 04:57:49
>>524
> print hex2name($str); #「あいうえお」を期待するが変換前と同じ$strが出力される

いや、期待するなよ。

527:デフォルトの名無しさん
08/06/18 06:29:13
そのあたりに踏み入ったことはないのだが、マニュアルを見る限り

HTML::Entities::decode

を使うのではないか?

528:デフォルトの名無しさん
08/06/18 12:04:39
すんごい初歩的な質問で申し訳ないのですが、
Perlやってる友達がお前こんなのもできないだろと自慢してくるので、明日までにこれをやらないとまたバカにされるのですが、
プログラム自体やったことがなく意味不明すぎてよくわかりません。。誰かもしよかったら教えてください。

キーボードから整数値$aの値を入力してEnterを押し、
続けて$bの値を入力してEnterを押すと、
$aを 3 倍した値と、$bを 8 倍した値の和を計算して$cに代入し，
$cの値を画面に出力するプログラム

結果は
print "$cn";
の形で出力する
この結果の出力以外の画面出力はしないこと.

529:デフォルトの名無しさん
08/06/18 12:10:09
>>528
その友達に教えてもらいなさい

530:デフォルトの名無しさん
08/06/18 12:14:12
>529

というか、その友達から出された問題なんです。

531:デフォルトの名無しさん
08/06/18 12:23:42
宿題だろ・・・

532:デフォルトの名無しさん
08/06/18 12:37:23
それが出来たところで他の事聞かれてあぼんだな

533:デフォルトの名無しさん
08/06/18 12:40:17
「1/10の確率」

を表現するのに、これ↓はありなのか？

return 0 if rand(1000) > 100;

534:デフォルトの名無しさん
08/06/18 12:51:55
あり得ないという根拠は？

535:デフォルトの名無しさん
08/06/18 12:52:56
>>533
randが正規乱数だと仮定するならありだろ。

536:デフォルトの名無しさん
08/06/18 13:05:29
正規乱数だと仮定するならなしだろ
randが一様乱数を吐くのならありかもしれんが

537:デフォルトの名無しさん
08/06/18 13:50:36
>>528
お前こんなのもできないのか

538:デフォルトの名無しさん
08/06/18 14:25:04
綺麗な記述を勉強したいです。
どっかで配布されてる非常に綺麗で整理された記述を教えてください。
あまりにいっぱい配布されすぎててチェックできません。

539:デフォルトの名無しさん
08/06/18 14:39:00
>>538
man perlstyle
つーか、好きにしろ

540:デフォルトの名無しさん
08/06/18 16:10:12
>>538
perl medicとかは偏ってはいるけど
ポリシーとしてはまあ参考になるかもしれん
買うまでの事は無い本なので図書館で探せ

541:524
08/06/18 21:54:54
>>527
HTML::Entities::decode で無事に出来ました
今後はマニュアルをしっかり読みますm(_ _)m
ありがとうございました

542:デフォルトの名無しさん
08/06/18 22:32:54
>>538
ここはPerlのスレですよ？

543:デフォルトの名無しさん
08/06/18 22:37:24
>538
Plagger読んどけ

544:デフォルトの名無しさん
08/06/18 23:17:04
こっそり書いてみる。意味は教えないよ
perl -e 'print <STDIN>*3+<STDIN>*8,"\n"'

545:デフォルトの名無しさん
08/06/18 23:37:40
$cに代入してないじゃん

546:デフォルトの名無しさん
08/06/18 23:54:10
>>528

544とは別人だけど。

perl -e '$c=<>*8+<>*3;print"$c\n";'

また、次の問題を出されるだろうから、がんばって。