sironekotoroの日記

Perl で楽をしたい

2021-07-25から1日間の記事一覧

Perl で重複した値をみつける

連休前の出来事 業務で、1 〜 1500 の数字の中から重複しているものを見つける必要があり、その時に 1 分くらいで書いたのが以下の Perl スクリプトです。 #!/usr/bin/env perl use strict; use warnings; my %hash; for my $line (<DATA>) { chomp $line; $hash{$</data>…