#!/usr/bin/env perl use strict; use warnings; use 5.014; use Data::Dumper; my @duplicated_list = ( ['apple', 'banana', 'orange', 'strawberry', 'pineapple', 'grapefruit', 'grapefruit'], ['apple', 'banana', 'orange', 'strawberry', 'pineapple…

#!/usr/bin/env perl use strict; use warnings; use 5.014; use Data::Dumper; my @duplicated_hash = ( {url => 'http://www.yahoo.co.jp.', title => 'Yahoo! Japan'}, {url => 'http://www.yahoo.co.jp.', title => 'Yahoo! Japan'}, {url => 'http://ww…

#!/usr/bin/env perl use strict; use warnings; use Encode; use utf8; # 全角文字、全角記号、全角英数字、半角カナを含めている my $strings = "Aあb漢Cイd字0ｷﾞ-ｬ1ゃ2１3=~３\\^_%―$\"#\tわ\n−Z"; my @chars = split '', $strings; my $utf8 = find_enco…

おそらく vim をアップグレードしたタイミングで、Perl のバージョンもアップグレードしたようだ。これまで正常に動作していたスクリプトが、モジュールを読み込めないとエラーを出しているのに気が付いた。 「/usr/ports/UPDATE」を確認すると、 20130612: …

指定したディレクトリ内にあるファイルの絶対パスと相対パスを取得する。 package practice; import java.io.File; import java.io.IOException; public class GetFilePathList { public static void main(String args[]) throws IOException { //String pre…