Jeff 'Japhy' Pinyan wrote: > > On Nov 4, Raghu Murthy said: > > >#!/usr/bin/perl > > > >use strict; > >use warnings; > > > >my $result; > >$result = system("cksum foo.c | cut -d ' ' -f2"); > >chomp $ckresult; > >print "$ckresult\n"; > > I doubt you did that; $result and $ckresult aren't the same. > > >Cksum returns an exit status of 0 if successful. This script gives out the > >exit status. How can I remove the exit status from the script. > > The system() function executes a program, and returns the EXIT STATUS. It > does NOT return the output. If you want the output to be returned to a > variable, use backticks or then open() function: > > my $result = `cksum foo.c | cut -d ' ' -f2`; > > >Is there an alternate way to do it using unpack. Any help would be > >appreciated. > > Yes. Read 'perldoc -f unpack', and you'll see there's code for computing > a checksum: > > while (<>) { > $checksum += unpack("%32C*", $_); > } > $checksum %= 65535;
Thanks Jeff. /R -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]