«

Hello good people out there. I need to write a perl script that will
parse the log and generate the following output:
a flat text file in the following format: customer_name|
product_category|item_description|cost
An example log file could be:
Pedro|groceries|apple|1.42
Nitin|tobacco|cigarettes|15.00
Susie|groceries|cereal|5.50
Susie|groceries|milk|4.75
Susie|tobacco|cigarettes|15.00
Susie|fuel|gasoline|44.90
Pedro|fuel|propane|9.60

1.A report of the total revenue resulting from each customer.
2.A report for each customer showing how much of their spending went
to each category.
With the above example log file, the script should output should be
something like:
Total Revenue:
Pedro - $11.02
Nitin - $15.00
Susie - $70.15

Purchases by Pedro:
groceries - $1.42
fuel - $9.60

Purchases by Nitin:
tobacco - $15.00

Purchases by Susie:
groceries - $10.25
fuel - $44.90
tobacco - $15.00


Any help will be appreciated...million thanks in advance

wrote:
> Hello good people out there. I need to write a perl script that will
> parse the log and generate the following output:

What have you done so far and what questions do you have?

> Any help will be appreciated...million thanks in advance

Put in some sort of effort by at least reading some
documentation, or maybe a book, and posting your code.

perldoc -f split
perldoc -f open
perldoc perldsc

wrote:
>Hello good people out there. I need to write a perl script that will
>parse the log and generate the following output:
>a flat text file in the following format: customer_name|
>product_category|item_description|cost
>An example log file could be:
>Pedro|groceries|apple|1.42
>Nitin|tobacco|cigarettes|15.00
>Susie|groceries|cereal|5.50
>Susie|groceries|milk|4.75
>Susie|tobacco|cigarettes|15.00
>Susie|fuel|gasoline|44.90
>Pedro|fuel|propane|9.60

perldoc -f split:
($customer, $category, undef, $price) = split ('|');

Then add the totals in hashes:
$byCategory{$customer}{$category} += $price;
$totals{$customer} += $price;

>1.A report of the total revenue resulting from each customer.
>2.A report for each customer showing how much of their spending went
>to each category.

Walking through the hashes and printing the accumulated data should be
trivial now.

jue

On Oct 17, 2:59*pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
wrote:
> cyrusgre...@gmail.com wrote:
> > Hello good people out there. I need to write a perl script that will
> > parse the log and generate the following output:
>
> What have you done so far and what questions do you have?
>
> > Any help will be appreciated...million thanks in advance
>
> Put in some sort of effort by at least reading some
> documentation, or maybe a book, and posting your code.
>
> perldoc -f split
> perldoc -f open
> perldoc perldsc

here portion of the code:

my %inventory;
open (FILE, $file) || die ("Could not open file. $!");
foreach my $el (<FILE)>) {
($name, $category, $item, $price) = split ("|", $el);
my %s = (
'name'=>$name,
'product'=>$category,
'item'=>$item,
'price'=>$$price,
);
push @arr, \%s;
}

foreach $el (@$arr) {
$inventory{$el)->{'name'} = {name=>$el->{'name'}};
$inventory{$el)->{'product'} = {category=>$el->{'category'}};
$inventory{$el)->{'item'} = {item=>$el->{'item'}};
$inventory{$el)->{'price'} = {price=>$el->{'price'}};
}

Am I in right track?

wrote:

> On Oct 17, 2:59Â*pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
> wrote:
>> cyrusgre...@gmail.com wrote:
>> > Hello good people out there. I need to write a perl script that
>> > will parse the log and generate the following output:
>>
>> What have you done so far and what questions do you have?
>>
>> > Any help will be appreciated...million thanks in advance
>>
>> Put in some sort of effort by at least reading some
>> documentation, or maybe a book, and posting your code.
>>
>> perldoc -f split
>> perldoc -f open
>> perldoc perldsc
>
> here portion of the code:
>
> my %inventory;
> open (FILE, $file) || die ("Could not open file. $!");
> foreach my $el (<FILE)>) {

^^^ You should always copy and paste your actual code you're using. The
above is broken: (<FILE)>)

