Dashboard
PHP:
8.3.33
OS:
Linux
User:
u99598609
/
/
usr
/
share
/
rsync
/
scripts
📤 Upload
📝 New File
📁 New Folder
Close
Editing: files-to-excludes
#!/usr/bin/perl # This script takes an input of filenames and outputs a set of # include/exclude directives that can be used by rsync to copy # just the indicated files using an --exclude-from=FILE option. use strict; my %hash; while (<>) { chomp; s#^/+##; my $path = '/'; while (m#([^/]+/)/*#g) { $path .= $1; print "+ $path\n" unless $hash{$path}++; } if (m#([^/]+)$#) { print "+ $path$1\n"; } else { delete $hash{$path}; } } foreach (sort keys %hash) { print "- $_*\n"; } print "- /*\n";
Save
Cancel