mirror of
https://github.com/erkin/ponysay
synced 2024-11-28 22:30:18 +00: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 ")";
|