#bin/bash -x
source1="/home/u02/Oracle"
dest1="/home/u02/Oracle/LOG"
chmod 777 $source1/*.tif
chmod 777 $source1/*.txt
/usr/bin/scp $source1/*.tif 192.168.83.7:/mnt/dbfs/
if [ $? -eq 0 ]
then
echo " files were copied with extension tif on `date`" >> /var/log/croncopy.txt
fi
/usr/bin/scp $source1/*.txt 10.83.83.7:/mnt/dbfs/
if [ $? -eq 0 ]
then
echo " files were copied with extension txt on `date`" >> /var/log/croncopy.txt
fi
/usr/bin/scp $source1/*.TIF 10.83.83.7:/mnt/dbfs/
if [ $? -eq 0 ]
then
echo " files were copied with extension TIF on `date`" >> /var/log/croncopy.txt
fi
exit
---------- Post updated at 02:52 AM ---------- Previous update was at 02:51 AM ----------
Hello,
I am using rsync to make sure that my folder "local" mirrors the remote directory "remote". When a file is copied from "remote" to "local", I need to apply a bash script to it. What would be a neat way to do that?
Thanks
ps: is there a way to edit the title of the thread (I am a bit... (5 Replies)
There might be an easy solution to my problem, or maybe not, but here it is.
I am trying to rsync a Volume with 1.5 terabytes of data and send it via fibre channel to a raid array. Now normally when I rsync it scans through everything and, before copying anything, deletes any files that have... (1 Reply)
Hi,
I am a newbie to shell scripting. here is my objective:
1)The shell program should take 2 parameters - ie-> DestinationFolder, WebFolder
2)Destination folder contains few files that has to has be verified and deleted.
3)WebFolder is a folder containing a list of master files
4)It... (1 Reply)
I know I can use an ls -l junk1 command to get a listing of all files in the directory junk1, but I was wondering how I'd go about going through the files in junk1 in a for-in loop and issuing the ls -l command on them one by one.
This is what I have so far:
for file in $(ls -a $1)
do
ls... (1 Reply)
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)
I want to move all files from one directory to another directory excluding today (sysdate files) on daily basis.
file name is in pattern file_2013031801, file_2013031802 etc (2 Replies)
Hi,
I use rsync to move from source to target, but there are cases that I need to exclude:
Suppose in my file system, I have a soft link ~/data -> /media/volgrp/data.
Under data folder, there is a file hello.txt.
After moving command "rsync --remove-source-files -aH --force ~/data/... (3 Replies)
Hey guys,
I have wrote the following script to apply a module named "trinity" on my files. (it takes two input files and spit a trinity.fasta as output)
#!/bin/bash -l
#SBATCH -p node
#SBATCH -A <projectID>
#SBATCH -n 16
#SBATCH -t 7-00:00:00
#SBATCH --mem=128GB
#SBATCH --mail-type=ALL... (1 Reply)
I need a rsync command which will exclude certain files and directories from source and copy the rest. I got this command working,
sudo rsync -avzh --exclude 'bin' --exclude 'braintree' --exclude 'colinmollenhour' --exclude 'composer' --exclude 'doctrine' --exclude 'fabpot' --exclude... (2 Replies)
Hello,
First time poster. I am looking for a way to script or program the process of moving files from one folder to another, automatically, based on the count of files in the destination folder.
I was thinking a shell script would work, but am open to the suggestions of the experts... (6 Replies)
Discussion started by: comtech
6 Replies
LEARN ABOUT DEBIAN
gtk2::gdk::region
Gtk2::Gdk::Region(3pm) User Contributed Perl Documentation Gtk2::Gdk::Region(3pm)NAME
Gtk2::Gdk::Region - wrapper for GdkRegion
HIERARCHY
Glib::Boxed
+----Gtk2::Gdk::Region
METHODS
region = Gtk2::Gdk::Region->new
rectangle = $region->get_clipbox
boolean = $region->empty
boolean = $region1->equal ($region2)
o $region2 (Gtk2::Gdk::Region)
$source1->intersect ($source2)
o $source2 (Gtk2::Gdk::Region)
$region->offset ($dx, $dy)
o $dx (integer)
o $dy (integer)
boolean = $region->point_in ($x, $y)
o $x (integer)
o $y (integer)
region = Gtk2::Gdk::Region->polygon ($points_ref, $fill_rule)
o $points_ref (scalar)
o $fill_rule (Gtk2::Gdk::FillRule)
boolean = $region->rect_equal ($rectangle)
o $rectangle (Gtk2::Gdk::Rectangle)
Since: gtk+ 2.18
overlaptype = $region->rect_in ($rect)
o $rect (Gtk2::Gdk::Rectangle)
region = Gtk2::Gdk::Region->rectangle ($rectangle)
o $rectangle (Gtk2::Gdk::Rectangle)
list = $region->get_rectangles
Returns a list of rectangles (Gtk2::Gdk::Rectangle's), the area covered by the region.
$region->shrink ($dx, $dy)
o $dx (integer)
o $dy (integer)
$region->spans_intersect_foreach ($spans_ref, $sorted, $func, $data=undef)
o $spans_ref (scalar) arrayref of triples [$x1,$y1,$width1, $x2,$y2,$width2, ...]
o $sorted (boolean)
o $func (scalar)
o $data (scalar)
Call $function for horizontal lines which intersect $region.
$spans_ref is an arrayref of x,y,width horizontal lines. If $sorted is true then they're assumed to be sorted by increasing y coordinate
(allowing a single pass across the region rectangles). $function is called
&$function ($x, $y, $width, $data)
for each portion of a span which intersects $region. $function must not change $region.
$region->spans_intersect_foreach ([ 0,0,50, 20,20,100, 0,10,50 ],
0, # spans not sorted by y
&my_callback,
'hello'); # userdata
sub my_callback {
my ($x, $y, $width, $userdata) = @_;
print "$userdata: $x, $y, $width
";
}
$source1->subtract ($source2)
o $source2 (Gtk2::Gdk::Region)
$source1->union ($source2)
o $source2 (Gtk2::Gdk::Region)
$region->union_with_rect ($rect)
o $rect (Gtk2::Gdk::Rectangle)
$source1->xor ($source2)
o $source2 (Gtk2::Gdk::Region)
ENUMS AND FLAGS
enum Gtk2::Gdk::FillRule
o 'even-odd-rule' / 'GDK_EVEN_ODD_RULE'
o 'winding-rule' / 'GDK_WINDING_RULE'
enum Gtk2::Gdk::OverlapType
o 'in' / 'GDK_OVERLAP_RECTANGLE_IN'
o 'out' / 'GDK_OVERLAP_RECTANGLE_OUT'
o 'part' / 'GDK_OVERLAP_RECTANGLE_PART'
SEE ALSO
Gtk2, Glib::Boxed
COPYRIGHT
Copyright (C) 2003-2011 by the gtk2-perl team.
This software is licensed under the LGPL. See Gtk2 for a full notice.
perl v5.14.2 2012-05-27 Gtk2::Gdk::Region(3pm)