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

**デフォルトの名無しさん** · 2019/02/01(金) 09:44:37.18

CGIについての質問は板違いです。WEBプログラミング板でどうぞ。
CGIとPerlの区別がつかない人もWEBプログラミング板に行ってください。
（WEBプログラミング板: https://medaka.5ch.net/php/）

このスレでは（CGI以外の）純粋にPerlのみに関係する質問を取り扱っていこうと思います。
スレ違いの質問にはスルーか、速やかな誘導をお願いします。
荒らしはスルー推奨。

"The duct tape of the Internet" こと、Perlについての質問箱です。
"There's more than one way to do it" ということで、
Perlの奥深さについて皆で語り合い、追求してまいりましょう。

www.perl.org/get.html
Download Latest Stable Source (5.28.1)

▼前スレ
Perlについての質問箱 61箱目
http://toro.5ch.net/test/read.cgi/tech/1381561905/
Perlについての質問箱 62箱目
http://toro.5ch.net/test/read.cgi/tech/1385039352/
Perlについての質問箱 63箱目
https://mevius.5ch.net/test/read.cgi/tech/1392820583/

**デフォルトの名無しさん** · 2020/10/30(金) 21:50:10.07

>>774
例えばlwp-downloadとかでもアクセスできない?

**デフォルトの名無しさん** · 2020/10/30(金) 22:09:51.09

>>781
アルゴリズムが違うからなんとも言えんが
バックトラックしないのでカーソルの位置を常に意識しなきゃいけないのがすごくキツい
あこれマッチしないの？ってことが多々あって慣れなんだろうがキツい
デバッグも大変

**532** · 2020/10/30(金) 22:24:35.54

Perl5のParse::RecDescent.を使えれば
Perl6のGrammarも大丈夫だと思う

多分

**デフォルトの名無しさん** · 2020/10/30(金) 22:37:14.50

>>783
えー、簡単そうやん？ｗ

https://mattn.kaoriya.net/software/lang/perl6/20151019183138.htm

**デフォルトの名無しさん** · 2020/11/02(月) 15:05:38.99

Raku の Grammar というのは、「クラス定義＋演算子のオーバーロード」
と比較して、何が優れているのだろうか？

**デフォルトの名無しさん** · 2020/11/02(月) 17:51:29.15

えっ。
ターゲットというか、適用領域が違うんでは。

**デフォルトの名無しさん** · 2020/11/13(金) 10:25:46.33

処理済みかとか、除外対象か、みたいなチェック用に
%except = (aaa => 1, bbb => 1);
みたいなテーブルを作っておいて、
if (!$except{$x}) { ... }
みたいなことをする

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

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

**デフォルトの名無しさん** · 2020/11/13(金) 10:43:18.63

リストを使用してのケースなら
" @except " =~ / aaa /
とか。

**デフォルトの名無しさん** · 2020/11/13(金) 10:53:46.81

でもハッシュの方がよくないかなあ。
%except = map { $_, 1 } qw(aaa bbb ...);
とか
undef $except{$_} for qw(aaa bbb ...);
で判定はexists
とか

**デフォルトの名無しさん** · 2020/11/13(金) 11:34:25.97

>>788
無駄に見えるのは気のせいなので、気にするな。
何が気に入らないのか、意味不明なレベル。

せいぜいが判定をexists()に変えるくらいか。
でも、処理の意図は明確になっても、記述量は増えてまう。
結局、もとのほうがいい。

**デフォルトの名無しさん** · 2020/11/13(金) 11:54:00.35

pythonのin演算子を真似た関数を用意するくらいか

**デフォルトの名無しさん** · 2020/11/13(金) 13:04:35.51

ここの人ってpythonもできるの？
pythonを最近覚えたんだけど、pythonで書き始めてからperlに戻る気がしないw

**デフォルトの名無しさん** · 2020/11/13(金) 13:11:47.54

常にuse strictで書いてるような人はpythonの方がいいかも

危険を承知でとにかく楽に、という書き方がpythonはできない

**デフォルトの名無しさん** · 2020/11/13(金) 17:55:04.27

>>793
pythonも書いてるけど感覚としてはそこまで差はない
pythonの方が厳格ですぐエラー吐いてくれるから
それを良しとするか
あとはライブラリの質が段違い

**デフォルトの名無しさん** · 2020/11/17(火) 17:45:06.40

デフォルト以外のブラウザを開くことはできませんか？
デフォはこれでいけてます
use Win32::FileOp qw(ShellExecute);
ShellExecute($url);.

