funding link

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

<?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