* Tong * <(E-Mail Removed)> writes:
> On Thu, 23 Jan 2014 14:59:47 +0000, Ben Morrow wrote:
>
>>> s,(x+),`echo | wc -c`,eg
>>
>> . . . If it's just a Unix filter (input on stdin, output
>> on stdout) then use tempfiles:
>>
>> use File::Slurp qw/read_file write_file/;
>> use File::Temp qw/tempfile/;
>>
>> sub filter {
>> my ($data) = @_;
>>
>> my ($IN, $in) = tempfile; my ($OUT, $out) = tempfile;
>>
>> write_file $IN, $data; system "wc -c <$in >$out"; return
>> read_file $OUT;
>> }
>>
>> s,(x+),filter ,eg
>
> Nice, neat, clear & elegant. We have a winner.
Make that "Oh my God I got it!".
> On Thu, 23 Jan 2014 14:59:47 +0000, Ben Morrow wrote:
>
>>> s,(x+),`echo | wc -c`,eg
>>
>> . . . If it's just a Unix filter (input on stdin, output
>> on stdout) then use tempfiles:
>>
>> use File::Slurp qw/read_file write_file/;
>> use File::Temp qw/tempfile/;
>>
>> sub filter {
>> my ($data) = @_;
>>
>> my ($IN, $in) = tempfile; my ($OUT, $out) = tempfile;
>>
>> write_file $IN, $data; system "wc -c <$in >$out"; return
>> read_file $OUT;
>> }
>>
>> s,(x+),filter ,eg
>
> Nice, neat, clear & elegant. We have a winner.
Make that "Oh my God I got it!".
Aucun commentaire:
Enregistrer un commentaire