10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
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
2. Shell Programming and Scripting
Hi All,
I have the below senario.
File_Name="^Test>*"
Move_Delay=12
Source_Folder="/odi/nas/"
Target_Folder="/odi/nas//archive"
Now I want to move any file that is older than "Move_Delay" hours and matching "File_Name" pattern from the folder "Source_Folder" to the folder... (2 Replies)
Discussion started by: Anupam_Halder
2 Replies
3. Shell Programming and Scripting
I have 15-20 files in a unix folder on daily basis, so i need to archive those 20 files as dated today and place that archived files in a new folder and has to remove those 20 files from that folder. so that i place 20 new files that comes for tomorrow.
i need write a unix script to do this.
... (1 Reply)
Discussion started by: gaddamshashank
1 Replies
4. Shell Programming and Scripting
I'm not sure how to solve the $month-1 thingy or the foreach sentence, so I need some help./*
folders =
folder1
folder2
folder3
folder4
folder5
*/
month=`date +%m`
if($month == 01)
{
prev_month = 12
} else
{
prev_month =... (7 Replies)
Discussion started by: JKMlol
7 Replies
5. Shell Programming and Scripting
Hi there,
I have one huge archive (it's a system image).
I need sometime to create smaller archives with only one or two file from my big archive.
So I'm looking for a command that extracts files from an archive and pipe them to another one.
I tried the following :
tar -xzOf oldarchive.tgz... (5 Replies)
Discussion started by: chebarbudo
5 Replies
6. Shell Programming and Scripting
Hi All
We have a landing directory where source system puts files.There are variable number of files and the file names are also varying.Each files successful transmission is identified by a .done file.If file name is xyz.dat then the confirmation file will be xyz.dat.done.
I want to... (1 Reply)
Discussion started by: dr46014
1 Replies
7. Shell Programming and Scripting
hi guru,
can advise how to construct a housekeeping script using perl for the following ?
find /var/tmp/logs -name "si*" -type f -exec gzip -f {} \;
find /var/tmp/logs -name "*.gz" -type f -exec mv -f {} /var/tmp/log \;
I found out those are not working in shell at when put them on... (1 Reply)
Discussion started by: rauphelhunter
1 Replies
8. UNIX for Advanced & Expert Users
Hi everyone,
I am currently trying to work out the size overhead in the library archive.
The total size of all my objects file is about 100KB. However, when I package them into the archive (libXX.a), the size gets boosted up to 200KB. I want to know what exact is that 100KB overhead. I tried... (1 Reply)
Discussion started by: jasoncrab
1 Replies
9. UNIX for Dummies Questions & Answers
Hi,
I want to archive below directories
ex: /home/oracle/ddd0
/home/oracle/ddd1
/home/oracle/ddd2
I want a command(tar) which will let me archive the above directories excluding *.dmp(dump files), *.log(log files) in those directories.
So the archived file doesn't have... (4 Replies)
Discussion started by: dreams5617
4 Replies
10. Shell Programming and Scripting
Hi All,
I wrote this script:
#!/bin/ksh
while read DAYS ARCH_PATH
do
cd $ARCH_PATH
find . \( -type d ! -name . -prune \) -o -type f -mtime +$DAYS -exec tar -cv
f kay_`date +%d%m%y%H%M`.tar {} \;
cd -
done < filestoarchive.txt
The problem is, in a folder of 7files, I would... (13 Replies)
Discussion started by: kayarsenal
13 Replies
Archive::Zip::MemberRead(3) User Contributed Perl Documentation Archive::Zip::MemberRead(3)
NAME
Archive::Zip::MemberRead - A wrapper that lets you read Zip archive members as if they were files.
SYNOPSIS
use Archive::Zip;
use Archive::Zip::MemberRead;
$zip = Archive::Zip->new("file.zip");
$fh = Archive::Zip::MemberRead->new($zip, "subdir/abc.txt");
while (defined($line = $fh->getline()))
{
print $fh->input_line_number . "#: $line
";
}
$read = $fh->read($buffer, 32*1024);
print "Read $read bytes as :$buffer:
";
DESCRIPTION
The Archive::Zip::MemberRead module lets you read Zip archive member data just like you read data from files.
METHODS
Archive::Zip::Member::readFileHandle()
You can get a "Archive::Zip::MemberRead" from an archive member by calling "readFileHandle()":
my $member = $zip->memberNamed('abc/def.c');
my $fh = $member->readFileHandle();
while (defined($line = $fh->getline()))
{
# ...
}
$fh->close();
Archive::Zip::MemberRead->new($zip, $fileName)
Archive::Zip::MemberRead->new($zip, $member)
Archive::Zip::MemberRead->new($member)
Construct a new Archive::Zip::MemberRead on the specified member.
my $fh = Archive::Zip::MemberRead->new($zip, 'fred.c')
setLineEnd(expr)
Set the line end character to use. This is set to
by default except on Windows systems where it is set to
. You will only need
to set this on systems which are not Windows or Unix based and require a line end different from
. This is a class method so call as
"Archive::Zip::MemberRead"->"setLineEnd($nl)"
rewind()
Rewinds an "Archive::Zip::MemberRead" so that you can read from it again starting at the beginning.
input_record_separator(expr)
If the argument is given, input_record_separator for this instance is set to it. The current setting (which may be the global $/) is
always returned.
input_line_number()
Returns the current line number, but only if you're using "getline()". Using "read()" will not update the line number.
close()
Closes the given file handle.
buffer_size([ $size ])
Gets or sets the buffer size used for reads. Default is the chunk size used by Archive::Zip.
getline()
Returns the next line from the currently open member. Makes sense only for text files. A read error is considered fatal enough to
die. Returns undef on eof. All subsequent calls would return undef, unless a rewind() is called. Note: The line returned has the
input_record_separator (default: newline) removed.
getline( { preserve_line_ending => 1 } )
Returns the next line including the line ending.
read($buffer, $num_bytes_to_read)
Simulates a normal "read()" system call. Returns the no. of bytes read. "undef" on error, 0 on eof, e.g.:
$fh = Archive::Zip::MemberRead->new($zip, "sreeji/secrets.bin");
while (1)
{
$read = $fh->read($buffer, 1024);
die "FATAL ERROR reading my secrets !
" if (!defined($read));
last if (!$read);
# Do processing.
....
}
AUTHOR
Sreeji K. Das <sreeji_k@yahoo.com>
See Archive::Zip by Ned Konz without which this module does not make any sense!
Minor mods by Ned Konz.
COPYRIGHT
Copyright 2002 Sreeji K. Das.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.18.2 2014-01-08 Archive::Zip::MemberRead(3)