How to convert the row to column in Perl? Post: 302890159

Sponsored Content

Top Forums Shell Programming and Scripting How to convert the row to column in Perl? Post 302890159 by balajesuri on Tuesday 25th of February 2014 12:28:34 PM

02-25-2014

Registered User

You are reading the file twice - this should be avoided, unless absolutely necessary.

Code:

#! /usr/bin/perl
use warnings;
use strict;

my ($line, $k1, $k2);
my (@fld, @temp);
my (%os, %final);

open I, "< file";
while ( $line = <I> ) {
    chomp ( $line );
    @fld = split /\s+/, $line;
    $os{$fld[0]} = 1;
    ${ $final{"$fld[2] $fld[1]"} }{$fld[0]} = $fld[3];
}
close I;

my @OS_list = sort ( keys %os );
print "NAME TIME @OS_list\n";

for $k1 ( keys %final ) {
    print "$k1 ";
    for $k2 ( @OS_list ) {
        if ( defined ${ $final{$k1} }{$k2} ) {
            print "${ $final{$k1} }{$k2} ";
        }
        else {
            print "--- ";
        }
    }
    print "\n";
}

Code:

[user@host ~]$ cat file
Linux           2014_01_24            CPU            10
Linux           2014_01_24            MEM            20
UNIX            2014_01_24            CPU            30
UNIX            2014_01_24            MEM            40
WINDOWS         2014_01_24            CPU            70
WINDOWS         2014_01_24            MEM            80
HPUX            2014_01_22            CPU            90
HPUX            2014_01_22            MEM            100
[user@host ~]$ ./test.pl
NAME TIME HPUX Linux UNIX WINDOWS
MEM 2014_01_22 100 --- --- ---
MEM 2014_01_24 --- 20 40 80
CPU 2014_01_24 --- 10 30 70
CPU 2014_01_22 90 --- --- ---
[user@host ~]$

balajesuri

View Public Profile for balajesuri

Find all posts by balajesuri

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

convert column into row with some modifier

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...

2. Shell Programming and Scripting

column to row convert - script - help

Hi, I have a file named col.txt 1.000 2.000 3.000 4.000 5.000 6.000 7.000 8.000 I should get this 1.000 5.000 2.000 6.000 3.000 7.000

3. Shell Programming and Scripting

Convert column values into row

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...

4. Shell Programming and Scripting

convert a column to row output?

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...

5. Shell Programming and Scripting

Convert row to column

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...

6. UNIX for Dummies Questions & Answers

awk: convert column to row in a specific way

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...

7. Shell Programming and Scripting

convert row to column with respect of first column.

Input file A.txt :- C2062 -117.6 -118.5 -117.5 C5145 0 0 0 C5696 0 0 0 Output file B.txt C2062 X -117.6 C2062 Y -118.5 C2062 Z -117.5...

8. Shell Programming and Scripting

Script: Convert row in to column

Hi, i need to convert SG_ERP1 SG_ERP2 SG_ERP3 in to: SG_ERP1 SG_ERP2 SG_ERP3 It's possibile?

9. Shell Programming and Scripting

[Solved] Convert Row To column

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....

10. Shell Programming and Scripting

Convert Data from Column to Row

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,

LEARN ABOUT CENTOS

grub-render-label

GRUB-RENDER-LABEL(1)                                               User Commands                                              GRUB-RENDER-LABEL(1)

NAME

       grub-render-label - generate a .disk_label for Apple Macs.

SYNOPSIS

       grub-render-label [OPTION...] [OPTIONS]

DESCRIPTION

       Render Apple .disk_label.

       -b, --bgcolor=COLOR
              use COLOR for background

       -c, --color=COLOR
              use COLOR for text

       -f, --font=FILE
              use FILE as font (PF2).

       -i, --input=FILE
              read text from FILE.

       -o, --output=FILE
              set output filename. Default is STDOUT

       -t, --text=STRING
              set the label to render

       -v, --verbose
              print verbose messages.

       -?, --help
              give this help list

       --usage
              give a short usage message

       -V, --version
              print program version

       Mandatory or optional arguments to long options are also mandatory or optional for any corresponding short options.

REPORTING BUGS

       Report bugs to <bug-grub@gnu.org>.

SEE ALSO

       The  full  documentation  for grub-render-label is maintained as a Texinfo manual.  If the info and grub-render-label programs are properly
       installed at your site, the command

              info grub-render-label

       should give you access to the complete manual.

grub-render-label (GRUB) 2.02-2ubuntu8.3                             July 2018                                                GRUB-RENDER-LABEL(1)