problem with getopt

[donny750]

hello,

I use getopt in my script

my code

use strict;
use warnings;
use Getopt::Long;
###############################################################################
my $file = 0;


my $result = GetOptions(
    "file=s" => \$file   
    
);


if ( $result == 0 ) { exit 1; }

with getopt if i call my script like this
myscript.pl -f input.txt

my script run

but if i call my script like this
myscript.pl

or like this
myscript.pl -f

it must not run
and getopt show an error,if i good understand this module;

But my script run with the 2 last case, and i don't understand why ?

Thanks

 

[KevinADC]

it's might be $file is a reference (\$file), try it like this and see what happens:

use strict;
use warnings;
use Getopt::Long;
my $file = 0;
my $result = GetOptions(
    "file=s" => $file   
    
);
if ( $result == 0 ) { exit 1; }

- Kevin, perl coder unexceptional!