#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Nov 2012
    Posts
    1
    Rep Power
    0

    The Ingredients and Instructions arent printing out.. Help Please


    I am supposed to create a server and client that talk to each other and take in information from a recipe text file. I can get the names of the recipes in the file to print but not the instructions or ingredients. Any help would be greatly appreciated.

    #!/usr/bin/perl
    #Luke Davis
    #Server

    use IO::Socket;

    #Get Port Number
    $portnumber = 1313;
    $file = $ARGV[0];

    #Connect With Server
    $hostname=`hostname`;
    $local = IO::Socket::INET->new(
    Proto => 'tcp',
    LocalPort => $portnumber,
    Reuse => 1,
    Listen => 1
    ) or die "$!";

    #Listen
    $local->listen();
    $local->autoflush(1);

    #Send Response
    print "Starting Up... Waiting For $hostname At Port Number: $portnumber\n";
    my $address;

    #Get Request And Display Connections
    while ($address = $local->accept() ) {
    print "Connected From Host: ", $address->peerhost();
    print " On Port: ", $address->peerport(), "\n";
    #Result Variable
    my $result;

    while(<$address>)
    {
    #Get Input
    chomp $_;
    $recipenames = " ";
    $choice = $_;

    #Declare Arrays
    @recipenames = ();
    @ingredients = ();
    @instructions = ();
    #Counting Variable
    $count = 0;

    #Open File Selected From Server
    open(FILE,$file);

    #Seperates Recipe Name, Ingredients, and Instructions And Places Them Into The Corresponding Array
    while(<FILE>)
    {
    next if m/^#/; # Comment Line
    if ( m/^<Recipe/i )
    {
    #If No Name Is Entered Display Error
    if (not m/name/i)
    {
    print "ERROR, Incorrect Recipe\n";
    exit(1);
    }

    #Read Recipe Name
    $recipeline = $_;
    $recipeline =~ s/^<recipe.*name=['"]//gi;
    $recipeline =~ s/['"] *>$//gi;
    push(@recipenames, $recipeline);
    }
    #If Line Is An Ingredient, Place In Corresponding Array
    if ( m/^<ingredients>$/i )
    {
    push(@ingredients, "");
    while (<FILE>)
    {
    last if (m/^<\/ingredients>$/i);
    $ingredients[$#ingredients] .= $_;
    }
    }
    #If Line Is An Instruction, Place In Corresponding Array
    if ( m/^<instructions>$/i )
    {
    push(@instructions, "");
    while (<FILE>)
    {
    last if m/^<\/instructions>$/i;
    $instructions[$#instructions] .= $_;
    }
    }
    }
    close(FILE);

    #Sends Back The Chosen Recipe
    if($choice eq "Recipes()")
    {
    #Print Each Recipe Name In The Array
    foreach(@recipenames)
    {
    $chosenrecipename .= $_;
    }
    #Print Recipe Name
    print $address "$chosenrecipename";
    }
    #Sends Back The Chosen Recipes Ingredients
    elsif($choice eq "GrabIngandIns()")
    {
    ($option,$entered)=split(/\|/, $choice);
    print $entered;
    $entered = $entered - 1;
    $outgoing = "Ingredients: \n".@ingredients[$entered]."\nInstructions: \n".@instructions[$entered];
    print $outgoing;
    print @ingredients[$entered];
    print $address "$outgoing";
    }
    last;
    }

    chomp;

    #Reset
    reset('r');

    $recipenames = " ";

    #Declare Arrays
    @recipenames = ();
    @ingredients = ();
    @instructions = ();

    #Close Connection
    print "Closing Connection\n";
    close $address;

    #Wait For Next Recipe Request
    print "Ready For Next Recipe Request...\n";
    }



    #!/usr/bin/perl
    #Luke Davis
    #Client

    use IO::Socket;

    #Get Input From User
    $clienthost = $ARGV[0];
    chomp($clienthost);
    $portnumber = 1313;

    #Connects To The Address and Port of the Server
    $remote = IO::Socket::INET->new(
    Proto => 'tcp',
    PeerAddr=> $clienthost,
    PeerPort=> $portnumber,
    Reuse => 1,
    ) or die "$!";

    #Displays Which Port The User Is Connected To
    print "Successfully Connected To ", $remote->peerhost," On Port Number: ", $remote->peerport, "\n";

    #Get The Recipes From The Server
    print $remote "Recipes()\n";

    $i=0;

    #Declare Array 1 And Get Contents From The Server
    my @serve = ();
    @serve = <$remote>;

    #Display The Recipes In The Server
    print "Recipe Names in Server:\n";

    #Declare Number To Get All Items From Server
    $num=1;

    #Loop To Display All Items In Server
    foreach $item (@serve)
    {
    print $num.") ".$item;
    $num++;
    }
    print "Enter 'Quit' or 'quit' To Exit Program\n";

    #Decrement Counter
    $num = $num-1;

    #Close
    close $remote;

    #Get Input From User
    $clienthost = $ARGV[0];
    chomp($clienthost);
    $portnumber = 1313;

    #Connect To The Address And Port Of The Server
    $remote = IO::Socket::INET->new(
    Proto => 'tcp',
    PeerAddr=> $clienthost,
    PeerPort=> $portnumber,
    Reuse => 1,
    ) or die "$!";

    #Request User Input
    print "Enter Number Of Recipe You Would Like: \n";
    while(<STDIN>)
    {
    #Recieve Users Choice
    $option = $_;
    chomp($option);

    #'Quit' Or 'quit' Is Entered If The User Wants To Quit
    if (( $option eq 'quit') || ($option eq 'Quit' ))
    {
    #Exit Program
    exit 1;
    last;
    }
    #Makes Sure The User Entered A Correct Recipe Number
    elsif (($option >= 1 ) && ( $option <= $num ))
    {
    #Get Recipe From Server
    print"HERE";
    print $remote "GrabIngandIns()".$option."\n";
    last;
    }
    #The User Entered An Invalid Recipe Option
    else
    {
    #Let User Know Their Input Was Incorrect
    print "ERROR, Not An Option. Please Try Again\n";
    }
    }

    #Declare Array 2 And Get Contents From The Server
    my @secondserve = ();
    @secondserve = <$remote>;

    #Print Each Item In The Array
    foreach $item1 (@secondserve)
    {
    print $item1;
    }

    #End Client
    print "End of Client\n";
    #Close
    close $remote;



    Text File:


    ## Example Recipe File ###
    # Comment lines start with #
    <Recipe name='Mexican Layered Dip'>
    <ingredients>
    1 bag tortilla chips
    1 lg. can refried beans
    1 (10-oz.) jar taco sauce
    1 lb. hamburger
    1 pkt. taco seasoning
    6 cups Mexican shreeded cheese
    </ingredients>
    <instructions>
    Brown hamburger, drain. Stir in taco seasoning. Set aside. In medium bowl, combine refried beans and taco sauce. Spread small amount of bean mixture in bottom of a 13x9-inch baking dish. Layer hamburger then cheese. Repeat with bean mixture, hamburger and cheese. Bake at 350 degrees until hot, about 30 to 40 minutes. Serve with tortilla chips. Can also top with black olives and sour cream, if desired.
    </instructions>
    </Recipe>
    <Recipe name='Guacamole'>
    <ingredients>
    4 fresh, ripe avocados
    2 cloves garlic, minced
    Juice of 1/2 lime
    Juice of 1/2 lemon
    1 tomato, diced
    Salt and pepper to taste
    </ingredients>
    <instructions>
    Smash peeled and seeded avocadoes with fork or potato-masher. Add remaining ingredients and smash until slightly smooth.
    </instructions>
    </Recipe>
    <Recipe name='Holiday Dipped Chocolate Chip Cookies'>
    <ingredients>
    Your favorite chocolate chip Toll House recipe or 1 (18-oz.) pkg refrigerated chocolate chip cookies
    1 cup semi-sweet chocolate chips
    1 tbs shortening
    </ingredients>
    <instructions>
    Heat oven to 350 degrees. Bake cookies as directed on package. Cool completely. Melt chocolate chips and shortening over very low heat or at 50% power in the microwave. Stir well. Dip half of each cookie into melted chocolate. Sprinkle with decorations before chocolate hardens. Place on wax paper to coll. Maked 3 dozen cookies.
    </instructions>
    </Recipe>
  2. #2
  3. No Profile Picture
    Contributing User
    Devshed Novice (500 - 999 posts)

    Join Date
    Jun 2012
    Location
    Paris area, France
    Posts
    842
    Rep Power
    496
    please add the appropriate code tags to your source code, so that code formatting (identation) is preserved. Such a long piece of code without any identation is hardly readable.

IMN logo majestic logo threadwatch logo seochat tools logo