Hi all,
I have a logfile which has lines as following:
DOMAIN\username,Deposit,DOMAIN\ServiceAccountName,25/03/2010,00:10,\\SERVER,,,,/Ts=4BAA9BD6,,,10.00,10.03
It's a log of a pcounter print charge system.
I need to only have the first part (domain\username) and the second last... (4 Replies)
Hi Everyone,
1.txt
test here (888_f)a/fff (eeee) test2 (q)--(qq)
the output is
test here a/fff test2 --
means remove the characters in between (), and () itself. Please advice.
Thanks (3 Replies)
Hi everyone,
suppose that I have the following line:
#test your knowledge
can I use AWK to print the word "test" only? without the #?
what should I change to this:
awk '{print $1}'
thanks in advance guys (2 Replies)
I have the following code for removing duplicate records based on fields in inputfile file & moves the duplicate records in duplicates file(1st Awk) & in 2nd awk i fetch the non duplicate entries in inputfile to tmp file and use move to update the original file.
Requirement:
Can both the awk... (4 Replies)
Hi All,
I have searched many threads for possible close solution. But I was unable to get simlar scenario.
I would like to print all duplicate based on 3rd column except the first occurance. Also would like to print if it is single entry(non-duplicate).
i/P file
12 NIL ABD LON
11 NIL ABC... (6 Replies)
I would like to remove lines with certain pattern but only Estimate: and Realised: in USD and Date: shall be output. The order of the currency are mixed.
Output
I failed on awk with sub, gensub and was not able to remove the multiple entry on the * Date: (2 Replies)
Hi Everybody:
I need your help, please...
I have this file *.txt
0000 | 16010201 22000000 67892000 00000000 00000000 00000100 72246681 28E08236
| ~~~~"~~~g~ ~~~~~~~~~~~~~r$f~(~~6 |
0020 | 10476173 90010100 10000000 00000001 05000226 17163011 12442212 48140484
|... (2 Replies)
Discussion started by: solaris21
2 Replies
LEARN ABOUT DEBIAN
alzabo::changetracker
Alzabo::ChangeTracker(3pm) User Contributed Perl Documentation Alzabo::ChangeTracker(3pm)NAME
Alzabo::ChangeTracker - Saves a set of changes as callbacks that can be backed out if needed
SYNOPSIS
use Alzabo::ChangeTracker;
my $x = 0;
my $y = 1;
sub foo
{
my $tracker = Alzabo::ChangeTracker->new;
$tracker->add( sub { $x = 0; } );
$x = 1;
bar();
eval { something; };
$tracker->backout if $@;
}
sub bar
{
my $tracker = Alzabo::ChangeTracker->new;
$tracker->add( sub { $y = 1; } );
$y = 2;
}
DESCRIPTION
The trick ...
We only want to have one object of this type at any one time. In addition, only the stack frame that created it should be able to clear it
(except through a backout). Why? Here's an example in pseudo-code to help explain it:
sub foo
{
create a tracker;
store some change info in the tracker;
call sub bar;
store some change info in the tracker;
# point Y
clear changes in tracker;
}
sub bar
{
create a tracker; # internally, we really just increment our stack count
store some change info in the tracker;
clear changes in tracker; # point X
}
If at point X we were to really clear out the changes, even the changes just from sub bar, we'd have a problem. Because if at point Y,
things go to hell and we want to back out the changes, we want to back out the changes from sub foo _AND_ sub bar. However, if bar is also
an entry point we want to be able to track changes in bar and clear them from bar.
AUTHOR
Dave Rolsky, <autarch@urth.org>
perl v5.8.8 2007-12-23 Alzabo::ChangeTracker(3pm)