**デフォルトの名無しさん** · 2020/11/17(火) 23:05:44.09

例えば、デフォが他のブラウザで、あるurlをFirefoxPortableで開きたいとき、
次のようなコマンドを実行させているが、これをPerlでやればいいんじゃないの？

"U:/FirefoxPortable/FirefoxPortable.exe" https://foo/bar/

**デフォルトの名無しさん** · 2020/11/18(水) 00:40:53.82

ありがとう
`C:/Program Files (x86)/Google/Chrome/Application/chrome.exe`
とりあえずここまででchrome開くことはできたのですがURLの指定はできないでしょうか？

**デフォルトの名無しさん** · 2020/11/18(水) 01:11:22.59

>>798
>>797

**デフォルトの名無しさん** · 2020/11/18(水) 01:32:09.00

system("\"C:/Program Files (x86)/Google/Chrome/Application/chrome.exe\" https://www.yahoo.co.jp/";);
完成しました
ありがとうございました。

**デフォルトの名無しさん** · 2020/11/18(水) 08:31:15.08

>>800
wperl.exeからsystem()を呼び出すと新しいコンソールウィンドウが開くので要注意。

**デフォルトの名無しさん** · 2020/11/28(土) 15:40:18.08

指定した年月日からx日後の日付を数で得るにはどうするのが一番楽だろう

**デフォルトの名無しさん** · 2020/11/28(土) 18:31:31.18

「数で得る」というのがよく解らないが、timelocal()とlocaltime()を使えば、
多分、やりたいことができると思う。

**デフォルトの名無しさん** · 2020/12/03(木) 17:27:36.92

これから仕事ではじめてperlを使うんだけど、メッセージやメール出力などにマルチ言語対応が入ってる
resourceに言語ファイルをいれる形で実現したいけど、どのようにするのがいいか教えて下さい

複数のスクリプトを開発して連係させる予定

**デフォルトの名無しさん** · 2020/12/05(土) 13:44:54.28

ヒアドキュメントの中で数式を使うやり方は？
@{[数式]}
のようにやってもエラーで動かなかった

**デフォルトの名無しさん** · 2020/12/05(土) 15:34:53.50

>>802
Ruby on Rails なら、時刻計算用のライブラリがある

require 'active_support/time'

p Date.new( 2020, 2, 28 ).advance( days: 2 )

出力。うるう年
Sun, 01 Mar 2020

**デフォルトの名無しさん** · 2020/12/05(土) 15:43:47.69

そんな感じの気楽で使いたい

$date = date->new('2020-12-05');
$date += 100;
($y, $m, $d) = ($date->year, $date->month, $date->day);

こんなん

**デフォルトの名無しさん** · 2020/12/05(土) 16:43:15.39

>>805
おかしいな。それで合ってるように思えるんだが。
この辺りを読んで、何か誤解してないか確認したらいいかも。
https://perldoc.jp/docs/perl/5.26.1/perlref.pod

**806** · 2020/12/05(土) 18:18:59.36

「perl 時刻計算」で検索すれば？

日付・時刻を扱う標準モジュール、Time::Piece が標準で添付されています。
もっと便利なモジュールを、誰かが作っているかも

**デフォルトの名無しさん** · 2020/12/05(土) 18:31:57.30

localtimeからスタートする時はそれが便利
何か基準の日付から計算しようとすると面倒になる

**デフォルトの名無しさん** · 2020/12/05(土) 20:29:02.43

>>805
数式自体にエラーがあるんやろ。ｗ
じゃなきゃエラーをはれ。

**デフォルトの名無しさん** · 2020/12/05(土) 23:54:20.43

>>811
print <<"eos";
@{[print "aaawww";]}
eos

これでエラーだった

**デフォルトの名無しさん** · 2020/12/06(日) 00:14:01.05

>>812
だからエラーの文面をはれっつーの。

でも、わかった。
「[]」の内側に書けるのは、式のリスト。
最後に「;」を書くのは、「式」でなく「文」というか。

しかし、それだとうまくいっても「aaawww1」と表示される気がするが、どうなの？ｗ

**532** · 2020/12/06(日) 00:15:36.74

print <<"eos";
@{[print "aaawww"]}
eos

$ perl aaawww.pl
aaawww1

;を省くと動くが、「1」とか余計なものがつくな

**デフォルトの名無しさん** · 2020/12/06(日) 00:43:41.05

