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]

Reply via email to