diff options
| author | Mattias Andrée <maandree@operamail.com> | 2012-08-18 15:15:57 +0200 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2012-08-18 15:15:57 +0200 |
| commit | ce3fac588fb84a109244b9c3d60aba4fc247a86f (patch) | |
| tree | b71327f306709adea511a58c3c86dd1cf968aecd /pq4ps.pl | |
| parent | 73d477ce1b57d82150bff04d74e6eb2dc1391a3d (diff) | |
| download | ponysay-ce3fac588fb84a109244b9c3d60aba4fc247a86f.tar.gz ponysay-ce3fac588fb84a109244b9c3d60aba4fc247a86f.tar.bz2 ponysay-ce3fac588fb84a109244b9c3d60aba4fc247a86f.zip | |
adding .sh to shell version + removing old files
Diffstat (limited to 'pq4ps.pl')
| -rwxr-xr-x | pq4ps.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/pq4ps.pl b/pq4ps.pl deleted file mode 100755 index 2f45053..0000000 --- a/pq4ps.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -opendir(DIR, $ARGV[0]."/share/ponysay/ponies/"); -@files = readdir(DIR); - -opendir(DIR, $ARGV[0]."/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"; - } } - } } -} |