>>813
CGI 実行エラー syntax error at test.cgi line 10, near ""aaawww";"
Execution of test.cgi aborted due to compilation errors.

**デフォルトの名無しさん** · 2020/12/06(日) 01:06:20.00

単なる構文エラー
無名リストの中に裸のセミコロンがあったらまずいでしょ
["A", "B", 3, ";"] OK
["A", "B", 3, ;] エラー

余計な1じゃなくてprint関数の返り値
printが成功したので真(1)を返して無名リストの要素になった
printで"aaawww"が表示された後デリファレンスされて展開された1がヒアドキュメントで表示される

**デフォルトの名無しさん** · 2020/12/06(日) 01:06:31.00

>>814
仕様どおり。ｗ
記述したとおりに正しく動作しているな。

**デフォルトの名無しさん** · 2020/12/06(日) 01:19:08.97

>>802
今更だけど日付をエポック秒で表して日数×24*60*60を足すんじゃだめ？

車輪の再発明というかただの製作を承知で、自分で日付変換の関数を一通り作ったらそれで十分だった
便利そうなライブラリを探そうとしたこともあるけど、オブジェクト指向的なやつだと結局その
オブジェクトを介した変換が頻出することになってスラスラ書けないなあと思ったのです。

もし今後UTCとかJSTとか出てきたときはそのときまた考える。

**デフォルトの名無しさん** · 2020/12/06(日) 02:06:04.21

PerlのYAML関連のモジュールが全部重くて厳しい
高速なYAMLモジュールはないのか？

**デフォルトの名無しさん** · 2020/12/06(日) 10:37:45.21

まずは高速なCのライブラリを見つけます

**デフォルトの名無しさん** · 2020/12/06(日) 11:42:16.72

>>803　だが、>>802　の質問は>>803　で終わったと思ったのだが、不親切だった？
例えば2019年12月1日から365日後の日付は、次のようにすれば得られる。

use Time::Local;
$year=2019;$mon=12;$mday=1;$hours=12;$min=0;$sec=0;
$intvl=365;
$basetime = timelocal($sec, $min, $hours, $mday, $mon-1, $year-1900);
$basetime += $intvl*24*60*60;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($basetime);
$mon+=1;$year+=1900;
print STDERR "$year.$mon.$mday\n";

2020/12/06(日) 11:58:40.89

見るからに面倒臭い

**デフォルトの名無しさん** · 2020/12/07(月) 09:18:58.50

$basetime = timelocal_nocheck($sec, $min, $hours, $mday+$intvl, $mon-1, $year-1900);

**デフォルトの名無しさん** · 2020/12/07(月) 09:43:24.77

Time::Piece はよくできてて、何かのログとかに現在時刻を書き出す、
とかの用途には十分に使える

でも、時刻計算や日数計算はあまり考慮されていない
現在時刻からの計算はできても、任意の時刻からだと弱い

**デフォルトの名無しさん** · 2020/12/07(月) 14:03:32.45

>>807

use Time::Piece;
use Time::Seconds;

my $day = Time::Piece->strptime('2020-12-05', '%Y-%m-%d');

$day += ONE_DAY * 100;

print $day->date, "\n";

print $day->year, "\n";
print $day->mon, "\n";
print $day->mday, "\n";

**デフォルトの名無しさん** · 2020/12/07(月) 14:21:35.27

まあ、strptime さえ目を瞑れば
こんなもん、何か見ないと書けない

**デフォルトの名無しさん** · 2020/12/07(月) 15:40:13.93

use POSIX; を宣言してCの標準関数に似た時刻処理機能を使うのが普通じゃないの？
Cの時刻処理サンプルコードを円滑にPerlに移植できるよ。

**デフォルトの名無しさん** · 2020/12/07(月) 17:17:12.82

>>826
DateTimeモジュール使えば全て解決なんだが
クソデカくて重いという弱点が

**532** · 2020/12/07(月) 21:57:48.14

Time::Pieceの弱点は
strptime()で作ったインスタンスのtimeゾーンをいじれないとこかな？
後1つなんか弱手あった気がするが忘れた

**デフォルトの名無しさん** · 2020/12/07(月) 22:38:30.88

strptimeはpythonでもrubyでも同じだから、もう慣れなんだろうな
'YYYY-MM-DD' とかではあかんかったのか

**デフォルトの名無しさん** · 2020/12/08(火) 04:35:26.34

>>821
timeLocal()の年は1900引かない方がいいよ。これちょっとCのライブラリとは違うんだよ。詳しくはドキュメント読んで。

