Perl

Perlでハッシュの上書き

追記 これで良かった use strict; use warnings; use Data::Dumper; my %hash1 = (a=>1,b=>2,c=>3); print Dumper \%hash1; #$VAR1 = { # 'c' => 3, # 'a' => 1, # 'b' => 2 # }; my %hash2 = (b=>5,d=>6); print Dumper \%hash2; #$VAR1 = { # 'b' => 5, # …

SoozyCon7

Django URLField(verify_exists=True)とするとHTTPリクエスト飛ばして存在確認するとかすげぇ Modelにかなり詳細な情報が入っているのでModelからFormが作れる Signal eventを発生させる 任意の箇所で発生させられる ORMのデータ変更とかも テンプレート テ…

Perlで二つの配列の積集合を取得

use strict; use Data::Dumper; my @array1 = (1,2,3,4,5); my @array2 = (2,4,5,6,7); my %in_array1 = (); @in_array1{@array1} = map {1;} @array1; print Dumper grep { $in_array1{$_}} @array2; #$VAR1 = 2; #$VAR2 = 4; #$VAR3 = 5; こんなんでよい?…