Hi Belajesuri,
Thanks alot for your Perl code and to the others also I would like to say thanks so much but I need a Perl script.
I try to reformat your code from one-liners to the common way of Perl language and it works.
My next question is how I can set the header "Linux" and "UNIX" as variables instead of static values?. so when the other line comes, the header will be added also as well as the value of CPU anf MEM (e.g. )?.
so the result will be = NAME TIME Linux UNIX WINDOWS.. so on
---------- Post updated at 10:19 PM ---------- Previous update was at 04:17 PM ----------
Hi Balajesuri,
I've made the script based on your original code and the desired output already oke. But I think my script is still ugly. may be you have a good solution for this?.
A file content have
1 1:-0.289433 2:0.833778 3:0.314471 4:-0.289433 5:-0.81876 6:-0.456693 7:-0.17511 8:-0.644555 9:-0.00666341 10:-1.13603
I will like to have that column into row with numbers to be printed (red color) only after colon
output shud be like that
-0.289433... (1 Reply)
hi,
I have a requirement where in I read the values from a file using awk. The resulting data should be converted into row format from column format.
For ex: My log file login.lst contains the following
SERVER1 DB1
SERVER2 DB2
SERVER3 DB3
SERVER4 DB4
I use awk to grep only the server... (6 Replies)
Getting tired of cut-and-paste...so I thought I would post a question.
how do I change this column output to a single row?
from this:
# vgdisplay -v /dev/vgeva05 | grep dsk | awk '{print $3}'
/dev/dsk/c6t0d5
/dev/dsk/c11t0d5
/dev/dsk/c15t0d5
/dev/dsk/c18t0d5
/dev/dsk/c7t0d5... (8 Replies)
Hi,
I have a file like this
50 1 2 1374438
50 1 2 1682957
50 5 2 1453574
50 10 2 1985890
100 1 2 737307
100 5 2 1660204
100 10 2 2148483
and I want to convert this by... (1 Reply)
Hi all!
I have this kind of output:
a1|b1|c1|d1|e1
a2|b2|c2
a3|b3|c3|d3
I would like to transpose columns d and e (when they exist) in column c, and under the row where they come from.
Then copying the beginning of the row.
In order to obtain:
a1|b1|c1
a1|b1|d1
a1|b1|e1
a2|b2|c2... (1 Reply)
Hi Folks,
I am using db2 command -> db2 list tablespace show detail
Tablespace ID = 10
Name = TSCDDHLMSUM
Type = Database managed space
Contents = All permanent data.... (5 Replies)
Hi
FileA.txt
E_TIM 16,
ETE 15,
EOND 26,
EEC 81,
E_1 un,
E_2 un,
E_3 un,
E_4 284,
E_TIM 17,
ETE 15,
EOND 29,
EEC 82,
E_1 un,
E_2 un,
E_3 un,
E_4 249, (6 Replies)
Discussion started by: asavaliya
6 Replies
LEARN ABOUT MOJAVE
io::atomicfile
IO::AtomicFile(3) User Contributed Perl Documentation IO::AtomicFile(3)NAME
IO::AtomicFile - write a file which is updated atomically
SYNOPSIS
use IO::AtomicFile;
### Write a temp file, and have it install itself when closed:
my $FH = IO::AtomicFile->open("bar.dat", "w");
print $FH "Hello!
";
$FH->close || die "couldn't install atomic file: $!";
### Write a temp file, but delete it before it gets installed:
my $FH = IO::AtomicFile->open("bar.dat", "w");
print $FH "Hello!
";
$FH->delete;
### Write a temp file, but neither install it nor delete it:
my $FH = IO::AtomicFile->open("bar.dat", "w");
print $FH "Hello!
";
$FH->detach;
DESCRIPTION
This module is intended for people who need to update files reliably in the face of unexpected program termination.
For example, you generally don't want to be halfway in the middle of writing /etc/passwd and have your program terminate! Even the act of
writing a single scalar to a filehandle is not atomic.
But this module gives you true atomic updates, via rename(). When you open a file /foo/bar.dat via this module, you are actually opening a
temporary file /foo/bar.dat..TMP, and writing your output there. The act of closing this file (either explicitly via close(), or
implicitly via the destruction of the object) will cause rename() to be called... therefore, from the point of view of the outside world,
the file's contents are updated in a single time quantum.
To ensure that problems do not go undetected, the "close" method done by the destructor will raise a fatal exception if the rename() fails.
The explicit close() just returns undef.
You can also decide at any point to trash the file you've been building.
AUTHOR
Primary Maintainer
David F. Skoll (dfs@roaringpenguin.com).
Original Author
Eryq (eryq@zeegee.com). President, ZeeGee Software Inc (http://www.zeegee.com).
REVISION
$Revision: 1.2 $
perl v5.18.2 2005-02-10 IO::AtomicFile(3)