DZone Snippets: dir code

perl grep dir and filename

counter202 (jensen) — Wed, 14 May 2008 20:03:25 GMT

// description of your code here



my($directory, $filename) = $text =~ m/(.*\/)(.*)$/;

print "D=$directory, F=$filename\n

Processing all files in a directory and its subdirectories ... revisited

arnoldu (Arnold Ude) — Thu, 31 Jan 2008 09:32:11 GMT



Dir['**/*.jpg'].foreach do |filename|

  ... do anything with the filename

end

Processing all files in a directory and its subdirectories ... revisited

arnoldu (Arnold Ude) — Thu, 31 Jan 2008 09:31:56 GMT

// This code shows (once again) how to process all files in a directory and its subdirectories



Dir['**/*.jpg'].foreach do |filename|

  ... do anything with the filename

end

Create a file directory listing in XML

jrobertson (James Robertson) — Sat, 13 Oct 2007 15:58:18 GMT

// This code lists the filenames in the current directory which have a .xml extension, then saves them to an XML file.called 'dir.xml'.



require 'rexml/document'



include REXML



class Xmldirectory

  def initialize

  end



  def create_directory_file

    file = File.new('dir.xml','w')

    doc = Document.new

    doc.add_element('dir')



    Dir["*.xml"].each do |x|

      entry = Element.new('file')

      entry.text = x

      doc.root.add_element entry

    end

    file.puts doc

    file.close

  end

end

C - command "ls"

whitetiger () — Fri, 29 Sep 2006 22:16:02 GMT



/*

 *

 * Esempio che scansiona una cartella stampando a video i file in essa

 * contenuti.

 */



#include 

#include 

#include 

#include 



int main(int argc, char *argv[])

{

	DIR *dir;

	struct dirent *drent;



	if(argc < 2)

	{

		fprintf(stderr, "%s \n", argv[0]);

		return EXIT_FAILURE;

	}



	if((dir = opendir(argv[1])) == NULL)

	{

		fprintf(stderr, "Errore opendir()\n");

		return EXIT_FAILURE;

	}



	while((drent = readdir(dir)) != NULL)

	{

		fprintf(stdout, "--> %s\n", drent->d_name);

	}

	

	if(closedir(dir) < 0)

	{

		fprintf(stderr, "Errore closedir()\n");

		return EXIT_FAILURE;

	}

}

Load file info for all files in a directory

gregg.irwin (Gregg Irwin) — Mon, 23 Jan 2006 02:08:09 GMT



    load-dir: func [

        "Load file info for all files in a directory."

        path /local result orig-dir

    ][

        result: copy []

        orig-dir: what-dir

        change-dir dirize path

        foreach file read %. [

            repend result [

                file

                ;file: get-modes file 'full-path

                make info? file  get-modes file get-modes file 'file-modes

            ]

            ; include # of files in sub-dirs?

            ; include full-path?

        ]

        change-dir orig-dir

        result

    ]

Ensure a directory exists

gregg.irwin (Gregg Irwin) — Mon, 23 Jan 2006 02:06:48 GMT



    ensure-dir-exists: func [dir] [attempt [make-dir/deep dir]]

Copy a directory

gregg.irwin (Gregg Irwin) — Mon, 23 Jan 2006 02:05:46 GMT



    copy-dir: func [source dest] [

        if not exists? dest [make-dir/deep dest]

        foreach file read source [

            either find file "/" [

                copy-dir source/:file dest/:file

            ][

                print file

                write/binary dest/:file read/binary source/:file

            ]

        ]

    ]

Return block of files, all dirs first

gregg.irwin (Gregg Irwin) — Mon, 23 Jan 2006 01:58:52 GMT



    dir-file-sort: func [

        {Returns the block of files with directories first, followed by

        files, with each group sorted.}

        block [any-block!]

        /local result

    ][

        result: copy []

        foreach blk lib/ser/split block [:dir?] none [

            append result sort blk

        ]

    ]

Get all sub-directories

gregg.irwin (Gregg Irwin) — Mon, 23 Jan 2006 01:55:00 GMT



    dirs: func [

        {Returns a block of fully qualified subdirectories for the directory.}

        spec  [file!]   "Starting directory"

        block [block!]  "Block to append to"

        /deep           "Recurse sub-directories."

        /local f-spec

    ][

        spec: dirize spec

        foreach file read spec [

            if dir? f-spec: join spec file [

                append block f-spec

                if deep [all-dirs/deep f-spec block]

            ]

        ]

        block

    ]