How can I pass command-line arguments to a Perl program?

by

Depends on what you want to do. If you want to use the two arguments as input files, you can just pass them in and then use <> to read their contents.

If they have a different meaning, you can use GetOpt::Std and GetOpt::Long to process them easily. GetOpt::Std supports only single-character switches and GetOpt::Long is much more flexible. From GetOpt::Long: 

use Getopt::Long;
my $data   = "file.dat";
my $length = 24;
my $verbose;
$result = GetOptions ("length=i" => \$length,    # numeric
                    "file=s"   => \$data,      # string
                    "verbose"  => \$verbose);  # flag

Alternatively, @ARGV is a special variable that contains all the command line arguments. $ARGV[0] is the first (ie. "string1" in your case) and $ARGV[1] is the second argument. You don’t need a special module to access @ARGV.

More Related Contents:

  1. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  2. Detecting when an else block gets executed for the second time [closed]
  3. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  4. Redirecting the perl script
  5. How can I troubleshoot my Perl CGI script?
  6. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  7. How can I install Perl modules without root privileges?
  8. How can I require an optional Perl module if installed?
  9. Specifying file to process to Perl one-liner
  10. How do I run a Perl script from within a Perl script?
  11. How do I compare two strings in Perl?
  12. What is the difference between ‘my’ and ‘our’ in Perl?
  13. Difference between &function and function() in perl [duplicate]
  14. How do I tell if a variable has a numeric value in Perl?
  15. What pseudo-operators exist in Perl 5?
  16. How does double arrow (=>) operator work in Perl?
  17. How do I include functions from another file in my Perl script?
  18. Why are Perl source filters bad and when is it OK to use them?
  19. Perl 5.20 and the fate of smart matching and given-when
  20. How can I convert the stringified version of array reference to actual array reference in Perl?
  21. Use of ‘use utf8;’ gives me ‘Wide character in print’
  22. How does Perl parse unquoted bare words?
  23. Perl build, unit testing, code coverage: A complete working example
  24. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  25. In Perl, how can I find the index of a given value in an array?
  26. How can I run a system command in Perl asynchronously?
  27. Which framework should I use to write modules? [closed]
  28. How do I capture Perl’s STDOUT in a variable?
  29. Is object oriented exception handling in Perl worth it?
  30. How can I check whether my Perl installation is 32 or 64 bit?

Leave a Comment