Added lot of junk laying around on harvie.cz

[mirrors/Programs.git] / php / skripty / grep.php

diff --git a/php/skripty/grep.php b/php/skripty/grep.php
new file mode 100644 (file)
index 0000000..6a1b097
--- /dev/null
+++ b/php/skripty/grep.php
@@ -0,0 +1,35 @@
+<?php\r
+\r
+//READLINE\r
+function readline($prompt="") {\r
+  echo $prompt;\r
+  \r
+  $t = "";\r
+  $c = "";\r
+  \r
+  while(1) {\r
+    $c = fread(STDIN, "1");\r
+    if ($c == "\n") {    // && ($c == "\r") //May be later on oher systems\r
+      return $t;\r
+    } else {\r
+      $t = ($t.$c);\r
+    }\r
+  }\r
+\r
+   return $t;\r
+\r
+}\r
+//READLINE END\r
+\r
+$find = readline("Co hledat: ");\r
+\r
+while(1){\r
+  $pos = "";\r
+  $line = (" ".readline());\r
+  $pos = strpos($line, $find);\r
+  //echo($pos); //debug\r
+  if ($pos == "")\r
+    {} else { echo (trim($line)."\n"); }\r
+}\r
+\r
+?>\r