Added junk found in ~harvie at harvie.cz

[mirrors/Programs.git] / php / parser.php

diff --git a/php/parser.php b/php/parser.php
new file mode 100755 (executable)
index 0000000..f0abb3b
--- /dev/null
+++ b/php/parser.php
@@ -0,0 +1,11 @@
+#!/usr/bin/php
+<?php
+$fp = fopen("http://www.root.cz/", "r");
+
+while($line = fgets($fp)) {
+  if(ereg("<h3><a href=\"/clanky/", $line)) {
+    $line = explode("<h3><a href=\"/clanky/", $line);
+    $line = explode("/\">", $line[1]);
+    echo($line[0]."\n");
+  }
+}