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;
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
