Re^3: Splitting multiple patterns

It's really not much different. However, slurping in the whole file can run you out of memory if your file is very large.

#!/usr/bin/perl

use warnings;
use strict;

open my $fh, "<", "infos.txt" or die "cannot open infos.txt: $!";

my @array = <$fh>;

close $fh;

for my $line ( @array ){

    chomp $line;

    my ( $name, $rest ) = split /\s+/, $line;

    my ( $age, $gender, $address ) = split /,/, $rest;

    print "Name:    $name\n";
    print "Age:     $age\n";
    print "Gender:  $gender\n";
    print "Address: $address\n";
    print "\n";
}
[download]

Comment on Re^3: Splitting multiple patterns Download Code

Replies are listed 'Best First'.
Re^4: Splitting multiple patterns by astronogun (Sexton) on Apr 09, 2012 at 10:30 UTC
Hi stevieb, One last question. How about if want to get only the $address? and only print the "Address:"? What I want is to split the Name up to Gender so that it will only read the $address Thanks	[reply]
Re^5: Splitting multiple patterns by Marshall (Canon) on Apr 09, 2012 at 19:07 UTC
I'm not stevieb, but I think I can help you. Update: mis-spelled stevieb's name previously - my goof! To just get the address, use a "list slice". Let split do its thing and just select the parts that you want. `change my ( $age, $gender, $address ) = split /,/, $rest; to my ($address) = (split /,/, $rest)[-1]; or my ($address) = (split /,/, $rest)[2];` [download] Perl can use a negative index! -1 in this case means "the last thing". index of 2 means 3rd thing from the left. Which one you use is dependent upon both preference and situation. In this case, the results should be identical. As another point, if for example the address may contain comma's itself (maybe a street address in addition to the city name), you can limit the split with the 3rd parameter. (split /,/,$rest,3) allows max of 3 things in the split - that way the whole address would appear as the "last thing". BTW: I would use $city instead of $address if this is just a $city name (personal preference because $address implies something far more than just $city to me). If this is a more complicated CSV file, with embedded commas which are quoted, using one of the CSV modules to parse this is the way to go - the CSV format is deceptively simple sounding, but the complications escalate dramatically when a comma (the field separator) can appear within one of the data fields.	[reply] [d/l]
Re^6: Splitting multiple patterns by astronogun (Sexton) on Apr 10, 2012 at 09:35 UTC
Thanks Marshall for the code and explanation it really helped me sorry for the late reply To all who contributed thanks a lot specially to sir: stevieb and Marshall :)	[reply]