**デフォルトの名無しさん** · 2020/12/08(火) 04:36:34.48

あ。タイプミス。timelocal()ね。

**デフォルトの名無しさん** · 2020/12/08(火) 23:53:37.62

すみません、ソートで教えて欲しいんですが下記のようにみたいな枝番号が付いてる文字列をハッシュのキーとして
ハイフン前の数値でソートした後にハイフン後の数値でソートしたいのですが
普通に$a <=> $bだとハイフンの後の値がバラバラになって上手くいきません
キーを作る際に別々に作ってループ増やすくらいしか自分には解決方法が無いのですが、スマートに出来る方法は無いのでしょうか？
1-1
1-2
2-1
2-2
3-1

**デフォルトの名無しさん** · 2020/12/09(水) 00:31:36.73

>>833
シュワルツ変換で検索！

たとえば :
mapでソート用の値として、前の数字×10000+後ろの数字の値をつくって、それともとの値のペアにする。
それを<=>でソートする。
mapで、ソート結果からもとのデータ部分を取り出す。

**デフォルトの名無しさん** · 2020/12/09(水) 00:39:46.90

要は、map{...} sort{...} map{...}となる。
変換のためのループが2回入る(map)が、記述としてはあっさりなので、特殊なソートをしたいときにはよく使われる有名な方法。

伝わるかな？ｗ

**デフォルトの名無しさん** · 2020/12/09(水) 08:45:38.11

それで書けるなら、sort { } でも書けるよね

**デフォルトの名無しさん** · 2020/12/09(水) 09:35:02.27

>>833
こんな感じかな。デバッグはしていないが。
@newlist = sort compare @oldlist;

sub compare{
my ($ap, $bp) = @_;

($ap1, $ap2) = $ap=~/([0-9]+)\-([0-9]+)/;
($bp1, $bp2) = $bp=~/([0-9]+)\-([0-9]+)/;
return 1 if $ap1 > $bp1
return -1 if $ap1 < $bp1
# $ap1 == $bp1;
return 1 if $ap2 > $bp2;
return -1;
}

**デフォルトの名無しさん** · 2020/12/09(水) 10:27:05.71

>>836,>>837
それだと、要素の比較のたびに、値の変換処理が行われる。
比較は何度も行われるため、変換処理が軽くない場合、ソート全体としてかなり重くなりうる。
すくなくとも「スマート」とは言えない。

そこで、変換結果をキャッシュするような形になるのがシュワルツ変換。

知らんならググれ。

**デフォルトの名無しさん** · 2020/12/09(水) 10:46:35.52

sort { s1($a) <=> s1($b) } keys %x;

sub s1 {
shift =~ /(¥d+)-(¥d+)/ && 100*$1+$2
}
sortならこんなかんじ

**デフォルトの名無しさん** · 2020/12/09(水) 10:47:56.70

順番が変わるだけで処理量は変わらんでしょう
どっちにしろ重い

次にソートする時はソート対象が変わっているんだから、キャッシュできない

有効な局面もあるんだろうけど、今回に関してはトリッキーなだけでメリットがない

**デフォルトの名無しさん** · 2020/12/09(水) 10:51:05.82

次のソートじゃなくて、1回のソート内部の複数の比較に対してか
あー、確かに速くなりそうな気がする
処理系が気を利かせて変わらない気もする

**デフォルトの名無しさん** · 2020/12/09(水) 11:29:48.25

>>841
ソートの内部処理が想像できんのか？
もとの並び方にはよるが、ふつうは大きく異なる。
「処理系」とやらが気を利かせられる範疇ではない。

比較処理にsayでもいれて試してみろっつーんだよ。

**デフォルトの名無しさん** · 2020/12/09(水) 12:58:19.84

内部の話だからsayでは判らんだろ

関数で評価しないといけないと判っていて、動的に処理する必要も無いんだから、
評価済みのテーブルを内部に持たせようというのは自然な発想

**デフォルトの名無しさん** · 2020/12/09(水) 13:12:15.55

>>843
試してから言え。
きっと、想像以上の出力が出てきて驚くから。

**デフォルトの名無しさん** · 2020/12/09(水) 13:44:43.94

判ってないのかな

処理速度に配慮した処理系があっても不思議ではないという話
手元で試して遅かったとしても、全ての処理系に対する証明にはならない

**デフォルトの名無しさん** · 2020/12/09(水) 14:16:41.19

>>845
痛々しいからもうやめとけ

