Sponsored Content
Full Discussion: PERL count files in a dir
Top Forums Shell Programming and Scripting PERL count files in a dir Post 302332056 by Asteroid on Wednesday 8th of July 2009 04:40:54 AM
Old 07-08-2009
PERL count files in a dir

Hi Guys,

I need to count files in a dir which were updated yesterday.
ls -lth | grep -i 'Jul 7' | wc -l

The dir holds files of last 15 days and total count is as 2067476.
Is it efficient to count the files using perl? I have developed the following perl script making use of system().

Can anybody coment, any other way without using system()

Code:
#!/usr/bin/perl 
  
 
@months = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec); 
($sec,$min,$hour,$monthday,$mon,$year,$wday,$yday,$isdst) = localtime(time); 
  
  
$month =$months[$mon]; 
 
############################################# 
# ls -lth | grep -i 'Jul 7' | wc -l  
############################################# 
 
$command = "ls -lth  | grep -i '" . $month . "  " . $monthday -1 . "' | wc -l"; 
  
$count = system($command); 
print "$count \n";

Thank you
Regards
@Asteroid
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

command to count files in dir

hi plz let me know the command to count the files in directory. thanks in advance -Bali Reddy (4 Replies)
Discussion started by: balireddy_77
4 Replies

2. Shell Programming and Scripting

A script to find dir, delete files in, and then del dir?

Hello!! I have directories from 2008, with files in them. I want to create a script that will find the directoried from 2008 (example directory: drwxr-xr-x 2 isplan users 1024 Nov 21 2008 FILES_112108), delete the files within those directories and then delete the directories... (3 Replies)
Discussion started by: bigben1220
3 Replies

3. Shell Programming and Scripting

moving files from a dir in one machine to a dir in another machines

Hi, I am a unix newbie.I need to write a shell script to move my oracle READ WRITE datafiles from one serevr to another. I need to move it from /u01/oradata/W1KK/.. to /u01/oradata/W2KK, /u02/oradata/W1KK/.. to /u02/oradata/W2KK. That is, I actaully am moving my datafiles from one database to... (2 Replies)
Discussion started by: mathews
2 Replies

4. Shell Programming and Scripting

count of Files with Dir Name

Can someone please guide me how I can get a single line for each directory: ls -ltrR|awk '/(\.\/)()*/ { print $0;d=$0;n=0;} /^-*/ { n=n+1; print d,n } ' What I'm trying to get is webconsole: 23 logs: 34 logd: 344 Regards, BB (3 Replies)
Discussion started by: busyboy
3 Replies

5. UNIX for Dummies Questions & Answers

How to list all files in dir and sub-dir's recursively along with file size?

I am very new to unix as well as shell scripting. I have to write a script for the following requirement. In have to list all the files in directory and its sub directories along with file path and size of the file Please help me in this regard and many thanks in advance. (3 Replies)
Discussion started by: nmakkena
3 Replies

6. Shell Programming and Scripting

count files in dir except one

Hi I need to count files in current directory, except file abc.txt, if it exists I have such script: FILES_COUNT=$(find * -name "*" | wc -l) but it counts all files. I need to exclude abc.txt (5 Replies)
Discussion started by: optik77
5 Replies

7. Shell Programming and Scripting

KSH - Find paths of multiple files in CC (dir and sub-dir))

Dear Members, I have a list of xml files like abc.xml.table prq.xml.table ... .. . in a txt file. Now I have to search the file(s) in all directories and sub-directories and print the full path of file in a output txt file. Please help me with the script or command to do so. ... (11 Replies)
Discussion started by: Yoodit
11 Replies

8. Shell Programming and Scripting

PERL - Copying ONLY files from one dir to another

I'm writing a Perl script which has its 1st step as to copy files from one directory to another directory. The Source directory has got files with extension, without extension, directories etc. But I want to copy ONLY files with no extension. The files with extensions and directories should not get... (2 Replies)
Discussion started by: jhamaks
2 Replies

9. UNIX for Beginners Questions & Answers

Finding Files with Perl on a Hidden Dir?

Greetings! Been a while since I futzed around with Perl, and came upon a minor headscratcher for the community ;) Here's the basic code which I'm trying to make tick over:#!/usr/bin/perl use strict; use warnings; use diagnostics; print " starting "; while (-e "~/.somedir/testFile")... (9 Replies)
Discussion started by: LinQ
9 Replies

10. AIX

Assign read write permission to the user for specific dir and it's sub dir and files in AIX

I have searched this quite a long time but couldn't find the right method for me to use. I need to assign read write permission to the user for specific directories and it's sub directories and files. I do not want to use ACL. I do not want to assign user the same group of that directories too.... (0 Replies)
Discussion started by: blinkingdan
0 Replies
Date::Manip::Lang::english(3)				User Contributed Perl Documentation			     Date::Manip::Lang::english(3)

