é åãããããã·ã¥ã«å¤æããããã¨ããã¨ãã©ãããã¾ãããé åããä¸æ°ã«ããã·ã¥ã«ããæ¹æ³ããã¤ãå¿ãã¦æã®ã³ã¼ããæ¢ãã¦ãã¾ãã®ã§ã¡ã¢ã my %member; @member{qw(name age)} = qw(takefumi 23); print Dumper \%member; ã£ã¦ããã¨ã $VAR1 = { 'name' => 'takefumi', 'age' => '23' }; ãããªæãããã便å©ã ã ãã¨ãã°ãcsvãã¼ã¿ããã¨ã«ãDBã«ã¤ã£ããã¹ã¯ãªããã¯ãããªæãã while(<STDIN>) { my %member; @member{qw(name age email)} = split /,/; MyProject::Data::Member->create(\%member); }
{{#tags}}- {{label}}
{{/tags}}