chomp() in perl 4

[kenny chia]

Hi to all perl experts
It seems that the there is no chomp($var) function in my server which has perl 4. Is there a replacement for that?

[RolandH]

Yes there is a replacement for Perl4.

It is called Perl5 and can everything what Perl4 can do and many more.

You can get it from here:

http://big.asknet.de/hppd/hpux/Languages/perl-5.8.0/

HTH

Roland

[Steven Gillard_2 · Accepted solution]

Definitely upgrade to perl 5 if you can. Otherwise, if you're just trying to strip newline characters from the end of a string just use a search & replace of white-space at the end of the line:

$var =~ s/\s*$//;

Regards,
Steve

[H.Merijn Brand (procura]

Rolands answer hits the nail right on the head. If you upgrade skip right to 5.8.0 or higher. Also available on my ITRC site: http://www.cmve.net/~merijn or https://www.beepz.com/personal/merijn

chomp is a `safe' vaersion of chop, which only chop's if the last `character' is the input record separator (\n or newline by default)

perl4's version of chomp

s/($/)?$//

Enjoy, have FUN! H.Merijn