Check if a file exists : Getopt « System Functions « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » System Functions » Getopt

Check if a file exists

      



    #!/usr/local/bin/perl -w





    use Getopt::Long;



    # Set up the command line to accept a filename.

    my $ret = GetOptions ("f|filename:s");

    my $filename = $opt_f || die "Usage: $0 -f filename\n";



    # Check if the file exists

    if (-e $filename) {

       print "The file $filename exists.\n";

    } else {

       print "The file $filename does not exist.\n";

    }

Related examples in the same category

1.	Simple options
2.	GetOptions("file=s" => \$file);
3.	Generate random passwords?
4.	Extract command-line switches with Getopt::Std
5.	Perform consistent command line parsing
6.	Process complex command lines
7.	Read from a file
8.	To turn a feature on or off. Use the exclamation point(!)
9.	Using Getopt to deal with command line options
10.	getopt('pMN');
11.	If the value is optional, use a colon
12.	For a text string value, use :s for an optional value or =s for a required value:
13.	A double dash (--) by itself signals the end of the command-line switches.

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.