Visit The New, Modern Unix Linux Community

Top Forums Shell Programming and Scripting Need BASH Script Help to Move Files While Creating Directories Post 302987492 by consultant on Saturday 10th of December 2016 02:32:14 PM
Need BASH Script Help to Move Files While Creating Directories

I've got this script to loop through all folders and move files that are more than 2 years old. I'm using the install command because it creates the necessary directories on the destination path and then I remove the source. I'd like to change the script to use the mv command since it is much faster than copying the file then deleting it. But I don't know how to get the path without the filename to pass to the mkdir -p command? How should I modify the script?

Code:
for d in *; do

find "$d" -type f -mtime +730 -exec sh -c '

echo "moving $d/{}" &&
install -Dp "/data/Customer Files$d/{}" "/data/Customer Files Over 2 Years Old$d/{}" &&
rm -f "/data/Customer Files$d/{}"' \;

done


Last edited by Don Cragun; 12-10-2016 at 07:07 PM.. Reason: Add CODE tags.
 
Test Your Knowledge in Computers #12
Difficulty: Easy
CPU stands for 'Computer Processing Unit' and controls all of a computer's functions, acting as the brain(s) of computers.
True or False?

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Bash and Awk for creating directories and moving files

I have a security system that FTPs the camera files to my machine, however I want to sort the pictures (taken every 30s) into directories by hour. Every picture uses the following file format. yymmddhhmmsstt.jpg (where tt is the milliseconds) I am thinking the for loop is best for file... (11 Replies)
Discussion started by: Kiint
11 Replies

2. Shell Programming and Scripting

help needed with creating challenging bash script with creating directories

Hi, Can someone help me with creating a bash shell script. I need to create a script that gets a positive number n as an argument. The script must create n directories in the current directory with names like map_1, map_2 etcetera. Each directory must be contained within its predecessor. So... (7 Replies)
Discussion started by: I-1
7 Replies

3. Shell Programming and Scripting

want to move files in a dir into different directories based on the filename

I want to move the files in a dir to different dirs based on their file names. Ex: i have 4 different files with name - CTS_NONE_10476031_MRL_PFT20081215a.txt CTS_NONE_10633009_MRL_PFT20091020a.txt CTS_NONE_10345673_MRL_PFT20081215a.txt CTS_NONE_10872456_MRL_PFT20091020a.txt and the 1st... (4 Replies)
Discussion started by: Sriranga
4 Replies

4. Shell Programming and Scripting

Loop to move files in different directories

Hi, I have various log files in different paths. e.g. a/b/c/d/e/server.log a/b/c/d/f/server.log a/b/c/d/g/server.log a/b/c/h/e/server.log a/b/c/h/f/server.log a/b/c/h/g/server.log a/b/c/i/e/server.log a/b/c/i/e/server.log a/b/c/i/e/server.log and above these have an archive folder... (6 Replies)
Discussion started by: acc01
6 Replies

5. Shell Programming and Scripting

bash script for testing existence of files/folders and creating if neither exist

Hi, I am new to shell-scripting, and doing a lot of reading. I am having some trouble getting started with a simple testing of scripting. I have been experimenting with if, loops, for, test, etc., but still unsure. I seem to have the hang of it when it comes to creating a single file or... (6 Replies)
Discussion started by: me2
6 Replies

6. Shell Programming and Scripting

Recursively move directories along with files/specific files

I would like to transfer all files ending with .log from /tmp and to /tmp/archive (using find ) The directory structure looks like :- /tmp a.log b.log c.log /abcd d.log e.log When I tried the following command , it movies all the log files... (8 Replies)
Discussion started by: frintocf
8 Replies

7. Programming

Script for creating a directory & move the .tif files in it.

Hi Team, I have thousands of TIF files which are converted from PDF. Below is a sample of it. LH9406_BLANCARAMOS_2012041812103210320001.tif LH9406_BLANCARAMOS_2012041812103210320002.tif LH9406_BLANCARAMOS_2012041812103210320003.tif LH9411_ANGENIAHUTCHINSON_2012041812102510250001.tif... (9 Replies)
Discussion started by: paragnehete
9 Replies

