couldn't you just do something like:
die "I said two variables\n" unless #$ARGV = 2;
?
i'm not sure what you're asking? you already check this?
On Tue, Nov 2, 2010 at 1:08 AM, Sri <byaram...@gmail.com> wrote:
> Hi - I have just started with Perl and would need your help on this.
>
> I am trying to write a program which expects two strings(arguments)
> from the end user (no less, no more) and I would like to check if the
> end-user did pass only two arguments. I am using the code below for
> this task. Pl advice.
>
> #!/usr/local/bin/perl
>
> MAIN: {
> sub chk_args($);
> my $name1 = <>;
> my $name2 = <>;
> ($name1, $name2) = @ARGV;
> my $num = $#ARGV + 1;
>
> chk_args($num);
> }
>
> sub chk_args($) {
> my $n = @_;
> if ($n != 2) {
>
> print " $n arguments - 2 required \n";
> exit 1;
>
> }
> else {
>
> return 0;
> }
> }
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
