Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl code to check date and check files in particular dir
Top Forums Shell Programming and Scripting Perl code to check date and check files in particular dir Post 302666887 by pravin27 on Thursday 5th of July 2012 08:29:03 AM
Old 07-05-2012
Hope this will help you.

Code:
#!/usr/bin/perl

use strict;

sub check_files
{
        my $dirname = "/tmp";
        opendir(my $dh, $dirname) or die "Not a directory";
        if( scalar(grep { $_ ne "." && $_ ne ".." } readdir($dh)) > 0 )
           {
                print "Core functionality \n";
                exit;
           } else {
              sleep 15;
           }
}


my @datetime=localtime(time);
my $hr=@datetime[2];
my $wday=@datetime[6];

if ( $wday eq 1 )
{
        while ( $hr lt 9 )
        {
                check_files()
        }
}

exit;

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

How to check the file size in a dir

Hi all, I need to check the size of all files in a DIR.Can any one help me out from this? This is my code: filenames=`ls -l | cut -c 55-90` for f in $filenames do if then echo $f done Output: file access denied. *files have read permission alone. (6 Replies)
Discussion started by: bsathishmca
6 Replies

2. Shell Programming and Scripting

Copy Files to Dir and Check If File Exists

Hi everyone. I am trying to write a bash script that will copy files from one directory to another but I need to be able to check the directory that I'm copying the files to and see if the file already exists. If it does I need to add a number at the end of the copied file. Thanks for your help. (3 Replies)
Discussion started by: snag49ers
3 Replies

3. Shell Programming and Scripting

Perl Script to check file date and size

Hi guys, i am new to perl. I started reading the perl documents and try to come up with some logic. I am trying to create a script that would go into a location, search for todays files, then searches for all .txt files from today. If todays not found, its an error If file size is less... (26 Replies)
Discussion started by: DallasT
26 Replies

4. Shell Programming and Scripting

Shell Script to compare files, check current date and count

Hello - I have written the following basic shell script to count files, compare files and look for a particular strings in a file. Problem 1: How do I define more than 1 file location? #!/bin/bash #this is a test script FILES=$(ls /home/student/bin/dir1, home/student/bin/dir2)... (0 Replies)
Discussion started by: DallasT
0 Replies

5. Shell Programming and Scripting

How to check all files in dir has same date stamp?

Hello Experts, Can some one write the code to find, all files in the directory has today's time stamp or not? Dir = /doc Files ----- a.txt Aug 13 10:15 b.txt Aug 13 10:16 c.txt Aug 13 10:17 d.txt Aug 13 10:18 e.txt Aug 13 10:17 Thanks in advance Dip (2 Replies)
Discussion started by: dipeshvshah
2 Replies

6. Shell Programming and Scripting

Date format check and replace string in PERL

I have got few date format patterns like "yyyymmdd", "yy_mm_dd" etc. There can be any combination of such patterns. I have used add_delta_days to find "yyyy", "yy", "mm", "dd" for the current date and saved them to different variables like "$y1", "$y2", "$m1" etc In one line, i want to... (10 Replies)
Discussion started by: irudayaraj
10 Replies

7. Shell Programming and Scripting

PERL : hhmiss - Date format check and replace

I have a filename, This can be any of any format, I want to check if the filename has hours,mins and seconds part. If it is present, i want to replace it with a " * " (star symbol) output needed: IMP: The time part can be in any pattern. How can this be done?:confused:... (3 Replies)
Discussion started by: irudayaraj
3 Replies

8. Shell Programming and Scripting

PERL code to check if file exists

Hi Guy’s, I have this simple PERL code which checks whether the file exists . At the moment I am getting the following error This is the code I am using #!/usr/bin/perl Open (F, "home/work/PerlWork/dataFile") or die "Could not open the file:$!\"; Also how can I read the content of... (3 Replies)
Discussion started by: INHF
3 Replies

9. UNIX for Dummies Questions & Answers

Check number of files that were created before a date?

Hi all, In a directory I have a lot of files created in history. However do I check the number of files that were created before a designated date? Thanks (1 Reply)
Discussion started by: isaacniu
1 Replies

10. Shell Programming and Scripting

Shell/perl script to check for files

Hi, I am trying to write a script for following scenario: I have a list of countries from where I receive files...eg. (Indonesia, Thailand, Australia...etc) For each country, I have a list of files that they send. IND -- a,b,c TH -- p,q,r AU -- x,y,z The path for these files could... (2 Replies)
Discussion started by: neil.k
2 Replies

LEARN ABOUT SUNOS

fdopendir

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 05:22 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy