How to open multiple files in Perl

Question

Guys im really confused now. Im new to learning Perl. The book ive read sometimes do Perl codes and sometimes do Linux commands.

Is there any connection between them? (Perl codes and linux commands)

I want to open multiple files using Perl code, i know how to open a single file in Perl using:

open (MYFILE,'somefileshere');

and i know how to view multiple files in Linux using ls command.

So how to do this? can i use ls in perl? And i want to open certain files only (perl files) which dont have file extension visible (I cant use *.txt or etc. i guess)

A little help guys

Jack · Accepted Answer · 2013-05-10 02:13:37Z

2

Use system function to execute linux command, glob - for get list of files.

http://perldoc.perl.org/functions/system.html

http://perldoc.perl.org/functions/glob.html

Like:

my @files = glob("*.h *.m"); # matches all files with a .h or .m extension
system("touch a.txt"); # linux command "touch a.txt"

edited May 10, 2013 at 2:13

answered May 10, 2013 at 2:08

Jack

1,9221 gold badge19 silver badges23 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

ruggedbuteducated Over a year ago

can you edit your answer and use an example using perl codes. Please im new. i cant comprehend very well

ruggedbuteducated Over a year ago

but i cant see any file extension in my files. how to do that * pattern thingy?

ruggedbuteducated Over a year ago

you dont understand. my files are just plain "thisisjustanexamplefilename" not "thisisjustanexamplefilename.txt or .m or whatever dots there is" and they are perl files

Just Another Perl Hacker · Accepted Answer · 2013-06-20 22:14:30Z

0

Directory handles are also quite nice, particularly for iterating over all the files in a directory. Example:

opendir(my $directory_handle, "/path/to/directory/") or die "Unable to open directory: $!";

while (my $file_name = <$directory_handle>) {
  next if $file_name =~ /some_pattern/; # Skip files matching pattern
  open (my $file_handle, '>', $file_name) or warn "Could not open file '$file_name': $!";
  # Write something to $file_name. See <code>perldoc -f open</code>.
  close $file_handle;
}
closedir $directory_handle;

answered Jun 20, 2013 at 22:14

Just Another Perl Hacker

811 silver badge2 bronze badges

Collectives™ on Stack Overflow

How to open multiple files in Perl

2 Answers 2

3 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

3 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related