Hello, everyone:
i encounter a problem these days , pls help me ,thanks in advance.
my env:
machine: ES40 A ES40 B
os: true64 Unix 4.0f
note: src.tar 8M network card speed 100M
my problem:
... (3 Replies)
Need to find the CPU speed of HP UX for a non root login.
echo "itick_per_usec/D" | adb /stand/vmunix /dev/mem | tail -1 will give the following for non root users
ERROR: cannot open `/dev/mem', errno = 13, Permission denied (2 Replies)
We have an egrep search in a while loop.
egrep -w "$key" ${PICKUP_DIR}/new_update >> ${PICKUP_DIR}/update_record_new
${PICKUP_DIR}/new_update is 210 MB file
In each iteration, the egrep on an average takes around 50-60 seconds to search. Ther'es nothing significant in the loop other... (7 Replies)
Need to make a very fast file existence checker. Passing in 20-50K num of files
In the code below ${file} is a file with a listing of +20,000 files. test_speed is the script. I am commenting out the results of <time test_speed try>.
The normal "test -f" is much much too slow when a system... (2 Replies)
Hey together,
You should know, that I'am relatively new to shell scripting, so my solution is probably a little awkward.
Here is the script:
#!/bin/bash
live_dir=/var/lib/pokerhands/live
for limit in `find $live_dir/ -type d | sed -e s#$live_dir/##`; do
cat $live_dir/$limit/*... (19 Replies)
Hi All,
I have RHEL 5.6 with a 70GB local directory of Web content. Images, PHP scripts etc.
I need to copy all this content to an NFS array thats mounted on the RHEL server.
I did a baseline cp to copy the content one week ago. Since my baseline copy the local directory has grown by 8GB.... (2 Replies)
I had written a perl script to compare two files: new and master and get the output of the first file i.e. the first file: words that are not in the master file
STRUCTURE OF THE TWO FILES
The first file is a series of names
ramesh
sushil
jonga
sudesh
lugdi
whereas the second file (could be... (4 Replies)
Gents,
Please can u help me to improve this script to be more faster, it works perfectly but for big files take a lot time to end the job..
I see the problem is in the step (while) and in this part the script takes a lot time..
Please if you can find a best way to do will be great.
... (13 Replies)
Discussion started by: jiam912
13 Replies
LEARN ABOUT DEBIAN
ropkg::rsync::logparser
RoPkg::Rsync::LogParser(3pm) User Contributed Perl Documentation RoPkg::Rsync::LogParser(3pm)NAME
RoPkg::Rsync::LogParser - a rsync log parser class
SYNOPSIS
#!/usr/bin/perl
use strict;
use warning;
sub main {
my $lp = new RoPkg::Rsync::LogParser( type => 'client' );
$lp->Parse('/tmp/debian-log.txt');
}
main();
Short description
RoPkg::Rsync::LogParser is a class used to parse (for the moment) client side rsync logs. Using this class you can extract the transfered
files, symlinks created, directories, total number of files, transfered bytes, speed of transfer etc. LogParser support list filter trough
probes (used by many projects to verify the mirrors). The primary use of this class is inside Simba, but can be used without problems in
any other project who needs a rsync client log parser.
METHODS
new(hash)
Constructor of the class. When creating a new class instance you must provide the type of log: client or server . For the moment only the
client parsing routines are defined.
Log($raw_log)
Get/Set the raw rsync log. With no parameters, the get behaviour is selected. If a parameter is present (and valid) the method acts as a
Set method.
Probes(@probes_list)
Get/Set the raw probes list. If no parameter is present, the method returns the number of probes defined (0 if none). If a list of probes
is given, the list is added to the existing list of probes.
Parse($filename)
Parse a rsync client log. If no filename is specified, the method parses the log previsiously set with Log() method. Please take extra care
with the filename. If it does not exists, or is not a file a exception will be raised (Param::Wrong and File::Open).
Files()
In scalar context returns the number of transfered files (filtered by probes list). In list context, returns the list of transfered files.
RealFiles()
In scalar context returns the number of transfered files. In list context, returns the list of transfered files.
Deleted()
In scalar context returns the number of deleted files (filtered by probes list). In list context, returns the list of deleted files.
RealDeleted()
In scalar context returns the number of deleted files. In list context, returns the list of deleted files.
Speed()
Returns the speed (as reported by rsync [in bytes/sec]) of the transfer.
Size()
Returns the size of the synced content.
TransfData()
Returns the total number of bytes transfered during the sync session
Symlinks()
In scalar context returns the number of symlinks (filtered by probes list). In list context, returns the list of symlinks.
RealSymlinks()
In scalar context returns the number of symlinks. In list context, returns the list of symlinks.
PREREQUISITES
RoPkg::Utils requires perl 5.008 or later and RoPkg::Exceptions class. From CPAN, you need the Scalar::Util module. At build time
Test::More is required for tests (if you don't plan to use the tests ignore this dependency).
SEE ALSO
RoPkg::Rsync::Node RoPkg::Rsync::ConfFile RoPkg::Exceptions
AUTHOR
Subredu Manuel <diablo@iasi.roedu.net>
LICENSE
Copyright (C) 2005 Subredu Manuel. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the
same terms as Perl itself. The LICENSE file contains the full text of the license.
perl v5.8.8 2006-06-09 RoPkg::Rsync::LogParser(3pm)