iwai****@users*****
iwai****@users*****
2009年 12月 19日 (土) 03:47:43 JST
Index: utils/pm2pod.sh
diff -u /dev/null utils/pm2pod.sh:1.1
--- /dev/null Sat Dec 19 03:47:43 2009
+++ utils/pm2pod.sh Sat Dec 19 03:47:43 2009
@@ -0,0 +1,7 @@
+#!/bin/sh
+
+for f in `find . -type f -name "*.pm"`
+do perldoc -u $f > $f.pod
+mv $f.pod ${f%.pm}.pod
+rm $f
+done