Perlのちょっとした小技たち

めもめも。

ファイルの内容を変数に格納する

if(! open(in,"D:/web/t.csv")){
	print "file open\n";
}
$in = join('',<in>);
close(in);
print $in;

CSVの1列目をソート

昇順(A-Z)

@csv = sort { (split(/,/,$a))[0] cmp (split(/,/,$b))[0] } @csv;
@csv = reverse sort { (split(/,/,$b))[0] cmp (split(/,/,$a))[0] } @csv;

降順(Z-A)

@csv = reverse sort { (split(/,/,$a))[0] cmp (split(/,/,$b))[0] } @csv;
@csv = sort { (split(/,/,$b))[0] cmp (split(/,/,$a))[0] } @csv;

SHA1の16進(40文字)値を得る

use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);
$str = "aaa";
$sha1 = sha1_hex($str);
print $sha1;