vars.pm ã¯å¤æ°åãå°å ¥ããããã®ã¢ã¸ã¥ã¼ã«ã§ãããPerl ã§ã¯ C ã®ããã«å¤æ°ã宣è¨ããå¿ è¦ããªãã®ã§å¿ è¦æ§ãããã²ã¨ã¤ã¯ã£ãããã¾ãããå®ã¯ãvars.pm ã¯å¤æ°åããªãã¡ã¬ã³ã¹ããµãã«ã¼ãã³åããã§ãã¯ãã strict.pm ã¨é¢ä¿ãã¦ããããã§ããuse strict; ã宣è¨ããã¦ããã¨ã夿°ãmy ã§å®£è¨ãããã©ã¤ãã¼ã夿°ããããã±ã¼ã¸åãå«ãã¦å®å ¨ã«è¨è¿°ããã夿°ãã使ããªããªãã¾ãã䏿£ãªå¤æ°åã®ä½¿ç¨ã«ããã¯ã©ãã·ã¥ãé¿ããããã§ããä¾ãã°æ¬¡ã® Sample.pm ã¢ã¸ã¥ã¼ã«ã¨ test_sample.pl ã¹ã¯ãªããæ¬ä½ãããªãããã°ã©ã ãä½ãã¾ãã package Sample; sub import { $main::hello = 'hello'; } 1; # Sample.pm use Sample; # use strict; print $h
{{#tags}}- {{label}}
{{/tags}}