NAME
Date::Manip::Lang::english - English language support. SYNOPSIS
This module contains a list of words and expressions supporting the language. It is not intended to be used directly (other Date::Manip modules will load it as needed). LANGUAGE EXPRESSIONS
The following is a list of all language words and expressions used to write times and/or dates. All strings are case insensitive. Month names and abbreviations When writing out the name of the month, several different variations may exist including full names and abbreviations. The following month names may be used: January February March April May June July August September October November December The following abbreviations may be used: Jan Jan. Feb Feb. Mar Mar. Apr Apr. May May. Jun Jun. Jul Jul. Aug Aug. Sep Sept Sep. Sept. Oct Oct. Nov Nov. Dec Dec. Day names and abbreviations When writing out the name of the day, several different variations may exist including full names and abbreviations. The following day names may be used: Monday Tuesday Wednesday Thursday Friday Saturday Sunday The following abbreviations may be used: Mon Mon. Tue Tues Tue. Tues. Wed Wed. Thu Thur Thu. Thur. Fri Fri. Sat Sat. Sun Sun. The following short (1-2 characters) abbreviations may be used: M T W Th F Sa S Delta field names These are the names (and abbreviations) for the fields in a delta. There are 7 fields: years, months, weeks, days, hours, minutes, seconds. The names and abbreviations for these fields are: years y yr year yrs months m mon month weeks w wk wks week days d day hours h hr hrs hour minutes mn min minute seconds s sec second Morning/afternoon times This is a list of expressions use to designate morning or afternoon time when a time is entered as a 12-hour time rather than a 24-hour time. For example, in English, the time "17:00" could be specified as "5:00 PM". Morning and afternoon time may be designated by the following sets of words: AM A.M. PM P.M. Each or every There are a list of words that specify every occurence of something. These are used in the following phrases: EACH Monday EVERY Monday EVERY month The following words may be used: each every Next/Previous/Last occurence There are a list of words that may be used to specify the next, previous, or last occurence of something. These words could be used in the following phrases: NEXT week LAST tuesday PREVIOUS tuesday LAST day of the month The following words may be used: Next occurence: next following Previous occurence: previous last Last occurence: last final Delta words for going forward/backward in time When parsing deltas, there are words that may be used to specify the the delta will refer to a time in the future or to a time in the past (relative to some date). In English, for example, you might say: IN 5 days 5 days AGO The following words may be used to specify deltas that refer to dates in the past or future respectively: ago past in the past earlier before now in later future in the future from now Business mode This contains two lists of words which can be used to specify a standard (i.e. non-business) delta or a business delta. Previously, it was used to tell whether the delta was approximate or exact, but now this list is not used except to force the delta to be standard. The following words may be used: exactly approximately The following words may be used to specify a business delta: business Numbers Numbers may be spelled out in a variety of ways. The following sets correspond to the numbers from 1 to 53: 1st first one 2nd second two 3rd third three 4th fourth four 5th fifth five 6th sixth six 7th seventh seven 8th eighth eight 9th ninth nine 10th tenth ten 11th eleventh eleven 12th twelfth twelve 13th thirteenth thirteen 14th fourteenth fourteen 15th fifteenth fifteen 16th sixteenth sixteen 17th seventeenth seventeen 18th eighteenth eighteen 19th nineteenth nineteen 20th twentieth twenty 21st twenty-first twenty-one 22nd twenty-second twenty-two 23rd twenty-third twenty-three 24th twenty-fourth twenty-four 25th twenty-fifth twenty-five 26th twenty-sixth twenty-six 27th twenty-seventh twenty-seven 28th twenty-eighth twenty-eight 29th twenty-ninth twenty-nine 30th thirtieth thirty 31st thirty-first thirty-one 32nd thirty-two thirty-second 33rd thirty-three thirty-third 34th thirty-four thirty-fourth 35th thirty-five thirty-fifth 36th thirty-six thirty-sixth 37th thirty-seven thirty-seventh 38th thirty-eight thirty-eighth 39th thirty-nine thirty-ninth 40th forty fortieth 41st forty-one forty-first 42nd forty-two forty-second 43rd forty-three forty-third 44th forty-four forty-fourth 45th forty-five forty-fifth 46th forty-six forty-sixth 47th forty-seven forty-seventh 48th forty-eight forty-eighth 49th forty-nine forty-ninth 50th fifty fiftieth 51st fifty-one fifty-first 52nd fifty-two fifty-second 53rd fifty-three fifty-third Ignored words In writing out dates in common forms, there are a number of words that are typically not important. There is frequently a word that appears in a phrase to designate that a time is going to be specified next. In English, you would use the word AT in the example: December 3 at 12:00 The following words may be used: at Another word is used to designate one member of a set. In English, you would use the words IN or OF: 1st day OF December 1st day IN December The following words may be used: of in Another word is use to specify that something is on a certain date. In English, you would use ON: ON July 5th The following words may be used: on Words that set the date, time, or both There are some words that can be used to specify a date, a time, or both relative to now. Words that set the date are similar to the English words 'yesterday' or 'tomorrow'. These are specified as a delta which is added to the current time to get a date. The time is NOT set however, so the delta is only partially used (it should only include year, month, week, and day fields). The following words may be used: ereyesterday -0:0:0:2:0:0:0 overmorrow +0:0:0:2:0:0:0 today 0:0:0:0:0:0:0 tomorrow +0:0:0:1:0:0:0 yesterday -0:0:0:1:0:0:0 Words that set only the time of day are similar to the English words 'noon' or 'midnight'. The following words may be used: midnight 00:00:00 noon 12:00:00 Words that set the entire time and date (relative to the current time and date) are also available. In English, the word 'now' is one of these. The following words may be used: now 0:0:0:0:0:0:0 Hour/Minute/Second separators When specifying the time of day, the most common separator is a colon (:) which can be used for both separators. Some languages use different pairs. For example, French allows you to specify the time as 13h30:20, so it would use the following pairs: : : [h] [:] The first column is the hour-minute separator and the second column is the minute-second separator. Both are perl regular expressions. A pair of colons is ALWAY allowed for all languages. If a language allows additional pairs, they are listed here: Not defined in this language KNOWN BUGS
None known. BUGS AND QUESTIONS
Please refer to the Date::Manip::Problems documentation for information on submitting bug reports or questions to the author. SEE ALSO
Date::Manip - main module documentation LICENSE
This script is free software; you can redistribute it and/or modify it under the same terms as Perl itself. AUTHOR
Sullivan Beck (sbeck@cpan.org) perl v5.16.3 2014-06-09 Date::Manip::Lang::english(3)
All times are GMT -4. The time now is 03:59 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy