#!/usr/bin/perl
use strict; #These two lines will
use warnings; # save you hours of debugging time
use File::Copy;
use File::Basename;
my $my_file = "makefile";
open(my $makefile,'<', "$my_file");
while(<$makefile>)
{
if(/check_geomtools.exe: (.*./\.lib)$/){
my $full_path=$1;
chomp($full_path);
my $filename = basename($full_path);
mkdir "Scratch" if ( ! -d Scratch) ;
copy($full_path, "Scratch/$filename");
}
}
An application running on HP-UX constantly generates new text log files ( I think using logpipe ). Any new file created requires to be ftp'ed to an offline server, however I want to make sure that the current file being written should not be transferred.
For examples consider the following files... (3 Replies)
Whenever I create a new file the group name is "dnn" and the file permissions are "-rw-r--r--".
How do I get it so when I create files (with vi or other programs) that the default group is "sss" and the permissions are 770?
(I am running HP-UNIX)
Thanks,
GoldFish (2 Replies)
Hi Friends,
I have to create a new log file everyday and append it with content based on some keywords found in another log file.
Here is what I have tried so far...
grep Error /parentfolder/someLogFile.log >> /parentfolder
/Archive/"testlogfile_error_`date '+%d%m%y'`.txt"
grep error... (6 Replies)
I need to copy a file example hhh.txt to the recently created directory by name flexite@latesttimestamp in the path interface/home/ ...
I couldnt get the name of recently created directory ....
first result of ls -lst ...that is ls -lst |head -2 gives the latest directory but i could not... (2 Replies)
Hi,
I need to create new directory by increasing the number by 1 of extracted lastly created directory.
e.g.
Log\out_log_1\
Log\out_log_2\
Log\out_log_3\
become
Log\out_log_1\
Log\out_log_2\
Log\out_log_3\
Log\out_log_4\
Can anyone help how to do it in c-shell... (3 Replies)
Hi,
We have a sftp server which creates files daily and keeps 6 months of files on the server. We are creating a daily job to get the files and load into database. My problem is "how to get ONLY those files which got created after my last get". Let me provide some more details to it.
Below... (15 Replies)
Hi all,
In linux how to create a directory with specified size, so that it can be used only up to the mentioned size.
Actually my question is, whether we can do directory quota in linux.
mounting the directory in a partiton will do that, but do we have any other option... (1 Reply)
hello,
i am an oracle DBA and trying to scan a newly created LUN of 200 GB on fiber channel by SAN admin.we have solaris 10 and SANtoolkit is installed.i tried following to get the new LUN at my machine. go /opt/Netapp/Santoolkit/bin and then ./sanlun lun show but i see only the existing... (12 Replies)
Hi ,
I have created one new lun in my SAN storage and make it visible to my HP servers , but the fdisk -l output is somehow confusing. Do not know what to do next ----------
fdisk -l /dev/sdo1
Disk /dev/sdo1 (Sun disk label): 64 heads, 32 sectors, 10238 cylinders
Units =... (7 Replies)
AIX 7.1
New to WPAR, hopefully just missing something simple here.
Creating the WPAR like this.....
(The box where the WPAR is hosted does have an iscsi protocol device)
mkwpar -h wpar08 -l -n wpar08 -N interface=en0 address=xxx.xx.xx.xxx netmask=255.255.255.0 -D devname=/dev/iscsi0 -D... (0 Replies)
Discussion started by: TomR
0 Replies
LEARN ABOUT DEBIAN
file::copy::link
File::Copy::Link(3pm) User Contributed Perl Documentation File::Copy::Link(3pm)NAME
File::Copy::Link - Perl extension for replacing a link by a copy of the linked file.
SYNOPSIS
use File::Copy::Link;
copylink 'file.lnk';
use File::Copy::Link qw(safecopylink);
safecopylink 'file.lnk';
DESCRIPTION
"copylink"
reads the filename linked to by the argument and replaced the link with a copy of the file. It opens a filehandle to read from the
link, deletes the link, and then copies the filehandle back to the link.
"safecopylink"
does the same as "copylink" but without the open-and-delete manouvre. Instead, it uses "File::Spec::Link" to find the target of the
link and copies from there.
This module is mostly a wrapper round "File::Spec::Link::linked" and "File::Copy::copy", the functionality is available in a command line
script copylink.
EXPORT
Nothing by default, can export "copylink", `"safecopylink".
SEE ALSO copylink(1)File::Copy(3)File::Spec::Link(3)AUTHOR
Robin Barker, <Robin.Barker@npl.co.uk>
COPYRIGHT AND LICENSE
Copyright 2003, 2006, 2007 by Robin Barker
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.4 2011-09-30 File::Copy::Link(3pm)