partial merge of quotes into main

1 files changed, 26 insertions, 0 deletions

diff --git a/pq4ps.pl b/pq4ps.pl
new file mode 100755
index 0000000..a10c998
--- /dev/null
+++ b/pq4ps.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+opendir(DIR, "/usr/share/ponysay/ponies/");
+@files = readdir(DIR); 
+
+opendir(DIR, "/usr/share/ponysay/quotes/");
+@quotes = readdir(DIR); 
+
+
+foreach $file (@files)
+{
+    $_ = $file;
+    $_ =~ s/\.pony$//g;
+    $f = $_;
+    if (! /^\./)
+    {   foreach $quote (@quotes)
+	{
+	    $_ = $quote;
+	    $_ =~ s/\.\d+//g;
+	    $_ = '+'.$_.'+';
+	    if (! /^\./)
+	    {   if (/\+$f\+/)
+		{   print $f."@".$quote."\n";
+	    }   }
+    }   }
+}