Re^2: A Beginner Needs Homework help

use strict;
use warnings;

#^^ for personal use to see where I've messed up



open (FH,$ARGV[0]) || print "could not open file" ;
my $info = <FH>;

# ^^This opens whatever file is associates with the program
 #                    i.e - perl thisassignment documenthechooses
# that file is placed into $info after it's read

while ($info=~ /(\w+ (-?\d+ )+)/)
{
        my $info =~ s/(\w+ (-?\d+ )+)//;
}


# Identifies the pattern in file. Identifies one or more words (\w+), 
+one or more #numbers(\d+),, also searches for new lines (-?) . my pro
+fessor gave us this #pattern code so I might be totally wrong. I'm no
+t very good with pattern yet..


my @nums = split(/:/,$info);

#takes out colon where ever it may be in the $info scalar, @nums is a 
+array with #those values 

my $word = shift (@nums);

# shifts first word 

my $sum = 0;

# $sum is a empty scalar 

my $var = ($info);

# i think $var is supposed to contain the numbers from $info 


foreach $var (@nums)
{
    $sum = $sum + $var;
}

#this is to add the numbers together. Sum is empty, so with every new 
+number #that occurs it goes into sum and adds to whatever number is i
+n var. i hope I'm #explaining that right.

my %hash = ($word => $sum);

#the new sum goes into the hash as a key and the color is in the list,
+ thats how #they associate with each other..  


print @nums;
[download]

Now that I've evaluated the code myself it is definitely missing things.. I just don't know how to build this kind of stuff. I'm such a novice that I had a hard time imagining how to put the pieces together.

Comment on Re^2: A Beginner Needs Homework help Download Code

Replies are listed 'Best First'.
Re^3: A Beginner Needs Homework help by Anonymous Monk on Apr 10, 2014 at 23:12 UTC
On the comments Read more... (7 kB) On the next step Read more... (3 kB)	[reply] [d/l] [select]
Re^4: A Beginner Needs Homework help by Swizzlestix617 (Novice) on Apr 11, 2014 at 00:33 UTC
I can't begin to express how much I appreciate your response. Thank you so much, that was SUPER helpful. When you said "So do you think the program should stop or keep going if the file can't be opened? Maybe try open second ARGument ?" did you mean an "while" loop or a if/or statement? or another ARGV?	[reply]
Re^5: A Beginner Needs Homework help by Anonymous Monk on Apr 11, 2014 at 01:16 UTC
did you mean an "while" loop or a if/or statement? or another ARGV? I meant in english :) See print, see return, see exit, see die `Main( @ARGV ); exit( 0 ); sub Main { for my $file ( @_ ){ TryAndDoStuffOrDieAndEndProgram( $file ); } } sub TryAndDoStuffOrDieAndEndProgram { open ... or die "Can't open ($file): $! "; ... close ... return; }` [download] There are other moves than AndEndProgram, like move on to next file, see die/eval	[reply] [d/l]
Re^6: A Beginner Needs Homework help by Swizzlestix617 (Novice) on Apr 11, 2014 at 01:40 UTC
Re^7: A Beginner Needs Homework help by Anonymous Monk on Apr 11, 2014 at 21:37 UTC
Re^3: A Beginner Needs Homework help by Anonymous Monk on Apr 10, 2014 at 21:53 UTC
What does this line do `my $info =~ s/(\w+ (-?\d+ )+)//;`	[reply] [d/l]
Re^4: A Beginner Needs Homework help by Swizzlestix617 (Novice) on Apr 10, 2014 at 22:26 UTC
uhm.. its a substitution operator.. for letters and words as well.. so while $info has words and number it substitutes for something.. not sure what though... sorry.	[reply]
Re^5: A Beginner Needs Homework help by Anonymous Monk on Apr 10, 2014 at 23:20 UTC
uhm.. its a substitution operator.. for letters and words as well.. so while $info has words and number it substitutes for something.. not sure what though... sorry. Thank you, thats pretty good ... no need to be sorry :) See "Missing explanation" in Re^3: A Beginner Needs Homework help for more about my	[reply]


Think about Loose Coupling
	PerlMonks