Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Finding un-paired files in a directory

by Corion (Patriarch)
on Dec 02, 2003 at 11:42 UTC ( #311586=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    opendir DIR, $dir
      or die "Couldn't open directory '$dir' : $!";
    my @files = grep { /(.*)\.mrg$/ and not -f "$dir/$1.did" } readdir DIR
    closedir DIR;
  2. or download this
      opendir DIR, $dir
        or die "Couldn't read '$dir' : $!";
      closedir DIR;
      my %did = map { /(.*)\.did$/ and ($1 => 1) } grep { /\.did$/ } @all_
      my @files = grep { /(.*)\.mrg$/ and not $did{$1} } @all_files;
  3. or download this
      # return a list or a reference to an array, depending
      # on what the caller wants:
      return wantarray ? @files : \@files;
  4. or download this
    perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
    $d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
    ($c = $d->accept())->get_request(); $c->send_response( new   #in the
    HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://311586]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2023-09-21 23:10 GMT
Find Nodes?
    Voting Booth?

    No recent polls found