I've used this type of routine many times, in view of the original post made by yogeshkumkar and given that I pointed out that he should print out the list of the find command I'd just like to understand how my code was "scary".
I'm quite happy to admit that I'm as likely to screw up as the next guy, but in this case I can't really see what is wrong with the advice that I gave. As I'm always keen to learn, I'd appreciate your feedback.
I don't mean to be critical, I'm just interested to know - I wouldn't deliberately give someone poor advice. I really didn't think that my post was too far off the mark, I use "find" this way frequently - I'm quite happy to admit my shortfalls but in this case I thought the advice was OK. Based on the original post I didn't think this was poor advice, I was just trying to solve a problem for someone.
Perhaps I should have said that the code should be "rm -i" and you can check each file prior to deletion.
Code:
for i in `cat tobedelete.txt`
do
find . -name ${i} -exec rm -i {} \;
done
Regards
Dave
Last edited by gull04; 03-11-2012 at 08:24 PM..
Reason: Typo
Hi,
How to recursively remove Ctrl M characters in files from a directory and its sub directory ?
I know unix2dos command is there but to remove in bunch of files ... ?
Thanks (7 Replies)
I need to find the largest files in a directory & it's subdirectories.
I'm not sure what options on ls -l will work to give me this. or is there another way to do this?
Thanks,
igidttam (6 Replies)
I posted a week ago regarding this scripting question, but I need to revisit and have a few more questions answered..
User cfajohnson was extremely helpful with the archive script, but clarification on my part is needed to help steer the answer in a direction that works in this particular... (5 Replies)
I have a large list of filenames from an Excel sheet, which I then translate into a simple text file. I'd like to use this list, which contains various file extensions , to archive these files and then remove them recursively through multiple directories and subdirectories. So far, it looks like... (5 Replies)
If I execute the command "ls -l /export/home/abcde/dev/proj/code/* | awk -F' ' '{print $9}' | cut -d'/' -f6-8" it will list all the files in /export/home/abcde/dev/proj/code/ directory as well as the files in subdirectories also
proj/code/test.sh
proj/code/test1.c
proj/code/unix... (8 Replies)
I'm trying to remove several directories which contains sun-dirs and files inside.
I used the command rm -r <dirname>
But, it always ask "examine file in directory <dirname> yes/no?" line by line.
So, i need to write "y" for every line.
How can i skip this step and remove all directories with... (9 Replies)
Hi,
I have a very big directory structure that consists of many sub-directories inside.There are around 50 ".gz" files under this dir structure.
I want to copy all the gz files alone to a seperate location.
Plz help me. (2 Replies)
I need to write a script to :
list files with *.i extension in a directory and all its subdirectories + 30days old, save it in a file and then remove (2 Replies)
Hello,
I wanted to
list all files in subdirectories which are modifiled recently. need to display all files with full details like hpw it display with ls -l ( date, size,..)
Thanks
Bala (3 Replies)
Hi, I'm currently trying to print the names of all the .txt files in the subdirectories that contain the string I'm searching.
I tried with this code, but it seems that it searches for the names that matches the string instead of searching for the string in the individual files and printing the... (2 Replies)
Discussion started by: nuclearpenguin
2 Replies
LEARN ABOUT DEBIAN
aspect::advice
Aspect::Advice(3pm) User Contributed Perl Documentation Aspect::Advice(3pm)NAME
Aspect::Advice - Change how Perl code is run at a pointcut
SYNOPSIS
# Trace calls to all functions in all MyAccount classes
use Aspect;
before {
print 'Called: '. $_->sub_name;
} call qw/^MyAccount::/;
# Repeat using the pure object-oriented interface
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
my $advice = Aspect::Advice::Before->new(
pointcut => Aspect::Pointcut::Call->new( qr/^MyAccount::/ ),
code => sub {
print 'called: '. $_->sub_name;
},
);
DESCRIPTION
An "advice" in AOP lingo is composed of a condition (known as a Aspect::Pointcut) and some code that will run when that pointcut is true.
This code is run before, after, or around the target pointcut depending on the particular advice type declaration used.
You do not normally create advice using the constructor. By "use()"ing Aspect, you get five advice declaration subroutines imported.
"before" is used to indicate code that should run prior to the function being called. See Aspect::Advice::Before for more information.
"after" is used to indicate code that should run following the function being called, regardless of whether it returns normally or throws
an exception. See Aspect::Advice::After for more information.
"around" is used to take deeper control of the call and gives you your own lexical scope between the caller and callee, with a specific
"proceed" call required in your code to execute the target function. See Aspect::Advice::Around for more information.
When the advice code is called, it is provided with an Advice::Point object which describes the context of the call to the target function,
and allows you to change it.
This parameter is provided both via the topic variable $_ (since version 0.90) and additionally as the first parameter to the advice code
(which may be deprecated at some point in the future).
If you are creating "advice" objects directly via the OO interface, you should never use this class directly but instead use the class of
the particular type of advice you want to create.
AUTHORS
Adam Kennedy <adamk@cpan.org>
Marcel Gruenauer <marcel@cpan.org>
Ran Eilam <eilara@cpan.org>
COPYRIGHT
Copyright 2001 by Marcel Gruenauer
Some parts copyright 2009 - 2012 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-02-01 Aspect::Advice(3pm)