Sponsored Content
Full Discussion: Perl list file
Top Forums Programming Perl list file Post 302773327 by ab52 on Wednesday 27th of February 2013 04:48:29 PM
Old 02-27-2013
Perl list file

Hi all

I am looking for a way to list files in a directoy using perl but then exlude some of the results

i've got this to list the files, but how can exclude some of the results

Code:
#!/usr/bin/perl
$d = "/data";
opendir(DIR, $d);
foreach my $file (readdir(DIR))
    {
    print "Version: $file\n";
    }
closedir(DIR);

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

List of all PERL scripts.

Which command should I use to get the list of all the .pl scripts on the unix server... Thanks in advacne, Venky (3 Replies)
Discussion started by: venkyA
3 Replies

2. Shell Programming and Scripting

Convert perl qw list to text file list?

Does anyone have a good example? I am having trouble looping.. Thanks (1 Reply)
Discussion started by: mrlayance
1 Replies

3. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

4. Shell Programming and Scripting

List of directories with a particular name using perl

Hi experts, Sorry if it is repeated query. I have folder that contains many files & folders. But I need to get the list of folders with the following format "1.0.0.0.003X", 1.0.0.0.004X..and so on. How do I get the same using perl? I have this script which will do the listing. $dir... (1 Reply)
Discussion started by: amvarma77
1 Replies

5. Shell Programming and Scripting

List all file that match user input perl

Hi, I want to list all file that match user input ( specified shell wildcard) but when I compile it dont list me #!/usr/bin/perl -w print "Enter Advance Search Function: "; chomp ($func = <STDIN>); my @files = glob("$func"); foreach my $file (@files) { print "$file\n";... (1 Reply)
Discussion started by: guidely
1 Replies

6. Shell Programming and Scripting

Perl: Sorting a hash value that is a list.

Hi Folks I am very much a newbie at perl but picking it up and I'm hoping you can help. I have a file input that details all the /etc/group files in our enterprise in the following format: "<host>:<group>:<gid>:<users>" I want to parse this data display it as the following:... (9 Replies)
Discussion started by: g_string
9 Replies

7. Shell Programming and Scripting

Perl Directory List Help

I am currently trying to find all files with extensions .gif .jpg .png .wav and .au in a current directory and count them. I am trying to count them based on there extension only. #!/usr/bin/perl $gif =`ls *.gif | uniq -cf 1`; $jpg =`ls *.jpg | uniq -cf 1`; $png =`ls *.png | uniq -cf 1`;... (2 Replies)
Discussion started by: Temphas
2 Replies

8. Shell Programming and Scripting

Using perl to grep a list of patterns from an input file

I have been struggling to grep a file of NGrams (basically clusters of consonants or Consonant and Vowel) acting as a pattern file from an Input file which contains a long list of words, one word per line. The script would do two things: Firstly read a text pattern from a large file of such... (5 Replies)
Discussion started by: gimley
5 Replies

9. Shell Programming and Scripting

Copy a file from local host to a list of remote hosts --- perl script

Hi friends, i need to prepare a script ( in perl) i have a file called "demo.exe" in my local unix host. i have a list of remote hosts in a file "hosts.txt" now i need to push "demo.exe" file to all the hosts in "hosts.txt" file. for this i need to prepare a script(in perl, but shell... (5 Replies)
Discussion started by: siva kumar
5 Replies

10. Programming

Perl list of users

Hi All i need to write something in perl that on a mac list all the users accounts, and then carries out a copy, ( rsync ) on each one it finds. i was going to use glob, but i want to exclude a certain result here is what i have use Getopt::Std; use POSIX qw(tmpnam); use lib... (1 Reply)
Discussion started by: ab52
1 Replies
XPath::NodeSet(3)					User Contributed Perl Documentation					 XPath::NodeSet(3)

NAME
XML::XPath::NodeSet - a list of XML document nodes DESCRIPTION
An XML::XPath::NodeSet object contains an ordered list of nodes. The nodes each take the same format as described in XML::XPath::XMLParser. SYNOPSIS
my $results = $xp->find('//someelement'); if (!$results->isa('XML::XPath::NodeSet')) { print "Found $results "; exit; } foreach my $context ($results->get_nodelist) { my $newresults = $xp->find('./other/element', $context); ... } API
new() You will almost never have to create a new NodeSet object, as it is all done for you by XPath. get_nodelist() Returns a list of nodes. See XML::XPath::XMLParser for the format of the nodes. string_value() Returns the string-value of the first node in the list. See the XPath specification for what "string-value" means. to_literal() Returns the concatenation of all the string-values of all the nodes in the list. get_node($pos) Returns the node at $pos. The node position in XPath is based at 1, not 0. size() Returns the number of nodes in the NodeSet. pop() Equivalent to perl's pop function. push(@nodes) Equivalent to perl's push function. append($nodeset) Given a nodeset, appends the list of nodes in $nodeset to the end of the current list. shift() Equivalent to perl's shift function. unshift(@nodes) Equivalent to perl's unshift function. prepend($nodeset) Given a nodeset, prepends the list of nodes in $nodeset to the front of the current list. perl v5.16.2 2002-09-02 XPath::NodeSet(3)
All times are GMT -4. The time now is 10:45 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy