Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl script for finding directories with mtime
Top Forums Shell Programming and Scripting Perl script for finding directories with mtime Post 302845665 by rajamadhavan on Thursday 22nd of August 2013 04:01:29 AM
Old 08-22-2013
Quote:
Code:
#!/usr/bin/perl

use strict;
use warnings;
open (my $fh, '<', 'test.txt') || die "Could not open test.txt: $!\n";
my @test = grep { $_ !~ /^#/ } <$fh>;
print @test;


You may need to cut down the trailing newline.

Code:
#!/usr/bin/perl

use strict;
use warnings;
my @test;
open (my $fh, '<', 'test.txt') || die "Could not open test.txt: $!\n";
while(<$fh>)
{
  chomp;
  push(@test,$_) if($_ !~ /^#/);
}
print @test;

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl package directories - what if the script is diff DIR to the one contain *.pm?

Hi there, say the package is in the ~/ and it's ~/packageFoo.pm I can use usePackage.pl in ~/ (~/usePackage.pl). Now, if I move it to ~/subDIR/usePackage.pl, the script won't work because it's not in the same DIR with packageFoo.pm How can i fix it? Thanks Gusla (1 Reply)
Discussion started by: gusla
1 Replies

2. Shell Programming and Scripting

Script for parsing directories one level and finding directories older than n days

Hello all, Here's the deal...I have one directory with many subdirs and files. What I want to find out is who is keeping old files and directories...say files and dirs that they didn't use since a number of n days, only one level under the initial dir. Output to a file. A script for... (5 Replies)
Discussion started by: ejianu
5 Replies

3. UNIX for Dummies Questions & Answers

(find) mtime vs. (unix) mtime

Hi I've made some test with perl script to learn more about mtime... So, my question is : Why the mtime from findfind /usr/local/sbin -ctime -1 -mtime -1 \( -name "*.log" -o -name "*.gz" \) -print are not the same as mtime from unix/linux in ls -ltr or in stat() function in perl : stat -... (2 Replies)
Discussion started by: hiddenshadow
2 Replies

4. Shell Programming and Scripting

Finding directory and sub-directories individual size in Perl

Hi, Can anyone redirect to an existing thread or provide some info on how to find the size of a directory and it's sub-directories using a single script ? I tried finding a similar thread but in vain. I'm a newbie and any help would be greatly appreciated. Thanks in advance. (3 Replies)
Discussion started by: ryder
3 Replies

5. Shell Programming and Scripting

Run perl script on files in multiple directories

Hi, I want to run a Perl script on multiple files, with same name ("Data.txt") but in different directories (eg : 2010_06_09_A/Data.txt, 2010_06_09_B/Data.txt). I know how to run this perl script on files in the same directory like: for $i in *.txt do perl myscript.pl $i > $i.new... (8 Replies)
Discussion started by: ad23
8 Replies

6. UNIX and Linux Applications

Perl Script to read an excel file into an array and search in the UNIX directories

Hi, I want the Perl script with versions 5.8.2 and 5.8.5 starting with #!/usr/bin/perl The Perl program should read the excel file or text file line by line and taking into an array and search in the UNIX directories for reference file of .jsp or .js or .xsl with path .The Object names... (2 Replies)
Discussion started by: pasam
2 Replies

7. Shell Programming and Scripting

Perl Script not working on all directories

Hi Folks, I have a script that I am using. The files are in Directory c:\files\change\options In that directory I have many other sub folders like R1 R2 R5 E4 etc... When I run this script in windows, It looks like its just changing the first folder R1 and not the rest. Can I get an... (6 Replies)
Discussion started by: richsark
6 Replies

8. Shell Programming and Scripting

Finding directories with expression

Hi All, I need your help in finding pattern of directories. need to search for all pattern have "mypatern" from base directory folder. example ------- server1 - base directory 100 server1/ab_123456_1/mypattern 100 server1/ab_123456_2/mypattern 200 server1/ab_123457_1/mypattern... (13 Replies)
Discussion started by: lxdorney
13 Replies

9. Shell Programming and Scripting

How to run perl script on multiple files of two directories?

Hi I have 100 files under file A labled 1.txt 2.txt.....100.txt(made up name) I have 1 files under file B labled name.txt How can i run the same perl script on 100 files and file name.txt I want to run perl script.pl A/1.txt B/name.txt perl script.pl A/2.txt B/name.txt ....... perl... (3 Replies)
Discussion started by: grace_shen
3 Replies

10. Shell Programming and Scripting

Perl: script to work with files with the same name in different directories

Hi All, I would like to use a Perl (not Bash) script to work with multiple files of the same name in different directories (all in the same parent directory). I tried to create a loop to do so, but it isn't working. My code so far: while (defined(my $file = glob("./*/filename.txt")) or... (1 Reply)
Discussion started by: elgo4
1 Replies

LEARN ABOUT DEBIAN

pmload

PMLOAD(1p)						User Contributed Perl Documentation						PMLOAD(1p)

NAME

       pmload - show what files a given module loads at compile time

DESCRIPTION

       Given an argument of a module name, show all the files that are loaded directly or indirectly when the module is used at compile-time.

EXAMPLES

	   $ pmload IO::Handle
	   /usr/local/devperl/lib/5.00554/Exporter.pm
	   /usr/local/devperl/lib/5.00554/Carp.pm
	   /usr/local/devperl/lib/5.00554/strict.pm
	   /usr/local/devperl/lib/5.00554/vars.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/DynaLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Handle.pm
	   /usr/local/devperl/lib/5.00554/Symbol.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/File.pm
	   /usr/local/devperl/lib/5.00554/SelectSaver.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/Fcntl.pm
	   /usr/local/devperl/lib/5.00554/AutoLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Seekable.pm

	   $ cat `pmload IO::Socket` | wc -l
	      4015

	   $ oldperl -S pmload Tk
	   /usr/lib/perl5/site_perl/Tk/Pretty.pm
	   /usr/lib/perl5/Symbol.pm
	   /usr/lib/perl5/site_perl/Tk/Frame.pm
	   /usr/lib/perl5/site_perl/Tk/Toplevel.pm
	   /usr/lib/perl5/strict.pm
	   /usr/lib/perl5/Exporter.pm
	   /usr/lib/perl5/vars.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Wm/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Widget/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk.pm
	   /usr/lib/perl5/i386-linux/5.00404/DynaLoader.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Frame/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Toplevel/autosplit.ix
	   /usr/lib/perl5/Carp.pm
	   /usr/lib/perl5/site_perl/auto/Tk/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk/CmdLine.pm
	   /usr/lib/perl5/site_perl/Tk/MainWindow.pm
	   /usr/lib/perl5/site_perl/Tk/Submethods.pm
	   /usr/lib/perl5/site_perl/Tk/Configure.pm
	   /usr/lib/perl5/AutoLoader.pm
	   /usr/lib/perl5/site_perl/Tk/Derived.pm
	   /usr/lib/perl5/site_perl/Tk/Image.pm
	   /usr/lib/perl5/site_perl/Tk/Wm.pm
	   /usr/lib/perl5/site_perl/Tk/Widget.pm

NOTE

       If the programmers used a delayed "require", those files won't show up.	Furthermore, this doesn't show all possible files that get opened,
       just those that those up in %INC.  Most systems have a way to trace system calls.  You can use this to find the real answer.  First, get a
       baseline with no modules loaded.

	   $ strace perl -e 1 2>&1 | perl -nle '/^open("(.*?)".* = [^-]/ && print $1'
	   /etc/ld.so.cache
	   /lib/libnsl.so.1
	   /lib/libdb.so.2
	   /lib/libdl.so.2
	   /lib/libm.so.6
	   /lib/libc.so.6
	   /lib/libcrypt.so.1
	   /dev/null

	   $ strace perl -e 1 2>&1 | grep -c '^open.*= [^-]'
	   8

       Now add module loads and see what you get:

	   $ strace perl -MIO::Socket -e 1 2>&1 | grep -c '^open.*= [^-]'
	   24

	   $ strace perl -MTk -e 1 2>&1 | grep -c '^open.*= [^-]'
	   35

SEE ALSO

       Devel::Loaded, plxload(1).

AUTHORS and COPYRIGHTS
       Copyright (C) 1999 Tom Christiansen.

       Copyright (C) 2006-2008 Mark Leighton Fisher.

       This is free software; you can redistribute it and/or modify it under the terms of either: (a) the GNU General Public License as published
       by the Free Software Foundation; either version 1, or (at your option) any later version, or (b) the Perl "Artistic License".  (This is the
       Perl 5 licensing scheme.)

       Please note this is a change from the original pmtools-1.00 (still available on CPAN), as pmtools-1.00 were licensed only under the Perl
       "Artistic License".

perl v5.10.1							    2010-02-22								PMLOAD(1p)
All times are GMT -4. The time now is 06:49 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy