I was wondering how I can modify this for loop, so it only loops through the filenames that do not have an ".old" extension.
for filename in $(ls "$1")
do
echo $filename | grep '\.old$' > /dev/null
if
then mv $1/$filename $1/$filename.old
fi
done (5 Replies)
Hi,
Following is my code and the file FILE_LIST_EXCESS.txt has 40 file names in it
while read LineIn
do
echo ${LineIn}
`ftp -vin << END_INPUT >> ${PID}_DS_GET_Log.log 2>&1
open servername
user userid password
cd FileDir
get ${LineIn}
END_INPUT`... (4 Replies)
I have 2 files one of them has all the all mac addresses and the other one has all the ip addresses. Basically, I want to loop thru those 2 files and generate a configuration like below:
host www184.domain.com {
hardware ethernet 00:13:72:3B:B4:3A;
fixed-address 192.168.0.184;
}... (4 Replies)
function ext
{
echo "THANKS & WELCOME BACK"
}
function upc
{
echo "TO EXPORT UPROC GIVE UPROC NAME PER LINE IN THE input.txt and PRESS Y"
echo "TO GO BACK PRESS 99"
read parm0
if ;
then
start
elif ;
then
for i in `cat input.txt` ; do
echo $i
$UXEXE/uxext upr upr=$i... (0 Replies)
Hi, my script is waiting for 3 files to come to a folder for 30 min but even when all the files arrive in the folder it's still waiting for these three files. Files can come with in 2 min and I want it to start processing them immediately after all the files arrive in the folder.
until ; do... (3 Replies)
sup experts..i had a script which was bugging me..was hoping someone could point out the issue here
Input file: space separated 2 columns
I wanted to print out the 2 columns after assigning them to variables ( bascially the same output but iterate through line by line ). The code worked... (7 Replies)
Hi,
I am trying to move a file from remote server to local server and when the transfer completes successfully i call a script in remote server to remove the file which was successfully transferred.
I do this by first getting the list of file in remote server and move the text file to local... (8 Replies)
Hi,
i=0
t5=6000001
while
do
i=`expr $i + 1`
t5=`expr $t5 + 1`
echo $t5
done
I am able to increment "col3" value but unable to get col1,col2 value.
Input:
t1=10001
t2=abc
t3=ghkc (5 Replies)
Hi,
I have prepared a script to search for backup file information on the Linux server. Script works fine for the most part except the echo statement inside an IF conditional block displays the message ''snapshot directory not found on xxxxx" even though the .snapshot directory is found a... (11 Replies)
Hi,
I just have started learning shell scripting (sh). Why do i only get the date?
while read dt
do
echo "Date : ${dt}
sed -n '/${dt}/,/${dt}/p' file1.log | grep -w ERROR
done < date1.dat
INPUT - date1.dat
2019-04-05 04:58:25
2019-04-05 04:58:26
2019-04-05 05:00:56... (3 Replies)
Discussion started by: margel
3 Replies
LEARN ABOUT DEBIAN
file::fu
File::Fu(3pm) User Contributed Perl Documentation File::Fu(3pm)NAME
File::Fu - file and directory objects
SYNOPSIS
The directory constructor:
use File::Fu;
my $dir = File::Fu->dir("bar");
print "$dir
"; # 'bar/'
my $file = $dir + 'bar.txt';
print "$file
"; # 'bar/bar.txt'
my $d2 = $dir % 'baz'; # 'barbaz/'
my $d3 = $dir / 'bat'; # 'bar/bat/'
my $file2 = $dir / 'bat' + 'foo.txt'; # 'bar/bat/foo.txt'
The file constructor:
my $file = File::Fu->file("foo");
$file->e and warn "$file exists";
$file->l and warn "$file is a link";
warn "file is in ", $file->dir;
ABOUT
This class provides the toplevel interface to File::Fu directory and file objects, with operator overloading which allows precise path
composition and support for most builtin methods, as well as creation of temporary files/directories, finding files, and more.
The interface and style are quite different than the perl builtins or File::Spec. The syntax is concise. Errors are thrown with croak(),
so you never need to check a return code.
Constructors
The actual objects are in the 'Dir' and 'File' sub-namespaces.
dir
my $dir = File::Fu->dir($path);
See "new" in File::Fu::Dir
file
my $file = File::Fu->file($path);
See "new" in File::Fu::File
Class Constants
tmp
Your system's '/tmp/' directory (or equivalent of that.)
my $dir = File::Fu->tmp;
home
User's $HOME directory.
my $dir = File::Fu->home;
program_name
The absolute name of your program. This will be relative from the time File::Fu was loaded. It dies if the name is '-e'.
my $prog = File::Fu->program_name;
If File::Fu was loaded after a chdir and the $0 was relative, calling program_name() throws an error. (Unless you set $0 correctly before
requiring File::Fu.)
program_dir
Returns what typically corresponds to program_name()->dirname, but just the compile-time cwd() when $0 is -e/-E.
my $dir = File::Fu->program_dir;
Class Methods
THIS_FILE
A nicer way to say __FILE__.
my $file = File::Fu->THIS_FILE;
cwd
The current working directory.
my $dir = File::Fu->cwd;
which
Returns File::Fu::File objects of ordered candidates for $name found in the path.
my @prog = File::Fu->which($name) or die "cannot find $name";
If called in scalar context, returns a single File::Fu::File object or throws an error if no candidates were found.
my $prog = File::Fu->which($name);
Temporary Directories and Files
These class methods call the corresponding File::Fu::Dir methods on the value of tmp(). That is, you get a temporary file/dir in the
'/tmp/' directory.
temp_dir
my $dir = File::Fu->temp_dir;
temp_file
my $handle = File::Fu->temp_file;
Subclassing
You may wish to subclass File:Fu and override the dir_class() and/or file_class() class methods to point to your own Dir/File subclasses.
my $class = 'My::FileFu';
my $dir = $class->dir("foo");
See File::Fu::File and File::Fu::Dir for more info.
See Also
File::Fu::why if I need to explain my motivations.
Path::Class, from which many an idea was taken.
File::stat, IO::File, File::Spec, File::Find, File::Temp, File::Path, File::Basename, perlfunc, perlopentut.
AUTHOR
Eric Wilhelm @ <ewilhelm at cpan dot org>
http://scratchcomputing.com/
BUGS
If you found this module on CPAN, please report any bugs or feature requests through the web interface at <http://rt.cpan.org>. I will be
notified, and then you'll automatically be notified of progress on your bug as I make changes.
If you pulled this development version from my /svn/, please contact me directly.
COPYRIGHT
Copyright (C) 2008 Eric L. Wilhelm, All Rights Reserved.
NO WARRANTY
Absolutely, positively NO WARRANTY, neither express or implied, is offered with this software. You use this software at your own risk. In
case of loss, no person or entity owes you anything whatsoever. You have been warned.
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2010-05-13 File::Fu(3pm)