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

Perlについての質問箱 ..

912:デフォルトの名無しさん
21/01/03 17:25:22.42 Lv3VCxJc.net
ブラウザのクッキーを許可してるかどうかを調べるにはどうしたらいいんですか？
クッキーを書き込めたら許可されているというやり方だと
書き込んだ直後はクッキー読み取れない
更新ボタンでページを更新しないとクッキー読み取れないので他のやり方で

913:デフォルトの名無しさん
21/01/03 17:33:27.51 qCTYrijY.net
お、今年初めの質問だね。
君の悩みは質問箱住人が解決するよ。
ささ、甘酒どぞ。つ甘
みんなーお客さんだよー。

914:デフォルトの名無しさん
21/01/03 19:13:07.92 fvS6UGyp.net
>>912
javascript併用したくないならHTTPヘッダで
print "Set-Cookie: hoge\n";
print "Location: hage\\n\n";
みたいな感じでクッキー書いてリダイレクトすればいいんじゃね

915:デフォルトの名無しさん
21/01/03 20:53:05.77 Lv3VCxJc.net
>>914
なるほど、でもそれ無限ループにならないっすか？

916:デフォルトの名無しさん
21/01/03 21:41:10.96 Y2yZ564Q.net
>>915
サーバーで判定したらええやろ。
そもそもそういう話のはず。

917:デフォルトの名無しさん
21/01/03 21:44:24.27 fvS6UGyp.net
>>915
クエリパラメータ追加するなり工夫すれ

918:デフォルトの名無しさん
21/01/05 14:55:44.56 zOsm6XDhK
自由な働き方を求め10代～20代の登録が拡大。フリーランス登録者約3.4倍に増加。
URLﾘﾝｸ(prtimes.jp)
フリーランス向け報酬即日払いサービス『先払い』申込件数5,000件突破
URLﾘﾝｸ(prtimes.jp)
ITフリーランスの独立支援サービス『テックビズ』＆定額制全国住み放題『ADDress』提携開始
URLﾘﾝｸ(prtimes.jp)
リース、フリーランスのためのお部屋探しアプリ「smeta」の正式版をリリース、提携賃貸管理戸数が6万戸を突破
URLﾘﾝｸ(prtimes.jp)
家族50万円・単身30万円を支給、新潟県が「テレワーク・フリーランス移住」で応援金
URLﾘﾝｸ(www.bcnretail.com)
ワーケーション会社員増加中、定額制宿泊サービス「HafH」を実体験
URLﾘﾝｸ(finance.yahoo.co.jp)
「フリーランススタート」の掲載案件数、累計16万件を突破
URLﾘﾝｸ(codezine.jp)
フリーランスエンジニア専門の案件一括検索サイト「フリーランススタート」、
掲載案件数1ヶ月で10,000件増加し、累計掲載案件数16万件突破！さらにリモートワークの掲載案件数5,000件突破！
URLﾘﾝｸ(prtimes.jp)
フリーランス向けの求人は「テレワーク可能」が主流に　2021年は労働者の地方への移住が進む？
URLﾘﾝｸ(nlab.itmedia.co.jp)

919:532
21/01/25 02:03:08.62 NGykvctj.net
URLﾘﾝｸ(perlcodesample.hateblo.jp)

920:デフォルトの名無しさん
21/02/13 20:39:32.56 puXqs/bZ.net
U+10000からU+1FFFFまでの文字があったら置換したい時はどう書けばいい?

921:デフォルトの名無しさん
21/02/13 20:57:13.59 aGYlIUX0.net
>>920
s/U¥+(1¥x{4})/pack(q{U},$1)/eg
とかか？
URLﾘﾝｸ(perldoc.jp)

922:デフォルトの名無しさん
21/02/13 21:54:38.37 puXqs/bZ.net
あー
U+10000という文字列を置換したいのではなく、それが示すサロゲートペアを置換したい

923:デフォルトの名無しさん
21/02/14 01:36:58.65 u5RUQBwf.net
>>922
s/([¥x{10000}-¥x{1ffff}])/unpack(q{U},$1)/eg
かな？
ダメな気もするが。
つーか、さっきのURLにいろいろ書いてあるから、一度目を通して自分で試してみろ。
んで、うまくいったら、結果を貼るようにな。

924:デフォルトの名無しさん
21/02/14 07:32:21.90 kRUK3Bbl.net
$line =~ s/\x{1f306}/置/g;
これは成功する
$line =~ s/\x{1....}/置/g;
こんなことをやろうとしてた
$line =~ s/[\x{10000}-\x{1ffff}]/置/g;
これが正解だった

925:デフォルトの名無しさん
21/02/14 10:00:12.81 yrV2Bu9C.net
Perlの場合、マルチバイト文字で正規表現を正しく使うには、あらかじめEncode::decode()でデコードしておく必要があるので厄介。

926:デフォルトの名無しさん
21/02/14 11:18:28.10 u5RUQBwf.net
>>925
Perlに限らんやろ。
エンコーディングをまったく気にせず対応している処理系なんか存在しない。