To list all .pm files by using the @INC array : Special Variables « Language Basics « Perl

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

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

VBA / Excel / Access / Word

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

Perl » Language Basics » Special Variables

To list all .pm files by using the @INC array


   



#!/usr/bin/perl -w



@dir_list = @INC;



$i = 0;



while ($i <= $#dir_list) {

    $dir = $dir_list[$i];

    listPMFile($dir);

    $i++;

}



sub listPMFile {

    my($dir) = $_[0];

    my(@list);

    my($new_dir);

    my($filename);

    my($name);

    

    if ($dir eq ".") {

        return;

    }



    chdir( $dir );



    @list = glob("\*");



    foreach $filename (@list) {

        # Check if file ends with .pm

        if ($filename =~ /\.pm$/ ) {

            $name = $filename;

            $name =~ s/\.pm$//;

            print "$dir/$name\n";

        }



        # Check if is a directory.

        if ( -d $filename ) {

            $new_dir = $dir . "/" . $filename;

            # Append directory name onto dir list.

            $pos = $#dir_list + 1;

            $dir_list[$pos] = $new_dir;

        }

    }

}

Related examples in the same category

1.	Special Literals
2.	Splitting up $_
3.	Splitting up $_ and creating an unnamed list
4.	The list separator is a comma
5.	The list separator is the empty string
6.	Passing Arguments at the Command Line
7.	Special Hashes: The %ENV Hash
8.	The %SIG hash sets signal handlers for signals.
9.	A program that changes the value of $/.
10.	A program that uses the $" (dollar and quotation) variable.
11.	A program that uses the $(dollar), variable.
12.	A program that uses the $< variable.
13.	A program that uses the $\(dollar and slash) variable.
14.	A simple program that assigns to $_ using .
15.	A simple version of the cat command using $_.
16.	ARGV and the Null Filehandle
17.	ARGV in Perl represents the command-line arguments.
18.	Aliases and Values
19.	Alternative names for Perl system variables.
20.	Assign elements in @_ to scalar
21.	Assign string array to @ARGV by using qw
22.	Assign value to @_
23.	Build the ARGV array with qw function
24.	@_ has runtime scope.
25.	A more expanded version for showing how to use the $_
26.	Built-in variables: $_
27.	Call-by-Reference and the @_ Array
28.	Capturing fatal errors
29.	Catching the sigINT signal
30.	Code the $_ specifically
31.	Compare value entered with number with underscore
32.	Error message is stored in $!
33.	Extracts information from the $] variable.
34.	$! is the error number
35.	$! stores the error message
36.	$" is the separator
37.	$# is the default format
38.	$(dollar), is the separator
39.	$MATCH = $&
40.	$SIG{__DIE__}
41.	$SIG{__WARN__} = 'IGNORE';
42.	$SIG{__WARN__} = sub {die "Warning: $_[0]"};
43.	$\ is 'END_OF_OUTPUT'
44.	$^ is the format header
45.	$^O stores the name of the operating system
46.	$^S: is inside eval
47.	$^W: Check the '-w switch'
48.	$^X: get the Perl execuatable file name
49.	$_ for print function
50.	$_ stores the user input
51.	$~ is the format
52.	%INC values
53.	File-searching program using $ARGV.
54.	Get Computer Name key in the %ENV
55.	Get local time from $^T
56.	If $_contains needle, the string is printed.
57.	Integer signal
58.	Lines Remaining on the Page: $-
59.	List all command line argument
60.	Local builtin var
61.	Locate all numbers less than 6
62.	Manipuate @_ and return @_
63.	Mannually change the $1 variable
64.	Match: $&
65.	Perl 5 Built-In Variables
66.	Perl's modules reside in the directories named in the @INC array, or subdirectories
67.	Perl's special arrays
68.	Perl's special variables
69.	Postmatch $'
70.	Prematch: $`
71.	Print all command line argument
72.	Print the default variable's ($_) value
73.	Quick Sum
74.	Read and set environment variables?
75.	Read lines from supplied filenames
76.	Reference element in @_
77.	Resetting array base
78.	Retrieving the Entire Pattern: $&
79.	Saving in the $& special scalar
80.	Set the $/ and chomp
81.	Special Variables
82.	System variables that control how write sends output to a file
83.	Test of open and die with $!.
84.	The $_ Scalar Variable
85.	The @* field
86.	The @ISA Array and Calling Methods
87.	The Argument Vector @ARGV
88.	The Pattern-Matching Operator and $_
89.	The Substitution Operator and $_
90.	The code executes a line of code you type as long as that line doesn't start with a #
91.	The environment associative array: Associative arrays %ENV holds your system's environment variables.
92.	The following functions and operators work with the $_ variable by default:
93.	The shift operator returns an undefined value if the array has no more elements.
94.	Use while loop to display all entries in ENV
95.	Using $, to set the separator for print command
96.	Using $_ (dollar underscore)
97.	Using $_ as the array index
98.	Using $_ variable with while statement
99.	Using %SIG to define our own signal handlers
100.	Using @_ directly
101.	Using __LINE__ to output line number
102.	Using eof and <> together.
103.	Using the $. variable.
104.	Using the $;(dollar and semicolon) variable.
105.	Using the @_ to reference the parameter
106.	Using the Default Variable $_
107.	Using the diamond operator with @ARGV
108.	Using the if statement to check the command line parameters
109.	Using the special Perl variable $! in the message passed to die.
110.	Using tr to convert all file names passed in to uppercase
111.	Verify the total number of the command line parameter
112.	Working with $_ usually makes programming much easier, but more confusing to the uninitiated
113.	You display the current line of execution in a Perl script by referring to it with the __LINE__ token.
114.	You display the name of the current Perl package with __PACKAGE__.
115.	You display the name of the current file with the __FILE__ token
116.	foreach (@_)
117.	foreach loop and $_
118.	or die $!
119.	or die $^E;
120.	print "Hello, $ENV{USER}!\n";
121.	print $INC{'English.pm'};
122.	print $]; (Perl version number)
123.	print out all pm library location
124.	prints out each element of @ARGV separately
125.	shift: defaults to shifting @ARGV
126.	time - $^T
127.	undef $/;

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.