convert c-code into perl-code

[koppi2342]

Hi PerlMonks, can you help me, converting the following C-Code into Perl-Code?

#include <stdio.h>
int main(int argc, char **argv)
{
    if (argc == 1) {
        printf("usage: cm3_checksum \n");
        return 1;
    }

    FILE *file;
    if ((file = fopen(argv[1], "r+")) == NULL) {
        return 1;
    }

    /* The checksum of the exception vector */
    unsigned int i, n, checksum=0;
    for (i=0; i<7; i++) {
        fread(&n, 4, 1, file);
        checksum += n;
    }

    /* The 2's complement of the checksum */
    checksum = -checksum;
    printf("checksum: 0x%X\n", checksum);

    /* write back the checksum to location 7 */
    fwrite(&checksum, 4, 1, file);
    fclose(file);
    return 0;
}

Kind regards, Koppi

[ww]

Why convert? (homework?)
What have you tried? (see On asking for help: we prefer to teach; not to play the role of code-a-matic)
Have you done anything on your own? (if not, see Tutorials, starting at "Getting Started with Perl")

We tend to be most responsive to those who try to help themselves

[Anonymous Monk]

An XP whore is going to do the HW in 3... 2...

[Old_Gray_Bear]

Insert the following statements at the top of your C code:

#! /usr/local/bin/perl

use strict;
use warnings;

Add +x to the file permissions.

Execute the file, correct all of the warnings and errors, and 'Hey Presto' you have Perl code. (Now you will need to read up on the differences between the f-subroutines and their real counterparts, but I have to leave something as an exercise for the Student.)

[LanX]

Excellent, but wrong section!

... this gem belongs to Tutorials! ;-)

PS: not really a joke...