è¨å®ãã¡ã¤ã«é¡ãperlã¨makeã¨Subversionã使ã£ã¦ç®¡çãã è¨å®ãã¡ã¤ã«ãã¾ã¨ãã¦ç®¡çãã ã§Makefileã使ã£ã¦è¨å®ãã¡ã¤ã«ã管çããæ¹æ³ãç´¹ä»ããã¦ããã ãã©ã Makefileãæã§çæããã®ã¯ããã©ããã¼ã¨è¨ããã¨ã§ã ãµã¯ã£ã¨Perlã§Makefileãçæããã¹ã¯ãªãããæ¸ãã¦ã¿ãã ã§ã以ä¸ã¹ã¯ãªããã #!perl use strict; use warnings; use File::Find; use FindBin (); my $source = $FindBin::Bin; my @files = (); find( sub { my $path = $File::Find::name; return if ( -d $path ); if ( $path =~ m{^$source/(.+)$} ) { my $filename = $1; #
{{#tags}}- {{label}}
{{/tags}}