Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:csbuild:DBA
dba-php-5417
copy_files.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File copy_files.pl of Package dba-php-5417
#!/usr/bin/perl use File::Basename; my ($target_dir, $fullname, $basename, $dirname ); $target_dir = $ARGV[0]; if ( (! $target_dir) || (! -d $target_dir) ) { print STDERR "Directory $target_dir not found\n"; exit (1); } while (<STDIN>) { chomp; $fullname = $_; $basename = basename($fullname); $dirname = dirname($fullname); # print STDOUT "fullname=$fullname, basename=$basename, dirname=$dirname\n"; if (! -d "$target_dir/$dirname" ) { # system("echo mkdir -p $target_dir/$dirname"); system("mkdir -p $target_dir/$dirname"); } if (! -e "$target_dir/$fullname" ) { # system("echo cp -p $fullname $target_dir/$dirname"); system("cp -p $fullname $target_dir/$dirname"); } # print STDOUT "$fullname\t$dirname\n"; }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