> ($name, $category, $item, $price) = split ("|", $el);

I don't think that's going to do what you want. Did you print the
output to ensure it's going to work how you want, before you save the
values into a hash. I'd start there, fixing those issues, before you
try and move onto saving the hash keys/values and processing against
it.

--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!

Jürgen Exner wrote:
> wrote:
>> Hello good people out there. I need to write a perl script that will
>> parse the log and generate the following output:
>> a flat text file in the following format: customer_name|
>> product_category|item_description|cost
>> An example log file could be:
>> Pedro|groceries|apple|1.42
>> Nitin|tobacco|cigarettes|15.00
>> Susie|groceries|cereal|5.50
>> Susie|groceries|milk|4.75
>> Susie|tobacco|cigarettes|15.00
>> Susie|fuel|gasoline|44.90
>> Pedro|fuel|propane|9.60
>
> perldoc -f split:
> ($customer, $category, undef, $price) = split ('|');

The '|' character is special in a regular expresion. If you want to
match a literal '|' character you have to escape it:

my ( $customer, $category, undef, $price ) = split /\|/;

Or:

my ( $customer, $category, $price ) = ( split /\|/ )[0,1,3];



John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall

"John W. Krahn" <> wrote:
>Jürgen Exner wrote:
>> perldoc -f split:
>> ($customer, $category, undef, $price) = split ('|');
>
>The '|' character is special in a regular expresion. If you want to
>match a literal '|' character you have to escape it:

Ooops, you are right.

jue

On Oct 18, 6:07*am, Jürgen Exner <jurge...@hotmail.com> wrote:
> "John W. Krahn" <some...@example.com> wrote:
>
> >Jürgen Exner wrote:
> >> perldoc -f split:
> >> * * * *($customer, $category, undef, $price) = split ('|');
>
> >The '|' character is special in a regular expresion. *If you want to
> >match a literal '|' character you have to escape it:
>
> Ooops, you are right.
>
> jue

Thanks all I got it to work..

Tim Greer wrote:
> wrote:
>
>> On Oct 17, 2:59 pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
>> wrote:
>>> cyrusgre...@gmail.com wrote:
>>>> Hello good people out there. I need to write a perl script that
>>>> will parse the log and generate the following output:
>>> What have you done so far and what questions do you have?
>>>
>>>> Any help will be appreciated...million thanks in advance
>>> Put in some sort of effort by at least reading some
>>> documentation, or maybe a book, and posting your code.
>>>
>>> perldoc -f split
>>> perldoc -f open
>>> perldoc perldsc
>> here portion of the code:
>>
>> my %inventory;
>> open (FILE, $file) || die ("Could not open file. $!");
>> foreach my $el (<FILE)>) {
>
> ^^^ You should always copy and paste your actual code you're using. The
> above is broken: (<FILE)>)

Define 'broken'. It's not good code (OP use 'while' instead
of foreach), but it will run.

>
>> ($name, $category, $item, $price) = split ("|", $el);
>
> I don't think that's going to do what you want. Did you print the
> output to ensure it's going to work how you want, before you save the
> values into a hash. I'd start there, fixing those issues, before you
> try and move onto saving the hash keys/values and processing against
> it.
>

"J. Gleixner" <glex_no-> wrote:
>Tim Greer wrote:

>>> foreach my $el (<FILE)>) {
>>
>> ^^^ You should always copy and paste your actual code you're using. The
>> above is broken: (<FILE)>)
>
>Define 'broken'. It's not good code (OP use 'while' instead
>of foreach), but it will run.

It doesn't even parse (Tim pointed it out verbatim). I guess that
qualifies as broken by any sensible definition of broken.

jue