Perl split and array


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl split and array
# 1  
Old 01-23-2015
Computer Perl split and array

Hello, I have the following code:
Code:
 while ($line = <fd_in>) {
   126    $line = " " . $line ;
   127  print "our_line:$line\n";
   128    @list = split (/\s+/, $line) ;
   129  print "after_split:@list\n";
   130  print "$list[0]\t$list[1]\t$list[2]\t$list[3]\t$list[4]\t$list[5]$list[6]\t\n";
   131    $len = $#list ;
   132  print "length of array:$len\n";
   133
   134
   135    if (($len >= 7) && ($list[3] ne "total")) { # Ignore header and totals
   136      $cpu_id = $list[2] ;
   137      print "$list[0]\t$list[1]\t$list[2]\t$list[3]\t$list[4]\n";
   138      print "cpu_id: $cpu_id\n";
   139      $pic0 = $list[4] ;
   140      print "pic0: $pic0\n";
   141      $pic1 = $list[5] ;

And when I ran the code, here is one of the output:
Code:
our_line:   1.023  25  tick         8       635  # pic0=L2_dmiss_ld,pic1=Instr_cnt

after_split: 1.023 25 tick 8 635 # pic0=L2_dmiss_ld,pic1=Instr_cnt
        1.023   25      tick    8       635#
length of array:7
        1.023   25      tick    8
cpu_id: 25
pic0: 8

What I am not getting is, line 127 is printing out the whole array and then the "split" is splitting the array based on one or more spaces (I might be wrong, but the output shows like that).
But then in the code line 130, I am trying to print all the elements of the array which is not making sense. It is not printing out all the elements.

Later, line 136 is taking cpu_id as 3rd element of the array ($list[2]), but it should be $list [1]. I am not sure how it is working and might be missing the clue.

Any help is much appreciated.
# 2  
Old 01-24-2015
After the split(), it appears that you have 7 elements in $list[1] through $list[7]. You are printing $list[0] (which is appearing as an empty string (because it has not been set by split()) at the start of your output lines before the first tab (\t) in your format string). The missing final element is not showing up because you did not print the contents of $list[7].
# 3  
Old 01-25-2015
Don, Zam,

$list[0] is the empty string because a space was prepended to $line on line 126.

Zam,

Perhaps a little simplification is needed:
Code:
while (<fd_in>) {
   s{\s*#.*$}{};
   ($cpu_id, $key, $pic0, $pic1) = (split)[1,2,3,4];
   next if $key eq 'total';
print 'cpuID:', $cpu_id, ' pic0:', $pic0, ' pic1:', $pic1, "\n";

Remove s{\s*#.*$}{} if '#' does not begin a comment.
These 2 Users Gave Thanks to derekludwig For This Post:
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. UNIX for Beginners Questions & Answers

How to split the string value to an array?

Test1.txt Tom is hot Test.sh filename="/directory/Test1.txt" set - A store while IFS= read value do awk '{split($value,store," ")}' done < "$filename" echo ${#sore} From the code in the executing file, I would like each... (8 Replies)
Discussion started by: TestKing
8 Replies

2. UNIX for Beginners Questions & Answers

How to split a string into array?

value=malayalam # i need to store the value in an array by splitting the character #the output i need is m a l a y a l a m Please use CODE tags for output data as well as required by forum rules! (5 Replies)
Discussion started by: Meeran Rizvi
5 Replies

3. Shell Programming and Scripting

split string into array in shell

Hi all, I want to split a string into array based on given delimiter, for example: String: "foo|bar|baz" with delimiter "|" into array: strArr to strArr with values foo, bar and baz. Thanks a lot. Roy987 (5 Replies)
Discussion started by: Roy987
5 Replies

4. Shell Programming and Scripting

PERL : Read an array and write to another array with intial string pattern checks

I have an array and two variables as below, I need to check if $datevar is present in $filename. If so, i need to replace $filename with the values in the array. I need the output inside an ARRAY How can this be done. Any help will be appreciated. Thanks in advance. (2 Replies)
Discussion started by: irudayaraj
2 Replies

5. Shell Programming and Scripting

[Perl] Split lines into array - variable line items - variable no of lines.

Hi, I have the following lines that I would like to see in an array for easy comparisons and printing: Example 1: field1,field2,field3,field4,field5 value1,value2,value3,value4,value5Example 2: field1,field3,field4,field2,field5,field6,field7... (7 Replies)
Discussion started by: ejdv
7 Replies

6. Shell Programming and Scripting

perl, put one array into many array when field is equal to sth

Hi Everyone, #!/usr/bin/perl use strict; use warnings; my @test=("a;b;qqq;c;d","a;b;ggg;c;d","a;b;qqq;c;d"); would like to split the @test array into two array: @test1=(("a;b;qqq;c;d","a;b;qqq;c;d"); and @test2=("a;b;ggg;c;d"); means search for 3rd filed. Thanks find the... (0 Replies)
Discussion started by: jimmy_y
0 Replies

7. Shell Programming and Scripting

split and making an array inside another array

I want to run an awk split on a value that has been pushed through an array and I was wondering what the syntax should be?? e.g. running time strings through an array and trying to examine just minutes: 12:25:30 10:15:13 08:55:23 awk ' NR==FNR{ ... (2 Replies)
Discussion started by: dcfargo
2 Replies

8. Shell Programming and Scripting

split variable values into array

i have these values inside variable $blah BUNGA TERATAI 3 5055 ITH 1 0 0 0 1 1 JADE TRADER 143W ITH 4 0 0 0 4 4 MOL SPLENDOR 0307A ITH 3 0 0 0 3 3 so how do I split them into array with the... (4 Replies)
Discussion started by: finalight
4 Replies

9. Shell Programming and Scripting

How to get array to not split at spaces?

I have been working on some code for a while, that will parse a log file, look for a specified time discrepancy between entries, and then print that line +/- n other lines out to a file... #!/bin/bash file=$1 # The input log file maxTime=$2 # The time discrepancy to look for n=$3 ... (1 Reply)
Discussion started by: jjinno
1 Replies

10. Shell Programming and Scripting

split to array in perl

Collegues I have flat file in the following format. 137 (NNP Kerala) (NNP India) 92 (NN Rent) (NN Range) 70 (NNP Thiruvananthapuram) (NNP Kerala) 43 (NNP Tourist) (NNP Home) 40 (NNP Reserve) (NNP Now) 25 (SYM @) (NN hotelskerala) 25 (NNP Thiruvananthapuram-695001) (NNP Kerala) 23 (NN... (3 Replies)
Discussion started by: jaganadh
3 Replies
Login or Register to Ask a Question