PCPRINT+CRLF perl script

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

Threaded View

How do I make this as simple as possible using perl instead of sed

pcprint () { sed 's/$/ /' < $1 >> ~/pcprint.tmp; echo ' ' >> pcprint.tmp ;
/usr/local/bin/pcprint ~/pcprint.tmp ; rm ~/pcprint.tmp ;}

Following is someone's pcprint script
(I'm not sure what $# -eq and cat$* mean)

    # pcprint
    echo -n ''
    if [ $# -eq 0 ]; then
      cat $*
    echo -n ''

                - = -
    Vasos-Peter John Panagiotopoulos II, Columbia'81+, Bio$trategist
          BachMozart ReaganQuayle EvrytanoKastorian
  ---{Nothing herein constitutes advice.  Everything fully disclaimed.}---
   [Homeland Security means private firearms not lazy obstructive guards]
    [Health Reform means abolishing FDR's insurance tax exemption]
 [To stop SPAM, Charge net-postage] [Abolish 16th (Inc Tx) Amendment]

Re: PCPRINT+CRLF perl script

vjp2.at@at.BioStrategist.dot.dot.com wrote:
Quoted text here. Click to load it

man s2p

use Perl;

Site Timeline