8. Shell Programming and Scripting

Archiving and moving files into directories, creating directories, etc.

how can i move "dataName".sql.gz into a folder called 'database' and then move "$fileName".tar.gz * .htaccess into a folder called 'www' with the entire gzipped file being "$fileName".tar.gz? Is this doable or overly complex. so mydemo--2015-03-23-1500.tar.gz > database -... (5 Replies)
Discussion started by: wyclef
5 Replies

9. UNIX for Dummies Questions & Answers

Move multipe files to corresponding directories

Hi, In a parent directory there are several files in the form IDENTIFIER1x IDENTIFIER1.yyy IDENTIFIER1_Z, etc IDENTIFIER2x IDENTIFIER2.yyy IDENTIFIER2_Z, etc IDENTIFIER3x IDENTIFIER3.yyy, IDENTIFIER3_Z, etcIn the same parent directory there are corresponding directories named... (7 Replies)
Discussion started by: spirospap
7 Replies

10. UNIX for Beginners Questions & Answers

Move several files into specific directories with a loop

Hello, I'm a first time poster looking for help in scripting a task in my daily routine. I am new in unix but i am attracted to its use as a mac user. Bear with me... I have several files (20) that I manually drag via the mouse into several named directories over a network. I've used rsync... (14 Replies)
Discussion started by: SonnyClark
14 Replies
aliased(3)						User Contributed Perl Documentation						aliased(3)

