git-svn-id: svn://euphorik.ch/pompage@45 02bbb61a-6d21-0410-aba0-cb053bdfd66a

[pompage.git] / src / test.rb

diff --git a/src/test.rb b/src/test.rb
new file mode 100644 (file)
index 0000000..e993005
--- /dev/null
+++ b/src/test.rb
@@ -0,0 +1,14 @@
+\r
+def pomper(r)\r
+   Dir::foreach(r){|f|\r
+      next if f[0,1] == '.'\r
+      fichier = (r == '.' ? '' : r + "/") + f\r
+      if File::directory?(fichier)\r
+         pomper(fichier) \r
+      else\r
+         p fichier         \r
+      end\r
+   }\r
+end\r
+\r
+pomper("F:\\films")
\ No newline at end of file