Quelle prog Sprache: C

#!/usr/bin/perl
#
# Convert imagemagick text files to GAP matrices.
# (Thanks to Michael Orlitzky for improving this code.)

($file) = @ARGV;

# Read the last line of the file to obtain the dimensions of the
# matrix. We use "tail" for this because it would be inefficient to
# read all the way to the end of a large file just to obtain the first
# line of our output. It is assumed that "tail" can read backwards
# from the end of file efficiently.
#
# With ImageMagick, the dimensions are also contained in a comment on
# the first line of the file. With GraphicsMagick, however, there is
# no better way to obtain them than to look at the coordinates of the
# last pixel.
my $lastline = do {
  open my $pipe, '-|', "tail", "-n 1", $file
    or die "Can't spawn tail: $!\n";
  <$pipe>;
};

@parts = split /(:|,)/, $lastline;
print("HAPAAA:=[\n  ",$parts[0]+1,",",$parts[2]+1,",");

# Open the file and loop through it, reading each line into an array
# by splitting it on a few different separator characters.
open(INFO, $file);
while(<INFO>) {
  # If this is an ImageMagick (not GraphicsMagick) file,
  # skip the first line with the comment on it.
  next if ( substr($_, 0, 1) eq "#" );

  @parts = split m!(,|:|$|$)!, $_;

  # Format and print the array. We add one to the indices to convert
  # them from zero-based (imagemagick) to one-based (gap). The
  # separator characters also wind up in the array which is why the
  # indices go up by two each time.
  print(
    "[",
    1+$parts[0],
    ",",
    1+$parts[2],
    ",",
    $parts[6]+$parts[8]+$parts[10],
    "],"
  );
};

# Finally, print the end of the matrix, and close the input file.
print($my,"0];\n");
close(INFO);

quality89%

¤ Dauer der Verarbeitung: 0.10 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.