#!/usr/bin/perl use strict; use warnings; use Inline CPP => DATA => CCFLAGS => '-std=c++11', LIBS => '-L/usr/local/lib64 -lopencv_imgcodecs -lopencv_core', INC => '-I/usr/local/include/opencv4' ; my $scrabble_image = 'IMAGES/scrabble_board1.jpg'; my $x = scrabbler($scrabble_image); __END__ __CPP__ #undef seed #include #include #include #include #include #include #include #include #include #include #include int scrabbler(char *imname){ cv::Mat myInputImage = cv::imread(imname); int W = myInputImage.cols; int H = myInputImage.rows; std::cout << "read image '" << imname << "': W=" << W << ", H=" << H << std::endl; return 1; }