in reply to Re^4: Text file processing question
in thread Text file processing question

#! perl -slw
use strict;

print "Name of consumer  Subdivision  Amount   Type of work Phase";

printf "%-14s %14s %7.2f %-14s %-s\n",
    m[(\S+\s\S+)\s+(\S+\s\S+)\s+(\S+)\s+(.+)\s+(\S+)$]
    while <DATA>;

__DATA__
Nancy Drew   Elm Street      600.00      New service  Single
Stella Barry  Pine Avenue     1000.00  Replacement Single
Julie Green   Palm Street        400.00  Replacement Three
Debbie Brown  Baker Avenue      800.00   New service Three

[download]

Replies are listed 'Best First'.
Re^6: Text file processing question
by perl_seeker (Scribe) on Dec 21, 2009 at 10:21 UTC
    The re appears not to work for this set of data: i.e if each field can have single words/multiple words except the amount field 
    Nancy    Elm Street      600.00     New service Single phase
Stella Barry  Petersburg      1000.00  Replacement   Single
Julie    Palm Street        400.00  Replacement  Three phase
Debbie Brown  Bakerville      800.00   New service  Three

    [download]
    perl_seeker
[reply]
[d/l]

      #! perl -slw
use strict;

print "Name of consumer  Subdivision  Amount   Type of work Phase";

printf "%-14s %14s %7.2f %-14s %-s\n",
    m[
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( [0-9\.]+ ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) $
    ]x
    while <DATA>;

__DATA__
Nancy    Elm Street      600.00     New service Single phase
Stella Barry  Petersburg      1000.00  Replacement   Single
Julie    Palm Street        400.00  Replacement  Three phase
Debbie Brown  Bakerville      800.00   New service  Three

      [download]
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
        Hello

        I was trying this script 
         #! perl -slw
use strict;

open DATA, "test2.txt" or die "Cant open file";

print "Receiptno. Consumer name           Consumer no. Subdivision    
+ Type of work     Phase     Cheque no.   Amount";

printf "%-11s %-23s %-12s %-14s %-16s %-10s %-11s %-14.2f\n",
    m[
        ( [0-9\.]+ )\s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( [0-9\.]+ )\s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        ( [0-9\.]+ ) \s+
        ( \S+ (?: \s \S+ )? ) \s+
        
    ]x

    while <DATA>;

        [download]
        with this set of data 
        127   Stella Somethinglong   2345   Petersburg   New service   Single 
+  23456   1330.00
128   Sandra    4567   Elm Street   Replacement   Three   23445   4800
+.00
129   Tessa Barry  2345   Bakersville   New service   Single   37456  
+ 1330.00

        [download]
        The third record does not display in the output. Why is that so?

        Also how can we calculate the total of the last column (amount column)?

        perl_seeker
[reply]
[d/l]
[select]
        Thank u, works wonderfully :)

        perl_seeker
[reply]
Re^6: Text file processing question
by perl_seeker (Scribe) on Dec 15, 2009 at 07:48 UTC
    Excellent, thank you very much :)

    perl_seeker
[reply]

In Section Seekers of Perl Wisdom