**デフォルトの名無しさん** · 2020/12/09(水) 14:32:22.15

>>845
Perlの「全ての処理系」て。ｗ

**デフォルトの名無しさん** · 2020/12/09(水) 15:17:55.01

そもそも重いかどうかが疑問で、どっちでやっても一瞬で終わるのが普通
それなら読みやすい方が優れている
重くて困ってから対策を考えればいい

**デフォルトの名無しさん** · 2020/12/09(水) 16:44:07.55

map {
$_->[0];
} sort {
$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2];
} map {
[$_, /(\d+)/g ];
}

読みにくい…かなあ?

**デフォルトの名無しさん** · 2020/12/09(水) 17:06:18.35

>>849
他の言語の人が見たら発狂しそう

**デフォルトの名無しさん** · 2020/12/09(水) 18:15:36.35

別に短く書かなくていいんだよ

@r = sort s2 @a;

sub s1 {
　　my $str = shift;
　　$str =~ /(\d+)\-(\d+)/;
　　return $1 * 100 + $2;
}

sub s2 {
　　return s1($a) <=> s1($b);
}

**デフォルトの名無しさん** · 2020/12/09(水) 18:16:58.18

発狂しない人が使えば良いよ

**デフォルトの名無しさん** · 2020/12/09(水) 19:43:12.41

>>848
おまえ、ハードな処理を実装したことがないやろ？ｗ

慣れたPerl使いはわざわざ>>851みたいなコードは書かない。
遅いし、くどくて逆に読みにくいからな。

**デフォルトの名無しさん** · 2020/12/09(水) 19:45:15.15

>>850
C#でも、タプルが使えるようになったので、似たようなコードは書く。
LINQなぶんだけPerlより読みやすいけど。

**デフォルトの名無しさん** · 2020/12/09(水) 22:17:09.12

ハッシュテーブルにs1($val)の戻り値を保存して、そのハッシュテーブルを使って比較関数を呼び出すとかするのが普通でしょ。

**849** · 2020/12/10(木) 06:03:00.77

読みやすい優れたコードが >>851 か。
自分のコードを出してくれた点は評価するが
$1 * 100 + $2
って何?

**デフォルトの名無しさん** · 2020/12/10(木) 16:08:39.86

２桁前提なんだろうな

**デフォルトの名無しさん** · 2020/12/10(木) 19:59:40.99

>>857
>>834なら4桁までイケる。ｗ

**デフォルトの名無しさん** · 2020/12/11(金) 03:24:48.11

考え方は同じだけど最初からソート用の値をデータに持たせてみる。
my %x = (
'3-1' => ['e', 301],
'1-2' => ['b', 102],
.... ,
);

sort { $x{$a}[1] <=> $x{$b}[1] } keys %x;

**デフォルトの名無しさん** · 2020/12/11(金) 03:42:00.36

複数キーでのソートに帰着させるべきなんだろうな
1-1-1 も許容する、とかになった瞬間に破綻する

**デフォルトの名無しさん** · 2020/12/11(金) 04:01:52.35

sub s1 {
my @a = split /\-/, $a;
my @b = split /\-/, $b;
my $dim = @a > @b ? @a : @b;
for my $i (0 .. $dim) {
my $cmp = $a[$i] <=> $b[$i];
return $cmp if $cmp;
}
return 0;
}

**856** · 2020/12/11(金) 06:10:31.03

>> 833 には数値の値域については何も書かれてないんだから
勝手に想定しない方がいいと想うよ。
どうしても比較を簡略化したいなら pack 関数で数値を全部
ビッグエンディアンで並べればいいんじゃないかな。

**デフォルトの名無しさん** · 2020/12/11(金) 10:41:01.46

>>860
最初から想定されてるのでなければ、ひどい仕様変更なんだから、実装変更もやむなしやろ。
数字じゃなくてアルファベットにします、と言われただけでパーやし。ｗ

**デフォルトの名無しさん** · 2020/12/11(金) 10:50:54.59

>>862
勝手に想定するのもあたりまえ。
じゃないと、なんにも例示できなくなるで？

値域がどうこうなんか、自分でなんとでもすればいいだけ。
本題のソートには関係ない。

**デフォルトの名無しさん** · 2020/12/11(金) 11:20:18.13

1-1があるなら1-1-1もあると予測するのは自然な拡張
1-1-1-... に無限に対応できるように作っておいて、
その特殊ケースとして要件を満たす、で十分

アルファベットにも対応するのは次元が違う

**デフォルトの名無しさん** · 2020/12/11(金) 19:40:49.33

>>864
こういうひとがコーディングすると
バッブァオーバーランとか起こしてセキュリティに穴を開けるんだな

**デフォルトの名無しさん** · 2020/12/11(金) 20:46:31.45

>>866
アホなの？
他人のコードのバッファオーバーランなんか知らんわ。
自分で責任を持て。

**デフォルトの名無しさん** · 2020/12/11(金) 21:01:49.19

普段は過疎ってるのに少し書き込みがあるとクソ雑魚が湧いてきてグズグズ文句たれる
頭の中どうなってんだろうな

**デフォルトの名無しさん** · 2020/12/11(金) 22:34:31.89

んでんでんで

**デフォルトの名無しさん** · 2020/12/11(金) 22:41:46.66

>>837 だが、実は、このコードは、オレが実際に、数字とかアルファベットとかが
複雑に絡んだ文字列を、ある規則に従ってソートするために作ったものを
流用したんだ。だから、応用範囲が広いという点では、これがいいと思うけどな。

**デフォルトの名無しさん** · 2020/12/11(金) 22:48:30.39

sortの関数って@_で受けれるの?

**デフォルトの名無しさん** · 2020/12/11(金) 23:30:45.59

>>870
にしたって、超激遅やで？
要素数が充分に少なきゃええけど。

**デフォルトの名無しさん** · 2020/12/11(金) 23:38:00.26

どう見ても章のタイトルとかそんなんなので、1000も無いよ
高速化の工夫は遅くて困ってから

**532** · 2020/12/12(土) 00:28:14.42

>>833
perlのsort()ｱﾙｺﾞﾘｽﾞﾑは5,8以降ﾏｰｼﾞｿｰﾄになってsort結果は安定なｱﾙｺﾞﾘｽﾞﾑなので
手短にｺｰﾄﾞを書くなら右の数字でsortしてから左の数字でsortすれば所望の結果が得られる。以下サンプル実装

use List::Util 'shuffle';
%h = map{$_ => $i++} shuffle qw{1-1 1-2 1-3 2-1 2-2 2-3 3-1 3-2 3-3};
use feature qw{say signatures}; no warnings experimental;

@k1 = keys %h;
say "@k1";
sub f($s) { [$s =~ /(\d+)/g, $s]};
@k2 = map{$$_[2]} sort{$a->[0] <=> $b->[0]} sort{$a->[1] <=> $b->[1]} map{f $_} @k1;
say "@k2";

実行結果
~ $ perl 64_833_n-n_sort_1.pl
1-1 2-3 3-3 1-2 3-1 2-2 2-1 1-3 3-2
1-1 1-2 1-3 2-1 2-2 2-3 3-1 3-2 3-3

言語処理系内部のsort()関数のｱﾙｺﾞﾘｽﾞﾑに依存しない書き方がしたいなら
左と右の数値で二段階のｿｰﾄをするか、右の数字と左の数値で順位に一貫性のあるキーを作って
一段階のｿｰﾄで済ませる方法もあると思う。

そういったサンプル実装を見たいのであれば、時間があればくけれども…

**532** · 2020/12/12(土) 00:42:28.87

つか、実は Tie::IxHash を使ってhashに登録したデータの順番を維持して取り出せれば
いいだけの話だったりしてな。しらんけど

**デフォルトの名無しさん** · 2020/12/12(土) 00:47:36.64

>>867
アホだなあ

**532** · 2020/12/12(土) 00:48:12.17

>>849
おっとここに十分な解答があったわｗ

**デフォルトの名無しさん** · 2020/12/12(土) 01:06:54.59

>>876
Perlでバッファオーバーランを実装する方法を教えてください。ｗ

**デフォルトの名無しさん** · 2020/12/12(土) 02:31:23.48

バッファオーバーランつまり out of range なんてすぐ起こせるでしょ。

**デフォルトの名無しさん** · 2020/12/12(土) 03:38:37.71

>>879
具体的に詳しく！
Perlでな？

**862** · 2020/12/12(土) 09:07:56.06

pack に誰も食いついてこないのはちょっと寂しいな。
正しくやれば C でさえ 1 回の memcmp で比較が済むのだが。
ましてや、Perl の pack/unpack は Perl4 の時代からある超便利関数なのだが。
まあ、「ひょっとして比較をシンプルにしたいのかな?」と思ったから書いただけだし
今回のニーズには合ってても万能というわけではないし
自分が良いと思う方法でやればいいと思うよ。