diff options
| author | Mattias Andrée <maandree@operamail.com> | 2012-08-19 19:52:18 +0200 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2012-08-19 19:52:18 +0200 |
| commit | 64b726770a07a0e04bcec3cf8ab23af4bcc2332f (patch) | |
| tree | a2d2b4fb14895486c04262da022d4bdea7acd7d6 /pq4ps.pl | |
| parent | 41b2d257c71f654dd2fd9921d1f75f44b97a6592 (diff) | |
| parent | 6dc632a155db800997e0eb2dec420a6233a2d141 (diff) | |
| download | ponysay-64b726770a07a0e04bcec3cf8ab23af4bcc2332f.tar.gz ponysay-64b726770a07a0e04bcec3cf8ab23af4bcc2332f.tar.bz2 ponysay-64b726770a07a0e04bcec3cf8ab23af4bcc2332f.zip | |
merge conflict resolved
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"; - } } - } } -} |