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()
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)
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)
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)
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)
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)
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)
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)
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)
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
LEARN ABOUT DEBIAN
time::y2038
Time::y2038(3pm) User Contributed Perl Documentation Time::y2038(3pm)NAME
Time::y2038 - Versions of Perl's time functions which work beyond 2038
SYNOPSIS
use Time::y2038;
print scalar gmtime 2**52; # Sat Dec 6 03:48:16 142715360
DESCRIPTION
On many computers, Perl's time functions will not work past the year 2038. This is a design fault in the underlying C libraries Perl uses.
Time::y2038 provides replacements for those functions which will work accurately +/1 142 million years.
This only imports the functions into your namespace. To replace it everywhere, see Time::y2038::Everywhere.
Replaces the following functions:
gmtime()
See "gmtime" in perlfunc for details.
localtime()
See "localtime" in perlfunc for details.
timegm()
my $time = timegm($sec, $min, $hour, $month_day, $month, $year);
The inverse of "gmtime()", takes a date and returns the coorsponding $time (number of seconds since Midnight, January 1st, 1970 GMT). All
values are the same as "gmtime()" so $month is 0..11 (January is 0) and the $year is years since 1900 (2008 is 108).
# June 4, 1906 03:02:01 GMT
my $time = timegm(1, 2, 3, 4, 5, 6);
timegm() can take two additional arguments which are always ignored. This lets you feed the results from gmtime() back into timegm()
without having to strip the arguments off.
The following is always true:
timegm(gmtime($time)) == $time;
timelocal()
my $time = timelocal($sec, $min, $hour, $mday, $month, $year);
my $time = timelocal($sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isdst);
Like "timegm()", but interprets the date in the current time zone.
"timelocal()" will normally figure out if daylight savings time is in effect, but if $isdst is given this will override that check. This
is mostly useful to resolve ambiguous times around "fall back" when the hour between 1am and 2am occurs twice.
# Sun Nov 4 00:59:59 2007
print timelocal(59, 59, 0, 4, 10, 107); # 1194163199
# Sun Nov 4 01:00:00 2007 DST, one second later
print timelocal(0, 0, 1, 4, 10, 107, undef, undef, 1); # 1194163200
# Sun Nov 4 01:00:00 2007 no DST, one hour later
print timelocal(0, 0, 1, 4, 10, 107, undef, undef, 0); # 1194166800
$wday and $yday are ignored. They are only there for compatibility with the return value of "localtime()".
LIMITATIONS
The safe range of times is +/ 2**52 (about 142 million years).
Although the underlying time library can handle times from -2**63 to 2**63-1 (about +/- 292 billion years) Perl uses floating point numbers
internally and so accuracy degrates after 2**52.
BUGS & FEEDBACK
See http://rt.cpan.org/Dist/Display.html?Queue=Time-y2038 to report and view bugs.
If you like the module, please drop the author an email.
The latest version of this module can be found at http://y2038.googlecode.com/ and the repository is at
http://y2038.googlecode.com/svn/trunk/ in perl/Time-y2038. You have to check out the whole repository because there are symlinks.
AUTHOR
Michael G Schwern <schwern@pobox.com>
LICENSE & COPYRIGHT
Copyright 2008-2010 Michael G Schwern
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
SEE ALSO
Time::y2038::Everywhere overrides localtime() and gmtime() across the whole program.
The y2038 project at http://y2038.googlecode.com/
<http://xkcd.com/376/>
perl v5.14.2 2011-11-15 Time::y2038(3pm)