sironekotoro https://blog.hatena.ne.jp/sironekotoro/ sironekotoroの日記 https://sironekotoro.hateblo.jp/ 連休前の出来事 業務で、1 〜 1500 の数字の中から重複しているものを見つける必要があり、その時に 1 分くらいで書いたのが以下の Perl スクリプトです。 #!/usr/bin/env perl use strict; use warnings; my %hash; for my $line (<DATA>) { chomp $line; $hash{$line}++; } for my $num ( sort keys %hash ) { if ( $hash{$num} > 1 ) { print $num , "\n"; # 3 6 } } __DATA__ 1 2 3 3 4 … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsironekotoro.hateblo.jp%2Fentry%2F2021%2F07%2F25%2F012339" title="Perl で重複した値をみつける - sironekotoroの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2021-07-25 01:23:39 rich https://sironekotoro.hateblo.jp/entry/2021/07/25/012339 1.0 100%