mirror of
https://github.com/erkin/ponysay.git
synced 2024-11-22 12:27:59 +01:00
24 lines
541 B
Perl
Executable file
24 lines
541 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
print "(sed";
|
|
|
|
foreach $arg (@ARGV)
|
|
{
|
|
print " -e 's/ $arg / \e[1m$arg\e[21m /g'";
|
|
print " -e 's/ $arg)/ \e[1m$arg\e[21m)/g'";
|
|
print " -e 's/($arg /(\e[1m$arg\e[21m /g'";
|
|
print " -e 's/($arg)/(\e[1m$arg\e[21m)/g'";
|
|
print " -e 's/ $arg\$/ \e[1m$arg\e[21m/g'";
|
|
print " -e 's/^$arg /\e[1m$arg\e[21m /g'";
|
|
print " -e 's/^$arg\$/\e[1m$arg\e[21m/g'";
|
|
}
|
|
|
|
print " | sed";
|
|
|
|
foreach $arg (@ARGV)
|
|
{
|
|
print " -e 's/ $arg)/ \e[1m$arg\e[21m)/g'";
|
|
print " -e 's/ $arg\$/ \e[1m$arg\e[21m/g'"
|
|
}
|
|
|
|
print ")";
|