Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

Sorting the csv file in Perl

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Sorting the csv file in Perl
# 8  
Old 12-28-2012
@adisky123: Does the csv file have 32 fields in all its rows? We can go about discussing this or you can post an exact sample of the input file.
# 9  
Old 12-28-2012
@Balajesuri.. Thanks for your wonderful reply. There were some error in my file only.
But there is one more issue. The master columns on which we are performing the sorting are multiple..
I give you the example, lets suppose we have .csv file which has 4 columns
Original File
Code:
hello,code,a,check
hi,take,a,perform
tag,button,b,below
message,lap,a,hint
do,you,b,any
in,the,a,below

And we have to perform sorting based on 3rd column
So the expected output wanted
Code:
hello,code,a,check
hi,take,a,perform
message,lap,a,hint
in,the,a,below
tag,button,b,below
do,you,b,any

---------- Post updated at 01:45 PM ---------- Previous update was at 12:56 PM ----------

Hi
I tried some thing like below
Code:
use warnings;
use strict;

my (%hash, @arr, $rec);

my $p_file='sort_file.txt';
open('NEW',">$p_file") || die "Error open file $p_file\n";


open FILE, "<flat_file.csv";
while (<FILE>) {
    chomp;
    @arr = split /,/;
    $rec++;
    
    $hash{$arr[15].'|'.$rec} = join(',',@arr[0..14]) . '|' . join(',',@arr[16..$#arr]);
}    
close FILE;

undef @arr;
for (sort keys %hash) {
    @arr = split /\|/, $hash{$_};
    print NEW "$arr[0],$_,$arr[1]\n";
}

close NEW;

But with this now extra record is coming..How can i remove that..
# 10  
Old 12-28-2012
You need to strip the "|$rec" component off the hash key. You can use something like this in the final for-loop: s/\|\d+$//
This User Gave Thanks to balajesuri For This Post:
adisky123
# 11  
Old 12-28-2012
Finally this thread ends up with this code
Code:
use warnings;
use strict;

my (%hash, @arr, $rec);

my $p_file='sort_file.csv';
open('NEW',">$p_file") || die "Error open file $p_file\n";


open FILE, "<flat_file.csv";
while (<FILE>) {
    chomp;
    @arr = split /,/;
    $rec++;
    
    $hash{$arr[15].'|'.$rec} = join(',',@arr[0..14]) . '|' . join(',',@arr[16..$#arr]);
}    
close FILE;

undef @arr;
for (sort keys %hash) {
    @arr = split /\|/, $hash{$_};
    
    @_ = split /\|/,$_;
    print NEW "$arr[0],$_[0],$arr[1]\n";
}

close NEW;

.

This is very interesting to learn Perl.
I really thanks BALAJESURI for his fabulous help. Thanks..

---------- Post updated at 02:11 PM ---------- Previous update was at 02:07 PM ----------

@balajesuri.
Can you please help me in providing remedy to this thread

https://www.unix.com/shell-programmin...ndow-perl.html
# 12  
Old 12-28-2012
Parsing CSV
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Convert CSV file to nested XML file using UNIX/PERL?

we have a CSV which i need to convert to XML using Perl or Unix shell scripting. I was able to build this XML in oracle database. However, SQL/XML query is running for long time. Hence, I'm considering to write a Perl or shell script to generate this XML file. Basically need to build this XML... (3 Replies)
Discussion started by: laknar
3 Replies

2. Shell Programming and Scripting

Sorting a CSV file by DOB

I have absolutaly no idea how to get this script to sort the info in Birthdays.csv by date of birth. I know the sort -n command, however i wish to sort the file birthdays.csv by DOB. How would i go about doing this? The below script gets user info and date of birth and then puts these info a... (3 Replies)
Discussion started by: redshine6
3 Replies

3. Shell Programming and Scripting

CSV Sorting on only particular columns

Hello! So ive been presented with this comma-delimited file: I need a print to look as below " lastname, phone_number, zip for every person with a last name starting with the letter H, I only with a 650-area code phone number. output should be sorted by reverse ZIP code " I only have... (5 Replies)
Discussion started by: strangemachine
5 Replies

4. Shell Programming and Scripting

Sorting a .csv using awk or other

Hello all, I am new here and *relatively* new to Unix. I have a bit of an emergency. I have a three column file that I need to sort: sample name, miRNA, reads per million (RPM) There are multiple samples, and for each sample name there are multiple miRNAs and associated RPMs. Some of these... (6 Replies)
Discussion started by: dunnybocter
6 Replies

5. Shell Programming and Scripting

Need help in writing a routine for sorting a CSV file

Hi, I have a CSV file in following manner: server1,env1,patch1 server1,env1,patch2 server1,env1,patch3 server1,env2,patch1 server1,env2,patch3 server2,env3,patch1 server2,env3,patch5 server2,env4,patch1 server3,env6,patch1 server3,env7,patch2 server3,env7,patch3 I want to... (6 Replies)
Discussion started by: avikaljain
6 Replies

6. UNIX for Dummies Questions & Answers

How to extract one column from csv file in perl?

Hi everyone, i am new to perl programming, i have a problem in extracting single column from csv file. the column is the 20th column, please help me.. at present i use this code #!C:/perl/bin use warnings; use strict; my $file1 = $ARGV; open FILE1, "<$file1" or die "Can't... (13 Replies)
Discussion started by: kvth
13 Replies

7. UNIX and Linux Applications

UNIX sorting - csv file

Hi, Please help me to solve sorting in CSV file. I have 25 columns in my CSV. (Delimiter is ",") Summary columns are from 10 to 13 which are should not be sorted. From 1-9 and 14-25 should be able to sort in ascending. how should i do this using Sort command in unix. If no simple commands pls... (0 Replies)
Discussion started by: rajani_p
0 Replies

8. Shell Programming and Scripting

sorting csv file based on column selected

Hi all, in my csv file it'll look like this, and of course it may have more columns US to UK;abc-hq-jcl;multimedia UK to CN;def-ny-jkl;standard DE to DM;abc-ab-klm;critical FD to YM;la-yr-tym;standard HY to MC;la-yr-ytm;multimedia GT to KJ;def-ny-jrt;critical I would like to group... (4 Replies)
Discussion started by: tententen
4 Replies

9. Shell Programming and Scripting

Help sorting .csv file

Hi, I have a .csv file which contains script names, subjects and email_addresses The first two colums are always script name and subject, the next 20 colums are email address.. What i want to do is sort the email address in alphabetical order for each row and there's around 1200 rows. So... (3 Replies)
Discussion started by: Jazmania
3 Replies

10. Shell Programming and Scripting

CSV File parse help in Perl

Folks, I have a bit of an issue trying to obtain some data from a csv file using PERL. I can sort the file and remove any duplicates leaving only 4 or 5 rows containing data. My problem is that the data contained in the original file contains a lot more columns and when I try ro run this script... (13 Replies)
Discussion started by: lodey
13 Replies
Login or Register to Ask a Question