diff options
Diffstat (limited to 'pq4ps.pl')
-rwxr-xr-x | pq4ps.pl | 26 |
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"; + } } + } } +} |