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); [email protected]
Subject: Re: Error in executing the script
-----Original Message-----
>From: "Sayed, Irfan (Irfan)" <[EMAIL PROTECTED]>
>Sent: Aug 6, 2007 11:03 AM
>To: [email protected]
>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/
