Sponsored Content
Full Discussion: perl questions
Top Forums Shell Programming and Scripting perl questions Post 302138277 by cbkihong on Sunday 30th of September 2007 10:19:09 PM
Old 09-30-2007
Code:
opendir(DIR, "R:/example") or die "Cannot opendir: $!";
my @files = sort map { /^file\d+\.txt$/ ? ($_) : () } readdir(DIR);
closedir(DIR);

my $min=($files[0] =~ /^file(\d+)\.txt$/ && $1) or die "No matching files found";
my $max=($files[-1] =~ /^file(\d+)\.txt$/ && $1) or die "No matching files found";

my $thisfileidx = 0;
for (my $i=$min; $i<=$max; $i++) {
	if ($files[$thisfileidx] eq sprintf("file%04d.txt", $i)) {
		$thisfileidx++;
	} else {
		print STDERR "File " . sprintf("file%04d.txt", $i) . " is missing!\n";
	}
}

(This is a Windows machine and R:\example is a directory on a ramdisk with file0001.txt, file0002.txt, file0003.txt, file0005.txt and file0006.txt)

It will tell you file0004.txt is missing.
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

bash and Perl interaction questions

hi. i´m working in bash and am trying to create a Perl daemon that controls bash´s behavior. this is actually in preparation for a later project i´ll be working on. basically, i´m looking for a way to have the Perl daemon tell bash what to do. i already have a small daemon that simply prints... (2 Replies)
Discussion started by: deryk
2 Replies

2. Shell Programming and Scripting

Perl: answering automatically to install questions

Hi everybody, I have been looking for an answer to this issue both on google and on the forum, but I couldn't find anything. please help me :eek: As part of an automated (in perl) install of Solaris 9, I would like to be able to answer automaticaly to the question the installer asks.... (2 Replies)
Discussion started by: zaap
2 Replies

3. Shell Programming and Scripting

chess perl program questions

Hello guys, While going over the book, I ran into this chess program and I have few questions 1) on line 40), why is not $chessboard-> ) ??? 40 unless (defined $chessboard->) { 2) 20 foreach my $i (reverse (0..7)) { #Row 1 #!/usr/bin/perl -w 2 # 3 # 4 5 ... (1 Reply)
Discussion started by: hankooknara
1 Replies

4. Shell Programming and Scripting

Perl questions - more

More questions for Perl on Windows (again I apologize its on windows... ) 1. How can I check free disk space on a drive in windows using perl command in a script? 2. How can I check processes running using perl command (as I would normally be able to see in task manager for example) 3. I... (7 Replies)
Discussion started by: frustrated1
7 Replies

5. Shell Programming and Scripting

How to answer the Questions in Perl .

I need to write a script to telnet or ssh a device the execute some commands in device then copy the output in a file, I wrote the script but I faced one issue, when you execute some commands the device asked me a Question, for example : device # copy run tftp device # Source filename ? ... (3 Replies)
Discussion started by: DarkSoul
3 Replies

6. Shell Programming and Scripting

Perl newbie questions!

Hi, So I started to learn perl a few days ago, and I have some problems... One of my problems... #!C:\Perl64\bin\perl.exe -w use LWP::Simple; print "Content-Type: Text/Plain\n\n"; sub pagelinks { return @all = get($_) =~ /href\s*=\s*"?(+)/gis; } @a =... (5 Replies)
Discussion started by: byte1918
5 Replies

7. Homework & Coursework Questions

Print questions from a questions folder in a sequential order

1.) I am to write scripts that will be phasetest folder in the home directory. 2.) The folder should have a set-up,phase and display files I have written a small script which i used to check for the existing users and their password. What I need help with: I have a set of questions in a... (19 Replies)
Discussion started by: moraks007
19 Replies

8. Shell Programming and Scripting

Perl Debug Stepping Answering Questions

I am new to perl and want to get a little better understanding of debugging code in perl. I have a perl script that has questions to be answered like: he following PERL modules are recommended: Crypt::DES Crypt::PasswdMD5 IO::Pty Net::Write::Layer2 String::CRC32 Attempt to install... (0 Replies)
Discussion started by: metallica1973
0 Replies

9. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
opendir(3C)						   Standard C Library Functions 					       opendir(3C)

NAME
opendir, fdopendir - open directory SYNOPSIS
#include <sys/types.h> #include <dirent.h> DIR *opendir(const char *dirname); DIR *fdopendir(int fildes); DESCRIPTION
The opendir() function opens a directory stream corresponding to the directory named by the dirname argument. The fdopendir() function opens a directory stream for the directory file descriptor fildes. The directory file descriptor should not be used or closed following a successful function call, as this might cause undefined results from future operations on the directory stream obtained from the call. Use closedir(3C) to close a directory stream. The directory stream is positioned at the first entry. If the type DIR is implemented using a file descriptor, applications will only be able to open up to a total of {OPEN_MAX} files and directories. A successful call to any of the exec functions will close any directory streams that are open in the calling process. See exec(2). RETURN VALUES
Upon successful completion, opendir() and fdopendir() return a pointer to an object of type DIR. Otherwise, a null pointer is returned and errno is set to indicate the error. ERRORS
The opendir() function will fail if: EACCES Search permission is denied for the component of the path prefix of dirname or read permission is denied for dirname. ELOOP Too many symbolic links were encountered in resolving path. ENAMETOOLONG The length of the dirname argument exceeds {PATH_MAX}, or a path name component is longer than {NAME_MAX} while {_POSIX_NO_TRUNC} is in effect. ENOENT A component of dirname does not name an existing directory or dirname is an empty string. ENOTDIR A component of dirname is not a directory. The fdopendir() function will fail if: ENOTDIR The file descriptor fildes does not reference a directory. The opendir() function may fail if: EMFILE There are {OPEN_MAX} file descriptors currently open in the calling process. ENAMETOOLONG Pathname resolution of a symbolic link produced an intermediate result whose length exceeds PATH_MAX. ENFILE Too many files are currently open on the system. USAGE
The opendir() and fdopendir() functions should be used in conjunction with readdir(3C), closedir(3C) and rewinddir(3C) to examine the con- tents of the directory (see the EXAMPLES section in readdir(3C)). This method is recommended for portability. ATTRIBUTES
See attributes(5) for descriptions of the following attributes: +-----------------------------+-----------------------------+ | ATTRIBUTE TYPE | ATTRIBUTE VALUE | +-----------------------------+-----------------------------+ |Interface Stability |opendir() is Standard; | | |fdopendir() is Evolving | +-----------------------------+-----------------------------+ |MT-Level |Safe | +-----------------------------+-----------------------------+ SEE ALSO
lstat(2), symlink(2), closedir(3C), readdir(3C), rewinddir(3C), attributes(5) SunOS 5.10 1 Aug 2001 opendir(3C)
All times are GMT -4. The time now is 06:46 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy