Changeset 22363

Timestamp:

2010-07-07T13:56:37+12:00 (14 years ago)

Author:

ak19

Message:

Adding in the adjustments to the mediainfoogv plugin that were mailed to Arnaud Ivan

File:

• main/trunk/greenstone2/perllib/plugins/MediainfoOGVPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/MediainfoOGVPlugin.pm

@@ -144 +144 @@
 
     # execute the mediainfo command and store the output of execution in $videodata
-    my $video_metadata = `$command`;
+    # my $video_metadata = `$command`; # backticks operator way
+    # Another way to execute the command: better experience with this than
+with backticks operator above:
+    # use open() to read the output of executing the command (which is
+piped through to a handle using the | operator)
+    my $video_metadata;
+    if (open(VMIN,"$command|")) {
+        my $line;
+
+    # we read a line of output at a time
+        while (defined ($line=<VMIN>)) {
+            #print STDERR "***** line = $line\n";
+
+            $video_metadata .= $line;
+        }
+
+        close(VMIN);
+    } 
+
     print $outhandle "$video_metadata\n" if ($verbosity > 2);