RosettaCodeData/Task/Bitmap-PPM-conversion-through-a-pipe/Mathematica/bitmap-ppm-conversion-through-a-pipe-1.math

convert[img_, out_] :=
  Module[{pipe =
     StartProcess[{"WolframKernel", "-noinit", "-noprompt", "-run",
       "Export[\"out.jpg\",ImportString[InputString[],\"PPM\"]]"}]},
   WriteString[pipe, ExportString[Image[Graphics[]], "PPM"]];
   Close[pipe];];