NAME
aliased - Use shorter versions of class names. VERSION
0.31 SYNOPSIS
# Class name interface use aliased 'My::Company::Namespace::Customer'; my $cust = Customer->new; use aliased 'My::Company::Namespace::Preferred::Customer' => 'Preferred'; my $pref = Preferred->new; # Variable interface use aliased; my $Customer = alias "My::Other::Namespace::Customer"; my $cust = $Customer->new; my $Preferred = alias "My::Other::Namespace::Preferred::Customer"; my $pref = $Preferred->new; DESCRIPTION
"aliased" is simple in concept but is a rather handy module. It loads the class you specify and exports into your namespace a subroutine that returns the class name. You can explicitly alias the class to another name or, if you prefer, you can do so implicitly. In the latter case, the name of the subroutine is the last part of the class name. Thus, it does something similar to the following: #use aliased 'Some::Annoyingly::Long::Module::Name::Customer'; use Some::Annoyingly::Long::Module::Name::Customer; sub Customer { return 'Some::Annoyingly::Long::Module::Name::Customer'; } my $cust = Customer->new; This module is useful if you prefer a shorter name for a class. It's also handy if a class has been renamed. (Some may object to the term "aliasing" because we're not aliasing one namespace to another, but it's a handy term. Just keep in mind that this is done with a subroutine and not with typeglobs and weird namespace munging.) Note that this is only for "use"ing OO modules. You cannot use this to load procedural modules. See the Why OO Only? section. Also, don't let the version number fool you. This code is ridiculously simple and is just fine for most use. Implicit Aliasing The most common use of this module is: use aliased 'Some::Module::name'; "aliased" will allow you to reference the class by the last part of the class name. Thus, "Really::Long::Name" becomes "Name". It does this by exporting a subroutine into your namespace with the same name as the aliased name. This subroutine returns the original class name. For example: use aliased "Acme::Company::Customer"; my $cust = Customer->find($id); Note that any class method can be called on the shorter version of the class name, not just the constructor. Explicit Aliasing Sometimes two class names can cause a conflict (they both end with "Customer" for example), or you already have a subroutine with the same name as the aliased name. In that case, you can make an explicit alias by stating the name you wish to alias to: use aliased 'Original::Module::Name' => 'NewName'; Here's how we use "aliased" to avoid conflicts: use aliased "Really::Long::Name"; use aliased "Another::Really::Long::Name" => "Aname"; my $name = Name->new; my $aname = Aname->new; You can even alias to a different package: use aliased "Another::Really::Long::Name" => "Another::Name"; my $aname = Another::Name->new; Messing around with different namespaces is a really bad idea and you probably don't want to do this. However, it might prove handy if the module you are using has been renamed. If the interface has not changed, this allows you to use the new module by only changing one line of code. use aliased "New::Module::Name" => "Old::Module::Name"; my $thing = Old::Module::Name->new; Import Lists Sometimes, even with an OO module, you need to specify extra arguments when using the module. When this happens, simply use "Explicit Aliasing" followed by the import list: Snippet 1: use Some::Module::Name qw/foo bar/; my $o = Some::Module::Name->some_class_method; Snippet 2 (equivalent to snippet 1): use aliased 'Some::Module::Name' => 'Name', qw/foo bar/; my $o = Name->some_class_method; Note: remember, you cannot use import lists with "Implicit Aliasing". As a result, you may simply prefer to only use "Explicit Aliasing" as a matter of style. alias() This function is only exported if you specify "use aliased" with no import list. use aliased; my $alias = alias($class); my $alias = alias($class, @imports); alias() is an alternative to "use aliased ..." which uses less magic and avoids some of the ambiguities. Like "use aliased" it "use"s the $class (pass in @imports, if given) but instead of providing an "Alias" constant it simply returns a scalar set to the $class name. my $thing = alias("Some::Thing::With::A::Long::Name"); # Just like Some::Thing::With::A::Long::Name->method $thing->method; The use of a scalar instead of a constant avoids any possible ambiguity when aliasing two similar names: # No ambiguity despite the fact that they both end with "Name" my $thing = alias("Some::Thing::With::A::Long::Name"); my $other = alias("Some::Other::Thing::With::A::Long::Name"); and there is no magic constant exported into your namespace. The only caveat is loading of the $class happens at run time. If $class exports anything you might want to ensure it is loaded at compile time with: my $thing; BEGIN { $thing = alias("Some::Thing"); } However, since OO classes rarely export this should not be necessary. prefix() (experimental) This function is only exported if you specify "use aliased" with no import list. use aliased; Sometimes you find you have a ton of packages in the same top-level namespace and you want to alias them, but only use them on demand. For example: # instead of: MailVerwaltung::Client::Exception::REST::Response->throw() my $error = prefix('MailVerwaltung::Client::Exception'); $error->('REST::Response')->throw(); # same as above $error->()->throw; # same as MailVerwaltung::Client::Exception->throw Why OO Only? Some people have asked why this code only support object-oriented modules (OO). If I were to support normal subroutines, I would have to allow the following syntax: use aliased 'Some::Really::Long::Module::Name'; my $data = Name::data(); That causes a serious problem. The only (reasonable) way it can be done is to handle the aliasing via typeglobs. Thus, instead of a subroutine that provides the class name, we alias one package to another (as the namespace module does.) However, we really don't want to simply alias one package to another and wipe out namespaces willy-nilly. By merely exporting a single subroutine to a namespace, we minimize the issue. Fortunately, this doesn't seem to be that much of a problem. Non-OO modules generally support exporting of the functions you need and this eliminates the need for a module such as this. EXPORT
This modules exports a subroutine with the same name as the "aliased" name. BUGS
There are no known bugs in this module, but feel free to email me reports. SEE ALSO
The namespace module. THANKS
Many thanks to Rentrak, Inc. (http://www.rentrak.com/) for graciously allowing me to replicate the functionality of some of their internal code. AUTHOR
Curtis Poe, "ovid [at] cpan [dot] org" COPYRIGHT AND LICENSE
Copyright (C) 2005 by Curtis "Ovid" Poe This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available. perl v5.18.2 2017-10-06 aliased(3)

Featured Tech Videos

All times are GMT -4. The time now is 04:04 PM.
Unix & Linux Forums Content Copyright 1993-2020. All Rights Reserved.
Privacy Policy