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

[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

24: 2019/02/26(火)20:51:34.33 ID:vB+znWqX(3/3) AAS
>>23
ほぼない
けどWeb制作板に行くとエンコードどころか文字コードも理解してなかったから絶対回答こない

133: 2019/11/14(木)22:54:58.33 ID:cMIrVE8k(1) AAS
ファイルハンドル($fh)からファイル名を取得する方法ってありますか？
・stat $fhでinode取得してシェルのfindで見つけるってのはコストかかるのでやりたくない。
*{$fh}{IO}辿ってIO::Fileから得られないかなって調べたんですけど分かりませんでした。
基本的にそういう思想がないってことかも知れません。

379: 2020/03/28(土)19:23:29.33 ID:gZJzrXqn(2/4) AAS
MCE::GrepはCPUの使用率は上がるけど遅くなった
grepよりは正規表現の処理のあたりが時間かかってるんだと思う

感覚的にはもっと高速でも全然おかしくない感じなのに

386: 2020/03/28(土)23:25:40.33 ID:7nefda3x(1) AAS
色んなパターンで？
grep -f でパターン読ませてやるのと同じか？

547: 2020/07/26(日)18:32:06.33 ID:hRZi6+cn(1) AAS
>>512
最適化するとすると手順はこんな感じかな。

1. 0x1c バイト読んでそのまま書く。
2. 1バイト読む。読めなかったら 5 へ。読んだ内容が 0x40 なら 0x00 に変えて書く。0x40 でなければそのまま書く。
3. 最大 0x7fff バイト読み、読めたデータをそのまま書く。
4. 2へ。
5. 終わり。

STDIN から読んで STDOUT で書くならこうなる。

read(STDIN, $buf, 0x1c);
print $buf;
while (read(STDIN, $buf, 1)) {
　print $buf eq "\x40" ? "\x00" : $buf;
　read(STDIN, $buf, 0x7fff);
　print $buf;
}

593(1): 2020/07/28(火)23:59:10.33 ID:7IzxJUwl(6/6) AAS
ほんとに信じてくれ!

642: 2020/08/15(土)20:01:49.33 ID:UM/CpThf(1/3) AAS
# 元ネタ
my $html = '<html>hoge1hoge2hoge3hoge4hoge5hoge6hoge7hoge8hoge9hoge10</html>';

# 全部のpタグの中身を引っ掛ける

my @p_list = $html =~ /(.+?)<\/p?/g;

# 引っかかった数取得

my $size = int(@p_list);

# 前半と後半に分けて突っ込む

my @mae = @p_list[0..int($size/2)-1];

my @ato = @p_list[int($size/2)..$size-1];

# 結果表示テスト

print Dumper([\@mae, \@ato]);

643(1): 2020/08/15(土)20:03:08.33 ID:UM/CpThf(2/3) AAS
なんだこの糞改行(´・ω・｀)

# 全部のpタグの中身を引っ掛ける
my @p_list = $html =~ /(.+?)<\/p>/g;

# 引っかかった数取得
my $size = int(@p_list);

# 前半と後半に分けて突っ込む
my @mae = @p_list[0..int($size/2)-1];
my @ato = @p_list[int($size/2)..$size-1];

# 結果表示テスト
print Dumper([\@mae, \@ato]);

656: 2020/08/16(日)16:02:30.33 ID:0524gJdA(1) AAS
CPANを探してなかったという経験がないしな

729: 2020/10/11(日)19:36:36.33 ID:LtBR6JI3(1) AAS
$$aiueo{AAA}
$aiueo->{AAA}
だっけ？

748: 2020/10/27(火)12:24:00.33 ID:FNX2BsFN(1) AAS
>>747
ブラウザを遠隔操作することだろうね。
昔、Win32::IEAutomation 使っていたけど、
今はどんなモジュールがいいのかよく解らない。

788(1): 2020/11/13(金)10:25:46.33 ID:ZCyQI0Un(1/3) AAS
処理済みかとか、除外対象か、みたいなチェック用に
%except = (aaa => 1, bbb => 1);
みたいなテーブルを作っておいて、
if (!$except{$x}) { ... }
みたいなことをする

で、=> 1 の部分は何でもいい訳で、これが無駄に見える
@except = (aaa, bbb);
の方が自然だけど、判定部分が複雑になる

なんとか判定をシンプルに書けないものか

866(1): 2020/12/11(金)19:40:49.33 ID:V1LdBVWq(1) AAS
>>864
こういうひとがコーディングすると
バッブァオーバーランとか起こしてセキュリティに穴を開けるんだな

986: 532 2021/03/11(木)11:39:56.33 ID:AlcqB+X5(1) AAS
$pat = 'hoge(?:,.*)?$';
print "1\n" if 'hoge,dsad' =~ $pat;
print "2\n" if 'hoge' =~ $pat;
print "3\n" if 'hage' =~ $pat;

はどうよ

実行例
~ $ perl 64_976_hoge_pat.pl
1
2

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.061s