perl note

diff --git a/emacs.d/config.org b/emacs.d/config.org
index f412f50..84e80fd 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1104,7 +1104,6 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic
 #+END_SRC
 
 * Misc Settings
-
 ** [[https://github.com/abo-abo/hydra][Hydra]]
 *** hydra install
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent

diff --git a/study-note.org b/study-note.org
index 8767fd4..61823e7 100644 (file)
--- a/study-note.org
+++ b/study-note.org
@@ -71,6 +71,24 @@ Or
   perl -ne 'print "$1\n" if /aaa=(\d+)\s.*/' xxx.log;
 #+END_SRC
 
+#+BEGIN_SRC fundamental :tangle ./temp/aa.txt
+  aa: 1
+  bb: 2
+  cc: 3
+  dd: 4
+#+END_SRC
+
+#+BEGIN_SRC sh :results output replace
+  perl -wnl -e 'print "==$.: $_"' ./temp/aa.txt
+#+END_SRC
+
+#+RESULTS:
+: ==1: 
+: ==2: aa: 1
+: ==3: bb: 2
+: ==4: cc: 3
+: ==5: dd: 4
+
 ** gnuplog
 
 1. normal