ã«ã²ã‚Šãšã‚€::ã—ã‚“ã·ã‚‹ - 最近ã®ã‚»ãƒƒãƒˆã‚¢ãƒƒãƒ—スクリプトã®æ›¸ã方コードジェãƒãƒ¬ãƒ¼ã‚¿ãƒ¼ã¨ã„ã†ã‹ã‚¹ãƒ‹ãƒšãƒƒãƒˆã¨ã„ã†ã‹ã‚»ãƒƒãƒˆã‚¢ãƒƒãƒ—スクリプトã¨ã„ã†ã‹ãã†ã„ã†ã®ã‚’ã€æœ€è¿‘ã¯ä»¥ä¸‹ã®ã‚ˆã†ãªæ„Ÿã˜ã§æ›¸ã„ã¦ã‚‹ã€‚ 実際ã«ã¯ Getopt::Long ãªã‚“ã‹ã¨çµ„ã¿åˆã‚ã›ã¦ä½¿ã†ã€‚ #!/usr/bin/env perl use strict; use warnings; use File::Basename qw/dirname/; use File::Path qw/mkpath/; use File::Slurp qw/write_file/; use Data::Section::Simple qw/get_data_section/; use Text::Xslate; use 5.12.1; my $app = shift || die 'Usage: gen.pl app'; mkdir $app or die "$app: $!"; chdir $app; my $
データã¯è‡ªå‹•å‡¦ç†å¯èƒ½ãªå½¢ã§æä¾›ã—ã¦ã»ã—ã„ | Okumura's Blog
{{#tags}}- {{label}}
{{/tags}}