2008å¹´06æ19æ¥21:45 ã«ãã´ãªLightweight Languages perl - use warnings; # -w ã§ãªã㦠æè¿ã¯ããããã«use strict;ããã¦ããªãå®è·µã³ã¼ããç®ã«ãããã¨ãã»ã¨ãã©ãªããªã£ã¦ããã®ã ãã©ãã¾ã æ®ã£ã¦ããã®ãuse warnings;å©ç¨ã以ä¸ã¨ä½µãã¦èªãã§ããã ããã¨å¹¸ãã ã 404 Blog Not Found:perl - use strict; # and be happy -w ã£ã¦ä½? warnings ã£ã¦ä½? ã¾ãã以ä¸ã®ããã°ã©ã ãè¦ã¦ã¿ããã #!/usr/local/bin/perl use strict; sub distance { my ( $a, $b ) = @_; return sqrt( $a**2 + $b**2 ); } print distance(@ARGV), "\n"; % p
{{#tags}}- {{label}}
{{/tags}}