DZone
Thanks for visiting DZone today,
Edit Profile
  • Manage Email Subscriptions
  • How to Post to DZone
  • Article Submission Guidelines
Sign Out View Profile
  • Post an Article
  • Manage My Drafts
Over 2 million developers have joined DZone.
Log In / Join
  • Refcardz
  • Trend Reports
  • Webinars
  • Zones
  • |
    • Agile
    • AI
    • Big Data
    • Cloud
    • Database
    • DevOps
    • Integration
    • IoT
    • Java
    • Microservices
    • Open Source
    • Performance
    • Security
    • Web Dev
DZone >

Dynamically Parse Multirow/Multicolumn Textfile

Snippets Manager user avatar by
Snippets Manager
·
Jan. 17, 07 · · Code Snippet
Like (0)
Save
Tweet
650 Views

Join the DZone community and get the full member experience.

Join For Free
This example demonstrates howto parse a multicolumn and multirow textfile delimited by TABs. It dynamically determines the number of rows and columns.


#!/usr/bin/perl -w
# Parse Multicolumn Textfile
# (c) 2005 by Sascha Tayefeh
# http://www.tayefeh.de/
#
# This example demonstrates howto parse a 
# multicolumn and multirow textfile delimited
# by TABs. It dynamically determines the
# number of rows and columns.
#

use strict;

my ($infile,$i,$j,$hello);
my (@line,@sum);

$infile="multi-row-column.dat.txt";

open(IN, "< $infile") or die "Could not open $infile\n";

while ()
{
    chomp;
    if($_ =~ /^[0-9]/) # only add if line starts with a digit
    { 
	push @line, [split '\t', $_]; # make an array and push it into @line
    }
}

print "Table read:  $#line rows and  $#{$line[0]} columns.\n";
print "$line[1][2] \n";

for $i (0 .. $#line)
{
    for $j (0 .. $#{$line[$i]})
    {
	print $line[$i][$j]," ";
	$sum[$j]+=$line[$i][$j];
    }
    print "\n";
}

# Do something (not so) interesting
for (@sum)
{
    print "$_ ";
}
print "\n";

Opinions expressed by DZone contributors are their own.

Popular on DZone

  • How to Hash, Salt, and Verify Passwords in NodeJS, Python, Golang, and Java
  • Choosing Between GraphQL Vs REST
  • Synchronization Methods for Many-To-Many Associations
  • Application Scalability — How To Do Efficient Scaling

Comments

Partner Resources

ABOUT US

  • About DZone
  • Send feedback
  • Careers
  • Sitemap

ADVERTISE

  • Advertise with DZone

CONTRIBUTE ON DZONE

  • Article Submission Guidelines
  • MVB Program
  • Become a Contributor
  • Visit the Writers' Zone

LEGAL

  • Terms of Service
  • Privacy Policy

CONTACT US

  • 600 Park Offices Drive
  • Suite 300
  • Durham, NC 27709
  • support@dzone.com
  • +1 (919) 678-0300

Let's be friends:

DZone.com is powered by 

AnswerHub logo