Read Command-Line Arguments: Difference between revisions
Content added Content deleted
(C version) |
m (fixed redirect since multiple redirects aren't followed) |
||
(3 intermediate revisions by 2 users not shown) | |||
Line 1: | Line 1: | ||
#REDIRECT [[Command-line arguments]] |
|||
{{task}}Read the command line arguments, display the total number, and display each one, including any reference to the program itself. (i.e., if the language includes the name and path of the executable as one of the arguments, include it.) |
|||
=={{header|C}}== |
|||
<pre> |
|||
#include<stdio.h> |
|||
int main(int argc, char *argv[]) |
|||
{ |
|||
int narg; |
|||
printf("There are %d arguments\n", argc); |
|||
for(narg=0; narg<argc; ++narg) |
|||
printf("Argument #%d is %s.\n", narg, argv[narg]); |
|||
return 0; |
|||
} |
|||
</pre> |
|||
=={{header|C++}}== |
|||
#include <iostream> |
|||
int main( int argc, char *argv[] ) |
|||
{ |
|||
std::cout << "There are " << argc << " arguments." << std::endl; |
|||
for (int argnum = 0; argnum < argc; ++argnum) |
|||
{ |
|||
std::cout << "Argument #" << argnum << " is " << argv[argnum] << "." << std::endl; |
|||
} |
|||
return 0; |
|||
} |
|||
=={{header|Haskell}}== |
|||
import System.Environment |
|||
main = do |
|||
prog <- getProgName |
|||
args <- getArgs |
|||
putStrLn $ "Program name: " ++ prog |
|||
putStrLn $ "There are " ++ show (length args) ++ " arguments:" |
|||
forM_ (zip args [1..]) $ \(a,i) -> |
|||
putStrLn $ "Argument #" ++ show i ++ " is " ++ a |
|||
=={{header|Perl}}== |
|||
#!/usr/bin/perl |
|||
print "There are $#ARGV arguments.\n"; |
|||
foreach $argnum ( 0 .. $#ARGV ) |
|||
{ |
|||
print "Argument $argnum is $ARGV[$argnum].\n"; |
|||
} |
Latest revision as of 08:24, 2 July 2010
Redirect to: