サイトマップ 連絡先 トップに戻る 最初に戻る
$Date: 2018-07-07 06:49:13 +0900 (2018/07/07 (土)) $
$Revision: 1347 $

File::Find

リンク

サンプル

File::Find を使った一時ファイル削除用スクリプト delete_files.pl
#!/usr/bin/perl

use File::Find;

find(
	{
		wanted => sub {
			my $path = $File::Find::name;
			if( $path =~ /\.obj$/   || $path =~ /\.pdb$/ || $path =~ /\.so$/
			 || $path =~ /\.idb$/   || $path =~ /\.res$/ || $path =~ /BuildLog(\w*)\.htm$/i
			 || $path =~ /\.ncb$/   || $path =~ /\.suo$/ || $path =~ /\.exp$/
			 || $path =~ /mt\.dep$/ || $path =~ /\.intermediate\.manifest$/i )
			{
				print "$path\n";
				unlink $path;
			}
		},

		preprocess => sub {
			grep { $_ ne '.svn' } @_;
		},
		
		no_chdir => 1
	},
	'.'
);