perlã§ãƒãƒƒã‚·ãƒ¥ã¨ã‹ã®ã‚«ãƒƒã‚³ã®å‰ã«ä»˜ã„ã¦ã‚‹ãƒ—ラスã®æ„味 - æ–°ã ã‚‹ã‚ã跡地{}ã®å‰ã«ãƒ—ラスãŒä»˜ã„ã¦ã€+{}ã¨ã‹ãªã£ã¦ã‚‹ã®ã‚’よã見るã‘ã©ã€ã‚„ã£ã¨ã“ã‚Œã®æ„味ãŒåˆ†ã‹ã£ãŸã®ã§ãƒ¡ãƒ¢ã€‚ ã“ã®ã‚«ãƒƒã‚³ã¯ãƒãƒƒã‚·ãƒ¥ä»¥å¤–ã«ã‚‚使ã‚れるã‹ã‚‰ã€ã€Œã“ã‚Œã¯ãƒãƒƒã‚·ãƒ¥ãƒªãƒ•ã‚¡ãƒ¬ãƒ³ã‚¹ã§ã™ã‚ˆã€ã¨æ˜Žç¤ºã™ã‚‹ãŸã‚ã®ã‚‚ã®ã€‚ use strict; use warnings; use Data::Dumper; local $\ = "\n"; sub p { print Dumper shift; } sub hashref_ng { { @_ } } sub hashref_ok { +{ @_ } } my $ng = hashref_ng(1,2,3,4); my $ok = hashref_ok(1,2,3,4); p $ng; p $ok; 実行çµæžœ % perl hashref.pl $VAR1 = 4; $VAR1 = { '1' => 2, '3' => 4 }; ã“ã‚“ãªå¸¸è˜ã‚‚知らãšã«ãŠã‚Šã¾ã™ã‚ˆ
{{#tags}}- {{label}}
{{/tags}}