#!/bin/ksh
XCOUNT=$1
FILNME=$2
OUTDIR=$3
ARCDIR=$4
mv $OUTDIR/$FILNME $ARCDIR
cd $ARCDIR
### LIST THE FILES SPECIFIC TO THE FILENAME
ls | grep $FILNME > list.txt
### LOOP
while $XCOUNT > 0 ;
do
### GET THE OLD ARCHIVE
TMPFIL1=`grep $FILNME.$XCOUNT list.txt`
TMPFIL2=${TMPFIL1%.*}
if [[ ! -z ${TEMPFIL1} ]] &&
[[ $XCOUNT = $1 ]]; then
rm -f ${TEMPFIL1}
fi
## not sure if this will work.. but the logic is to subtract 1 :)
XCOUNT=$(($XCOUNT-1))
if [[ -z ${TEMPFIL1} ]]; then
continue
fi
mv $TEMPFIL1 $TMPFIL2.$XCOUNT
done
===============================================
Moderator's Comments:
Please view this code tag video for how to use code tags when posting code and data.
Last edited by vbe; 06-29-2012 at 12:09 PM..
Reason: code tags...
Im new to unix shell scripting, I have to run batch jobs on unix. for example i have 5 jobs. first 2 can kickoff parallely. after completely finishing the 2 previous jobs the 3 job should kick off..once 3rd is over 4 th and 5th can kick off parallely. Each jobs run for 1 or 2 hours each.
How to... (2 Replies)
I am using awk in my .ksh script but when I am trying to run in windows
its not recognising awk part of the ksh script , even when I changed it to gawk it does not work, this is how my .ksh and .bat files look like.
thanx.
#!/bin/ksh
egrep -v "Rpt 038|PM$|Parameters:|Begin |Date: |End... (1 Reply)
Hi everyone,
I am a newbies to Unix and hope someone can help me on:
1. Do anyone has batch file example that can be logon to a unix sever through telnet and exec a nohup command without typing in username and passward everytime ?
2. A java script exmaple for doing the same logon so it... (1 Reply)
Hi,
When I run the below script in UNIX it's throwing syntax errors. Actually it's a windows batch script. Could anyone change the below Windows Batch script to UNIX shell script...
Script:
REM :: File Name : Refresh_OTL.bat
REM :: Parameters : %1 - Region
REM :: : %2 - Cube Type
REM ::... (5 Replies)
Can anyone help me with a dos batch script to execute a shell script residing in an unix server. I am not able to use ssh.
Thanks in advance (2 Replies)
I wish to create a folder on a unix server B from my windows box using windows batch script.
Below is my windows batch script.
@ ECHO OFF
::Enter your Directory name:
echo Enter your Directory name:
set /p mydir=
plink user1@ServerA
mkdir %mydir%
At plink command i get logged... (7 Replies)
Hi team,
My requirement is to transfer pdf files from windows machine to unix server and then from that unix server we should sftp to another server.
I have completed the first part i.e From windows to using to unix server with the help of psftp.exe
code:
psftp user@host -pw password <... (1 Reply)
Dear All,
I have a requirement where I have to SFTP or SCP a file in a batch script. Unfortunately, the destination server setup is such that it doesn't allow for shell command line login. So, I am not able to set up SSH keys. My source server is having issues with Expect. So, unable to use... (5 Replies)
Requirement:
Under fuse application we have placeholders called containers;
Every container has their logs under:
<container1>/data/log/fuse.log
<container1>/data/log/fuse.log.1
<container1>/data/log/fuse.log.XX
<container2>/data/log/fuse.log... (6 Replies)
Discussion started by: Arjun Goswami
6 Replies
LEARN ABOUT DEBIAN
archive::any
Archive::Any(3pm) User Contributed Perl Documentation Archive::Any(3pm)NAME
Archive::Any - Single interface to deal with file archives.
SYNOPSIS
use Archive::Any;
my $archive = Archive::Any->new($archive_file);
my @files = $archive->files;
$archive->extract;
my $type = $archive->type;
$archive->is_impolite;
$archive->is_naughty;
DESCRIPTION
This module is a single interface for manipulating different archive formats. Tarballs, zip files, etc.
new
my $archive = Archive::Any->new($archive_file);
my $archive = Archive::Any->new($archive_file, $type);
$type is optional. It lets you force the file type in-case Archive::Any can't figure it out.
extract
$archive->extract;
$archive->extract($directory);
Extracts the files in the archive to the given $directory. If no $directory is given, it will go into the current working directory.
files
my @file = $archive->files;
A list of files in the archive.
mime_type
my $mime_type = $archive->mime_type();
Returns the mime type of the archive.
is_impolite
my $is_impolite = $archive->is_impolite;
Checks to see if this archive is going to unpack into the current directory rather than create its own.
is_naughty
my $is_naughty = $archive->is_naughty;
Checks to see if this archive is going to unpack outside the current directory.
DEPRECATED
type
my $type = $archive->type;
Returns the type of archive. This method is provided for backwards compatibility in the Tar and Zip plugins and will be going away
soon in favor of "mime_type".
PLUGINS
For detailed information on writing plugins to work with Archive::Any, please see the pod documentation for Archive::Any::Plugin.
AUTHOR
Clint Moore <cmoore@cpan.org>
AUTHOR EMERITUS
Michael G Schwern
SEE ALSO
Archive::Any::Plugin
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Archive::Any
You can also look for information at:
o AnnoCPAN: Annotated CPAN documentation
<http://annocpan.org/dist/Archive-Any>
o CPAN Ratings
<http://cpanratings.perl.org/d/Archive-Any>
o RT: CPAN's request tracker
<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Archive-Any>
o Search CPAN
<http://search.cpan.org/dist/Archive-Any>
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See <http://www.perl.com/perl/misc/Artistic.html>
perl v5.10.0 2008-06-25 Archive::Any(3pm)
06-29-2012
