#! /usr/bin/perl # usage: ./permtation.pl 2 2 2 3 3 4 4 5 5 6 7 # 引数にリストを与えると、それで順列を作って、引数がなければ1, 2, 3, 1, 2, 3で実行 # 引数は、アルファベットなどでもok use strict; # main my @list = scalar @ARGV ? @ARGV : (1, …

正規表現を使っていて，いまいちオプションを覚えられないのでここにメモしておきます． i 大文字小文字を区別しない m 改行コードの前を行末と見たり，後を行頭とみたりして，^や$でマッチするようにする s \nとかも.に含む