URL
https://opencores.org/ocsvn/an-fpga-implementation-of-low-latency-noc-based-mpsoc/an-fpga-implementation-of-low-latency-noc-based-mpsoc/trunk
Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc
[/] [an-fpga-implementation-of-low-latency-noc-based-mpsoc/] [trunk/] [mpsoc/] [perl_gui/] [lib/] [perl/] [temp.pl] - Rev 48
Go to most recent revision | Compare with Previous | Blame | View Log
#!/usr/bin/perl -w # a perl getopts example # alvin alexander, http://www.devdaily.com use strict; use Getopt::Std; # declare the perl command line flags/options we want to allow my %options=(); getopts("hj:ln:s:", \%options); # test for the existence of the options on the command line. # in a normal program you'd do more than just print these. print "-h $options{h}\n" if defined $options{h}; print "-j $options{j}\n" if defined $options{j}; print "-l $options{l}\n" if defined $options{l}; print "-n $options{n}\n" if defined $options{n}; print "-s $options{s}\n" if defined $options{s}; # other things found on the command line print "Other things found on the command line:\n" if $ARGV[0]; foreach (@ARGV) { print "$_\n"; }
Go to most recent revision | Compare with Previous | Blame | View Log