15 lines
170 B
Perl
Executable File
15 lines
170 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict ;
|
|
use Getopt::Long ;
|
|
use Data::Dumper ;
|
|
|
|
my %define ;
|
|
|
|
GetOptions (
|
|
"define=s" => \%define
|
|
) ;
|
|
|
|
print Dumper( \%define ) ;
|
|
|