Perl初心者スレ（マジレス回答） (523ﾚｽ)
Perl初心者スレ（マジレス回答） http://mevius.5ch.net/test/read.cgi/tech/1349538519/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
42: デフォルトの名無しさん [sage] 2012/10/08(月) 17:19:35.10 $|=1; my $num=200; ←ｾﾐｺﾛﾝ忘れるな while(1){ if(get_num() >= $num){ ← get_num()、な print "ok\n"; ← うるせぇやつがいるから改行、な last; ← これなけりゃ無限ループだわな } sleep(60); ← Web にアクセスするなら忘れるんじゃねぇぞ } http://mevius.5ch.net/test/read.cgi/tech/1349538519/42
221: デフォルトの名無しさん [sage] 2014/02/16(日) 23:07:15.10 >>220 >>221みたいな認識でPHPを否定してPerlを使い続けてるのがPerl厨なんだよ http://mevius.5ch.net/test/read.cgi/tech/1349538519/221
344: デフォルトの名無しさん [sage] 2015/01/14(水) 23:01:56.10 ID:+qvvUh8r $seach_wordに日本語を入れたいのですが、それだとマッチしません。どうすればよいでしょうか? w3m -dump -cols 160 http://peace.2ch.net/test/read.cgi/tech/1349538519/| ~/Perl_instance/resSearch.pl #!/usr/bin/env perl use strict; use warnings; use utf8; my $seach_word = ">1" ; my $found_res = 0; my $res = ""; while (<>) { if (/^\d/x) { # out put, flash if ( $found_res == 1 ) { print $res; $found_res = 0; } $res = ""; } else { # searching if (/$seach_word\b/x) { $found_res = 1; } } # buffer lines $res .= $_; } http://mevius.5ch.net/test/read.cgi/tech/1349538519/344
434: デフォルトの名無しさん [] 2018/08/05(日) 17:23:40.10 ID:cdvogGHQ >>433 pack, unpack の f は機種依存なので IEEE 754 単制度になるかどうかはプログラムからだけではわからない。 http://perldoc.jp/func/pack まあでも今時の普通のPC用Perlならなってそうな気がするけどね。 latitude って緯度か。GPSデータのバイナリをPerlの変数に入れているということだな。 だから下2桁を60進法で考える必要があると。 やはりそのプログラムのコメントは紛らわしいってだけだよ(サブルーチン名も紛らわしいが)。 bin_convert 呼ぶときには既にバイナリから float に unpack されてるから。 で、bin_convert 内でやっているのは先に書いた通り下2桁を60進法で小数点以下の値にしてるってことね。 http://mevius.5ch.net/test/read.cgi/tech/1349538519/434
449: デフォルトの名無しさん [sage] 2018/11/12(月) 00:16:54.10 ID:MtlIUxHY chomp($line); するべき http://mevius.5ch.net/test/read.cgi/tech/1349538519/449
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.015s