RE: Error in executing the script

[Sayed, Irfan (Irfan)]

Hi all,

Now I have made two EOT statements and also now I got the same error. I
have removed the space/tab also before EOT. Here is the code

  sub join_proj() {
        print "Joining Project..........\n";
        sleep 2;
print <<"EOT";
    Select one of the project:
    1. APC
    2. quit
Your Choice :
EOT
        my $menu_item = <>;
        chomp($menu_item);
         if ($menu_item == 1)
         {
       my @proj=`$CT lsproj -invob /vobs/pvob_apc | cut -d " " -f3`;

print "The projects are.....\n\n";
print <<"EOT";
    Select one of the project:
    @proj
    Your choice:
EOT
         }
        else {quit();}


Please help.

Regards

Irfan.

 

 


-----Original Message-----
From: Jeff Pang [mailto:[EMAIL PROTECTED]
Sent: Monday, August 06, 2007 8:44 PM
To: Sayed, Irfan (Irfan); beginners@perl.org
Subject: Re: Error in executing the script



-----Original Message-----
>From: "Sayed, Irfan (Irfan)" <[EMAIL PROTECTED]>
>Sent: Aug 6, 2007 11:03 AM
>To: beginners@perl.org
>Subject: Error in executing the script
>
>Hi All,
>
>I have following script
>
>#!/usr/atria/bin/Perl
>use strict;
>use warnings;
>
>    # Subroutine prototypes
>    join_proj();
>    rebase();
>    deliver();
>    quit();
>
>    # Define the actions to take
>    my %action_to_take = (
>        '1' => \&join_proj,
>        '2' => \&rebase,
>        '3' => \&deliver,
>        '4' => \&quit,
>    );
>
>    # Print the menu selection
>    print <<"EOT";
>    Select one of:
>    1. Join the project
>    2. Rebase
>    3. Deliver
>    4: quit
>    EOT

There is most likely a space/tab follow the second EOT,remove it.

--
Jeff Pang <[EMAIL PROTECTED]>
http://home.arcor.de/jeffpang/