gudn tach!
oder so aehnlich, oder?
dein Unix ist ja grauenhaft.
wie es mir, so ich ihm.
#!perl
use strict;
use diagnostics;
use IO::Handle qw();
use IPC::Open2 qw(open2);my @highlighter = ('/usr/bin/highlight', '-Sphp', '-i -'); # STDIN
my $php_raw = '<?php echo("Hallo Welt!")?>';
my $php_highlighted;{
my ($r, $w) = (IO::Handle->new, IO::Handle->new);my $pid = open2($r, $w, @highlighter);
print $w $php_raw;
close $w;{
local $/ = undef; # slurp!
$php_highlighted = <$r>;
};
close $r;waitpid $pid, 0;
};
ei ja, ich hab doch gesagt: "oder so aehnlich"... ;-)
prost
seth