mirror of
https://github.com/erkin/ponysay.git
synced 2024-11-22 20:38:00 +01:00
25 lines
541 B
Perl
25 lines
541 B
Perl
|
#!/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 ")";
|